start tok64 d64-dAphKv
0 REM svenska tecken
1 REM sys pd/c64,c128 - 1993
2  
3 REM bygger p]
4 REM "flytta tecken i maskinkod 64"
5 REM av gunnar berglund
6 REM min hemdatortidning 3/1984
7  
10 FORm=49152TO49203:READa:POKEm,a:NEXT
12 POKE49193,224:POKE49172,160:REM patch (b]da seten kopieras och till $a000)
15 SYS49152:POKE52,128:POKE56,128:POKE56578,PEEK(56578)OR3
20 POKE56576,(PEEK(56576)AND252)OR1:POKE648,136:POKE53272,40:PRINT"{clear}";
30 DATA120,165,1,41,251,133,1,169,,133,251,169,208,133,252,169,,133,253,169
40 DATA128,133,254,160,,177,251,145,253,200,192,,208,247,230,252,230,254,165
50 DATA252,201,216,208,237,165,1,9,4,133,1,88,96
100 REM - svenska tecknen -
110 FORi=27TO29:FORj=.TO7:READx:POKE40960+i*8+j,x:POKE41984+i*8+j,255-x
120 POKE43520+i*8+j,x:POKE44544+i*8+j,255-x:NEXT:NEXT
130 FORi=27TO29:FORj=.TO7:READx:POKE43008+i*8+j,x:POKE44032+i*8+j,255-x
140 NEXT:NEXT
150 DATA102,24,60,102,126,102,102,,102,60,102,102,102,102,60,,60,36,60,102,126
160 DATA102,102,
170 DATA102,,60,6,62,102,62,,102,,60,102,102,102,60,,60,36,60,6,62,102,62,
180 CLR
200 POKE53280,.:POKE53281,.
210 PRINT"{black}{clear}{down*2}load"CHR$(34)"bookdisk ej.sve"CHR$(34)",8{home}";
220 POKE631,13:POKE632,82:POKE633,213:POKE634,13:POKE198,4
stop tok64
(bastext 1.0)