10 m=49152
15 fori=mtom+195:readx:pokei,x:next
20 sys m+6:rem zeichensaetze erstellen
30 sys m :rem raster-ir ein
40 end
50 sys 49152+3:rem raster-ir aus
55 :
60 rem zeichensatz 1 ab 6*2048
70 rem zeichensatz 2 ab 7*2048
80 :
1000 data 76,24,192,76,9,192,76,119,192,169,1,162,49,160,234,32,41,192,169,20
1001 data 141,24,208,96,32,58,192,173,17,208,41,127,141,17,208,169,0,162,87
1002 data 160,192,120,141,14,220,142,20,3,140,21,3,73,1,141,26,208,88,96,169
1003 data 2,141,234,7,169,153,162,28,141,18,208,172,18,208,204,18,208,240,251
1004 data 142,24,208,169,11,141,32,208,96,173,25,208,141,25,208,169,2,141,32
1005 data 208,206,234,7,208,6,32,58,192,76,49,234,169,251,162,30,32,67,192,76
1006 data 188,254,120,169,51,133,1,162,0,160,208,134,251,132,252,160,56,134
1007 data 253,132,254,160,48,134,3,132,4,162,8,142,232,7,160,0,177,251,133,2
1008 data 74,5,2,73,255,145,253,177,251,133,2,162,8,70,2,42,202,208,250,145
1009 data 3,200,208,228,230,252,230,254,230,4,206,232,7,208,217,169,55,133,1
1010 data 88,96
8999 :
9000 rem 2021 by neptun
Alles anzeigen