Listing of file='609EPRNT' on disk='vmedia/731-0067F-disk1.wvd.zip'
# Sector 1252, program filename = '609EPRNT'
1602 DIM I(2)
1604 DEFFN'91(C1,I,I(1),I(2))
: IF C3>7THEN 1626
: CONVERT C3TO C6$,(###)
: $TRAN(C6$,B8$())R
: STR(C6$,,2)=" "
: GOTO 1630
1626 CONVERT C3-7TO C6$,(###)
1630 PRINT HEX(06);
: IF C1<>1THEN 1636
: PRINT AT(0,0,80);
: PRINTUSING 2455,A7$(1),C6$," "," "
1636 J2(C1)=I
: I(1)=SGN(I(1))*(J1(C1)+J5(C1+1)/1000)
1644 GOSUB '96(J2(C1),C1)
: GOSUB '61
: IF D2$()=" "OR D2$()=HEX(8F)OR C1=22THEN 1690
: IF J2(C1)+J1(C1)-1<J9OR V0$(J9)=HEX(83)OR LEN(D1$())=D9THEN 1666
: IF POS(STR(D4$,,2)=V0$(J9))=0OR LEN(D1$())<POS(-A5$()=82)THEN 1690
1666 IF I(1)=0OR C1<I(2)THEN 1674
: IF I(1)=J1(C1)+J5(C1+1)/1000AND C1<C2-1AND C1>=I(2)THEN 1706
1674 I(1)=SGN(I(1))*(INT(I(1))-J1(C1)+J1(C1+1)+J5(C1+2)/1000)
: J2(C1+1)=J2(C1)+J1(C1)
: C1=C1+1
: GOTO 1644
1690 PRINT AT(C1+1,0,);
: C2=C1
: FOR C=C1+1TO 24
: J1(C),J2(C),J3(C),J4(C),J5(C)=0
: NEXT C
1706 IF C4$="E"AND J2(C2)+MAX(J1(C2)-1,0)>=J9+J7THEN GOSUB 2025
: IF V0$(J2(C2))=HEX(8F)THEN GOSUB 2135
: IF C7$<>HEX(00)THEN GOSUB 2005
: RETURN
1718 DEFFN'92(J2,J1,I(1))
1728 IF J1>0THEN 1752
: IF J2=0THEN ON SGN(I(1))+1GOTO 1778,1787
: IF J4(C2)<ABS(J2)AND C2>21THEN 1772
: C=1
1742 C=C+1
: IF J4(C)<ABS(J2)THEN 1742
: IF J2<0THEN J1=J2(C)
: ELSE J1=J2(C)+J1(C)-1
1752 J2=0
: IF J1=0AND I(1)=0THEN 1778
: J1=MIN(J1,FNJ(1)+1)
: IF J1>1AND V0$(J1-1)=HEX(8F)THEN J1=J1-1
: IF J1<=J2(C2)+J1(C2)-1OR C2<22THEN 1787
: IF J1=J9+1AND J2(C2)+J1(C2)-1=J1THEN 1787
: IF C2=22AND J1(22)=0THEN 1787
1772 GOSUB '93
: I(1)=0
1778 GOSUB '91(1,J2(1),I(1),0)
: I(1)=1
: GOTO 1728
1787 IF J1=J2(2)AND J3(1)>0AND J1=J9+1AND D2>1THEN 1792
: IF J1>=J2(2)OR D2=1THEN 1806
1792 GOSUB '94(D2-1)
: I(1)=0
: IF J1<I+80AND D2>1THEN 1792
: GOTO 1778
1806 GOSUB '35(J1)
: IF I(1)<>0THEN 1826
: C1=C1-1
: GOSUB '91(C1,J2(C1),0,0)
: I(1)=1
: GOTO 1806
1826 GOSUB '96(J2(C1),C1)
: J3=J4
: GOSUB '22(J4)
: J0=F+1
: GOSUB '48(D5)
: PRINT HEX(06);AT(0,42,3);INT(J4(C1));AT(0,57,3);J0;HEX(020400000E);AT(C1,
C7);HEX(02050F);
: J1=0
: IF V0$(J2(C1))<>HEX(86)THEN RETURN
: J1=J2(C1)+J1(C1)
: GOTO 1752
1856 DEFFN'93
: D2=MIN(D2+1,63)
: J2(1),I=J2(20)
: J6$(D2)=BIN(I,2)
: J7$(D2)=BIN(J4(20),2)
: J4(1),D3=J4(20)
: D4$(D2-1)=BIN(J5(20))
: J5(1)=J5(20)
: RETURN
1890 DEFFN'94(I)
: D2=MAX(I,1)
: IF D2>1THEN 1916
: J7$(1)=BIN(0,2)
: J6$(1)=BIN(1,2)
: D6$()=ALL(00)
1916 I,J2(1)=VAL(J6$(D2),2)
: D3=VAL(J7$(D2),2)
: J5(1)=0
: IF D2>1THEN J5(1)=VAL(D4$(D2-1))
: STR(J6$(),2*D2+1),STR(J7$(),2*D2+1)=ALL(FF)
: GOSUB '33(I)
: RETURN