image of READY prompt

Wang2200.org

Listing of file='609Erep4' on disk='vmedia/731-0067G.wvd.zip'

# Sector 799, 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$()