home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1988 June / 64er_Magazin_88-06_1988_Markt__Technik_de_Side_A.d64 / tonleiter (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  246b  |  15 lines
  1. 10 rem tonleiter
  2. 20 s=54272
  3. 30 poke s+24,15
  4. 40 poke s+5,3
  5. 50 read x:read y
  6. 60 if y=-1 then poke s+4,0:end
  7. 70 poke s+1,x:poke s,y
  8. 80 poke s+4,33
  9. 90 for t=1 to 100:next
  10. 100 poke s+4,32
  11. 110 for t=1 to 50:next
  12. 120 goto 50
  13. 130 data 17,103,19,137,21,237,23,59,26,69,32,219,34,207
  14. 140 data -1,-1
  15.