image of READY prompt

Wang2200.org

Listing of file='609POPT0' on disk='vmedia/731-0067G.wvd.zip'

# Sector 2444, 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