home *** CD-ROM | disk | FTP | other *** search
/ 64'er Special 77 / 64er_Magazin_Sonderheft_77_19xx_Markt__Technik_de_Side_A.d64 / nineteen (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  645b  |  27 lines
  1. 100 sys64789
  2. 110 a=a+1
  3. 120 ifa=1thenload"nine/i",8,8
  4. 130 l1=54272:h1=l1+1:v1=l1+4
  5. 140 poke v1+1,9:poke v1+2,10
  6. 150 poke53280,6:poke53281,6
  7. 160 print"[147]"tab(8)"[154]>> part from nineteen <<"
  8. 170 printtab(8)"rps-rhythm  + basic-bass"
  9. 180 sys39242
  10. 190 ifz=24thenrestore
  11. 200 poke53280,2
  12. 210 readh,l,s
  13. 220 pokeh1,h:pokel1,l:pokev1,32:pokev1,33
  14. 230 poke53280,6
  15. 240 sys39317,s
  16. 250 z=z+1:ifz<48goto190
  17. 260 sys39301:ti$="000000"
  18. 270 fori=0to5
  19. 280 sys38258
  20. 290 ifti<i*8goto290
  21. 300 next:sys64789:pokel1+11,0
  22. 310 :
  23. 320 data0,0,16,2,190,16,2,190,8,2,190,24,3,169,24,4,27,56,2,190,16,2,190,8
  24. 330 data2,190,24,3,169,16,4,27,16,4,226,8,5,123,40
  25. 340 data2,190,16,2,190,8,2,190,24,3,169,24,4,27,24,2,190,64,2,190,8,3,169,8
  26. 350 data4,27,16,2,113,24,2,150,24
  27.