Listing of file='COPY010B' on disk='vmedia/701-2048D.wvd.zip'
# Sector 211, program filename = 'COPY010B'
0010 REM COPY010B,00-00(05/06/76),12003A,COPYRIGHT WANG LABS., INC, 1976
0030 COM O,I$,F$,L
: SELECT PRINT 005
: PRINT HEX(03);"LOADING SCREEN/DISK UTILITIES"
: LOAD DC T#0,"UTILITY"10,10
0110 DEFFN '99
: RETURN CLEAR
0130 PRINT HEX(03)
: GOSUB '248(4,16,0)
: PRINT "CREATE REFERENCE FILE"
0180 GOSUB '245("ENTER THE DESIRED OPTION. (0-CREATE, 1-MODIFY OR 2-LIST)",1,0
)
: IF Q9<3THEN 220
: GOSUB '55
: GOTO 180
0220 O=Q9
: GOSUB '248(6,0,0)
: ON OGOTO 270,290
: PRINT "OPTION = CREATE"
: GOTO 320
0270 PRINT "OPTION = MODIFY"
: GOTO 320
0290 PRINT "OPTION = LIST "
0320 GOSUB '243("ENTER THE INPUT ADDRESS.",3)
: IF STR(Q6$,1,1)="3"THEN 370
: IF STR(Q6$,1,1)="B"THEN 370
0350 GOSUB '55
: GOTO 320
0370 I$=Q6$
: GOSUB '97(I$)
: IF Q6$="N"THEN 350
: GOSUB '248(6,32,0)
: PRINT "INPUT ADDRESS = ";I$
0440 GOSUB '243("ENTER THE NAME OF THE REFERENCE FILE.",8)
: IF Q6$<>" "THEN 480
: GOSUB '55
: GOTO 440
0480 F$=Q6$
: GOSUB '248(7,0,0)
: PRINT "FILE NAME = ";STR(F$,1)
: IF O<>0THEN 640
0550 GOSUB '245("ENTER THE NUMBER OF FILE NAMES TO BE ENTERED.",3,0)
: IF Q9<>0THEN 590
: GOSUB '55
: GOTO 550
0590 L=INT((Q9+13)/14)
: GOSUB '248(7,32,0)
: PRINT "FILE SIZE =";L*14
0640 GOSUB '248(0,0,4)
: PRINT "LOADING NEXT MODULE"
: GOSUB '98(680,2,I$)
: LOAD DC T#0,"SELECT"680,680
0680 %SELECT #2 GOES HERE
0690 GOSUB '98(710,3,I$)
: LOAD DC T#0,"SELECT"710,710
0710 %SELECT #3 GOES HERE
0720 GOSUB '98(740,4,I$)
: LOAD DC T#0,"SELECT"740,740
0740 %SELECT #4 GOES HERE
0760 LOAD DC T#0,"COPY020B"10,7999
0790 DEFFN '15
: COM CLEAR O
: LOAD DC T#0,"START040"