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 " "