image of READY prompt

Wang2200.org

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

# Sector 2525, program filename = '609PRNT0'
0010 REM 609PRNT0 240-10/06/86
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$
   : 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 $GIO10PITCH#C8,(4002400940014002400A4000400F,C4
     $)
0310 IF T5(1)=1AND T5(2)=2THEN $GIO12PITCH#C8,(4002400940014002400C4000400F,C4
     $)
   : IF T5(1)=1AND T5(2)=3THEN $GIO15PITCH#C8,(4002400940014002400F4000400F,C4
     $)
   : IF T5(1)=1AND T5(4)=2THEN $GIO#C8,(40024007400F,C4$)
0341 IF T5(1)<>1 THEN 351
   : ON T5(4) GOTO 343,342,343,342
0342 $GIOREARBIN#C8,(400240064001400F,C4$)
   : GOTO 351
0343 $GIOFRONTBIN#C8,(400240064002400F,C4$)
0351 IF T5(6)=2 THEN 690
   : IF T5(1)<3AND T5(4)<>2THEN $GIO#C8,(400C,C4$)
   : D2=0
   : C8$()=" "
   : STR(C0$(),257)=C1$()
0355 IF T5(1)<>1 THEN 365
   : C6$()=HEX(020C010200000F)&" "
   : CONVERT T5$(7)TO C
   : STR(C6$(),5,2)=BIN(C*8,2)
   : $GIO#C8,(A200,C3$)C6$()<,LEN(C6$())>
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 IF C7$="F"AND T5(1)<3THEN PRINT HEX(06);AT(5,5);STR(C8$(),2,73)
   : CONVERT T5$(11)TO D
   : IF D<1OR T5(1)>2THEN 500
   : FOR C=1TO D
   : $GIO#C8,(4020,C4$)
   : NEXT C
0500 IF T5(1)>2THEN PRINT STR(C8$(),2,VAL(C8$()))
   : ELSE $GIO#C8,(A200400D,C4$)C8$()<2,VAL(C8$())>
   : 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"
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
   : $GIO#C8,(A200,C4$)C8$()<,LEN(C8$())>
   : $PSTAT="        "
   : SELECT OFF ALERT
0803 DEFFN'31
   : $CLOSE
   : FOR @M9=1 TO 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$()
   : LOAD T<2>A0$()
2000 $IF OFF /005,2010
   : 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