start tok64 d64-gG49hO
10 FORi=49152TO49247:READa:ch=ch+a:POKEi,a:NEXT
15 IF ch<>7948THENPRINT"error!":END
70 SYS49152
110 DATA162,24,169,0,157,0
120 DATA212,202,16,250,162,24
130 DATA189,64,192,157,0,212
140 DATA202,16,247,120,169,38
150 DATA141,20,3,169,192,141
160 DATA21,3,88,169,0,133
170 DATA3,96,165,3,56,233
180 DATA29,133,3,141,1,212
190 DATA173,28,212,141,22,212
200 DATA74,74,74,74,141,15
210 DATA212,76,49,234,0,0
220 DATA0,0,129,13,0,1
230 DATA36,0,0,21,13,0
240 DATA0,4,0,7,65,12
250 DATA0,0,0,247,63,65
260 DATA12,0,0,0,247,63
stop tok64
(bastext 1.0)