Listing of file='3741050A' on disk='vmedia/3741_util.wvd.zip'
# Sector 135, program filename = '3741050A'
0010 REM 3741050A,02.00(12/1/78),THIS PROGRAM IS A PRODUCT OF WANG LABS. INC.
3000 % THIS MUST BE STATEMENT 3000
3010 %SECTOR #### (##/##) RECORD ####
3030 DIM X$(4)62,X0$(1)1,Y$(4)64,F1$17,D1$20
3040 DEFFN'15
: PRINT HEX(03);,"LIST 3741 FILE"
: PRINT "MOUNT DISK PLATTER."
: GOSUB '254
3080 PRINT HEX(03);,"LIST 3741 FILE"
3110 GOSUB '200(" "," ",17,0,"ENTER THE INPUT FILE NAME.",2)
: F1$=Q6$
: GOSUB '186(F1$)
: IF Q$=" "THEN 3190
: PRINT HEX(010A0A0A07);"ERROR - FILE DOES NOT EXIST."
: GOTO 3110
3190 GOSUB '200("1","2",1,0,"ENTER WHERE THE LISTING SHOULD STOP. (1-'EOD' OR
2-'EOE')",1)
: IF Q9=2THEN 3230
: Z=Z3
: GOTO 3250
3230 Z=Z2+1
3250 GOSUB '248(10,20,0)
: PRINT "INPUT FILE NAME = ";F1$
: GOSUB '248(1,0,3)
: GOSUB '248(11,20,0)
3300 GOSUB '200(" "," ",1,0,"IS YOUR FILE WRITTEN IN EBCDIC? (Y/N)",2)
: D$=Q6$
: IF D$="Y"THEN 3360
: IF D$="N"THEN 3380
: GOSUB '255
: GOTO 3300
3360 D1$="READ OPTION - EBCDIC"
: GOTO 3400
3380 D1$="READ OPTION - ASCII"
3400 GOSUB '248(11,20,0)
: PRINT D1$
: SELECT PRINT 215
: PRINT HEX(0C0E);,"3741 FILE - ";F1$;HEX(0D0A)
: IF D$="Y"THEN 3480
3480 IF D$="Y"THEN 3510
: GOSUB '197
: GOTO 3520
3510 GOSUB '181
3520 IF Q$=HEX(08)THEN 3480
: IF Q$<>" "THEN 3600
: IF Z0>ZTHEN 3600
: $TRAN(Z$(),X9$())
: PRINTUSING 3010,Z0-1,INT((Z0-2)/26),Z0-1-INT((Z0-2)/26)*26,Z0-Z1
: $GIO/015(A000400D4000,A$)Z$()<1,Z5>
: GOTO 3480
3600 SELECT PRINT 005
: PRINT HEX(03);,"LIST 3741 FILE"
: GOSUB '200(" "," ",1,0,"DO YOU WANT TO RERUN THIS PROGRAM? (Y/N)",2)
: IF Q6$="Y"THEN 3080
: IF Q6$="N"THEN 3690
: GOSUB '255
: GOTO 3600
3690 DEFFN'31
: GOSUB '229(1,"3741020A")
: IF R=1THEN 3750
: PRINT HEX(030A);"MOUNT SYSYTEM DISK."
: GOSUB '254
: GOTO 3690
3750 PRINT HEX(03);"SYSTEM NOW LOADING - SYSTEM MENU"
: LOAD DC T#1,"3741020A"3000,6990