1 :' Zoids
2 :' by Stephen Basford
10 MODE 1:MEMORY 28478
20 FOR c=42000 TO 42006
30 READ d:POKE c,d:NEXT
40 PRINT"Position tape to load a ZOIDS SAVED GAME"
50 PRINT:CALL 42000
60 POKE 28502,255:POKE 28503,255:POKE 28504,255:POKE 28507,255: POKE 28509,255
70 PRINT"Position tape to save new game and press a key"
80 CALL &BB18:SAVE "zoidprog.",b,28479,1094
90 END
100 DATA 17,63,111,205,119,188,201

1 :' Zoids - tape
2 :' by Mike Wong
10 DATA 3e,00,32,5a
20 DATA 2d,af,67,6f
30 DATA 32,de,4f,22
40 DATA df,4f,32,a4
50 DATA 4a,22,a5,4a
60 DATA 32,ee,62,32
70 DATA 83,50,c3,03
80 DATA 2d
90 DATA 21,40,20,11
100 DATA 40,00,01,37
110 DATA 02,ed,b0,21
120 DATA 74,02,36,0f
130 DATA 23,36,85,21
140 DATA 40,00,e5,21
150 DATA 00,bb,e5,21
160 DATA 37,02,e5,**
170 DATA 21,07,b8,e5
180 DATA 21,bb,02,e5
190 DATA f1,21,ea,b1
200 DATA 11,d9,b1,f3
210 DATA c9,*
220 DATA 21,1f,b1,e5
230 DATA 21,bb,02,e5
240 DATA f1,21,e5,b7
250 DATA 11,d4,b7,f3
260 DATA c9,*
270 MEMORY &2000:n=&BE00
280 READ a$
290 IF a$="**" THEN 340
300 IF a$="*" THEN 360
310 a=VAL("&"+a$)
320 c=c+a:POKE n,a
330 n=n+1:GOTO 280
340 IF PEEK(&AC01)=&C9 THEN 280
350 RESTORE 220:GOTO 280
360 PRINT"1 - Spiderzoid"
370 PRINT"2 - Scorpozoid"
380 PRINT"3 - Trooperzoid"
390 PRINT"4 - Tank"
400 PRINT"5 - Great Gorgon"
410 PRINT"6 - Mighty Zoidzilla"
420 INPUT"Choose zoid (1-6)";n
430 n=n-1:POKE &BE01,n
440 LOAD"":CALL &3A6A
450 LOAD"!",&2040:CALL &BE1D