Zrobiłem tak:
19 print "{clear}{down*12} wszytywanie"
20 gosub 21 : goto 184
21 rem set characterset pointer to address 12288
22 poke 53272,(peek(53272)and240)+12
23 ch = 32 : gosub 48
24 for ch = 1 to 12 : gosub 48 : next
25 for ch = 58 to 59 : gosub 48 : next
26 ch = 61 : gosub 48
27 ch = 13 : gosub 48
28 ch = 44 : gosub 48
29 for ch = 46 to 47 : gosub 48 : next
30 for ch = 14 to 16 : gosub 48 : next
31 ch = 0 : gosub 48
32 ch = 42 : gosub 48
33 ch = 30 : gosub 48
34 for ch = 17 to 29 : gosub 48 : next
35 for ch = 31 to 41 : gosub 48 : next
36 ch = 43 : gosub 48
37 ch = 45 : gosub 48
38 for ch = 49 to 57 : gosub 48 : next
39 ch = 48 : gosub 48
40 ch = 60 : gosub 48
41 for ch = 62 to 63 : gosub 48 : next
42 for ch = 65 to 80 : gosub 48 : next
43 ch = 64 : gosub 48
44 for ch = 81 to 126 : gosub 48 : next
45 return
46 rem ...............................
47 rem load specific custom character
48 rem ...............................
49 for byte = 0 to 7
50 read cd
51 poke 12288+(8*ch)+byte,cd
52 next byte
53 return
54 data 0,0,0,0,0,0,0,0 : rem character 32 -<PUSTE POLE>
55 data 0,0,60,6,62,102,62,0 : rem character 01 -a
...
I to mi działa. Problem mam z zaimplementowaniem tego do gry.