1 :'Ninja scooter poke
2 :'Michael Gledhill
10 FOR n=&BE00 TO &BE2A:READ a$
11 POKE n,VAL("&"+a$):NEXT
12 DATA 2a,5b,bb,22,38,bd,2a
13 DATA 0f,bc,22,29,be,21,0e
14 DATA bc,36,c3,23,36,1a,23
15 DATA 36,be,c3,00,3e,b7,20
16 DATA 0b,3e,07,32,74,69,3e
17 DATA 01,32,c5,6a,af,cf,00,00
20 MEMORY &2FFF:LOAD"scooter1"
21 INK 2,7:INK 3,13:MODE 1
22 WINDOW#1,14,26,10,10
23 WINDOW#2,14,26,13,13
24 INPUT"Clock speed (1,3 or 7) ",a
25 POKE &BE1E,a
26 INPUT"Green screen (Y/N) ";a$
27 IF a$="n" THEN 29
28 POKE &BE23,7
29 CLS:CALL &BE00