start tok64 d64-HrD1aA
10 POKE53280,0:POKE53281,0:PRINT"{clear}{down*2}"TAB(14)"errortext 64"
14 PRINT"{down}"TAB(9)"made by mattias lindman"
15 PRINTTAB(15)"{down}1987-09-29":PRINTTAB(15)"{down}sys pd 1991
16 PRINTTAB(15)"{down}please wait{.*3}"
20 FORj=40960TO49151:POKEj,PEEK(j):NEXTj
30 POKE1,54
40 FORt=41374TO41767:READa:POKEt,a:chk=chk+a:NEXTt
45 IF chk<>32011THENPRINT"fel i datarader2{0*3}-2270":STOP
50 FORu=41835TO41839:READd:kl=kl+d:NEXTu
55 IF kl<>279THENPRINT"fel i datarad 2280":STOP
60 FORf=44284TO44295:READc:POKEf,c:kol=kol+c:NEXTf
65 IFkol<>894THENPRINT"datafel i rad 2290":STOP
70 FORt=44301TO44315:READe:POKEt,e:akl=akl+e:NEXTt
75 IFakl<>1081THENPRINT"datafel i rad 2300":STOP
80 PRINTTAB(15)"{down}errortext 64"
90 PRINTTAB(15)"{down}is active"
2000 DATA70,92,82,32,77,93,78,71,65,70,73,76,69,210,70,73,76,32,92,80,80,69,206
2010 DATA70,73,76,32,69,74,32,32,92,80,80,69,206
2020 DATA70,73,76,32,69,74,32,32,72,73,84,84,65,196
2030 DATA73,78,47,85,84,69,74,84,73,76,76,71,91,78,71,76,73,199
2040 DATA69,78,66,65,82,84,32,76,91,83,78,73,78,199
2050 DATA69,78,66,65,82,84,83,75,82,73,86,78,73,78,199
2060 DATA83,65,75,78,65,82,32,32,32,32,70,73,76,78,65,77,206
2070 DATA79,84,73,76,76,93,84,69,84,69,78,72,69,84,83,78,85,77,77,69,210
2080 DATA78,69,88,84,32,32,85,84,65,78,32,32,32,70,79,210
2090 DATA83,89,78,84,65,216
2100 DATA82,69,84,85,82,78,32,32,32,85,84,65,78,32,32,71,79,83,85,194
2110 DATA83,76,85,84,80,93,32,68,65,84,193
2120 DATA79,84,73,76,76,93,84,69,78,83,84,79,82,76,69,203
2130 DATA79,86,69,82,70,76,79,215
2140 DATA83,76,85,84,32,80,93,32,77,73,78,78,197
2150 DATA72,79,80,80,84,73,76,76,79,75,91,78,68,32,82,65,196
2160 DATA85,84,65,78,70,92,82,68,73,77,79,77,210
2170 DATA68,73,77,46,32,84,86,93,32,32,71,71,210
2180 DATA68,73,86,73,83,73,79,78,32,77,69,68,78,79,76,204
2190 DATA73,78,84,69,32,68,73,82,69,75,84,77,79,196
2200 DATA36,32,69,76,32,86,65,82,73,65,66,69,204
2210 DATA83,84,82,91,78,71,32,70,92,82,32,76,93,78,199
2220 DATA70,73,76,32,32,68,65,84,193
2230 DATA85,84,84,82,89,67,75,32,70,92,82,32,75,79,77,80,76,69,216
2240 DATA75,65,78,69,74,70,79,82,84,83,91,84,84,193
2250 DATA79,68,69,70,46,32,32,32,70,85,78,75,84,73,79,206
2260 DATA74,91,77,70,92,210
2270 DATA76,65,68,196
2280 DATA70,69,76,32,32
2290 DATA70,92,82,77,93,78,71,65,32,83,86,65,82
2300 DATA75,76,65,82,32,70,82,93,78,32,83,84,65,82,84
stop tok64
(bastext 1.0)