Listing of file='ASKALOAD' on disk='vmedia/731-0110A.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 " "