home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / 86xx / 8607.d64 / nineteen (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  645b  |  27 lines
  1. 10 SYS64789
  2. 20 A=A+1
  3. 30 IFA=1THENLOAD"NINE/I",8,8
  4. 100 L1=54272:H1=L1+1:V1=L1+4
  5. 150 POKE V1+1,9:POKE V1+2,10
  6. 160 POKE53280,6:POKE53281,6
  7. 175 PRINT"[147]"TAB(8)"[154]>> PART FROM NINETEEN <<"
  8. 176 PRINTTAB(8)"RPS-RHYTHM  + BASIC-BASS"
  9. 199 SYS39242
  10. 202 IFZ=24THENRESTORE
  11. 203 POKE53280,2
  12. 205 READH,L,S
  13. 210 POKEH1,H:POKEL1,L:POKEV1,32:POKEV1,33
  14. 215 POKE53280,6
  15. 220 SYS39317,S
  16. 230 Z=Z+1:IFZ<48GOTO202
  17. 240 SYS39301:TI$="000000"
  18. 250 FORI=0TO5
  19. 260 SYS38258
  20. 285 IFTI<I*8GOTO285
  21. 290 NEXT:SYS64789:POKEL1+11,0
  22. 999 :
  23. 1000 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. 1003 DATA2,190,24,3,169,16,4,27,16,4,226,8,5,123,40
  25. 1006 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. 1010 DATA4,27,16,2,113,24,2,150,24
  27.