Listing of file='3741070A' on disk='vmedia/3741_util.wvd.zip'
# Sector 156, program filename = '3741070A'
0010 REM 3741070A,02.00(12/1/78),THIS PROGRAM IS A PRODUCT OF WANG LABS. INC.
3000 % THIS MUST BE STATEMENT 3000
3010 % #### (##/##)
3015 DEFFN'15
3020 PRINT HEX(03);,"LIST 3741 CATALOG"
: PRINT "MOUNT DISK PLATTER."
: GOSUB '254
: Z0=8
: Z2=26
: Z5=128
: Z6=9
3140 Z=0
: PRINT HEX(03);,"LIST 3741 CATALOG"
: PRINT HEX(0A0A0A)
: PRINT "NAME LEN 'BOE' 'EOE' 'EOD' BPV"
3180 GOSUB '181
: IF Q$=HEX(08)THEN 3180
: IF Q$<>" "THEN 3410
: Z=Z+1
: PRINT STR(Z$(1),6,17);STR(Z$(1),25,3);
: GOSUB '32(STR(Z$(1),29,5))
: GOSUB '32(STR(Z$(1),35,5))
: GOSUB '32(STR(Z$(2),11,5))
: PRINT " ";STR(Z$(1),41,1);STR(Z$(1),43,1);STR(Z$(1),45,1);
: PRINT
3290 IF Z<10THEN 3180
: GOSUB '254
: GOTO 3140
3340 DEFFN'32(X$)
: CONVERT STR(X$,1,2)TO X0
: CONVERT STR(X$,4,2)TO X1
: PRINTUSING 3010,26*X0+X1,STR(X$,1,2),STR(X$,4,2);
: RETURN
3410 GOSUB '200(" "," ",1,0,"DO YOU WANT TO RERUN THIS PROGRAM? (Y/N)",2)
: IF Q6$="Y"THEN 3020
: IF Q6$="N"THEN 3480
: GOSUB '255
: GOTO 3410
3480 DEFFN'31
: GOSUB '229(1,"3741020A")
: IF R=1THEN 3540
: PRINT HEX(030A);"MOUNT SYSTEM PATTER."
: GOSUB '254
: GOTO 3480
3540 PRINT HEX(03);"SYSTEM NOW LOADING - SYSTEM MENU"
: LOAD DC T#1,"3741020A"3000,6990