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