image of READY prompt

Wang2200.org

Listing of file='609Erep2' on disk='vmedia/701-2736G.wvd.zip'

# Sector 719, 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$