image of READY prompt

Wang2200.org

Listing of file='609PIDX' on disk='vmedia/731-0067F-disk1.wvd.zip'

# Sector 1819, program filename = '609PIDX'
0015 REM Print Index
0160 COM T5(5),T5$(3)25,B9$,D0,D1,C0,C1,C3,C8,C9,C6$7,C1$1,J7
   : DIM S4,S5(5),S0(5),S3(5),T1$(15)40,U2$(12)4,V0$(1)1
   : DIM S5,T1(8),S6(8),S1(8),T2$(8)40
   : DIM S6,T2(3),S7(3),S2(3),S4(3)
   : DIM S1$6,S1$(15)2,S2$(27)2
   : DIM T2$2,T1$80,S2$1,S7,S9,T0,T2,C2$52,D1$5,C3$1
0215 DIM U1$(12),C0$(256)1,C4$27,C5$3
   : C9=1
   : C1$=" "
   : RESTORE LINE2390
   : GOSUB '61
0245 GOSUB '62
   : ON T5+2GOTO 335,335,265
   : PRINT HEX(07);
   : GOTO 245
0265 IF T5(1)=1THEN 280
   : C1$="Q"
   : LOAD T"609In2"0,0BEG 280
0280 PRINT HEX(03);
   : C2$="ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz"
   : RESTORE LINE2220
   : GOSUB '61
   : T5$(1)=B5$
   : IF C1$=" "THEN T5$(2)=B6$
0310 GOSUB '62
   : ON T5+2GOTO 335,335,345
   : PRINT HEX(07);
   : GOTO 310
0335 COM CLEAR C
   : LOAD T"609menu"
0345 IF T5(1)=2THEN 405
   : C0=770
   : IF T5(2)>1THEN C3=770
   : ELSE C3=1
   : IF T5$(1)<>" "THEN 385
   : C9=52
   : J7=15
   : GOTO 945
0385 B5$,C3$=T5$(1)
   : J7=1
   : GOTO 420
0405 C0=84
   : C3,J7=1
   : B6$,C3$=T5$(2)
0420 C1=POS(C2$=C3$)
   : DATA LOAD DC OPEN T#0,"609@ARCH"
   : DBACKSPACE #0,BEG
   : DSKIP #0,C1S
   : DATA LOAD DC #0,A0$()
   : DATA SAVE DC CLOSE#0
   : IF T5(1)=2THEN 495
   : IF STR(A0$(),2,8)<>" "THEN 860
   : GOSUB 2010
   : PRINT AT(23,0,80);B5$(2);B2$;B5$(1);HEX(07);
   : GOTO 310
0495 IF STR(A0$(),133,3)<>" "THEN 520
   : GOSUB 2030
   : PRINT AT(23,0,80);B5$(2);B2$;B5$(1);HEX(07);
   : GOTO 310
0520 B9$=STR(A0$(),133,3)
   : CONVERT STR(A0$(),136,1)TO C2
   : GOSUB 2050
   : PRINT AT(23,0,80);B5$(2);B2$;B5$(1);
0540 KEYIN B2$,,545
0545 ON POS(HEX(820DF0)=B2$)GOTO 565,565,280
   : PRINT HEX(07);
   : GOTO 540
0565 IF C2=2THEN 690
   : RESTORE LINE2350
   : GOSUB '61
0585 GOSUB '62
   : ON T5+2GOTO 280,280,615
   : PRINT HEX(07);
   : GOTO 585
0615 B0$=T5$(1)
   : IF VER(STR(B0$,1,5),"####A")=5THEN 645
   : GOSUB 2110
   : PRINT AT(23,0,80);B5$(2);B2$;B5$(1);HEX(07);
   : GOTO 585
0645 D0=6
   : D1=0
   : SELECT #D0<B9$>
   : ERRORGOTO 670
0660 LIMITS T#D0,B0$,D1,D2,D3,D4
   : ERRORGOSUB 2150
   : GOTO 585
