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