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