image of READY prompt

Wang2200.org

Listing of file='3741060A' on disk='vmedia/3741_util.wvd.zip'

# Sector 146, program filename = '3741060A'
0010 REM 3741060A,02.00(12/1/78),THIS PROGRAM IS A PRODUCT OF WANG LABS. INC.
3000 % THIS MUST BE STATEMENT 3000
3010 DIM X$(4)62,Y3$(1)2,Y$8
3020 DEFFN'15
   : PRINT HEX(03);,"LIST TC FILE"
   : PRINT "MOUNT DISK PLATTER."
   : GOSUB '254
3060 PRINT HEX(03);,"LIST TC FILE"
3090 GOSUB '200(" "," ",8,0,"ENTER THE INPUT FILE NAME.",2)
   : Y$=Q6$
   : GOSUB '229(5,Y$)
   : IF R=2THEN 3160
   : PRINT HEX(010A0A0A07);"ERROR - FILE DOES NOT EXIST."
   : GOTO 3090
3160 GOSUB '248(10,20,0)
   : PRINT "FILE NAME  = ";Y$
3200 GOSUB '200(" "," ",1,0,"IS YOUR FILE WRITTEN IN ASCII?(Y/N)",2)
   : D$=Q6$
   : IF D$="Y"THEN 3280
   : IF D$="N"THEN 3260
   : GOSUB '255
   : GOTO 3200
3260 D1$="EBCDIC"
   : GOTO 3290
3280 D1$="ASCII"
3290 GOSUB '248(11,20,0)
   : PRINT "INPUT OPTION - READ ";D1$
   : X,N=0
   : SELECT PRINT 215
   : PRINT HEX(0C0E);,"TC FILE - ";Y$;HEX(0D0A)
3370 GOSUB 3680
   : IF X=-1THEN 3430
   : PRINT "RECORD";N
   : $TRAN(Z0$(),X9$())
   : $GIO/015(A000400D4000,A$)Z0$()<1,X1>
   : GOTO 3370
3430 SELECT PRINT 005
   : PRINT HEX(03);,"LIST TC FILE"
3450 GOSUB '200(" "," ",1,0,"DO YOU WANT TO RERUN THIS PROGRAM? (Y/N)",2)
   : IF Q6$="Y"THEN 3060
   : IF Q6$="N"THEN 3560
   : GOSUB '255
   : GOTO 3450
3510 PRINT HEX(010A0A0A);"ERROR - ";
   : HEXPRINT STR(Q$,1,1);
   : PRINT " - IN WRITING TO 3741"
   : GOSUB '254
3560 DEFFN'31
   : GOSUB '229(1,"3741020A")
   : IF R=1THEN 3620
   : PRINT HEX(030A);"MOUNT SYSTEM PLATTER."
   : GOSUB '254
   : GOTO 3560
3620 PRINT HEX(03);"SYSTEM NOW LOADING - SYSTEM MENU"
   : LOAD DC T#1,"3741020A"3000,6990
3680 IF X=0THEN 3840
   : IF VAL(STR(X$(1),2,1))=XTHEN 3880
   : MAT COPY X$()<X,1>TO Y3$()
   : X1=VAL(Y3$(1))
   : MAT COPY X$()<X+1,X1>TO Z$()
   : MAT COPY Z$()TO Z0$()
   : IF D$="Y"THEN 3790
   : GOSUB 352
3790 X=X+X1+1
   : N=N+1
   : RETURN
3840 DATA LOAD DC OPEN T#5,Y$
   : GOTO 3890
3880 IF STR(X$(1),1,1)=HEX(F0)THEN 3930
3890 DATA LOAD DC #5,X$()
   : X=3
   : GOTO 3680
3930 X=-1
   : RETURN