Listing of file='709PRNT0' on disk='vmedia/701-2736G.wvd.zip'
# Sector 1133, program filename = '709PRNT0'
0010 REM 709PRNT0 260-08/06/90 KKB
0085 COM C1$1,C0$8,C2$5,C2,T5(7),T5$(11)4,J1$(256)1
: DIM C5$2,C3$80
: SELECT ON ALERTGOSUB 802
: LIMITS T#0,"609$TRAN",C4,C6,C6,C6
: DATA LOAD BA T#0,(C4+1)J1$()
0135 DIM C8$(159)1,C6$(159)1,C7$(80)1,V0$(1)2,D9$4,D2$80,V1$(3)82,C0$(512)1,C1
$(150)1,@M9$,@M9
0150 C6$=" "
: IF T5(6)=2THEN 285
: IF C1$="A"THEN 190
: C2$=R5$
: GOSUB '220(A1,1,1,1,1)
: C5=VAL(STR(V1$(),3),2)
: C6=VAL(STR(V1$(),13),2)
: IF C6=0THEN 173
: GOSUB '220(A1,1,C6,1,1)
: C1$()=V1$()
0173 GOSUB '220(A1,1,C5,1,1)
: STR(C0$(),11)=V1$()
: STR(V1$(),143,6)=R2$
: GOTO 260
0190 IF C0$="WWPSDISK"THEN D5=0
: ELSE LIMITS T#C2,C0$,D5,D6,D6,D6
: HEXPACKC8$FROMSTR(C2$,1,4)
: STR(C8$,3)=STR(C2$,5)
: FOR C=3TO 4
: C9$=BIN(C,2)
: DATA LOAD BA T#C2,(D5+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 245
: C9$=STR(C0$(),VAL(V0$(),2)+3)
0235 DATA LOAD BA T#C2,(D5+16*VAL(C9$)+POS(HEX(0004080C0105090D02060A0E03070B0
F)=STR(C9$,2))-1)C0$()
: C=4
0245 NEXT C
: $TRAN(STR(C0$(),11,100),J1$())
0260 RESTORE
: $IF OFF /005,285
: PRINT HEX(0306)
0285 DATA LOAD DC OPEN T#0,"609@DEVC"
: CONVERT STR(T5$(10),1,1)TO C8
: DSKIP #0,C8S
: DATA LOAD DC #0,C$
: SELECT PRINT <@H9$>
: PRINT HEX(020D0C030F);
: SELECT PRINT <@H8$>
0286 GOSUB 2000
: IF T5(1)<3THEN T5(1)=VAL(STR(C$,5))
: IF T5(1)<1OR T5(1)>4THEN T5(1)=3
: IF T5(1)=1AND T5(2)=1THEN SELECT PRINT <@H9$>
: PRINT HEX(020901020A000F);
: SELECT PRINT <@H8$>
0310 IF T5(1)=1AND T5(2)=2THEN SELECT PRINT <@H9$>
: PRINT HEX(020901020C000F);
: SELECT PRINT <@H8$>
: IF T5(1)=1AND T5(2)=3THEN SELECT PRINT <@H9$>
: PRINT HEX(020901020F000F);
: SELECT PRINT <@H8$>
: IF T5(1)=1AND T5(4)=2THEN SELECT PRINT <@H9$>
: PRINT HEX(02070F);
: SELECT PRINT <@H8$>
0341 IF STR(T5$(9),1,1)="1"THEN C3$=HEX(0202000F)
: IF STR(T5$(9),1,1)="2"THEN C3$=HEX(0202020F)
: IF STR(T5$(9),1,1)="3"THEN C3$=HEX(0202040F)
: SELECT PRINT <@H9$>
: PRINT C3$;
: SELECT PRINT <@H8$>
: IF T5(1)<>1THEN 351
: ON T5(4)GOTO 343,342,343,342
0342 REM %REAR BIN
: SELECT PRINT <@H9$>
: PRINT HEX(0206010F);
: SELECT PRINT <@H8$>
: GOTO 351
0343 REM %FRONT BIN
: SELECT PRINT <@H9$>
: PRINT HEX(0206020F);
: SELECT PRINT <@H8$>
0351 IF T5(6)=2THEN 690
: IF T5(1)<3AND T5(4)<>2THEN SELECT PRINT <@H9$>
: PRINT HEX(0C)
: SELECT PRINT <@H8$>
: D2=0
: C8$()=" "
: STR(C0$(),257)=C1$()
0355 IF T5(1)<>1THEN 365
: C6$()=HEX(020C010200000F)&" "
: CONVERT T5$(7)TO C
: STR(C6$(),6,1)=BIN(C)
: SELECT PRINT <@H9$>
: PRINT STR(C6$(),1,LEN(C6$()));
: SELECT PRINT <@H8$>
0365 READ D3,C7,C6,D9$,D2$
: KEYIN C6$,370,367
: GOTO 370
0367 IF STR(C6$,,1)=HEX(F0)THEN GOTO 802
0370 IF D3=D2THEN 540
: IF A9$<>"D"THEN 395
: IF C1$="A"AND D2>12AND D2<17THEN 385
: IF C1$="L"AND D2>15AND D2<20THEN 385
: GOTO 395
0385 ROTATEC(STR(C8$(),22,6),8)
: ROTATEC(STR(C8$(),22,6),8)
: ROTATEC(STR(C8$(),22,6),8)
0395 $TRAN(C8$(),HEX(8000))R
: IF T5(1)>2THEN 420
: AND (C8$(),7F)
: $TRAN(C8$(),HEX(20002080))R
: IF C7$="F"THEN 410
: $IF OFF /005,420
: C7$="F"
: PRINT HEX(0306);
: GOSUB 2500
: PRINT AT(9,63,3);"Sum";
: GOTO 420
0410 $IF ON /005,420
: C7$="B"
0420 CONVERT T5$(11)TO D
: IF D<1OR T5(1)>2THEN 500
: FOR C=1TO D
: SELECT PRINT <@H9$>
: PRINT HEX(20);
: SELECT PRINT <@H8$>
: NEXT C
0500 IF T5(1)>2THEN PRINT STR(C8$(),2,VAL(C8$()))
: ELSE SELECT PRINT <@H9$>
: PRINT STR(C8$(),2,VAL(C8$()));HEX(0D);
: SELECT PRINT <@H8$>
: C8$()=" "
: D2=D3
0540 STR(C8$(),3+C7)=D2$
: IF D9$=" "THEN 580
: V3=C6
: C4=POS(C8$()="#")
: C6=POS(STR(C8$(),C4)<>"#")-1
: IF VAL(D9$)>159OR C1$="A"THEN STR(C8$(),C4)=STR(C0$(),V3,VAL(STR(D9$,2)))
: ELSE GOSUB 750
: AND (STR(C8$(),C4,C6),7F)
: IF C4<>0THEN $TRAN(STR(C8$(),C4,C6),HEX(8020))R
0580 IF D3=2THEN STR(C8$(),POS(C8$()="#"))=C2$
: IF A7$="N"THEN IF D2=11OR D2=13OR D2=14THEN STR(C8$(),49)=" "
: IF A7$="N"THEN IF D2=18OR D2=19THEN STR(C8$(),36)=" "
: BIN(C8$(1))=LEN(C8$())
: IF D3<99THEN 365
: IF T5(1)<3THEN 690
0650 GOSUB '33
: KEYIN C6$
: IF VAL(C6$)<>130AND VAL(C6$)<>240THEN 650
0690 CONVERT T5$(1)TO C
: IF C=0AND T5$(1)=T5$(2)OR VAL(C6$)=240THEN GOSUB '31
: IF C1$="L"THEN GOSUB '221(A1,1,C5,1,1)
: A5$()="609PRNT1"
: IF C1$="A"THEN A5$(2)="609PWP"
: ELSE A5$(2)="609P2200"
: IF T5(1)=1THEN A5$(3)="609PCHAR"
: IF T5(1)=2THEN A5$(3)="609PLPT"
: IF T5(1)=3THEN A5$(3)="609PCRT"
: IF T5(1)=4THEN A5$(3)="609PIMAG"
0691 IF STR(@H9$,1,1)<>"7"THEN 710
: A5$()="709PRNT1"
: IF C1$="A"THEN A5$(2)="609PWP"
: ELSE A5$(2)="609P2200"
: IF T5(1)=1THEN A5$(3)="709PCHAR"
: IF T5(1)=2THEN A5$(3)="709PLPT"
: IF T5(1)=3THEN A5$(3)="609PCRT"
: IF T5(1)=4THEN A5$(3)="609PIMAG"
0710 A5$(4)="609PEXIT"
: IF POS(STR(Y5$,,8)<>" ")=0THEN A5$(5)="609PMERG"
: ELSE A5$(5)=STR(Y5$,,8)
: C=5
: IF C1$="A"THEN 720
: C=C+2
: A5$(C-1)="REC.PRIM"
: A5$(C)="REC.RD"
0720 IF T5(1)>2THEN 730
: C=C+1
: A5$(C)="609PECHO"
0730 LOAD T<C>A5$()
0750 Z$=ALL(00)
: $UNPACK(F=HEX(6006))STR(C0$(),V3,6)TO D6
: IF D3=21AND C7=0AND C1$="L"THEN D6=D6-7
: PRINTUSING TO Z$,STR(C8$(),C4),D6
0780 STR(C8$(),C4)=STR(Z$,3)
: RETURN
0802 IF C8=0THEN GOSUB '31
: GOSUB 2020
: SELECT PRINT <@H9$>
: PRINT STR(C8$(),1,LEN(C8$()));
: SELECT PRINT <@H8$>
: $PSTAT=" "
: SELECT OFF ALERT
0803 DEFFN'31
: $CLOSE
: FOR @M9=1TO 16
: @M9$=$PSTAT(@M9)
: ERROR@M9=ERR
: GOTO 805
0804 IF STR(@M9$,1,6)="MONOFF"THEN $ALERT(@M9)
: NEXT @M9
0805 IF C1$="L"THEN 806
: A5$()="609PARCH609FG080609FG190"
: LOAD T<3>A5$()
0806 A0$()="609Close"&"JCAT"
: COM CLEAR U1$()
: PRINT HEX(03)
: LOAD T<2>A0$()
2000 $IF OFF /005,2010
: SELECT PRINT 005(80)
: IF Q2$=" "THEN IF T5(1)<3THEN PRINT HEX(03);"Please check paper and Press
the SELECT key on the printer";
2010 RETURN
2020 C8$()=HEX(0D)&" Printout Cancelled by Operator."&HEX(0D)
: RETURN