Listing of file='609POPT0' on disk='vmedia/731-0067F-disk1.wvd.zip'
# Sector 2468, program filename = '609POPT0'
0010 REM 609POPT0 250-11/03/88 KKB
0042 COM C1$1,C0$8,C2$5,C2,T5(7),T5$(11)4,@H9$3,@H8$3,@H7$80
: @H7$=ALL(20)
: @H8$="005"
: DIM J1$(256)1,C6$2,C4$80
: C2$=R5$
: LIMITS T#0,"609$TRAN",A,B,B,B
: DATA LOAD BA T#0,(A+1)J1$()
0098 DIM C8$8,C9$2,A6$(4)25,A7$(13)6,C0$(256)1,V1$(3)82
0110 DIM S3(18),S5(18),S0(18),T1$(18)80,T5(7)
: DIM S6(25),S1(25),T2$(25)80,T1(25)
: DIM S7(11),S2(11),S4(11),T2(11)
: DIM S1$(29)2,S2$(55)2,V0$(1)2,S2$1,T1$80,T2$2,S1$58
: PRINT HEX(0306)
: GOSUB '36
: IF C1$="A"THEN 230
: C8$=R5$
: IF Y5$=" "OR A2=-1THEN 190
: GOSUB '220(A2,1,1,1,1)
: C4=VAL(STR(V1$(),3),2)
0162 GOSUB '220(A2,1,C4,1,1)
: $UNPACK(F=HEX(A019A0066006A002A001))V1$()TO A6$(),A7$(),A0(),A8$(),A9$()
: C0$=A7$(1)
: $TRAN(A6$(1),HEX(8020))R
: PRINT AT(4,46);A7$(1);AT(5,46);A6$(1);
: $TRAN(A6$(1),HEX(2080))R
0190 GOSUB '220(A1,1,1,1,1)
: C4=VAL(STR(V1$(),3),2)
: GOSUB '220(A1,1,C4,1,1)
: $UNPACK(F=HEX(A019A0066006A002A001))V1$()TO A6$(),A7$(),A0(),A8$(),A9$()
: $TRAN(A6$(1),HEX(8020))R
: PRINT AT(4,19);A7$(1);AT(5,19);A6$(1);
: $TRAN(A6$(1),HEX(2080))R
: GOTO 338
0230 IF C0$="WWPSDISK"THEN C8=0
: ELSE LIMITS T#C2,C0$,C8,C0,C0,C0
: HEXPACKC8$FROMSTR(C2$,1,4)
: STR(C8$,3)=STR(C2$,5)
: FOR C=3TO 4
: C9$=BIN(C,2)
: DATA LOAD BA T#C2,(C8+16*VAL(C9$)+POS(HEX(0004080C0105090D02060A0E03070B0
F)=STR(C9$,2))-1)C0$()
: MAT SEARCHC0$(),=STR(C8$,1,3)TO V0$()STEP 6
: IF V0$()=HEX(0000)THEN 322
: C9$=STR(C0$(),VAL(V0$(),2)+3)
0278 DATA LOAD BA T#C2,(C8+16*VAL(C9$)+POS(HEX(0004080C0105090D02060A0E03070B0
F)=STR(C9$,2))-1)C0$()
: V0$()=C9$
: C9$=STR(C0$(),1,2)
: DATA LOAD BA T#C2,(C8+16*VAL(C9$)+POS(HEX(0004080C0105090D02060A0E03070B0
F)=STR(C9$,2))-1)C0$()
: A0(3)=VAL(STR(C0$(),3,1))+7
: C9$=V0$()
0310 DATA LOAD BA T#C2,(C8+16*VAL(C9$)+POS(HEX(0004080C0105090D02060A0E03070B0
F)=STR(C9$,2))-1)C0$()
: A6$(1)=STR(C0$(),14,24)
: $TRAN(A6$(1),J1$())
0322 NEXT C
: $TRAN(A6$(1),HEX(8020))R
: PRINT AT(4,19);C2$;AT(5,19);A6$(1);
: $TRAN(A6$(1),HEX(2080))R
0338 RESTORE 12
: GOSUB '61
: RESTORE
: MAT T5=CON
: T5(6)=2
: MAT READ T5$
: CONVERT A0(3)-7TO T5$(2),(###)
: CONVERT 1TO T5$(1),(###)
: IF C1$="L"THEN $UNPACK(F=HEX(6001))A9$()TO T5()
: IF C1$="A"OR VAL(STR(V1$(),209))=255OR STR(V1$(),209)=" "THEN 402
: HEXUNPACKSTR(V1$(),209,22)TO T5$()
: $TRAN(T5$(),HEX(2041))R
: CONVERT A0(3)-7TO T5$(2),(###)
: $UNPACK(F=HEX(6001))STR(V1$(),231,7)TO T5()
0398 IF A3$="609PR004"THEN T5(1),T5(4),T5(5),T5(7)=1
: ELSE T5(1)=MIN(T5(1),3)
0402 IF T5(1)=4THEN T5(1)=1
: IF C9=1AND T5(1)>2THEN T5(1)=1
0414 % THIS STATEMENT IS OVERWRITTEN BY 609POPTC - IF T5(1)>2 THEN T5(1)=1
0418 GOSUB '62
0422 % THIS STATEMENT IS OVERWRITTEN BY 609POPT1 - T5(1)=4
0426 IF T5<>0THEN 450
: IF C1$="A"THEN GOSUB '31
: COM CLEAR U1$()
: A0$()="609Close"&"JCAT"
: LOAD DC T#0,<2>A0$()
0450 T5=1
: FOR C=1TO 11
: IF NUM(T5$(C))<4THEN T5=0
: NEXT C
: ON T5GOTO 478
0470 GOSUB 2000
: GOTO 402
0478 FOR C=1TO 11
: B2$=T5$(C)
: $TRAN(T5$(C)," 0 1 2 3 4 5 6 7 8 9")R
: IF POS(T5$(C)<>" ")>0THEN T5=0
: T5$(C)=B2$
: NEXT C
: IF T5=0THEN 470
: CONVERT T5$(1)TO C
: IF C<=A0(3)-7THEN 530
: GOSUB 2010
: GOTO 402
0530 IF C>0THEN 546
: IF T5(6)=1THEN 546
: IF T5$(1)=T5$(2)THEN GOSUB 2020
: ELSE GOTO 546
: GOTO 402
0546 CONVERT T5$(2)TO C
: IF C<=A0(3)-7THEN 566
: GOSUB 2040
: GOTO 402
0566 CONVERT T5$(1)TO C
: CONVERT T5$(2)TO C6
: IF C<=C6THEN 590
: GOSUB 2050
: GOTO 402
0590 IF T5(1)<3THEN 608
: CONVERT T5$(8)TO C
: IF C=1THEN 614
: GOSUB 2030
: GOTO 402
0608 CONVERT T5$(8)TO C
: IF C>0THEN 614
: GOSUB 2090
: GOTO 402
0614 CONVERT T5$(10)TO C
: IF C>0AND C<5THEN 634
: GOSUB 2060
: GOTO 402
0634 LIMITS T#0,"609@DEVC",T5,C0,C0,C0
: CONVERT STR(T5$(10),1,1)TO C0
: DATA LOAD DA T#0,(T5+C0)A0$(1)
: SELECT #C0<STR(A0$(1),2,3)>
: IF C1$="A"THEN 698
: $TRAN(T5$(),HEX(41204185))R
: HEXPACKSTR(V1$(),209,22)FROMT5$()
: $PACK(F=HEX(6001))STR(V1$(),231,7)FROMT5()
: IF A3$<>"609pr004"THEN GOSUB '221(A1,1,C4,1,1)
: $TRAN(T5$(),HEX(2041))R
0635 @H9$=STR(A0$(1),2,3)
0678 IF C9=0THEN 698
: A5$()="609PQUE OPSUBS JCATSMAL"
: LOAD T<3>A5$()
0698 @H9$=STR(A0$(1),2,3)
: IF T5(1)<3 AND STR(@H9$,1,1)="7" THEN 795
: IF STR(@H9$,1,1)<>"7"THEN 794
: $OPEN 762,#C0
: ERRORGOTO 762
0716 GOTO 786
0762 KEYIN S2$,762,782
: IF T5=0THEN 698
: GOSUB 2070
: T5=0
: GOTO 698
0782 IF S2$=HEX(F0)THEN 818
0786 $OPEN #C0
: ERRORGOTO 762
0794 IF T5(1)=2THEN T5(4)=1
: A0$()="609PRNT0"&"609PRNTB"&"609PECHO"&"REC-GEN "&"REC-RD"
: IF C1$="A"THEN STR(A0$(),9,8)="609PRNTA"
: LOAD DC T#0,<5>A0$()
0795 IF T5(1)=2THEN T5(4)=1
: A0$()="709PRNT0"&"609PRNTB"&"609PECHO"&"REC-GEN "&"REC-RD"
: IF C1$="A"THEN STR(A0$(),9,8)="609PRNTA"
: LOAD DC T#0,<5>A0$()
0818 DEFFN'31
: IF C1$="L"THEN 834
: A5$()="609PARCH609FG080609FG190"
: LOAD T<3>A5$()
0834 A5$()="609CloseJCAT"
: COM CLEAR U1$()
: $CLOSE
: IF A1>-1AND C1$="L"THEN LOAD T<2>A5$()
: COM CLEAR C
: PRINT HEX(03);
: LOAD TA5$
2000 T1$="Invalid Numeric Specification"
: GOTO 2080
2010 T1$="Print From Page cannot be greater than number of pages in document"
: GOTO 2080
2020 T1$="Print from Page 0 to Page 0 means Print summary only"
: GOTO 2080
2030 T1$="Number of Originals to CRT must be 1"
: GOTO 2080
2040 T1$="Print To Page cannot be greater than number of pages in document"
: GOTO 2080
2050 T1$="Print From Page cannot be greater than Print To Page"
: GOTO 2080
2060 T1$="Invalid Printer Number"
: GOTO 2080
2070 T1$="Printer not available. Wait or CANCEL"
: GOTO 2080
2080 PRINT HEX(0607020402000E);AT(23,0);T1$;
: RETURN
2090 T1$="Invalid Number of Originals"
: GOTO 2080