home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 47 / 047.d81 / battleship (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  653b  |  23 lines
  1. 0 ifa=.thenpoke53280,.:poke53281,.
  2. 1 ifa=.thenprint"[147]         [154]loading [158]battleship..."
  3. 2 ifa>2then131
  4. 10 ifa=.thena=1:load"unpacker",8,1
  5. 20 ifa=1thena=2:load"ship.shp",8,1
  6. 50 poke53280,.:poke53281,.
  7. 60 bm=40960:co=35840
  8. 70 poke249,bm/256:rem   bitmap memory
  9. 80 poke250,co/256:rem   color memory
  10. 90 poke251,0     :rem   low byte of shp
  11. 100 poke252,64   :rem  high byte of shp
  12. 105 print"[147]";:poke53280,6:poke53281,1
  13. 110 poke253,.:poke254,.
  14. 120 sys51456 :rem    unpack that shape!
  15. 130 sys51459 :rem    show that shape!
  16. 131 ifa=2thena=3:load"b.main",8,1
  17. 132 ifa=3thena=4:load"b.instr.",8,1
  18. 133 ifa=4thena=5:load"b.sprites",8,1
  19. 140 sys51459:sys1024*16
  20. 200 print"load"chr$(34)"hello connect"chr$(34)",8"
  21. 210 print"run"
  22. 220 poke631,13:poke632,13:poke198,2:end
  23.