Listing of file='609POPT0' on disk='vmedia/701-2738G.wvd.zip'
# Sector 60, 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 $OPEN #C0 : 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 $OPEN #C0 : 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