start tok64 d64-AbM2RB
0 POKE53280,4:POKE53281,4:PRINT"{clear}{white}{down*7}{right*2}please wait{.*3} pokeing swedish font..
1 READy:IFy=>0THENPOKE49152+a,y:s=s-y*(a<178):a=a+1:GOTO1
2 IFs-23434THENPRINT"fel i data!":STOP
3 SYS49152
4 DATA120,169,51,133,1,160,0,185
5 DATA0,208,153,0,240,200,208,247
6 DATA238,9,192,238,12,192,208,239
7 DATA169,208,141,9,192,169,240,141
8 DATA12,192,169,55,133,1,32,45
9 DATA192,88,76,68,229,173,2,221
10 DATA9,3,141,2,221,173,0,221
11 DATA41,252,141,0,221,169,200,141
12 DATA136,2,169,45,141,24,208,169
13 DATA8,133,44,32,139,192,169,89
14 DATA141,24,3,169,192,141,25,3
15 DATA96,72,138,72,152,72,169,127
16 DATA141,13,221,32,188,246,32,225
17 DATA255,32,163,253,32,24,229,160
18 DATA3,185,48,253,153,20,3,136
19 DATA16,247,160,25,185,54,253,153
20 DATA26,3,136,16,247,32,45,192
21 DATA108,2,160,160,23,185,178,192
22 DATA153,216,240,153,216,250,73,255
23 DATA153,216,244,153,216,254,136,16
24 DATA236,160,23,185,202,192,153,216
25 DATA248,73,255,153,216,252,136,16
26 DATA242,96
27 DATA102,24,60,102,126,102,102,0
28 DATA102,60,102,102,102,102,60,0
29 DATA60,36,60,102,126,102,102,0
30 DATA102,0,60,6,62,102,62,0
31 DATA102,0,60,102,102,102,60,0
32 DATA60,102,60,6,62,102,62,0,-1
33 PRINT"{clear}{white}{down*12}{right}please wait{.*3} loading main program{.*3}
34 PRINT"{home}load"CHR$(34)"spelreg."CHR$(34)",8
35 PRINT"{down*4}run
36 POKE198,3:POKE631,19:POKE632,13:POKE633,13
stop tok64
(bastext 1.0)