image of READY prompt

Wang2200.org

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