image of READY prompt

Wang2200.org

Listing of file='ASKALOAD' on disk='vmedia/701-2358C.wvd.zip'

# Sector 10, program filename = 'ASKALOAD'
0010 REM ASKALOAD 09/03/81, COPYRIGHT WANG LABS, 1981
0020 DIM W1$64,M$8
0030 REM %0 M$ MODULE NAME
0040 REM %--CRT
0070 INIT("*")A$
   : GOSUB '33(STR(A$,1,59))
0080 C$=STR(Z$,31)
0100 GOSUB '33("LOADING SYSTEM       WANG 2200 TELECOMMUNICATIONS")
0110 GOSUB '33(N$)
0115 IF C$=HEX(3C)THEN 170
0120 STR(W$,33)=" "
0130 REM % --DESCRIBE I/O MODULES USED
0140 M1$=STR(W$,17,8)
   : M2$=STR(W$,25,8)
   : A=17
0150 M$=M1$
   : W2$="INPUT ="
   : GOSUB 310
0160 STR(W$,A),M$=M2$
   : W2$="OUTPUT="
   : GOSUB 310
0170 INIT("*")A$
   : GOSUB '33(STR(A$,1,59))
0180 REM  PRINT HEX(01)
0190 REM % -- SET UP SHELL LOADING
0192 M$=" "
0195 ON VAL(C$)-48 GOSUB 222,223,224,225,225,225,236,228,230,232,225,238,225,2
     35
0196 REM ..Emulator type..1   2   3   4   5   6   7   8   9   3A  3B  3C  3D
     3E
0200 COM CLEAR B$
   : LOAD DC T#0,M$
0222 M$="TTYA010"
   : RETURN
0223 M$="TTTA010"
   : RETURN
0224 M$="HASP*001"
   : RETURN
0225 M$="BSC*010"
   : RETURN
0228 M$="MXDA010"
   : RETURN
0230 A$="OFF-LINE"
0231 RETURN CLEAR
   : LOAD DC T#0,"ASKSHELL"
0232 M$="MON*LOAD"
0234 RETURN CLEAR
   : LOAD DC T#0,M$
0235 STOP "USER DEFINED CALLING SEQUENCE   LINE 235"
0236 GOSUB 225
   : A$=W$
   : STR(W$,A-5,1)="V"
   : RETURN
   : REM /.2200 TO 2200
0238 M$="B327010"
   : GOTO 234
0240 DEFFN'33(A$)
0245 W1$=A$
   : IF LEN(A$)>62THEN 280
0250 STR(W1$,1)="*"
0260 STR(W1$,INT((64-LEN(A$))/2))=A$
0270 STR(W1$,60)="*"
0280 PRINT W1$
0290 RETURN
0300 REM %FIND MODULE DESCRIPTION
0310 RESTORE
   : IF M$=" "THEN 400
0320 READ A$
   : IF A$=" "THEN 395
   : IF STR(A$,1,8)<>M$ THEN 320
0330 REM %SHOW MODULE DESCRIPTION
0340 W1$=A$
   : A$=W2$
   : STR(A$,LEN(A$)+1)=W1$
   : GOSUB '33(A$)
0350 REM %SKIP TO END OF LIST
0360 READ A$
   : IF A$<>" "THEN 360
0370 REM SUBROUTINE TO ACTIVATE COMPONENT LOADING
0380 REM %LOOK FOR COMPONENTS
0390 READ A$
   : IF STR(A$,1,8)=M$THEN 420
   : IF A$<>" "THEN 390
0395 A=A+8
0400 RETURN
0410 REM %SET COMPONENTS INTO LIST
0420 STR(W$,A)=STR(A$,9)
0430 IF STR(W$,A)=" "THEN RETURN
   : A=A+8
   : GOTO 430
0440 REM % --I/O Module Description
0445 ON AGOTO 460,6010,6080,7020
0450 REM CIO*name   FUNCTION
0460 DATA "         NO module"
0465 REM ..async
0470 DATA "CIOA010  Disk Read / Search Method"
0480 DATA "CIOA040  Disk Save / Search Method"
0490 DATA "CIOA070  Disk Read / On Error Method"
0500 DATA "CIOA080  Disk Save / On Error Method"
6000 REM %.batch  INPUT MODULES
6010 DATA "CIO*120  Card Read"
6020 DATA "CIO*180  Memory Test Send"
6030 DATA "CIO*010  Disk Read / Search Method"
6040 DATA "CIO*070  Disk Read / On Error Method"
6070 REM %.batch OUTPUT MODULES
6080 DATA "CIO*110  Print Output"
6090 DATA "CIO*190  Memory Test Rcv"
6100 DATA "CIO*040  Disk Save / Search Method"
6120 DATA "CIO*080  Disk Save / On Error Method"
6125 DATA "CIO*200  Disk/Prt Save--Search Method"
6130 DATA "CIO*150  Disk/Prt Save /On Error"
6140 DATA "CIO*041  Disk w/o ctrl / Search"
6142 DATA "CIO*081  Disk w/o ctrl / On Error"
6148 DATA "CIOVWPS  2200-wps mode I/O"
6150 DATA " "
6900 REM %..I/O module Components
7000 REM ITEMS FOUND IN THE FOLLOWING TABLE ARE MADE OF COMPONENTS
7010 REM  .CIO*name Comp. #1, comp #2, comp #3 .....
7020 DATA "CIO*010 CIOT010 CIOVDRS"
7040 DATA "CIO*040 CIOT040 CIOVDSS"
7060 DATA "CIOA010 CIOT010 CIOVDRS"
7070 DATA "CIOA040 CIOT040ACIOVDSS"
7080 DATA "CIOA070 CIOT010 CIOPDRE"
7090 DATA "CIOA080 CIOT040ACIOPDSE CIOVERR"
7100 DATA "CIO*070 CIOT010 CIOPDRE"
7110 DATA "CIO*080 CIOT040 CIOPDSE CIOVERR"
7120 DATA "CIO*150 CIOT150 CIOPDPSECIOVERR"
7130 DATA "CIO*200 CIOT150 CIOVDPSS"
7140 DATA "CIO*041 CIOT041 CIOVDSS"
7150 DATA "CIO*081 CIOT041 CIOPDSE CIOVERR"
7160 DATA "CIOVWPS CIOT012 CIOVDRS CIOT042 CIOVDSS"
7280 DATA " "