image of READY prompt

Wang2200.org

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

# Sector 1366, 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 609Enewo609Esum'Prime 62CAT.newo"
   : IF D<42THEN A5$()="609Ecom 609Enewo609Esum'Prime 62CAT.newo"
   : LOAD T<5>A5$()
9031 DEFFN'31
   : A5$=R3$()
   : R3$()=STR(R3$(),10)
   : LOAD TA5$