1 :' Zub - tape
2 :' by Ian Grainger
3 :' 004
10 MEMORY &A03F
20 LOAD"****************",&A040
30 POKE &A058,&C9: CALL &A040
40 FOR t=1 TO 22: READ a$,b$
50 POKE VAL("&"+a$),VAL("&"+b$)
60 NEXT t
70 POKE &4319,0 :' immunity
80 CALL &9D00
90 DATA 4016,a0,402a,a0,40af,a1
100 DATA 40b2,a1,40ba,a1,40cc,a1
110 DATA 40cf,a1,40d5,a0,40de,a0
120 DATA 40ed,a0,40f4,a0,41ad,a1
130 DATA 4103,a0,410d,a0,413c,a0
140 DATA 4147,a0,4155,a0,4164,a1
150 DATA 4169,a1,41a1,a1,41aa,a0
160 DATA 41ae,c9