image of READY prompt

Wang2200.org

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

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