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$()