Listing of file='609Ewich' on disk='vmedia/731-0067F-disk1.wvd.zip'
# Sector 1389, program filename = '609Ewich'
0010 REM 609Ewich
0025 MAT COPY -STR(R3$(),1,LEN(STR(R3$()))-9)TO -STR(R3$(),10,LEN(STR(R3$()))-
9)
: R3$(1)="609menu"
: D=SPACEK
: IF D>=42THEN A5$()="609ECOM 609EoldoPrime 62609Open CAT.newo"
: ELSE A5$()="609Ecom 609EoldoPrime 62609Open CAT.newo"
: LOAD T<5>A5$()
9031 DEFFN'31
: A5$=R3$()
: R3$()=STR(R3$(),10)
: LOAD TA5$