0665 IF D4=2AND (D2-D1)=1232THEN 690
0670 GOSUB 2030
   : PRINT AT(23,0,80);B5$(2);B2$;B5$(1);HEX(07);
   : GOTO 585
0690 D0=6
   : SELECT #D0<B9$>
   : GOSUB 1150
   : GOSUB 1180
   : IF D3=0THEN 745
   : PRINT AT(23,0,80);B5$(2);B2$;B5$(1);HEX(07);
   : IF C2=1THEN 585
   : ELSE GOTO 310
0745 D1$=STR(C0$(),4,5)
   : IF VER(STR(D1$,1,5),"####A")=5THEN 775
   : GOSUB 2030
   : PRINT AT(23,0,80);B5$(2);B2$;B5$(1);HEX(07);
   : GOTO 585
0775 GOSUB 2090
   : PRINT AT(23,0,80);B5$(2);B2$;B5$(1);
0785 KEYIN B2$
   : ON POS(HEX(82F0)=B2$)GOTO 945,810
   : PRINT HEX(07);
   : GOTO 785
0810 IF C8=0THEN 280
   : GOSUB 1150
   : GOSUB 1320
   : IF D3=0THEN 280
   : PRINT AT(23,0,80);B5$(2);B2$;B5$(1);HEX(07);
   : IF C2=1THEN 585
   : ELSE GOTO 310
0860 B9$=STR(A0$(),2,8)
   : D9=1
0875 GOSUB '236(12,D9)
   : IF R1$<>HEX(00)THEN 890
   : IF V1>0THEN 905
0890 GOSUB 2070
   : PRINT AT(23,0,80);B5$(2);B2$;B5$(1);HEX(07);
   : GOTO 310
0905 MAT SEARCHSTR(U1$(),,V1*16),=STR(B9$,1,8)TO T2$STEP 16
   : IF T2$>HEX(0000)THEN 935
   : IF V1<12THEN 890
   : D9=D9+12
   : GOTO 875
