home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 87 / 087.d81 / futurfont (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  668b  |  21 lines
  1. 10 dv=peek(186):ifdv<8thendv=8
  2. 100 print"[147]":poke53280,.:poke53281,.
  3. 110 sys57812"futurfont.shp",dv,0:poke780,.:poke781,.:poke782,64:sys65493
  4. 120 sys57812"funpacker.89",dv,0:poke780,.:poke781,.:poke782,201:sys65493
  5. 130 :
  6. 140 poke53265,peek(53265)and239
  7. 150 poke251,64:rem  .shp memory
  8. 160 poke252,32:rem  bitmap memory
  9. 170 poke253,4 :rem  color memory
  10. 180 sys51456  :rem unpack that shape!
  11. 190 sys51459  :rem display screen
  12. 200 poke53265,peek(53265)or16
  13. 210 geta$:ifa$=""then210
  14. 220 print"[147]":sys51459:poke53265,27
  15. 230 open15,8,15,"r0:hello connect=hello connect":input#15,er:close15
  16. 240 if er<>63 then print"[147]":end
  17. 250 a$="hello connect":q$=chr$(34):poke53281,0:poke53280,0
  18. 260 print"[147][144]load"q$a$q$",8"
  19. 270 print"run":poke631,13:poke632,13:poke198,2:end
  20. 10000 open15,8,15,"s0:futurfont":close15:save"futurfont",8:end
  21.