home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Commodore Disc 40
/
Commodore_Disc_40_19xx_-_de.d64
/
copterlader
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-10-26
|
463b
|
16 lines
100 fori=320to374
110 reada:pokei,a:next
120 data 120,165,001,041,251,133,001
130 data 162,008,160,000,132,251,132
140 data 253,169,008,133,254,169,208
150 data 133,252,177,251,145,253,200
160 data 208,249,230,252,230,254,202
170 data 208,242,165,001,009,004,133
180 data 001,173,024,208,041,241,009
190 data 002,141,024,208,088,096
200 printchr$(147)"sys320:load"chr$(34)"firecopter"chr$(34)","str$(peek(186))
210 print"run":ta=631
220 poketa,19:poketa+1,13:poketa+2,19:poketa+4,17:poketa+5,13
230 poke198,6:poke4096,0
240 poke43,1:poke44,16:new