1 :'Mickey Mouse - DISC
2 :'Infinite water - &651f,0
3 :'Infinite lives in sub game - &540d,0
4 :'Infinite keys - &7544,0 - &7545,0 - &754a,0 - &754b,0
5 :'Infinite lightning - &61a6,0
6 :'By Johnny & Kim Olsen
7 :'Hovedgaden 47A
8 :'3460 Birkerod
9 :'Denmark
10 tot=0:addr=&BE80
20 READ a$
30 IF a$="end" THEN GOTO 60
40 b=VAL("&"+a$):POKE addr,b
50 tot=tot+b:addr=addr+1:GOTO 20
60 IF tot<>&1E30 THEN PRINT"DATA ERROR":END
70 CLS:INPUT"Input level number 1-5 ";n
80 IF n<1 OR n>5 THEN 70
90 MODE 0:POKE &BECB,n:CALL &BE8B
100 DATA 3e,00,32,06,52,32
110 DATA 07,52,c3,00,50,0e
120 DATA 07,cd,0f,b9,c5,21
130 DATA 00,01,11,00,00,0e
140 DATA 41,cd,3c,c0,c1,cd
150 DATA 18,b9,3e,00,32,10
160 DATA 01,32,01,01,21,00
170 DATA 00,22,02,01,cd,00
180 DATA 01,3e,c9,32,5e,1e
190 DATA cd,00,1e,21,80,be
200 DATA 11,1c,46,01,0b,00
210 DATA ed,b0,21,1c,46,22
220 DATA f7,39,3e,01,32,c2
230 DATA 39,32,07,7f,3e,00
240 DATA 32,1f,65,32,0d,54
250 DATA 32,44,75,32,45,75
260 DATA 32,4a,75,32,4b,75
270 DATA 32,a6,61,cd,2c,1f
280 DATA c3,61,1e,end

1 :' Mickey Mouse-tape
2 :' By Graham Smith
10 CLS:FOR j=0 TO 54:READ a$
20 POKE j+5632,VAL("&"+a$)
30 NEXT j:CALL 5656
40 DATA 3e,c9,32,c6
50 DATA 52,af,32,e7
60 DATA 53,32,f9,64
70 DATA 32,69,61,32
80 DATA 80,61,32,b8
90 DATA 61,c3,00,32
100 DATA 06,00,11,70
110 DATA 01,cd,77,bc
120 DATA cd,ff,bb,3e
130 DATA 09,32,98,01
140 DATA 0e,c0,cd,89
150 DATA 01,3e,7d,32
160 DATA 9d,02,0e,6b
170 DATA c3,a8,01