100 END
11 CLS
12 EXTENSION (Index #25) (Token 0xa2)
20 VARNAME
30 VARNAME
3000 VARNAME
3010 VARNAME
3020 VARNAME
3030 VARNAME
3040 FOR
3050 POKE
3060 VARNAME
3070 NEXT
3080 POKE
3090 RETURN
40 EXTENSION (Index #25) (Token 0xd2)
45 VARNAME
50 EXTENSION (Index #25) (Token 0xa2)
60 EXTENSION (Index #25) (Token 0xa2)
65 EXTENSION (Index #25) (Token 0x9c)
70 VARNAME
80 EXTENSION (Index #25) (Token 0xa2)
90 EXTENSION (Index #25) (Token 0xa2)