poke c64 char ROM

1 a% = 24
2print chr$(147)
3print "poking char rom bytes.."

4 ad = 53248
5 for i = 0 to a% step 1
6      poke ad, i+8
7      ad = ad + 11
8 next

9 print chr$(147)

10 ad = 1344
11 for i =  0 to 255 step 1
12      poke ad, i
13     ad = ad + 1
14 next

15 ad = 55296
16 for i = 0 to 999 step 1
17     if x > 255 then x = x - 255
18     poke ad, x
19     ad = ad + 53
20 next