start tok64 d64-4bhZt7
10 REM svenska tecken av magnus pernemark
60 POKE56334,PEEK(56334)AND254:POKE1,PEEK(1)AND251
70 FORi=0TO511:POKEi+57344,PEEK(i+53248):NEXT:DATA102,0,60,102,126,102,102,0
80 REM
90 FORi=57560TO57583:READj:POKEi,j:NEXT:DATA102,0,60,102,102,102,60,0
100 REM
110 POKE1,PEEK(1)OR4:POKE56334,PEEK(56334)OR1:DATA24,0,60,102,126,102,102,0
120 REM
130 POKE56578,PEEK(56578)OR3:POKE56576,(PEEK(56576)AND252)OR0:POKE648,196
140 POKE53272,(PEEK(53272)AND240)OR8
150 PRINT"{clear}";
stop tok64
(bastext 1.0)