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