1 :'Cybernoid - tape
2 :'by Justin Cole
3 :'016
10 MODE 1:INK 0,0:INK 1,24
20 INK 2,20:INK 3,26
30 BORDER 0
40 MEMORY &3FFF
50 LOAD"!loader",&4000
60 POKE &4152,201
70 add=&BF00
80 READ a$
90 IF a$="*" THEN CALL &BF00
100 READ tot$
110 TOt=VAL("&"+tot$):t=0
120 FOR f=1 TO LEN(a$) STEP 2
130 v=VAL("&"+MID$(a$,f,2))
140 POKE add,v
150 add=add+1
160 t=t+v
170 NEXT
180 IF tot<>t THEN PRINT "error" :END
190 GOTO 80
200 :'delete any unwanted line
210 :'leave
220 DATA cd0040,10d
230 :'infinite weapons
240 DATA 210d1a3600,7e
250 :'infinite lives
260 DATA 21ae2b3600,130
270 :'invulnerability
280 DATA 213a2b36c9,185
290 :'infinite shields
300 DATA 21810836002100,101
310 DATA 0022e80f22e90f,233
320 :'fast game
330 DATA 2141023600,9a
340 :'upside down
350 DATA 2140bf227303,9a
360 DATA 21e90536c323,22b
370 DATA 36f7233605,18b
380 :'leave
390 DATA c30002,c5
400 DATA *
410 END

1 :'Cybernoid - disk
2 :'by Justin Cole
3 :'017
10 MODE 1
20 add=&60
30 READ d$
40 IF d$="*" THEN CALL &60
50 READ tot$
60 TOt=VAL("&"+tot$):t=0
70 FOR f=1 TO LEN(d$) STEP 2
80 v=VAL("&"+MID$(d$,f,2))
90 POKE add,v
100 add=add+1
110 t=t+v
120 NEXT
130 IF tot<>t THEN PRINT "error" :END
140 GOTO 30
150 :'leave
160 DATA 218200cdd4bc2283
170 DATA 3a5
180 DATA 0079328500210001
190 DATA 152
200 DATA 1e0016000e41df83
210 DATA 1e5
220 DATA 00218600228402c3
230 DATA 212
240 DATA 000184000000,85
250 :'infinite weapons
260 DATA 21ad1b3600,11f
270 :'infinite lives
280 DATA 214e2d3600,d2
290 :'invulnerability
300 DATA 21da2c36c9,226
310 :'infinite shields
320 DATA 21210a36002100,a3
330 DATA 00228811228911,177
340 :'fast game
350 DATA 21e1033600,13b
360 :'upside down
370 DATA 2140bf22130521,17b
380 DATA 890736c32336f7,2d9
390 DATA 233605,5e
400 :'leave
410 DATA c38403,14a
420 DATA *
430 END