home *** CD-ROM | disk | FTP | other *** search
/ Tiger Disk 81 / Tiger_Disk_081_20xx_Tiger-Crew-Disk_de_Side_B.d64 / basic-routine (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  744b  |  28 lines
  1. 5 poke646,1:print"a":goto190
  2. 10 fort=1to200:next:return
  3. 190 print"[147]":uy=1:x=1:poke53280,13
  4. 200 poke2003,87:p=2003:k=87
  5. 210 j=peek(56320):getw$:ifj=127thenifw$=""then210
  6. 215 ifj=111thenifuy=1thenifx=1thenuy=0:poke53280,6:gosub10:goto210
  7. 216 ifj=111thenifuy=0thenifx=1thenx=0:poke53280,10:gosub10:goto210
  8. 217 ifj=111thenifuy=0thenifx=0thenx=1:uy=1:poke53280,13:gosub10:goto210
  9. 220 pp=p
  10. 230 ifj=126thenp=p-40:ifp<1024thenp=p+40
  11. 250 ifj=125thenp=p+40:ifp>2023thenp=p-40
  12. 270 ifj=123thenp=p-1:ifp<1024thenp=p+1
  13. 290 ifj=119thenp=p+1:ifp>2023thenp=p-1
  14. 310 ifj=122thenp=p-41:ifp<1024thenp=p+41
  15. 330 ifj=121thenp=p+39:ifp>2023thenp=p-39
  16. 350 ifj=118thenp=p-39:ifp<1024thenp=p+39
  17. 370 ifj=117thenp=p+41:ifp>2024thenp=p-41
  18. 420 ifw$="c"then790
  19. 440 ifw$="x"thenprint"[147]":end
  20. 450 ifx=0thenpokepp,32
  21. 460 ifuy=1thenpokepp,pt
  22. 470 pt=peek(p)
  23. 480 pokep,k
  24. 490 goto210
  25. 790 fa=peek(53280):poke53280,7
  26. 795 getdr$:ifdr$=""then795
  27. 800 ew=peek(1024):print"";dr$:k=peek(1024):poke1024,ew:poke53280,fa:goto210
  28.