home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 61 / 061.d81 / review2 (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  585b  |  19 lines
  1. 100 print"[147]":poke53280,.:poke53281,.
  2. 110 sys57812"geochart.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 memory
  7. 160 poke252,32:rem  bitmap memory
  8. 170 poke253,4 :rem  color memory
  9. 180 sys51456  :rem unpack that shape!
  10. 190 sys51459  :rem display screen
  11. 200 poke53265,peek(53265)or16
  12. 210 geta$:ifa$=""then210
  13. 220 print"[147]":sys51459
  14. 230 open15,8,15,"r0:hello connect=hello connect":input#15,er:close15
  15. 240 if er<>63 then print"[147]":end
  16. 250 a$="hello connect":q$=chr$(34):poke53281,7:poke53280,7:print"[147]"
  17. 260 print"[158]load"q$a$q$",8"
  18. 270 print"run":poke631,13:poke632,13:poke198,2:end
  19.