40 MEMORY &7FFF:MODE 1:POKE &A8A4,6:POKE &BE66,1
50 FOR n=&A500 TO &A55C:READ a$:a=VAL("&"+a$)
60 sum=sum+a:POKE n,a:NEXT:POKE &BE78,&FF
70 IF sum<>9333 THEN PRINT"merde":END
80 PRINT "met ta d7 ":CALL &BB06
90 MODE 2:INK 0,0:INK 1,0:CALL &BD19:CALL &A500
100 DATA 0e,07,cd,0f,b9,21,00,c0,54,5d,01,00,40,ed
110 DATA b0,cd,03,b9,3e,46,32,6a,c6,32,da,c6,21,00
120 DATA 40,16,01,cd,52,a5,11,00,ac,01,00,03,ed,b0
130 DATA 11,00,9e,01,00,03,ed,b0,21,47,a5,11,00,bf
140 DATA ed,53,a1,9e,01,40,00,ed,b0,cd,00,ac,c3,58
150 DATA 9e,3e,a7,32,24,6d,32,85,6d,c3,00,c0,1e,00
160 DATA 0e,c1,e5,cd,66,c6,e1,c9,00,00,00,00,00,00

1 :'Bubble Bobble-tape
2 :' by Mike Wong
10 MEMORY &3BFF
20 GOSUB 170
30 PRINT"Start level ";
40 INPUT "(1-79)";lvl
50 POKE &BE71,lvl-1
60 BORDER 0:MODE 1
70 LOCATE 13,2
80 PAPER 3:PEN 2
90 PRINT" BUBBLEBOBBLE "
100 WINDOW#1,15,27,10,10
110 WINDOW#2,15,27,13,13
120 LOAD"!BUBBLE1"
130 POKE &3C70,&C3
140 POKE &3C71,0
150 POKE &3C72,&BE
160 CALL &3C00:END
170 FOR n=&BE00 TO &BE90
180 READ a$:a=VAL("&"+a$)
190 POKE n,a:c=c+a:NEXT
200 IF c<>11800 THEN 590
210 RETURN
220 DATA 32,46,36,3a
230 DATA 32,36,fe,26
240 DATA 28,02,14,e9
250 DATA e5,21,3a,39
260 DATA 36,c3,23,36
270 DATA 26,23,36,be
280 DATA 21,70,3c,36
290 DATA 32,23,36,46
300 DATA 23,36,36,e1
310 DATA 14,e9,21,5f
320 DATA 39,36,c3,23
330 DATA 36,37,23,36
340 DATA be,3a,37,bd
350 DATA c3,3d,39,21
360 DATA 20,03,22,c7
370 DATA 3e,cd,00,40
380 DATA 21,4e,be,11
390 DATA 20,03,01,42
400 DATA 00,ed,b0,c3
410 DATA 62,39,3e,a7
420 DATA 32,26,6d,32
430 DATA 87,6d,3e,c3
440 DATA 21,42,03,32
450 DATA 69,55,22,6a
460 DATA 55,21,4b,03
470 DATA 22,36,be,21
480 DATA 56,03,22,48
490 DATA be,c3,1c,0c
500 DATA 3e,00,32,5b
510 DATA 5c,af,c3,6c
520 DATA 55,3e,a7,32
530 DATA 0f,6c,32,70
540 DATA 6c,c3,1c,0c
550 DATA 3e,a7,32,26
560 DATA 6d,32,87,6d
570 DATA c3,1c,0c,53
580 DATA 50
590 PRINT"ERROR..."