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