home *** CD-ROM | disk | FTP | other *** search
/ Tiger Disk 78 / Tiger_Disk_078_20xx_Tiger-Crew-Disk_de_Side_B.d64 / adventure-lister (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  136b  |  9 lines
  1. 10 x=2184
  2. 20 y=peek(x):ify>64andy<91thenprint"[153]"chr$(y);:goto40
  3. 30 print".";
  4. 40 x=x+1:getr$:ifr$<>""then60
  5. 50 goto20
  6. 60 ifr$="q"thenend
  7. 70 getr$:ifr$=" "then20
  8. 80 goto60
  9.