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