home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Loadstar 230
/
230.d81
/
arkboot
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-08-26
|
724b
|
24 lines
10 d=peek(186):ifd<8thend=8
110 sys57812"pic1.shp",d,0:poke780,.:poke781,.:poke782,64:sys65493
120 sys57812"unpacker.89a",d,0:poke780,.:poke781,.:poke782,201:sys65493
150 poke251,64:rem .shp mem1
160 poke252,224:rem bitmap mem1
170 poke253,192:rem color mem1
175 print"[147]":poke53280,0:poke53281,0
180 sys51456:rem unpack that shape1
190 sys51459:rem display scrn 1
200 sys57812"pic2.shp",d,0:poke780,0:poke781,0:poke782,96:sys65493
230 t=ti+240:forx=0to1:x=-(ti>t):next
260 rem sys51459
270 rem poke53265,peek(53265)and239
280 poke251,96:rem .shp mem2
290 poke252,160:rem bitmap mem2
300 poke253,128:rem color mem2
310 sys51456:rem unpack that shape2
315 poke56576,197
330 t=ti+300:forx=0to1:x=-(ti>t):next
355 sys57812"ark1main",d,0:poke780,0:poke781,1:poke782,8:sys65493
356 sys51459:sys2061:end
10000 open1,8,15,"i0":n$="arkboot"
10001 print#1,"s0:"+n$:close1:saven$,8:end