Listing of file='LPQOPEN' on disk='vmedia/701-2721C.wvd.zip'
# Sector 521, program filename = 'LPQOPEN'
0010 REM % LPQOPEN
0050 COM L0$(7)20,L0(5),L8(5),R5$5,B9$,B4$6,B3$5,L4,G5,G6,G3$(50)43,L0$21
: DIM V1$(3)82,V0$(1)1,C0$(256)1,U1$(8),U2$(8)4,T5$(11)4
: GOSUB '32("LPOVER02D")
: SELECT ON ALERTGOSUB 990
: IF STR(Q4$(4),26,16)=" "THEN GOTO 810
: A1=-1
: L8(2)=-1
: T5$()=Q4$(3)
0100 Q2$="F"
: 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 STR(A0$(1),3,2)<>"04"THEN 490
: C0$()=ALL(00)
: C=0
0430 C=C+1
: $GIO/004(010102001212A200,C5$)C0$()
: IF STR(C5$,8,1)=HEX(10)THEN 530
: IF C<11THEN 430
: GOTO 543
0490 $GIO#C0,(0101020012124000,C5$)
: $GIO#C0,(0101020012124000,C5$)
: IF STR(C5$,8,1)<>HEX(10)THEN 543
0530 B2$="Printer not available"
: Q2$="C"
: GOSUB '31
0543 R5$=STR(Q4$(4),31,5)
: B4$=STR(Q4$(4),36,6)
: B3$=STR(Q4$(4),26,5)
: IF B3$=" "THEN GOTO 585
: GOSUB '110(B3$,"G")
: IF B2$<>" "THEN GOTO 980
: GOSUB '111(B0$,B9$," ",HEX(01))
: IF B2$<>" "THEN GOTO 980
: A4=V3
0585 GOSUB '110(R5$," ")
: IF B2$<>" "THEN GOTO 980
: GOSUB '111(B0$,B9$,B4$,HEX(FF))
: IF B2$<>" "THEN GOTO 980
: L8(2)=V3
: GOSUB '220(L8(2),1,1,1,1)
: IF R1$<>HEX(00)THEN GOTO 970
: GOSUB '220(L8(2),1,V0,1,1)
: IF R1$<>HEX(00)AND R1$<>HEX(28)THEN GOTO 970
: $UNPACK(F=HEX(6005600560056005A014))V1$()TO L0(),L4,G5,G6,L0$()
: GOSUB '223(L8(2),V0,1)
0665 IF R1$<>HEX(00)THEN GOTO 970
: IF L0$(4)<>" "THEN GOTO 820
: FOR K=1TO G5STEP 5
: GOSUB '220(L8(2),1,V0,1,1)
: IF R1$<>HEX(00)AND R1$<>HEX(28)THEN GOTO 970
: MAT COPY STR(V1$(),1,5*G6)TO STR(G3$(),(K-1)*G6+1,5*G6)
: GOSUB '223(L8(2),V0,1)
: IF R1$<>HEX(00)THEN GOTO 970
: NEXT K
0800 Q4$(4)=" "
0810 LOAD T"609PRB1"
0820 GOSUB '212(L8(2))
: IF R1$=HEX(00)THEN GOTO 800
: B2$="Cannot Close Document "&R5$
: GOTO 980
0970 HEXUNPACKR1$TO E$
: B2$="Cannot Access Document "&R5$&" - Error "&E$
0980 $GIO#C0,(A200,G$)B2$<,LEN(B2$)>
0990 DEFFN'31
: IF POS("CF"=Q2$)=0THEN Q2$="F"
: $CLOSE
: A0$()="609CloseJCATSMAL"
: LOAD T<2>A0$()
9000 DEFFN'0"SCRATCH T";HEX(22);"LPQOPEN";HEX(22);
9100 DEFFN'1"SAVE T ()";HEX(22);"LPQOPEN";HEX(22);
9230 DEFFN'32(N$)
: Y=FIX((LEN(N$)-1)/9)+1
: X=LEN(STR(R3$()))-Y*9
: MAT COPY -R3$()<1,X>TO -R3$()<Y*9+1,X>
: STR(R3$(),,Y*9)=N$
: RETURN
9290 % SCRATCH T "KGPUSH": SAVE T() "KGPUSH" 9000,9100