home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
64'er
/
64ER_CD.iso
/
sh7x
/
sh77a.d64
/
nineteen
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
1995-03-30
|
645b
|
27 lines
100 SYS64789
110 A=A+1
120 IFA=1THENLOAD"NINE/I",8,8
130 L1=54272:H1=L1+1:V1=L1+4
140 POKE V1+1,9:POKE V1+2,10
150 POKE53280,6:POKE53281,6
160 PRINT"[147]"TAB(8)"[154]>> PART FROM NINETEEN <<"
170 PRINTTAB(8)"RPS-RHYTHM + BASIC-BASS"
180 SYS39242
190 IFZ=24THENRESTORE
200 POKE53280,2
210 READH,L,S
220 POKEH1,H:POKEL1,L:POKEV1,32:POKEV1,33
230 POKE53280,6
240 SYS39317,S
250 Z=Z+1:IFZ<48GOTO190
260 SYS39301:TI$="000000"
270 FORI=0TO5
280 SYS38258
290 IFTI<I*8GOTO290
300 NEXT:SYS64789:POKEL1+11,0
310 :
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
330 DATA2,190,24,3,169,16,4,27,16,4,226,8,5,123,40
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
350 DATA4,27,16,2,113,24,2,150,24