Listing of file='609Erep2' on disk='vmedia/731-0067F-disk1.wvd.zip'
# Sector 761, program filename = '609Erep2'
0010 REM 609Erep2 ************************************************************
*
0013 COM J5$(1024)1
: DIM J3$(C)1
0018 DEFFNJ(I)=POS(V0$()=" ")-1
: DATA LOAD DC OPEN T#0,"609EDATA"
: IF J7(2)=50THEN 110
: MAT REDIM J3$(J8/82)82
: DATA LOAD DC #0,J3$()
: MAT REDIM J3$(J8)1
0110 IF D3$=HEX(50)OR D3$=HEX(F0)THEN 1010
: IF V0$(J8)<>" "THEN STR(V0$(),J9+1)=STR(V0$(),POS(-V0$()=" ")+1)
: J7=0
: J1=J9
: J7(3)=2
: GOSUB '35(J1)
: IF J3$(1)=" "THEN 380
: IF J7(1)=8AND J0(2)=C3AND J1-J0(1)+1<LEN(STR(J5$()))THEN 510
: IF J7(1)=8AND J0(2)=C3THEN C5$="t"
: IF J7(1)=8AND J0(2)<C3THEN C5$="c"
0230 J9=FNJ(1)
: J7=0
: J7(3)=2
: J7(1)=0
: MAT J0=ZER
: IF J7(2)=50THEN 304
: DBACKSPACE #0,BEG
: DATA SAVE DC #0,END
0304 DATA SAVE DC CLOSE#0
: COM CLEAR J2$()
: LOAD DA T(D7$(1))
0380 J7(2)=0
: J7(3)=1
: J1=J0(4)
: C=LEN(J2$())
: DBACKSPACE #0,BEG
: DATA SAVE DC #0,END
: DATA SAVE DC CLOSE#0
: V1$()="609IpageRECMGR"
: C=LEN(STR(J2$()))
: LOAD T<2>V1$()
0510 J9=FNJ(1)
: IF J1+1>J0(1)THEN J5$()=STR(V0$(),J0(1),J1-J0(1)+1)
: J0(1),J0(3)=J0(1)+POS(J5$()=" ")-1
: J1=J0(3)
: V1$()="609Erep3609Eline609Eplin609Eprnt"
: IF D7$="H"THEN V1$()="609EREP3609Eline609EPLIN609EPRNT609EPOS 609EFRMT"
: LOAD T<INT((LEN(V1$())+7)/8)>V1$()
1010 IF J3$()=" "THEN 1220
: IF J0(2)<>C3THEN 1090
: IF POS(V0$()=" ")=LEN(V0$())+1AND J9-J0(1)+1>0THEN MAT COPY -STR(V0$(),J0
(1),J9-J0(1)+1)TO -STR(V0$(),J0(1)+LEN(J3$()),J9-J0(1)+1)
: STR(V0$(),J0(1),LEN(J3$()))=J3$()
: IF J7>0THEN STR(V0$(),J0(1)+LEN(J3$()))=STR(V0$(),J8-J7+1)
: J9=FNJ(1)
: C1=MAX(C1-2,1)
: J1=J0(1)
: GOTO 230
1090 STR(V0$(),POS(V0$()=83)+1,J8-POS(V0$()=83)-J7)=J3$()
: STR(V0$(),FNJ(1)+1)=STR(V0$(),J8-J7+1)
: J9=FNJ(1)
: J0(4)=POS(V0$()=83)
: J7(2)=0
: J1=J0(1)
: J7(3)=0
: IF J7(2)=50THEN 1164
: DBACKSPACE #0,BEG
: DATA SAVE DC #0,END
1164 DATA SAVE DC CLOSE#0
: V1$()="609DpageREC.page"
: C=LEN(STR(J2$()))
: D2$=HEX(01)
: LOAD T<2>V1$()
1220 IF J7=0THEN 380
: J0(4)=J9
: IF J0(2)=C3THEN STR(V0$(),J0(1))=STR(V0$(),J8-J7+1)
: ELSE STR(V0$(),POS(V0$()=83)+1)=STR(V0$(),J8-J7+1)
: IF J0(2)=C3THEN J0(3),J0(4)=J0(1)
: ELSE J0(4)=POS(V0$()=83)+1-1
: J9=FNJ(1)
: J7=0
: IF J7(2)=50THEN 1275
: DBACKSPACE #0,BEG
: DATA SAVE DC #0,END
1275 DATA SAVE DC CLOSE#0
: IF J0(2)<>J0(5)THEN 1420
: LOAD T"609Erep5"
1290 J7(2)=0
: J7(3)=0
: J1=J0(1)
: V1$()="609IpageRECMGR"
: C=LEN(STR(J2$()))
: LOAD T<2>V1$()
1420 J7(2)=13
: V1$()="609DpageREC.page"
: C=LEN(STR(J2$()))
: LOAD T<2>V1$()
3000 DEFFN'31
: A5=0
: A5$()="609CloseJCATSMAL"
: A5$=R3$()
: R3$()=STR(R3$(),10)
: IF A1>-1OR A2>-1THEN LOAD T<2>A5$()
: COM CLEAR C
: LOAD TA5$