home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
64'er
/
64ER_CD.iso
/
sh3x
/
sh30b.d64
/
src.zeisa-anim.
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
1995-03-30
|
918b
|
68 lines
8000 CHSAVE76 BRK
8010 BRK
8020 BRK
8030 BRK
8040 BRK
8050 BRK
8060 BRK
8070 BRK
8080 CHSAVE85 BRK
8090 BRK
8100 BRK
8110 BRK
8120 BRK
8130 BRK
8140 BRK
8150 BRK
8151 CHARDELAY BRK
8152 CHARANI LDY#0
8161 INCCHARDELAY
8162 LDACHARDELAY
8163 CMP#5
8164 BEQCHARGOON1
8165 RTS
8166 CHARGOON1 STYCHARDELAY
8167 LDA#0
8170 CHLOOP1 LDA8800,Y
8180 STACHSAVE76,Y
8190 LDA8872,Y
8200 STACHSAVE85,Y
8210 INY
8220 CPY#8
8230 BNECHLOOP1
8240 LDY#135
8250 LDX#143
8260 CHLOOP2 LDA8736,Y
8270 STA8736,X
8280 DEX
8290 DEY
8300 CPY#255
8310 BNECHLOOP2
8320 LDY#0
8330 CHLOOP3 LDACHSAVE76,Y
8340 STA8736,Y
8350 LDACHSAVE85,Y
8360 STA8808,Y
8372 INY
8380 CPY#9
8390 BNECHLOOP3
8400 RTS
8500 FARBINI LDA#12
8510 STA53282
8520 LDA#11
8530 STA53283
8540 LDA53270
8550 ORA#16
8560 STA53270
8565 LDA#24
8566 STA53272
8570 LDY#0
8580 LDA#9
8590 FARBLOOP STA55296,Y
8600 STA55546,Y
8610 STA55796,Y
8620 STA56041,Y
8630 INY
8640 BNEFARBLOOP
8650 RTS