image of READY prompt

Wang2200.org

Listing of file='ASKALOAD' on disk='vmedia/bsc_3271_rel_1.14.04.wvd.zip'

# Sector 43, program filename = 'ASKALOAD'
0010 REM ASKALOAD 09/03/81, COPYRIGHT WANG LABS, 1981
0020 DIM W1$64,M$8
   : INIT("*")A$
   : GOSUB '33(STR(A$,1,59))
   : C$=STR(Z$,31)
   : GOSUB '33("LOADING SYSTEM       WANG 2200 TELECOMMUNICATIONS")
   : GOSUB '33(N$)
   : IF C$=HEX(3C)THEN 170
   : STR(W$,33)=" "
   : M1$=STR(W$,17,8)
   : M2$=STR(W$,25,8)
   : A=17
   : M$=M1$
   : W2$="INPUT ="
   : GOSUB 310
   : STR(W$,A),M$=M2$
   : W2$="OUTPUT="
   : GOSUB 310
0170 INIT("*")A$
   : GOSUB '33(STR(A$,1,59))
   : M$=" "
   : ON VAL(C$)-48GOSUB 222,223,224,225,225,225,236,228,230,232,225,238,225,23
     5
   : 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"
   : 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
0238 M$="B327010"
   : GOTO 234
0240 DEFFN'33(A$)
   : W1$=A$
   : IF LEN(A$)>62THEN 280
   : STR(W1$,1)="*"
   : STR(W1$,INT((64-LEN(A$))/2))=A$
   : STR(W1$,60)="*"
0280 PRINT W1$
   : RETURN
0310 RESTORE
   : IF M$=" "THEN 400
0320 READ A$
   : IF A$=" "THEN 395
   : IF STR(A$,1,8)<>M$THEN 320
   : W1$=A$
   : A$=W2$
   : STR(A$,LEN(A$)+1)=W1$
   : GOSUB '33(A$)
0360 READ A$
   : IF A$<>" "THEN 360
0390 READ A$
   : IF STR(A$,1,8)=M$THEN 420
   : IF A$<>" "THEN 390
0395 A=A+8
0400 RETURN
0420 STR(W$,A)=STR(A$,9)
0430 IF STR(W$,A)=" "THEN RETURN
   : A=A+8
   : GOTO 430
   : ON AGOTO 460,6010,6080,7020
0460 DATA "         NO module"
   : DATA "CIOA010  Disk Read / Search Method"
   : DATA "CIOA040  Disk Save / Search Method"
   : DATA "CIOA070  Disk Read / On Error Method"
   : DATA "CIOA080  Disk Save / On Error Method"
6010 DATA "CIO*120  Card Read"
   : DATA "CIO*180  Memory Test Send"
   : DATA "CIO*010  Disk Read / Search Method"
   : DATA "CIO*070  Disk Read / On Error Method"
6080 DATA "CIO*110  Print Output"
   : DATA "CIO*190  Memory Test Rcv"
   : DATA "CIO*040  Disk Save / Search Method"
   : DATA "CIO*080  Disk Save / On Error Method"
   : DATA "CIO*200  Disk/Prt Save--Search Method"
   : DATA "CIO*150  Disk/Prt Save /On Error"
   : DATA "CIO*041  Disk w/o ctrl / Search"
6142 DATA "CIO*081  Disk w/o ctrl / On Error"
   : DATA "CIOVWPS  2200-wps mode I/O"
   : DATA " "
7020 DATA "CIO*010 CIOT010 CIOVDRS"
   : DATA "CIO*040 CIOT040 CIOVDSS"
   : DATA "CIOA010 CIOT010 CIOVDRS"
   : DATA "CIOA040 CIOT040ACIOVDSS"
   : DATA "CIOA070 CIOT010 CIOPDRE"
   : DATA "CIOA080 CIOT040ACIOPDSE CIOVERR"
   : DATA "CIO*070 CIOT010 CIOPDRE"
   : DATA "CIO*080 CIOT040 CIOPDSE CIOVERR"
7120 DATA "CIO*150 CIOT150 CIOPDPSECIOVERR"
   : DATA "CIO*200 CIOT150 CIOVDPSS"
   : DATA "CIO*041 CIOT041 CIOVDSS"
   : DATA "CIO*081 CIOT041 CIOPDSE CIOVERR"
   : DATA "CIOVWPS CIOT012 CIOVDRS CIOT042 CIOVDSS"
   : DATA " "