Listing of file='609Erep4' on disk='vmedia/701-2736G.wvd.zip'
# Sector 783, program filename = '609Erep4'
0010 REM 609Erep4 ------------------------------------------------------------
-
0030 IF POS(V0$()=" ")-1<LEN(V0$())THEN 356
: J7=LEN(V0$())-J0(1)+1
: MAT COPY -STR(V0$(),J0(1),J7)TO -STR(V0$(),J8-J7+1,J7)
: STR(V0$(),J0(1),J8-J0(1)-J7+1)=" "
: J0(5)=J0(2)
: J0(3),J0(4)=J0(1)
0356 V1$()="609Eentr609Eline609Eplin609Eprnt"
: IF D7$="H"THEN V1$()="609EENTR609Eline609EPLIN609EPRNT609EPOS 609EFRMT"
: LOAD T<INT((LEN(V1$())+7)/8)>V1$()