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