home *** CD-ROM | disk | FTP | other *** search
/ Commodore 64 Scene Diskmags Assortment / Elite_Euphoria_2_1990-08-06_Noice.d64 / e.euphoria.2.rdr (.txt) < prev   
Commodore BASIC  |  2023-02-26  |  270b  |  13 lines
  1. 0 print"[147]press 'space' for stop'n'go !!"
  2. 10 geta$:ifa$=""then10
  3. 20 print"[147]"
  4. 30 open1,8,2,"e.euphoria iss.2,s,r"
  5. 40 get#1,a$:s=st
  6. 50 printa$;
  7. 60 getb$:ifb$<>" "then80
  8. 70 getb$:ifb$<>" "then70
  9. 80 ifst=64thenclose1:end
  10. 90 goto40
  11. 100 rem"
  12. 110 [143]"==> reader written by weasel/crazy!! <==
  13.