home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 230 / 230.d81 / ark1boot (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  842b  |  30 lines
  1. 100 print"[147]":poke53280,.:poke53281,.
  2. 110 sys57812"pic1.shp",8,0:poke780,.:poke781,.:poke782,64:sys65493
  3. 120 sys57812"unpacker.89",8,0:poke780,.:poke781,.:poke782,201:sys65493
  4. 130 :
  5. 140 poke53265,peek(53265)and239
  6. 150 poke251,64:rem .shp mem1
  7. 160 poke252,32:rem bitmap mem1
  8. 170 poke253,4:rem color mem1
  9. 180 sys51456:rem unpack that shape1
  10. 190 sys51459:rem display scrn 1
  11. 200 poke53265,peek(53265)or16
  12. 210 geta$:ifa$=""then220
  13. 220 forl=1to2500:nextl
  14. 230 print"[147]":poke53280,.:poke53281,.
  15. 240 sys57812"pic2.shp",8,0:poke780,.:poke781,.:poke782,64:sys65493
  16. 250 sys57812"unpacker.89",8,0:poke780,.:poke781,.:poke782,201:sys65493
  17. 260 :
  18. 270 poke53265,peek(53265)and239
  19. 280 poke251,64:rem .shp mem2
  20. 290 poke252,32:rem bitmap mem2
  21. 300 poke253,4:rem color mem2
  22. 310 sys51456:rem unpack that shape2
  23. 320 sys51459:rem display scrn 2
  24. 330 poke53265,peek(53265)or16
  25. 340 geta$:ifa$=""then350
  26. 350 forl=1to2500:nextl
  27. 360 a$="ark1main":q$=chr$(34):poke53281,7:poke53280,7:print"[147]"
  28. 370 print"load"q$a$q$",8
  29. 380 [153]"run":[151]631,13:[151]632,13:[151]198,2
  30.