So wie der Code aussieht, musst du pro Zeichen 8 Bytes in die Datas packen. Binär kann der BASIC-Interpreter nicht, nur dezimal. Wenn du den Zeichenindex vorne mit angeben möchtest, genügt ein Byte, dazu muss aber dann auch der Code angepasst werden. Ich habe das meistens so gemacht:
- 10 rem ...charset to 57344($e000) & screen to 52224($cc00)
- 20 poke56576,peek(56576)and252:rem vic-ii to bank 3
- 30 poke53272,56:rem switch to new charset & screen
- 40 poke648,204:printchr$(147):rem kernel to new screen (204=$cc)
- 50 readz:ifz=-1thenend
- 55 fora=0to7:readb:poke57344+z*8+a,b:next:goto50
- 60 data 0 : rem Zeichen für @ glaube...
- 61 data 60,60,24,126,153,165,66,195
- 69 data 1 : Rem Zeichen für A glaube....
- 70 rem usw.
- 999 data -1 :rem letztes Zeichen