Listing of file='QUIKLIST' on disk='vmedia/701-2110C.wvd.zip'
# Sector 141, program filename = 'QUIKLIST' 0010 REM QUIKLIST 04/23/79, COPYRIGHT WANG LABORATORIES, INC. 1979 0020 DIM H$(4)64,B1$(4)62,F4$2 : F4$=HEX(A03E) : DIM K$1,T$1,B$(2,255)1,T$(4),B2$(4)40,B3$32 : INIT(2E)B3$ 0035 DEFFN'15 : SELECT PRINT 005(64),INPUT 001 : GOSUB 730 : GOSUB 520 0140 SELECT PRINT 005(64) : GOSUB 810 : IF D=0THEN 160 : A=A1 0160 INPUT T : T=INT(T) : IF T>3THEN 140 : IF T=2THEN 500 0180 R,R1=0 : IF D=0THEN 35 : PRINT "REQUESTED LIST TYPE";T;" ";T$(T+1) : IF T<>2THEN 220 : SELECT PRINT 215(120) : PRINT HEX(0C) : PRINT "***START LIST OF FILE--";F$ 0210 PRINT "BLK# IMG.#--....!....1....!....2....!....3....!....4....!....5.... !....6....!....7....!....8" 0220 INIT(00)B$() : GOSUB 440 : IF D=0THEN 240 : DATA LOAD DC #2,B1$() : GOTO 250 0240 DATA LOAD B1$() 0250 $PACK(F=F4$)B$()FROMB1$() : T$=B$(1,1) : R=R+1 : IF END THEN 690 0270 % ***** BLOCK NO.=#### CARD NO.=### RECORD LENGTH=### ***** 0280 GOSUB 400 0290 R1=R1+1 : L=VAL(B$(1,B)) : S,B=B+1 : INIT(20)B2$() : MAT COPY B$()<B,L> TO B2$() : $TRAN(B3$,B2$()) : ON T-1GOTO 620,660 : PRINTUSING 270,R,R1,L : IF T=0 THEN 350 : PRINT "BINARY RECORD DISPLAYED IN HEX" 0340 HEXPRINT B$(1,B); : B=B+1 : IF B<S+LTHEN 340 : GOTO 380 0350 K$=B$(1,B) : IF K$<" "THEN 360 : PRINT K$; : GOTO 370 0360 PRINT "'"; : HEXPRINT K$; : PRINT "'"; 0370 B=B+1 : IF B<S+LTHEN 350 0380 PRINT : GOSUB 430 : IF B<B9THEN 290 : PRINT : PRINT : IF T$<>HEX(F0)THEN 220 : GOTO 690 0400 T$=B$(1,1) : B=3 : B9=VAL(B$(1,2)) : IF T$=HEX(00)THEN 420 : IF T$=HEX(F0)THEN 420 0410 PRINT "IMPROPER TC FILE FORMAT " : GOTO 140 0420 Z=VAL(B$(1,B)) : IF Z=0THEN 410 : B=B+Z+1 : IF B<B9THEN 420 : IF B>B9THEN 410 : B=3 : RETURN 0430 KEYIN K$,450,450 0440 RETURN 0450 SELECT PRINT 005 : PRINT : PRINT "KEY (EXEC) TO CONTINUE OR SF'0-3 TO CHANGE MODES" 0460 KEYIN K$,440,470 : GOTO 460 0470 IF K$=HEX(1F)THEN 950 : IF K$=HEX(0F)THEN 35 : IF K$>HEX(03)THEN 440 : T=VAL(K$) : SELECT PRINT 005(64) : RETURN 0480 DEFFN'0 : T=0 : GOTO 180 0490 DEFFN'1 : T=1 : GOTO 180 0500 DEFFN'2 : T=2 : SELECT PRINT 005 : PRINT " OUTPUT IS TO PRINTER" : GOTO 180 0510 DEFFN'3 : T=3 : GOTO 180 0520 D=0 : INPUT "INPUT DEVICE 1=(F)310 2=(R)B10 3=(F)320 4=(R)B20",D : D=INT(D) : IF D<1THEN 520 : IF D>4THEN 520 : IF D>0THEN 530 : F$="CASSETTE" : RETURN 0530 PRINT "ENTER DATA FILE NAME (DEFAULT = ";F$;")"; : INPUT F$ : ON DGOSUB 560,570,580,590,540,550 0540 DATA LOAD DC OPEN T#2,F$ : %FILENOTFOUND-KEYSF'15 0550 RETURN 0560 SELECT #2310 : RETURN 0570 SELECT #2B10 : RETURN 0580 SELECT #2320 : RETURN 0590 SELECT #2B20 : RETURN 0600 %#### #####-- 0620 SELECT PRINT 215 : PRINTUSING 600,R,R1; : IF L<=80THEN 630 : $GIO/215(A200400D4000,P8$)B2$()<1,80> : PRINT " "; : $GIO/215(A200400D4000,P8$)B2$()<81,L-80> : GOTO 640 0630 $GIO/215(A200400D4000,P8$)B2$()<1,L> 0640 SELECT PRINT 005 : B=B+L : IF B<S+LTHEN 620 : IF B<B9THEN 290 : IF T$<>HEX(F0)THEN 220 : SELECT PRINT 215 : GOTO 690 0660 PRINT "BLOCK=";R,"CARD IMAGE=";R1 : $GIO/005(A200,P8$)B2$()<1,60> : PRINT : $GIO/005(A200,P8$)B2$()<61,20> : PRINT : GOSUB 430 : B=B+L : IF B<S+LTHEN 660 : IF B<B9THEN 290 : IF T$<>HEX(F0)THEN 220 0690 PRINT R1;" CARD IMAGES FOUND---END OF FILE ";F$ : SELECT PRINT 005(64) : IF D=0THEN 695 : GOSUB 540 : GOTO 140 0695 PRINT "POSITIONING BEYOND END--", : PRINT "DONE" : GOTO 140 0700 DEFFN'13 : M$="FORM FEED" : K$=HEX(0C) : GOTO 720 0710 DEFFN'14 : M$="VERTICAL TAB" : K$=HEX(0B) 0720 SELECT PRINT 005 : PRINT M$;" PRINTER" : SELECT PRINT 215 : PRINT K$ : SELECT PRINT 005 : RETURN 0730 T$(1)="CRT IN ASCII" : T$(2)="CRT IN HEX " : T$(3)="TO PRINTER " : T$(4)="QUICK TO CRT" : PRINT HEX(03),,"QUICK LIST - LIST TC FILES" 0755 GOSUB 760 : PRINT : PRINT "YOU MUST FIRST SELECT AN INPUT DEVICE" : PRINT : RETURN 0760 PRINT : PRINT "LINE PRINTER CONTROL" : PRINT "S.F. '13 FORM FEED, '15 TO RESTART" : PRINT "S.F. '14 VERTICAL TAB, '31 RETURN TO MAIN MENU" : RETURN 0810 PRINT : PRINT "KEY FOR LISTING -- KEY (EXEC) WILL PAUSE LIST" : FOR I9=1TO 4 : PRINT TAB(5);"'";I9-1;" ";T$(I9) : NEXT I9 : RETURN 0890 DEFFN'7 : FOR Z=1TO 120 : HEXPRINT B$(1,Z); : NEXT Z : RETURN : DIM C$(4)64 0900 DEFFN'8 : LIMITS T#2,F$,A,A9,Z 0910 DATA LOAD BA T#2,(A,A)C$() : PRINT "SECTOR=";A-1 : HEXPRINT C$() : INPUT A : GOTO 910 0950 DEFFN'31 : LOAD DC T#1,"MENU010A"