10 REM GRENOUILLE
20 REM
30 SCREEN 1: KEY OFF: COLOR 3,4,4
40 CLEAR 1000: DEFINT A-Z
50 GOSUB 500
60 V = 2 LOCATE 20, Ø: PRINT "VIE: 2"
70 P=0
80 T=0
90 x = 13 Y = 21
1.00 LOCATE X, Y: PRINT CHR$(144):AX=X:AY=Y
110 A = 1 :FOR I = 1 TO 8
120 LOCATE Ø, I*2+A: PRINT MID$(L$(I), D(I),29)
130 IF I = 4 THEN A = 3
140 NEXT
150 IF Y = 1 THEN 1200
160 FOR I = 1 TO 7 STEP 2
170 D(I) = D(I) + 1 / I D(I) = 25 THEN D(I) = 1
180 D (I + 1) = D(I + 1) - 1 :IF D(I + 1) = emptyset THEN D(I + 1) = 2
4
190 NEXT
200 LOCATE 5,0: PRINT "POINTS:";P
280 REM
290 REM DEPLACEMENTS
300 FOR I = 1 TO 2
310 A$=INKEY$
320 IF A$=CHR$(28) THEN x = x + 1
330 IF A$=CHR(29) THEN x = x - 1
340 IF A$=" THEN Y = Y - 2 / P = P + 1
350 IF AY = 11 OR AY = 21 THEN LOCATE AX, AY: PRINT
360 C-VPEEK (6146 + X + Y + 32)
370 IF gamma < 11 AND C = 32 THEN 11.00
380 IF Y > 12 AND C<>32 THEN 1100
390 IF x < 1 OR x > 29 THEN 1100
400 NEXT
410 IF AY<>Y THEN 440
420 IF Y = 3 OR Y = 7 THEN x = x - 1
430 IF Y = 5 OR Y = 9 THEN X = X + 1
440 GOTO 100
480 REM
490 REM GRAPHIQUES
500 FOR I = 1/24 TO 1159
510 READ A: VPOKE I, A
520 NEXT
530 DATA 63,72, 136, 255, 128, 255, 136, 112
540 DATA 224,16,8,255, 1,255,34,28
550 DATA 7,8,16,255, 128, 255,68,56
560 DATA 248,36,34,255, 1,255, 17,14
570 DATA 254, 142, 142, 254, 255, 255,68,56 580 DATA 127, 113, 113, 127, 255, 255, 34, 28
590 DATA 255, 255, 255, 255, 255, 255,68,56
600 DATA 255, 255, 255, 255, 255,255,0,0
610 DATA 15,23,35,65,65, 35, 23, 15

620 DATA 240,248,252,254,254,252,248,240
630 DATA 240,232,196,130,130,196,232,240
640 DATA 15,31,63,127,127,63,31,15
650 DATA 255,255,255,254,255,255,255,255
660 DATA Ø,192,96,48,31,13,7,255
670 DATA 0,0,0,0,255,255,255,255
680 DATA 0,0,0,0,192,240,252,255
690 DATA 28,73,127,28,28,62,99,99
700 FOR J = 1 TO 4:A$="": READ N,M,O
710 FOR I = 1 TO O
720 READ A: IF A = 17 THEN A$A$+"" ELSE A$=A$+CHR$(A+128)
730 NEXT I
740 FOR I = 1 TO M:L$(N) =L$(N)+A$: NEXT I
750 NEXT J
760 L$(3)=L$(1):L$(4)=L$(2)
770 L$(7)=L$(5):L$(8)=L$(6)
780 DATA 1,3,23,8,12, 12, 12, 9, 17, 17, 17, 17, 17, 1 7,13,14,14,14,15,17, 17, 17, 17, 17, 17, 17
790 DATA 2,3,24, 11, 12, 12, 10, 17, 17, 17, 17, 17,17 ,17,17,11,12,12,10,17, 17, 17, 17, 17, 17, 17, 17
800 DATA 5,6,12,4,6,7,7,6,17,17,2,3, 17, 17, 17
810 DATA 6,6,12,6,6,5, 17, 17, 17, 17,0,1,17,17,17
880 REM ----------------------------
890 REM COULEURS
900 VPOKE 8208,52
910 VPOKE 8209.148
920 FOR I = 1 TO 7 STEP 4
930 D(I) = 1 / D * (I + 1) = 26
940 D(I + 2) = 5 / D * (I + 3) = 21
950 NEXT I
960 LOCATE 3,1: PRINT CHR$(140) CHR$(140)" "CHR$(140) CHR$(140);
970 PRINT "    "CHR$(140) CHR$ (140)"    "CHR$(14Ø) CHR$(140)"   "CHR$(140) CHR$(140)
980 RETURN 
1080 REM   ----------------------------
1090 REM PERDU
1100 PLAY "BAGFEDC"
1110 V=V-1
1120 IF V<Ø THEN IF INKEY$="" THEN 1120 ELSE RUN
1130 LOCATE 20,0: PRINT "VIES: ";V
1140 GOTO 90
1180 REM  ----------------------------
1190 REM GAGNE
1200 PLAY"03CDEFGAB04CDEFGAB05C"
1210 T = T + 1 : P = P + 10
1220 IF T = 5 THEN GOSUB 960: P=P+50: GOTO 80
1230 LOCATE X-1, Y: PRINT "     "
1240 GOTO 90