home *** CD-ROM | disk | FTP | other *** search
/ Run Magazine ReRun 1986 July & August / rerun-1986-07-08.d64 / usechars (.txt) < prev    next >
Commodore BASIC  |  2022-09-20  |  288b  |  16 lines
  1. 100 poke52,48:poke56,48
  2. 110 poke56334,peek(56334)and254
  3. 120 poke1,peek(1)and251
  4. 130 fori=0to511
  5. 140 poke12288+i,peek(53248+i)
  6. 150 next
  7. 160 poke1,peek(1)or4
  8. 170 poke56334,peek(56334)or1
  9. 180 poke53272,(peek(53272)and240)+12
  10. 190 address=12288+8*character
  11. 200 forx=addresstoaddress+7
  12. 210 read dt
  13. 220 pokex,dt
  14. 230 next
  15. 240 data #'s that make up your character
  16.