Listing of file='609PRB1' on disk='vmedia/731-0067F-disk1.wvd.zip'
# Sector 2528, program filename = '609PRB1'
0010 REM '609PRB1' - BACKGROUND WALKIN TO 609PRNT0 OR 709PRNT0 11/03/88 KKB
0020 COM A5,V0$(1)2,U1$(8),U2$(8)4,D4,@H9$3,@H8$3,@H7$80
: COM C1$1,C0$8,C2$5,C2,T5(7),T5$(11)4,Y5$8
: DIM V1$(3)82,C5$,C0$(256)1,V2$(256)1
: $PSTAT="PRINT "
: SELECT ON ALERTGOSUB 990
: A5$()="609Open "&"JCATSMAL"&"REC-GEN"
: LOAD T<3>A5$()0,0BEG 100
0100 A5=-1
: A5$="BMT02"
: C1$="L"
: C0$=" "
: C2=6
: Q2$="F"
: Y5$=" "
: T5$()=Q4$(3)
: MAT T5=CON
: FOR I=1TO 6
: CONVERT STR(Q4$(3),44+I,1)TO T5(I)
: NEXT I
: R5$,C2$=Q4$(1)
: 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)>
: @H9$=STR(A0$(1),2,3)
: @H8$="000"
0101 IF STR(A0$(1),3,2)<>"04"THEN 490
: C0$()=ALL(00)
0420 C=0
0430 C=C+1
: $GIO/004(010102001212A200,C5$)C0$()
: IF C<11 THEN 430
: IF STR(C5$,8,1)=HEX(10)THEN 530
: GOTO 570
0490 $GIO#C0,(0101020012124000,C5$)
: $GIO#C0,(0101020012124000,C5$)
: IF STR(C5$,8,1)<>HEX(10)THEN 570
0530 B2$="Printer not available"
: Q2$="C"
: GOSUB '31
0570 GOSUB '110(C2$,"D")
: IF B2$=" "THEN GOSUB '111(B0$,B9$,B4$,HEX(FF))
: IF R1$=HEX(05)THEN B4$=STR(V2$(),8,6)
: IF R1$=HEX(05)THEN GOSUB '111(B0$,B9$,B4$,HEX(FF))
: IF B2$=" "THEN A1=V3
: IF B2$<>" "THEN 630
: U1$()=STR(V2$(),129,128)
: IF STR(U1$(),107,1)>HEX(00)THEN STR(U1$(),107,1)=SUBCHEX(01)
: GOSUB '235(A1,U1$())
: IF R1$=HEX(00)THEN 660
: ELSE GOSUB 2010
0625 CONVERT STR(Q4$(3),37,1)TO C0
0630 $GIO#C0,(A200,G$)B2$<,LEN(B2$)>
: GOSUB '31
0660 A2=-1
: IF Q4$(4)=" "THEN 800
: CONVERT STR(Q4$(4),6,1)TO D4
: D4=-D4
: GOSUB '110(STR(Q4$(4),,5),"D")
: IF B2$=" "THEN GOSUB '111(B0$,B9$,B4$,HEX(FF))
: IF R1$=HEX(05)THEN B4$=STR(V2$(),8,6)
: IF R1$=HEX(05)THEN GOSUB '111(B0$,B9$,B4$,HEX(FF))
: IF B2$=" "THEN A2=V3
: IF B2$<>" "THEN 760
: U1$()=STR(V2$(),129,128)
0753 IF STR(U1$(),107,1)>HEX(00)THEN STR(U1$(),107,1)=SUBCHEX(01)
: GOSUB '235(A2,U1$())
: IF R1$=HEX(00)THEN 800
: ELSE GOSUB 2010
: CONVERT STR(Q4$(3),37,1)TO C0
0760 $GIO#C0,(A200,G$)B2$<,LEN(B2$)>
: GOSUB '31
0800 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$()
: IF T5$(1)<>" "THEN 950
: 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()
: IF T5(1)>2THEN T5(1)=1
0950 IF A2<>-1THEN Y5$="609MERGE"
: IF STR(@H9$,1,1)="7"THEN A5$()="709PRNT0"&"609PRNTB"&"609PECHO"&"REC-GEN
"&"REC-RD"
: ELSE IF STR(@H9$,1,1)<>"7"THEN A5$()="609PRNT0"&"609PRNTB"&"609PECHO"&"RE
C-GEN "&"REC-RD"
: LOAD T<5>A5$()
0990 DEFFN'31
: IF POS("CF"=Q2$)=0THEN Q2$="F"
: $CLOSE
: COM CLEAR U1$()
: A5$()="609CloseJCATSMAL"
: LOAD T<2>A5$()
2010 B2$="Error Updating In Use Flag"
: RETURN