1 :' Auf Wiedersehen, Monty -tape
2 :' by Nicholas Pavis
3 :' 057
10 MODE 1: a=&340
20 READ a$: IF a$="+" THEN 50
30 POKE a,VAL("&"+a$)
40 a=a+1: GOTO 20
50 CALL &340
60 DATA 21,00,00,11,00,c0
70 DATA 06,00,cd,77,bc,21
80 DATA 00,01,cd,83,bc,cd
90 DATA 7a,bc,21,62,03,22
100 DATA 8f,01,3e,c3,32,8e
110 DATA 01,c3,00,01
120 DATA 21,63,fe,36,c9 'remove  crushers
130 DATA 21,b4,ad,36,c3 'infinite  lives
140 DATA 21,9e,a5,36,00 'air  tickets
150 DATA 21,18,85,36,c9 'super  mole
160 DATA c3,00,80,+