1 ' Reset
2 ' by Alastair Scott
3 ' Amstrad Action March 88
10 FOR a=&B000 TO &B026:READ a$:POKE a,VAL("&"+a$)
20 NEXT:CALL &B000
30 DATA 01,FF,81,11,0C,B0,21,27,B0,C3,E0,BC,3E,09,CD
40 DATA 1E,BB,C8,79,FE,80,C0,3E,01,CD,0E,BC,3E,01,CD
50 DATA 90,BB,AF,CD,96,BB,C3,02,BC