home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Loadstar 12
/
012.d81
/
lif64rnd
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-08-26
|
696b
|
21 lines
10 w=51968:c=55296:poke53280,0:poke53281,0
20 fork=49152to49249:readm:pokek,m:next
200 fork=0to999:poke1024+k,81:pokec+k,int(rnd(1)*2):next:cc=1
210 fork=0to1133:pokew+k,0:next:cc=cc+1:ifcc>15thencc=1
220 sys49152
270 fori=1to25:forj=1to40:m=c+(i-1)*40+j-1
280 onpeek(w+i*42+j)+1goto300,300,310,290,300,300,300,300,300
290 pokem,cc:goto310
300 pokem,0
310 nextj,i:goto210
1000 data169,39,133,253,169,0,133,254,169,216
1010 data133,255,169,0,141,36,192,169,203,141
1020 data37,192,160,0,177,254,41,15,240,11
1030 data160,7,190,90,192,254,17,17,136,16
1040 data247,238,36,192,208,3,238,37,192,198
1050 data253,16,18,169,39,133,253,24,173,36
1060 data192,105,2,141,36,192,144,3,238,37
1070 data192,230,254,208,2,230,255,165,254,201
1080 data232,208,195,165,255,201,219,208,189,96
1090 data0,1,2,42,44,84,85,86