1 :' Shockway rider - tape
2 :' by Niall Brady
10 DATA 21,37,90,06,0EE
20 DATA 08,16,C0,CD,1AB
30 DATA 77,BC,21,D0,224
40 DATA 07,CD,83,BC,213
50 DATA CD,7A,BC,11,214
60 DATA 53,08,21,21,09D
70 DATA 90,01,1A,00,0AB
80 DATA ED,B0,C3,D0,330
90 DATA 07,21,A4,73,13F
100 DATA CD,83,BC,CD,2D9
110 DATA 7A,BC,3E,0A,17E
120 DATA 32,7B,75,0E,130
130 DATA FF,21,A4,73,237
140 DATA C3,16,BD,53,1E9
150 DATA 48,4F,43,4B,125
160 DATA 57,41,59,00,0F1
170 n=4:a=&9000:l=10
180 WHILE l<170:GOSUB 210
190 WEND
200 GOTO 280
210 cs=0:FOR x=1 TO n
220 READ v$:v=VAL("&"+v$)
230 POKE a,v
240 cs=cs+v:a=a+1:NEXT
250 READ c$:c=VAL("&"+c$)
260 IF c<>cs THEN PRINT"Data error in line ",l:END
270 l=l+10:RETURN
280 MODE 1:CALL &9000
290 END