home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 43 / 043.d81 / star (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  1KB  |  32 lines
  1. 0 ifa>.then20
  2. 4 poke53280,.:poke53281,.
  3. 5 print"[147]    please wait -- booting loadstar."
  4. 10 ifa=.thena=1:load"unpacker",8,1
  5. 20 ifa=1thena=2:load"copymem.o",8,1
  6. 30 ifa=2thena=3:load"mist15.o",8,1
  7. 40 ifa=3thena=4:load"intro.shp",8,1
  8. 50 print"                                     "
  9. 60 bm=57344:co=52224
  10. 70 poke249,bm/256:rem   bitmap memory
  11. 80 poke250,co/256:rem   color memory
  12. 90 poke251,0     :rem   low byte of shp
  13. 100 poke252,64   :rem  high byte of shp
  14. 110 poke253,.:poke254,.
  15. 120 sys51456 :rem    unpack that shape!
  16. 130 bm=16384:co=24576
  17. 140 poke249,bm/256:rem  bitmap memory
  18. 150 poke250,co/256:rem  color memory
  19. 155 sys32768,16384:rem clear hires mem
  20. 160 sys51459      :rem  display screen
  21. 170 sys820,52224,24576,999:rem              copy color memory [35840 -> 52224]
  22. 180 sys32771,57344,16384:rem                randomly mist pic....bit by bit!
  23. 190 :
  24. 200 poke318,.  :rem who know's what this    is for!! better leave it anyway...
  25. 210 poke178,.  :rem menu pointer
  26. 220 poke52084,.:rem set unpacker's          text/hi-res flag to text
  27. 230 :
  28. 240 poke648,4
  29. 300 print"[153]load"chr$(34)"presenter"chr$(34)",8"
  30. 310 print"run"
  31. 320 poke631,13:poke632,13:poke198,2:end
  32.