home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 41 / 041.d81 / diskovery (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  723b  |  28 lines
  1. 0 print"[147]"
  2. 10 ifa=.thena=1:load"unpacker",8,1
  3. 20 ifa=1thena=2:load"sam.lnk",8,1
  4. 30 poke53280,.:poke53281,.
  5. 40 bm=57344:co=52224
  6. 50 poke249,bm/256:rem  bitmap memory
  7. 60 poke250,co/256:rem  color memory
  8. 70 sys51459   :rem enable hires screen
  9. 80 forsh=.to3
  10. 90 rem clear hi res
  11. 100 x=18:y=1:ifsh=.thenx=.:y=.
  12. 110 poke255,sh:rem   shape number
  13. 120 poke254,y :rem   y coordinate
  14. 130 poke253,x :rem   x coordinate
  15. 140 poke252,64:rem where .lnk lies (hi)
  16. 150 poke251,. :rem where .lnk lies (lo)
  17. 160 sys51462  :rem unpack shape
  18. 170 poke198,.
  19. 180 a=peek(203):ifa<>60then180
  20. 190 next
  21. 200 print"[147]":sys51459
  22. 210 print"[147][154]would you like to read this again? (y[154]/n[154])":poke198,.
  23. 220 a=peek(203):ifa<>25anda<>39then220
  24. 230 ifa=25then30
  25. 510 open15,8,15,"r0:hello connect=hello connect":input#15,er:close15
  26. 520 ifer<>63thenend
  27. 530 load"hello connect",8
  28.