0935 B9$=STR(U1$(),VAL(T2$,2))
0945 IF C1$="Q"THEN C4$=STR(T5$(1),1,2)&T5$(2)
   : ELSE C4$=STR(T5$(1),1,1)&STR(T5$(2),1,1)&T5$(3)
   : FOR C=1TO 3
   : CONVERT T5(C)TO STR(C5$,C,1),(#)
   : NEXT C
   : PRINT HEX(03);
   : RESTORE LINE2410
   : GOSUB '61
   : T5$(1)="1"
   : T5$(2)="03"
   : T5$(3)="66"
0995 GOSUB '62
   : ON T5+2GOTO 335,335,1020
   : PRINT HEX(07);
   : GOTO 995
1020 D=1
   : FOR C=1TO 3
   : IF NUM(T5$(C))<25THEN D=0
   : NEXT C
   : IF D=1THEN 1055
   : GOSUB 2190
   : GOTO 1070
1055 CONVERT T5$(1)TO C
   : IF C>0AND C<5THEN 1080
   : GOSUB 2170
1070 PRINT AT(23,0,80);B5$(2);B2$;B5$(1);HEX(07);
   : GOTO 995
1080 STR(C6$,1,5)=STR(T5$(1),1,1)&STR(T5$(2),1,2)&STR(T5$(3),1,2)
   : CONVERT T5(1)TO STR(C6$,6,1),(#)
   : CONVERT T5(2)TO STR(C6$,7,1),(#)
   : T5$(1)=STR(C4$,1,1)
   : T5$(2)=STR(C4$,2,1)
   : T5$(3)=STR(C4$,3,25)
   : FOR C=1TO 3
   : CONVERT STR(C5$,C,1)TO T5(C)
   : NEXT C
   : IF T5(1)=1THEN C1=4
   : ELSE C1=6
   : IF C1$=" "THEN 1135
   : A5$()="609PQUE OPSUBS  JCATSMAL"
   : LOAD T<3>A5$()
1135 LOAD T"609INA"10,3999
1150 $OPEN 1160,#D0
   : RETURN
1160 $BREAK255
   : GOTO 1150
1180 D3=1
   : DATA LOAD BA T#D0,(D1)C0$()
   : ERRORGOTO 1285
1195 IF VER(STR(C0$(),4,5),"####A")=5THEN 1215
   : GOSUB 2030
   : GOTO 1270
1215 B2$=BIN(#PART)
   : IF STR(C0$(),9,1)=B2$THEN 1260
   : IF STR(C0$(),9,1)=HEX(00)THEN 1250
   : GOSUB 2130
   : GOTO 1270
1250 STR(C0$(),9,1)=B2$
   : DATA SAVE BA T#D0,(D1)C0$()
   : ERRORGOTO 1300
1260 C8=1
   : D3=0
1270 $CLOSE#D0
   : RETURN
1285 GOSUB 2050
   : GOTO 1270
1300 GOSUB 2150
   : GOTO 1270
1320 D3=1
   : C8=0
   : DATA LOAD BA T#D0,(D1)C0$()
   : ERRORGOTO 1405
1340 IF VER(STR(C0$(),4,5),"####A")=5THEN 1360
   : GOSUB 2030
   : GOTO 1390
1360 IF STR(C0$(),9,1)=HEX(00)THEN 1385
   : STR(C0$(),9,1)=HEX(00)
   : DATA SAVE BA T#D0,(D1)C0$()
   : ERRORGOTO 1420
1385 D3=0
1390 $CLOSE#D0
   : RETURN
1405 GOSUB 2050
   : GOTO 1390
1420 GOSUB 2150
   : GOTO 1390
2010 B2$="Library does not exist"
   : RETURN
2030 B2$="Archive does not exist"
   : RETURN
2050 B2$="Please mount archive, press EXECUTE or CANCEL"
   : RETURN
2070 B2$="Volume does not exist"
   : RETURN
2090 B2$="Archive diskette is  "&D1$&"  Press EXECUTE or CANCEL"
   : RETURN
2110 B2$="Invalid Archive ID"
   : RETURN
2130 B2$="Archive in use"
   : RETURN
2150 B2$="Archive not available"
   : RETURN
2170 B2$="Invalid Printer Number"
   : RETURN
2190 B2$="Invalid Numeric Specification"
   : RETURN
2220 DATA 3,0,0,"P r i n t   I n d e x"
   : DATA 4,3,0,"Please choose one from each column:"
   : DATA 3,5,8,"Location"
2250 DATA 1,7,8,1,"Library","Archive","\DE"
   : GOTO 2250
2260 DATA 2,7,20,1,"A"
2270 DATA 2,8,20,1,"A"
   : GOTO 2270
2280 DATA 3,5,32,"Which Ones"
   : DATA 1,7,32,1,"All","By Author","By Operator","By Title","By Comment","In
      Use","Recovered","Active","\DE"
   : DATA 3,5,50,"Author/Operator/Title/Comment"
   : DATA 2,8,53,25," "
   : DATA 3,14,8,"Sort Order"
2330 DATA 1,16,8,1,"By Document Number","By Author","By Operator","By Title","
     By Comment","\DE"
   : DATA 0
2350 DATA 3,0,0,"P r i n t   I n d e x"
   : DATA 4,22,0,"Enter Archive name"
   : DATA 2,22,20,5," "
   : DATA 0
2390 DATA 1,20,50,1,"Immediate Print","Queue Print Request","\DE"
   : DATA 0
2410 DATA 3,0,0,"P r i n t   I n d e x"
   : DATA 4,4,0,"Document Id: INDEX"
   : DATA 4,5,0,"Document Name:"
   : DATA 4,12,0,"Printer Number:"
   : DATA 4,12,26,"Left Margin:"
   : DATA 4,12,56,"Paper Length:"
   : DATA 4,15,03,"FORMS"
   : DATA 4,15,15,"PITCH"
   : DATA 2,12,19,1," "
   : DATA 2,12,46,2," "
   : DATA 2,12,75,2," "
2510 DATA 1,16,0,1,"Standard","Single","Form 1","Form 2","\DE"
   : DATA 1,16,14,1,"10","12","15","\DE"
   : DATA 0