diff --git a/applesqueezer/sdcard/assd.po b/applesqueezer/sdcard/assd.po
index 2debbb0..27c68a2 100644
Binary files a/applesqueezer/sdcard/assd.po and b/applesqueezer/sdcard/assd.po differ
diff --git a/laparadedesmarionnettes/basic/CLUB DES MARIONNETTES.BAS b/laparadedesmarionnettes/basic/CLUB DES MARIONNETTES.BAS
new file mode 100644
index 0000000..5832c10
--- /dev/null
+++ b/laparadedesmarionnettes/basic/CLUB DES MARIONNETTES.BAS	
@@ -0,0 +1,196 @@
+0  ONERR  GOTO 10000
+1  POKE 791,32
+5  REM   CLUBHOUSE, COPYRIGHT 1981, LESLIE M. GRIMM 
+10 B$ = "FIRST VARIABLE DEFINED"
+12 YY = 16777:XX = 16778:CC = 16779:WM = 16779: REM  LINE, COLUMN, COLOR, WHICH MOPPET
+14 LG = 16384:SG = 16387:MG = 16390: REM  LARGE, SMALL, AND MOPPET GENERATORS
+16  POKE 232,76: POKE 233,3: SCALE= 1: ROT= 0:SQUARE = 1:EX = 2: REM   SHAPES
+24  DIM PP(17),RU(3),X(17),Y(17):HCOLR = 7: SCALE= 1: ROT= 0
+26  FOR I = 1 TO 8:X(I) = 19 + 28 * I: NEXT I: FOR I = 9 TO 16:X(I) = X(I - 8): NEXT I
+28  FOR I = 1 TO 8:Y(I) = 0: NEXT I: FOR I = 9 TO 16:Y(I) = 32: NEXT I
+30  DIM XC(9),YC(9): REM  MOPPETS IN CLUBHOUSE  
+32 X = 12: FOR I = 1 TO 4:XC(I) = X:XC(I + 4) = X:YC(I) = 128:YC(I + 4) = 160:X = X + 4: NEXT 
+34  DIM XP(17),YP(17): REM  LOCATIONS OF MOPPETS AT TOP OF SCREEN
+36 X = 4: FOR I = 1 TO 8:YP(I) = 32:YP(I + 8) = 64:XP(I) = X:XP(I + 8) = X:X = X + 4: NEXT 
+40  DIM PP$(18):PP$(1) = "GGBG":PP$(2) = "GMBG":PP$(3) = "GGBB":PP$(4) = "GMBB":PP$(5) = "PGBB":PP$(6) = "PMBB":PP$(7) = "PGBG":PP$(8) = "PMBG"
+42 PP$(9) = "GGRG":PP$(10) = "GMRG":PP$(11) = "GGRB":PP$(12) = "GMRB":PP$(13) = "PGRB":PP$(14) = "PMRB":PP$(15) = "PGRG":PP$(16) = "PMRG"
+48  DIM RU$(9):RU$(1) = "GRANDS":RU$(2) = "PETITS":RU$(3) = "GROS":RU$(4) = "MINCES":RU$(5) = "ROUGES":RU$(6) = "BLEUS":RU$(7) = "BIBBITS":RU$(8) = "GRIBBITS"
+50  GOSUB 3000
+60  HOME : PRINT : PRINT "VEUX-TU DES INSTRUCTIONS? (O OU N) ";
+62  GOSUB 80: IF  ASC (IN$) = 27 THEN  GOSUB 130:IN$ = "": GOTO 60
+64  IF IN$ <  > "O" AND IN$ <  > "N" THEN 60
+66  IF IN$ = "O" THEN  GOSUB 2000
+70  HOME : GOTO 1000
+80  GET IN$: IF  LEN (IN$) < 1 THEN 80
+82  RETURN 
+100  GOSUB 80: IF IN$ = "" THEN 100
+102  IF  ASC (IN$) = 27 THEN  GOSUB 130:IN$ = "ESC": RETURN 
+104  IF IN$ = "?" THEN  GOSUB 2000:IN$ = "?"
+106  RETURN 
+110  GOSUB 80: IF  ASC (IN$) <  > 27 AND  ASC (IN$) <  > 13 AND IN$ <  > "?" THEN 110
+112  IF IN$ = "?" THEN  GOSUB 2000: POKE  - 16304,0: POKE 34,20
+114  IF  ASC (IN$) = 27 THEN  GOSUB 130
+116  RETURN 
+130  HOME : PRINT "VEUX-TU T'ARRETER ? (O/N) ";
+132  GOSUB 80: IF IN$ <  > "O" AND IN$ <  > "N" THEN 132
+134  IF IN$ = "O" THEN  GOTO 1500
+136  RETURN 
+200  FOR J = 1 TO 16: IF P$ = PP$(J) THEN K = J
+202  NEXT J: RETURN 
+210  ON RULE GOTO 212,216,220,224,228,232,236,240
+212  IF  LEFT$ (P$,1) = "G" THEN FLAG = FLAG + 1
+214  RETURN 
+216  IF  LEFT$ (P$,1) = "P" THEN FLAG = FLAG + 1
+218  RETURN 
+220  IF  MID$ (P$,2,1) = "G" THEN FLAG = FLAG + 1
+222  RETURN 
+224  IF  MID$ (P$,2,1) = "M" THEN FLAG = FLAG + 1
+226  RETURN 
+228  IF  MID$ (P$,3,1) = "R" THEN FLAG = FLAG + 1
+230  RETURN 
+232  IF  MID$ (P$,3,1) = "B" THEN FLAG = FLAG + 1
+234  RETURN 
+236  IF  RIGHT$ (P$,1) = "B" THEN FLAG = FLAG + 1
+238  RETURN 
+240  IF  RIGHT$ (P$,1) = "G" THEN FLAG = FLAG + 1
+242  RETURN 
+300  REM  ** PRINTER **
+310  POKE XX,X: POKE YY,Y: POKE CC,C: CALL LG: RETURN 
+320 C = 3:B$ =  CHR$ (113) + "UELLE":X = 12:Y = 112: GOSUB 310:B$ = "EST":X = 18:Y = 128: GOSUB 310
+322 B$ = "MA " + CHR$ (114) + "EGLE ?":X = 14:Y = 144: GOSUB 310: RETURN 
+400  REM  ** MOPPET PRINTER **
+402  POKE XX,X: POKE YY,Y: POKE WM,M: CALL MG: RETURN 
+410 X = 4:Y = 32: FOR I = 0 TO 7
+412 M = I: GOSUB 400:X = X + 4: NEXT I
+414 X = 4:Y = 64: FOR I = 8 TO 15
+416 M = I: GOSUB 400:X = X + 4: NEXT I
+420  HCOLOR= 5: FOR I = 68 TO 78: HPLOT 43,I TO 235,I: NEXT : FOR I = 78 TO 159: HPLOT 51,I TO 227,I: NEXT 
+422  HCOLOR= 4: HPLOT 147,160 TO 147,120 TO 183,120 TO 183,160: HPLOT 89,144 TO 89,120 TO 125,120 TO 125,144 TO 89,144: HPLOT 43,79 TO 227,79
+424  HPLOT 107,144 TO 107,120: HPLOT 89,132 TO 125,132: HPLOT 151,140 TO 151,136 TO 155,136 TO 155,140 TO 151,140: HPLOT 183,127 TO 173,130 TO 183,133: HPLOT 183,147 TO 173,150 TO 183,153
+426 B$ =  CHR$ (99) + "LUB":X = 13:Y = 96:C = 3: GOSUB 310
+428  RETURN 
+440  HCOLOR= 7: FOR I = 0 TO 64 STEP 32: HPLOT 27,I TO 251,I: NEXT I: FOR I = 27 TO 251 STEP 28: HPLOT I,0 TO I,64: NEXT I: RETURN 
+450 B$ = "UNE REGLE": GOTO 454
+452 B$ = "DEUX REGLES"
+454  HCOLOR= 4: FOR I = 80 TO 160: HPLOT 54,I TO 223,I: NEXT 
+456 X = 8:Y = 96:C = 7: GOSUB 310
+458  RETURN 
+500  POKE 768,N: POKE 769,T: CALL 770: RETURN 
+510 N = 96:T = 60: GOSUB 500:N = 76:T = 140: GOSUB 500:T = 60: GOSUB 500:T = 60: GOSUB 500:N = 85: GOSUB 500:N = 76: GOSUB 500:N = 72:T = 160: GOSUB 500:N = 76:T = 100: GOSUB 500
+512 N = 76:T = 60: GOSUB 500:N = 85:T = 140: GOSUB 500:T = 60: GOSUB 500: GOSUB 500:N = 96: GOSUB 500:N = 85: GOSUB 500:N = 76:T = 140: GOSUB 500:N = 96:T = 180: GOSUB 500
+514  RETURN 
+520 T = 60:N = 64: GOSUB 500:N = 48:T = 100: GOSUB 500: RETURN 
+530 T = 60:N = 64: GOSUB 500:N = 96:T = 100: GOSUB 500: RETURN 
+600  POKE 34,20: HOME : PRINT "(APPUIE SUR 'R' POUR DEVINER LA REGLE)": PRINT : PRINT "GRAND OU PETIT ? (G OU P) ";
+601  GOSUB 100: IF IN$ = "ESC" OR IN$ = "?" THEN  POKE  - 16304,0: POKE 34,20: GOTO 600
+602  IF IN$ = "R" THEN  RETURN 
+603  IF IN$ =  CHR$ (8) THEN 600: REM  ARROW
+604  IF IN$ <  > "G" AND IN$ <  > "P" THEN 600
+606 G1$ = IN$:GA$ = "GRAND": IF G1$ = "P" THEN GA$ = "PETIT"
+608  HOME : PRINT GA$: POKE 34,22
+610  HOME : PRINT "GROS OU MINCE ? (G OU M) ";
+612  GOSUB 100: IF IN$ = "ESC" OR IN$ = "?" THEN  POKE  - 16304,0: POKE 34,20: GOTO 606
+613  IF IN$ =  CHR$ (8) THEN 600: REM  ARROW
+614  IF IN$ <  > "G" AND IN$ <  > "M" THEN 612
+616 G2$ = IN$:GB$ = "GROS": IF G2$ = "M" THEN GB$ = "MINCE"
+618  HOME : VTAB 21: PRINT GA$;", ";GB$
+620  HOME : PRINT "ROUGE OU BLEU ? (R OU B) ";
+622  GOSUB 100: IF IN$ = "ESC" OR IN$ = "?" THEN  POKE  - 16304,0: POKE 34,20: HOME : PRINT GA$;", ";GB$: POKE 34,22: GOTO 620
+623  IF IN$ =  CHR$ (8) THEN 600
+624  IF IN$ <  > "R" AND IN$ <  > "B" THEN 622
+626 G3$ = IN$:GC$ = "ROUGE": IF G3$ = "B" THEN GC$ = "BLEU"
+628  HOME : VTAB 21: PRINT GA$;", ";GB$;", ";GC$
+630  HOME : PRINT "BIBBIT OU GRIBBIT? (B OU G) ";
+632  GOSUB 100: IF IN$ = "ESC" OR IN$ = "?" THEN  POKE  - 16304,0: POKE 34,20: HOME : PRINT GA$;", ";GB$;", ";GC$: POKE 34,22: GOTO 630
+633  IF IN$ =  CHR$ (8) THEN 600: REM  ARROW  
+634  IF IN$ <  > "B" AND IN$ <  > "G" THEN 632
+636 G4$ = IN$:GD$ = "BIBBIT": IF G4$ = "G" THEN GD$ = "GRIBBIT"
+638  HOME : VTAB 21: PRINT GA$;", ";GB$;", ";GC$;" ";GD$
+640 GUESS$ = G1$ + G2$ + G3$ + G4$: RETURN 
+900 Z = 1: IF  RND (1) < .5 THEN Z = 2
+901  RETURN 
+902 Z = 3: IF  RND (1) < .5 THEN Z = 4
+903  RETURN 
+904 Z = 5: IF  RND (1) < .5 THEN Z = 6
+905  RETURN 
+906 Z = 7: IF  RND (1) < .5 THEN Z = 8
+907  RETURN 
+1000  HGR :Z =  FRE (0):CO = 0:CT = 0: POKE 34,20: FOR I = 1 TO 16:PP(I) = 0: NEXT I: GOSUB 410: GOSUB 440
+1020 A =  INT ( RND (1) * 4) + 1:B =  INT ( RND (1) * 4) + 1: IF A = B THEN 1020
+1022  ON A GOSUB 900,902,904,906:A = Z: ON B GOSUB 900,902,904,906:B = Z:RU(1) = A:RU(2) = B
+1030  HOME : PRINT "CHOISIS :": PRINT "1. UNE REGLE": PRINT "2. DEUX REGLES": PRINT "TAPE 1 OU 2 : ";: GOSUB 100: IF IN$ = "?" THEN  POKE  - 16304,0: POKE 34,20: GOTO 1030
+1032  IF IN$ <  > "1" AND IN$ <  > "2" THEN 1030
+1034 IN =  VAL (IN$): HOME :R = 1: IF IN = 2 THEN R = 2
+1036  IF R = 1 THEN RU(1) = RU(2): GOSUB 450
+1038  IF R = 2 THEN  GOSUB 452
+1100  GOSUB 600: IF IN$ = "R" THEN CO = CO + 1: GOTO 1200
+1120 P$ = GUESS$:CO = CO + 1: GOSUB 200: IF PP(K) = 1 THEN 1180
+1122 PP(K) = 1:RU = RU(1):FLAG = 0: GOSUB 210:RU = RU(2): GOSUB 210: IF FLAG = 2 THEN X = XP(K):Y = YP(K):M = 16: GOSUB 400:CT = CT + 1:X = XC(CT):Y = YC(CT):M = K - 1: GOSUB 400: GOSUB 520
+1124  IF FLAG <  > 2 THEN  XDRAW 2 AT X(K),Y(K): GOSUB 530
+1126  GOSUB 440:FLAG = 1: FOR I = 1 TO 16: IF PP(I) = 0 THEN FLAG = 0
+1128  NEXT I: IF FLAG = 1 THEN 1250
+1130  POKE 34,20: GOTO 1100
+1180  GOSUB 530: HOME : PRINT "TU AS DEJA ESSAYE CE MOPPET.": VTAB 24: PRINT "APPUIE SUR <RETURN> POUR RE-ESSAYER. ";: GOSUB 110: POKE 34,20: GOTO 1100
+1200  GOSUB 4000: IF IN = RU(1) THEN 1300
+1202  IF R = 1 THEN 1210
+1204  IF I1 <  > RU(1) AND I1 <  > RU(2) THEN 1210
+1206  IF I2 = RU(1) OR I2 = RU(2) THEN 1300
+1210  GOSUB 530: POKE 34,20: PRINT : HOME : PRINT "DESOLE, CE N'EST PAS MA REGLE.": PRINT "APPUIE SUR <RETURN> POUR CONTINUER. ": GOSUB 110: PRINT : GOTO 1100
+1250  GOSUB 530: POKE 34,20: HOME : PRINT "TU AS ESSAYE TOUS LES MOPPETS ! VEUX-TU DEVINER MA REGLE ? (O OU N) ";: GOSUB 100: IF IN$ = "?" THEN  POKE  - 16304,0: POKE 34,20: HOME 
+1252  IF IN$ <  > "O" AND IN$ <  > "N" THEN 1250
+1254  IF IN$ = "N" THEN 1270
+1260  GOSUB 4000: IF IN = RU(1) THEN 1300
+1264  IF I1 <  > RU(1) AND I1 <  > RU(2) THEN 1270
+1266  IF I2 = RU(1) OR I2 = RU(2) THEN 1300
+1270  HOME : PRINT "MA REGLE ETAIT :": PRINT "TOUS LES MOPPETS SONT ";RU$(RU(1));: IF R = 2 THEN  PRINT " ET ";RU$(RU(2));
+1272  PRINT ".": GOTO 1310
+1300  POKE 34,20: HOME : VTAB 21: PRINT "TU AS RAISON ! ILS SONT TOUS ";RU$(RU(1));: IF R = 2 THEN  PRINT : PRINT " ET ";RU$(RU(2));
+1302  PRINT ".": PRINT "TU AS TROUVE EN ";CO - 1;" ESSAI";:IF CO>2 THEN PRINT "S";:PRINT".": GOSUB 510
+1310  VTAB 24: HTAB 1: PRINT "VEUX-TU REJOUER ? (O OU N) ";
+1312  GET IN$: IF IN$ <  > "O" AND IN$ <  > "N" THEN 1312
+1314  IF IN$ = "O" THEN  HOME : GOTO 1000
+1500  TEXT : HOME : PRINT : POKE 791,2: PRINT  CHR$ (4);"RUN MENU"
+2000  REM   ** INSTRUCTIONS **
+2002  TEXT : HOME : VTAB 2: INVERSE : PRINT ">>>>>>>>>>>>>>>>>>>><<<<<<<<<<<<<<<<<<<<";
+2004  VTAB 23: PRINT ">>>>>>>>>>>>>>>>>>>><<<<<<<<<<<<<<<<<<<<";: NORMAL 
+2006  POKE 32,5: POKE 33,30: POKE 34,4: POKE 35,22: REM  WINDOW  
+2008  POKE 48,30: VLIN 4,43 AT 0: VLIN 4,43 AT 39: HOME 
+2010  PRINT " LE CLUB DES MARIONNETTES !"
+2020  PRINT : PRINT "CHOISIS ";: INVERSE : PRINT "UNE REGLE": NORMAL : PRINT "  (LES MOPPETS ";: INVERSE : PRINT "GROS";: NORMAL: PRINT ")": PRINT "OU ";
+2022  INVERSE : PRINT "DEUX REGLES": NORMAL : PRINT "  (LES MOPPETS ";: INVERSE : PRINT "GROS";: NORMAL : PRINT " ET ";: INVERSE : PRINT "ROUGES";: NORMAL : PRINT ")"
+2030  PRINT : PRINT "POUR JOUER, DECRIS UN MOPPET, S'IL CORRESPOND, IL IRA DANS  LE CLUB. SINON, IL SERA MARQUED'UN X."
+2040  PRINT : PRINT "DEVINE LA REGLE EN TAPANT 'R'."
+2050  FOR I = 1 TO 2000: NEXT I: POKE  - 16368,0
+2052  VTAB 20: PRINT "APPUIE SUR <RETURN> POUR      JOUER. ";
+2054  GOSUB 80: IF  ASC (IN$) <  > 27 AND  ASC (IN$) <  > 13 THEN 2054
+2056  IF  ASC (IN$) = 27 THEN  GOSUB 130
+2060  TEXT : HOME : RETURN 
+3000  TEXT : HOME : HGR : POKE 34,20: HOME 
+3002  IF  PEEK ( - 16384) = 160 THEN 3060
+3010  HCOLOR= 5: FOR I = 84 TO 92: HPLOT 63,I TO 225,I: NEXT I: FOR I = 93 TO 160: HPLOT 68,I TO 220,I: NEXT I
+3012  HCOLOR= 4: HPLOT 147,160 TO 147,120 TO 183,120 TO 183,160: HPLOT 89,144 TO 89,120 TO 125,120 TO 125,144 TO 89,144: HPLOT 68,93 TO 220,93
+3014  HPLOT 107,144 TO 107,120: HPLOT 89,132 TO 125,132: HPLOT 151,140 TO 151,136 TO 155,136 TO 155,140 TO 151,140: HPLOT 183,127 TO 173,130 TO 183,133: HPLOT 183,147 TO 173,150 TO 183,153
+3016  IF  PEEK ( - 16384) = 160 THEN 3060
+3020 B$ =  CHR$ (108) + "E " + CHR$(99) + "LUB":X = 14:Y = 20:C = 3: GOSUB 310
+3022 B$ =  "DES " + CHR$ (109) + "ARIONNETTES":X = 5:Y = 36: GOSUB 310
+3024 B$ = CHR$(114) + "ESERVE":X = 14:Y = 64: GOSUB 310
+3026 B$ = "AUX " + CHR$(109) + "EMBRES":X = 10:Y = 80: GOSUB 310
+3028  IF  PEEK ( - 16384) = 160 THEN 3060
+3030 M = 2:X = 4:Y = 160: GOSUB 400:M = 13:X = 32: GOSUB 400:M = 9:X = 0: GOSUB 400
+3040  IF  PEEK ( - 16384) = 160 THEN 3060
+3050  GOSUB 510
+3060  RETURN 
+4000  TEXT : HOME : VTAB 6: HTAB 4: PRINT "1. GRAND";: HTAB 20: PRINT "2. PETIT": PRINT : HTAB 4: PRINT "3. GROS";: HTAB 20: PRINT "4. MINCE"
+4010  PRINT : HTAB 4: PRINT "5. ROUGE";: HTAB 20: PRINT "6. BLEU": PRINT : HTAB 4: PRINT "7. BIBBIT";: HTAB 20: PRINT "8. GRIBBIT": POKE 34,18: IF R = 2 THEN 4030
+4020  HOME : PRINT "QUELLE EST MA REGLE ? ": PRINT : PRINT "CHOISIS UN CHIFFRE : ";: GOSUB 100: IF IN$ = "?" THEN  GOTO 4000
+4022 IN =  VAL (IN$): IF IN < 1 OR IN > 8 THEN 4020
+4024  GOTO 4050
+4030  HOME : PRINT "QUELLE EST L'UNE DE MES REGLES ?": PRINT : PRINT "CHOISIS UN CHIFFRE : ";: GOSUB 100: IF IN$ = "?" THEN 4000
+4032 IN =  VAL (IN$): IF IN < 1 OR IN > 8 THEN 4030
+4034 I1 = IN: PRINT  STR$ (IN): POKE 34,22
+4036  HOME : PRINT "CHOISIS LE CHIFFRE D'UNE AUTRE REGLE : ";: GOSUB 100: IF IN$ = "?" THEN  GOTO 4000
+4038 IN =  VAL (IN$): IF IN < 1 OR IN > 8 THEN 4036
+4040 I2 = IN: PRINT  STR$ (IN): IF IN = I1 THEN  HOME : PRINT "OUPS ! TU AS DEJA CHOISI ";I1: GOTO 4036
+4044 IN = 0
+4050  TEXT : POKE  - 16301,0: POKE  - 16304,0: POKE 34,20: RETURN 
+10000  CALL 37632
diff --git a/laparadedesmarionnettes/basic/MENU.BAS b/laparadedesmarionnettes/basic/MENU.BAS
new file mode 100644
index 0000000..e6b40e7
--- /dev/null
+++ b/laparadedesmarionnettes/basic/MENU.BAS
@@ -0,0 +1,100 @@
+0  ONERR  GOTO 10000
+1  POKE 791,32: REM  ENABLE RESET TRAP
+3  REM  MENU1
+5  REM  MOPTOWN 1 MENU, COPYRIGHT 1982, LESLIE GRIMM
+10 B$ = "FIRST VARIABLE ASSIGNED": REM  FOR CHARACTER GENERATOR
+12 YY = 16777:XX = 16778:CC = 16779:WM = 16779: REM  LINE, COLUMN, COLOR, WHICH MOPPET
+14 LG = 16384:SG = 16387:MG = 16390: REM  LARGE, SMALL, AND MOPPET GENERATORS
+20 SOUND = 771:YES = 48:NO = 32: REM  IN MUSICRESETMOVESHAPE
+22  POKE 32,0: POKE 33,40: POKE 34,20: POKE 35,24: REM  RESET TEXT WINDOW
+31 B$(1) = "1 " +  CHR$ (114) + "EPRODUIS MON " +  CHR$ (106) + "UMEAU"
+32 B$(2) = "2 " +  CHR$ (113) + "UI EST " +  CHR$ (100) + "IFFERENT ?"
+33 B$(3) = "3 " +  CHR$ (113) + "UELLE EST LA " +  CHR$ (114) + "ESSEMBLANCE ?"
+34 B$(4) = "4 " +  CHR$ (114) + "EPRESENTE MON " +  CHR$ (99) + "ONTRAIRE"
+35 B$(5) = "5 " +  CHR$ (113) + "UI VIENT " +  CHR$ (101) + "NSUITE ?"
+36 B$(6) = "6 " +  CHR$ (112) + "ARADE DES " +  CHR$ (109) + "ARIONNETTES"
+37 B$(7) = "7 " +  CHR$ (99) + "LUB DES " +  CHR$ (109) + "ARIONNETTES"
+38 B$(8) = "8 " +  CHR$ (115) + "ON "
+39 B$(9) = "9 " +  CHR$ (102) + CHR$ (105) + CHR$(110): REM END
+41 NA$(1) = "REPRODUIS MON JUMEAU"
+42 NA$(2) = "QUI EST DIFFERENT"
+43 NA$(3) = "QUELLE EST LA RESSEMBLANCE"
+44 NA$(4) = "REPRESENTE MON CONTRAIRE"
+45 NA$(5) = "QUI VIENT ENSUITE"
+46 NA$(6) = "PARADE DES MARIONNETTES"
+47 NA$(7) = "CLUB DES MARIONNETTES"
+50  POKE  - 16368,0: GOTO 1000
+200  REM  ** PRINTER **
+210  POKE XX,X: POKE YY,Y: POKE CC,C: CALL LG: REM  LARGE CHARACTERS
+212  RETURN 
+220  POKE XX,X: POKE YY,Y: POKE WM,M: CALL MG: REM  MOPPETS
+222  RETURN 
+230  POKE XX,X: POKE YY,Y: POKE CC,C: CALL SG: REM  SMALL CHARACTERS
+232  RETURN 
+400  REM  ** MUSIC FOR MENU **
+402 SF = 0
+410  IF  PEEK (SOUND) = (NO) THEN  POKE SOUND,YES:SF = 1: REM  SOUND FLAG
+420  POKE 768,N: POKE 769,T: CALL 770: RETURN 
+430 T1 = 10:T2 = 20:T3 = 40: IF MUSIC = YES THEN 440
+434 N = 96:T = T1: GOSUB 400:N = 85:T = T1: GOSUB 420:N = 76:T = T1: GOSUB 420
+436  IF SF = 1 THEN SF = 0: POKE SOUND,NO
+438  RETURN 
+440 N = 76:T = T1: GOSUB 400:N = 85:T = T1: GOSUB 420:N = 96:T = T1: GOSUB 420
+442  IF SF = 1 THEN SF = 0: POKE SOUND,NO
+444  RETURN 
+448  RETURN 
+500  REM  ** PRINT TITLES **
+510 X = 2:Y = 48:C = 3:XS = X
+512  FOR I = 1 TO 7:B$ = B$(I): GOSUB 230
+514 Y = Y + 16
+516  NEXT I
+518 B$ = B$(8):C = 1:X = 2:Y = 172: GOSUB 200:YS = Y
+520 B$ = B$(9):Y = Y + 16:C = 6: GOSUB 210
+522 B$ =  CHR$ (102) + "AIS TON CHOIX :":X = 2:Y = 26:C = 0: GOSUB 200
+523  HCOLOR= 3: HPLOT 14,10 TO 237,10
+524  HCOLOR= 1: HPLOT 1,0 TO 279,0 TO 279,191 TO 1,191 TO 1,0: HPLOT 3,1 TO 277,1 TO 277,190 TO 3,190 TO 3,1
+530 X = XS + 12:Y = YS: IF  PEEK (SOUND) = (NO) THEN 540
+532 B$ = CHR$(109) + CHR$(97) + CHR$(114):C = 0: GOSUB 210
+534 B$ = "/" + CHR$(97) + CHR$(114) + CHR$(114):C = 3:X = X + 6: GOSUB 210
+536  RETURN 
+540 B$ = CHR$(109) + CHR$(97) + CHR$(114) + "/":C = 3: GOSUB 210
+542 B$ = CHR$(97) + CHR$(114) + CHR$(114):C = 0:X = X + 8: GOSUB 210
+544  RETURN 
+900  REM  ** SLOT FINDER **
+910 NS = 0: FOR I = 7 TO 1 STEP  - 1
+920 SLOTADDRESS = 49153 + 256 * I
+930  IF  PEEK (SL) = 32 THEN  IF  PEEK (SL + 2) = 0 THEN  IF  PEEK (SL + 4) = 3 THEN  IF  PEEK (SL + 6) = 60 THEN NS = I
+940  NEXT I: RETURN 
+1000  REM  ** MAIN PROGRAM **
+1010  HGR : POKE  - 16302,0: REM  FULL SCREEN GRAPHICS
+1012  GOSUB 500
+1020  POKE  - 16368,0: GET IN$
+1022  IF IN$ = "9" THEN 1500: REM END
+1024  IF IN$ = "8" THEN 1050: REM CHANGE SOUND  
+1030 IN =  VAL (IN$): IF IN < 1 OR IN > 7 THEN 1020
+1032  GOTO 1100: REM  LOAD PROGRAM
+1050  REM   ** TOGGLE SOUND **
+1052 MUSIC =  PEEK (SOUND): IF MUSIC = YES THEN  POKE SOUND,NO
+1054  IF MUSIC = (NO) THEN  POKE SOUND,YES
+1056  GOSUB 530: GOSUB 430
+1058  GOTO 1020
+1100  HOME : POKE 34,20: HOME 
+1102  HCOLOR= 0: FOR I = 146 TO 160: HPLOT 0,I TO 279,I: NEXT 
+1106  POKE  - 16301,0
+1110  FLASH : PRINT "CHARGEMENT";: NORMAL : PRINT " : ";NA$(IN)
+1120  PRINT : HTAB 2: PRINT "<ESC> POUR ARRETER UN JEU,": HTAB 2: PRINT "'?' TE MONTRERA LES INSTRUCTIONS.";
+1130  VTAB 1: PRINT 
+1140  POKE 791,2: PRINT  CHR$ (4);"RUN";NA$(IN)
+1500  REM  ** END OF PROGRAM **
+1510  TEXT : HOME : POKE 32,5: VTAB 8
+1512  PRINT "POUR FINIR, INSERE UN AUTRE DISQUE,"
+1514  PRINT : PRINT "PUIS APPUIE SUR <ESC>."
+1520  VTAB 18: PRINT "POUR RETOURNER AUX JEUX,"
+1522  PRINT : PRINT "APPUIE SUR <RETURN>. ";
+1530  GET IN$: IF IN$ =  CHR$ (27) THEN 1550
+1532  IF IN$ <  >  CHR$ (13) THEN 1530
+1534  TEXT : HOME : POKE  - 16302,0: POKE  - 16304,0: GOTO 1020
+1550  GOSUB 900: REM  FIND SLOT 
+1560  TEXT : HOME : PRINT : POKE 791,2: PRINT  CHR$ (4);"PR#";NS
+10000  REM  ** ERROR ROUTINE **
+10010  CALL 37632
diff --git a/laparadedesmarionnettes/basic/PARADE DES MARIONNETTES.BAS b/laparadedesmarionnettes/basic/PARADE DES MARIONNETTES.BAS
new file mode 100644
index 0000000..00b6233
--- /dev/null
+++ b/laparadedesmarionnettes/basic/PARADE DES MARIONNETTES.BAS	
@@ -0,0 +1,176 @@
+0  ONERR  GOTO 10000
+1  POKE 791,32
+5 D$ =  CHR$ (4): TEXT : POKE  - 16300,0: POKE  - 16298,0
+7  REM  MOPTOWN PARADE, COPYRIGHT 1981, LESLIE M. GRIMM
+8  PRINT D$;"BLOAD MOPTOWN PARADE.LPIC,A$5000": GR : CALL 815
+10  DIM P$(20),N(12)
+20  DIM PP$(17):PP$(1) = "GGRB":PP$(2) = "GGRG":PP$(3) = "GGBB":PP$(4) = "GGBG":PP$(5) = "GMRB":PP$(6) = "GMRG":PP$(7) = "GMBB":PP$(8) = "GMBG"
+22 PP$(9) = "PGRB":PP$(10) = "PGRG":PP$(11) = "PGBB":PP$(12) = "PGBG":PP$(13) = "PMRB":PP$(14) = "PMRG":PP$(15) = "PMBB":PP$(16) = "PMBG"
+24 N(1) = 192:N(2) = 152:N(3) = 128:N(4) = 96:N(5) = 76:N(6) = 64:N(7) = 48:N(8) = 37:N(9) = 31:N(10) = 23
+32  GOSUB 310
+40  VTAB 24: PRINT "VEUX-TU DES INSTRUCTIONS? (O OU N) ";
+42  GOSUB 60: IF  ASC (IN$) = 27 THEN  GOSUB 520:IN$ = ""
+44  IF IN$ <  > "O" AND IN$ <  > "N" THEN  HOME : GOTO 40
+46  IF IN$ = "O" THEN  GOSUB 2000
+50  GOTO 1000
+60  GET IN$: IF  LEN (IN$) < 1 THEN 60
+62  RETURN 
+100  COLOR= 14: PLOT X + 3,Y + 1: HLIN X + 3,X + 6 AT Y + 2: HLIN X + 3,X + 4 AT Y + 3: PLOT X + 6,Y + 3: HLIN X + 2,X + 6 AT Y + 14: PLOT X + 6,Y + 13: COLOR= 9: PLOT X + 4,Y + 1
+102  COLOR= 1: VLIN Y + 4,Y + 13 AT X + 3: VLIN Y + 4,Y + 13 AT X + 4: VLIN Y + 5,Y + 8 AT X + 5: RETURN 
+104  COLOR= 14: HLIN X + 2,X + 3 AT Y + 1: HLIN X + 2,X + 4 AT Y + 2: PLOT X + 3,Y + 3: HLIN X + 3,X + 5 AT Y + 14: PLOT X + 1,Y + 8: PLOT X + 2,Y + 9: COLOR= 9: PLOT X + 4,Y + 1
+106  COLOR= 1: VLIN Y + 4,Y + 13 AT X + 3: VLIN Y + 4,Y + 13 AT X + 4: VLIN Y + 5,Y + 8 AT X + 5: RETURN 
+110  COLOR= 14: PLOT X + 3,Y + 1: HLIN X + 3,X + 6 AT Y + 2: HLIN X + 3,X + 4 AT Y + 3: PLOT X + 6,Y + 3: HLIN X + 2,X + 6 AT Y + 14: PLOT X + 6,Y + 13: COLOR= 9: PLOT X + 4,Y + 1
+112  COLOR= 6: VLIN Y + 4,Y + 13 AT X + 3: VLIN Y + 4,Y + 13 AT X + 4: VLIN Y + 5,Y + 8 AT X + 5: RETURN 
+114  COLOR= 14: HLIN X + 2,X + 3 AT Y + 1: HLIN X + 2,X + 4 AT Y + 2: PLOT X + 3,Y + 3: HLIN X + 3,X + 5 AT Y + 14: PLOT X + 1,Y + 8: PLOT X + 2,Y + 9: COLOR= 9: PLOT X + 4,Y + 1
+116  COLOR= 6: VLIN Y + 4,Y + 13 AT X + 3: VLIN Y + 4,Y + 13 AT X + 4: VLIN Y + 5,Y + 8 AT X + 5: RETURN 
+120  COLOR= 14: PLOT X + 3,Y + 1: HLIN X + 3,X + 6 AT Y + 2: HLIN X + 3,X + 4 AT Y + 3: PLOT X + 6,Y + 3: HLIN X + 2,X + 6 AT Y + 14: PLOT X + 6,Y + 13: COLOR= 9: PLOT X + 4,Y + 1
+122  COLOR= 1: VLIN Y + 4,Y + 13 AT X + 3: RETURN 
+124  COLOR= 14: HLIN X + 2,X + 3 AT Y + 1: HLIN X + 2,X + 4 AT Y + 2: PLOT X + 3,Y + 3: HLIN X + 3,X + 5 AT Y + 14: PLOT X + 1,Y + 8: PLOT X + 2,Y + 9: COLOR= 9: PLOT X + 4,Y + 1
+126  COLOR= 1: VLIN Y + 4,Y + 13 AT X + 3: RETURN 
+130  COLOR= 14: PLOT X + 3,Y + 1: HLIN X + 3,X + 6 AT Y + 2: HLIN X + 3,X + 4 AT Y + 3: PLOT X + 6,Y + 3: HLIN X + 2,X + 6 AT Y + 14: PLOT X + 6,Y + 13: COLOR= 9: PLOT X + 4,Y + 1
+132  COLOR= 6: VLIN Y + 4,Y + 13 AT X + 3: RETURN 
+134  COLOR= 14: HLIN X + 2,X + 3 AT Y + 1: HLIN X + 2,X + 4 AT Y + 2: PLOT X + 3,Y + 3: HLIN X + 3,X + 5 AT Y + 14: PLOT X + 1,Y + 8: PLOT X + 2,Y + 9: COLOR= 9: PLOT X + 4,Y + 1
+136  COLOR= 6: VLIN Y + 4,Y + 13 AT X + 3: RETURN 
+140  COLOR= 14: HLIN X + 3,X + 6 AT Y + 5: HLIN X + 3,X + 4 AT Y + 6: PLOT X + 3,Y + 4: PLOT X + 6,Y + 6: HLIN X + 2,X + 6 AT Y + 14: PLOT X + 6,Y + 13: COLOR= 9: PLOT X + 4,Y + 4
+142  COLOR= 1: VLIN Y + 7,Y + 13 AT X + 3: VLIN Y + 7,Y + 13 AT X + 4: VLIN Y + 8,Y + 10 AT X + 5: RETURN 
+144  COLOR= 14: HLIN X + 2,X + 3 AT Y + 4: HLIN X + 2,X + 4 AT Y + 5: PLOT X + 3,Y + 6: HLIN X + 3,X + 5 AT Y + 14: PLOT X + 1,Y + 10: PLOT X + 2,Y + 11: COLOR= 9: PLOT X + 4,Y + 4
+146  COLOR= 1: VLIN Y + 7,Y + 13 AT X + 3: VLIN Y + 7,Y + 13 AT X + 4: VLIN Y + 8,Y + 10 AT X + 5: RETURN 
+150  COLOR= 14: HLIN X + 3,X + 6 AT Y + 5: HLIN X + 3,X + 4 AT Y + 6: PLOT X + 3,Y + 4: PLOT X + 6,Y + 6: HLIN X + 2,X + 6 AT Y + 14: PLOT X + 6,Y + 13: COLOR= 9: PLOT X + 4,Y + 4
+152  COLOR= 6: VLIN Y + 7,Y + 13 AT X + 3: VLIN Y + 7,Y + 13 AT X + 4: VLIN Y + 8,Y + 10 AT X + 5: RETURN 
+154  COLOR= 14: HLIN X + 2,X + 3 AT Y + 4: HLIN X + 2,X + 4 AT Y + 5: PLOT X + 3,Y + 6: HLIN X + 3,X + 5 AT Y + 14: PLOT X + 1,Y + 10: PLOT X + 2,Y + 11: COLOR= 9: PLOT X + 4,Y + 4
+156  COLOR= 6: VLIN Y + 7,Y + 13 AT X + 3: VLIN Y + 7,Y + 13 AT X + 4: VLIN Y + 8,Y + 10 AT X + 5: RETURN 
+160  COLOR= 14: HLIN X + 3,X + 6 AT Y + 5: HLIN X + 3,X + 4 AT Y + 6: PLOT X + 3,Y + 4: PLOT X + 6,Y + 6: HLIN X + 2,X + 6 AT Y + 14: PLOT X + 6,Y + 13: COLOR= 9: PLOT X + 4,Y + 4
+162  COLOR= 1: VLIN Y + 7,Y + 13 AT X + 3: RETURN 
+164  COLOR= 14: HLIN X + 2,X + 3 AT Y + 4: HLIN X + 2,X + 4 AT Y + 5: PLOT X + 3,Y + 6: HLIN X + 3,X + 5 AT Y + 14: PLOT X + 1,Y + 10: PLOT X + 2,Y + 11: COLOR= 9: PLOT X + 4,Y + 4
+166  COLOR= 1: VLIN Y + 7,Y + 13 AT X + 3: RETURN 
+170  COLOR= 14: HLIN X + 3,X + 6 AT Y + 5: HLIN X + 3,X + 4 AT Y + 6: PLOT X + 3,Y + 4: PLOT X + 6,Y + 6: HLIN X + 2,X + 6 AT Y + 14: PLOT X + 6,Y + 13: COLOR= 9: PLOT X + 4,Y + 4
+172  COLOR= 6: VLIN Y + 7,Y + 13 AT X + 3: RETURN 
+174  COLOR= 14: HLIN X + 2,X + 3 AT Y + 4: HLIN X + 2,X + 4 AT Y + 5: PLOT X + 3,Y + 6: HLIN X + 3,X + 5 AT Y + 14: PLOT X + 1,Y + 10: PLOT X + 2,Y + 11: COLOR= 9: PLOT X + 4,Y + 4
+176  COLOR= 6: VLIN Y + 7,Y + 13 AT X + 3: RETURN 
+180  COLOR= C1: FOR I = X TO X + 7: VLIN Y,Y + 14 AT I: NEXT I: RETURN 
+182  COLOR= 13: HLIN X + 3,X + 6 AT Y + 6: VLIN Y + 7,Y + 8 AT X + 6: VLIN Y + 10,Y + 11 AT X + 4: PLOT X + 5,Y + 9: PLOT X + 4,Y + 13: RETURN 
+191  COLOR= 13: VLIN Y + 1,Y + 5 AT X + 3: RETURN 
+192  COLOR= 13: HLIN X + 2,X + 4 AT Y + 1: HLIN X + 2,X + 4 AT Y + 5: PLOT X + 4,Y + 2: PLOT X + 3,Y + 3: PLOT X + 2,Y + 4: RETURN 
+193  COLOR= 13: HLIN X + 2,X + 4 AT Y + 1: HLIN X + 3,X + 4 AT Y + 3: HLIN X + 2,X + 4 AT Y + 5: VLIN Y + 2,Y + 4 AT X + 4: RETURN 
+194  COLOR= 13: VLIN Y + 1,Y + 4 AT X + 2: VLIN Y + 1,Y + 5 AT X + 4: PLOT X + 3,Y + 4: PLOT X + 5,Y + 4: RETURN 
+195  COLOR= 0: FOR I = Y TO Y + 5: HLIN X,X + 6 AT I: NEXT I: RETURN 
+196 COLOR= 2: VLIN Y + 1,Y + 5 AT X + 1: VLIN Y + 4,Y + 5 AT X + 3: VLIN Y + 1,Y + 2 AT X + 3: PLOT X + 2,Y + 1: PLOT X + 2,Y + 3: VLIN Y + 1,Y + 5 AT X + 5: HLIN X + 6,X + 7 AT Y + 1: 
+197 HLIN X + 6,X + 7 AT Y + 5: PLOT X + 6,Y + 3: HLIN X + 9,X + 11 AT Y + 1: VLIN Y + 1,Y + 5 AT X + 9: VLIN Y + 3,Y + 5 AT X + 11: PLOT X + 10,Y + 5: VLIN Y + 1,Y + 5 AT X + 13: 
+198 HLIN X + 14,X + 15 AT Y + 5: VLIN Y + 1,Y + 5 AT X + 17: HLIN X + 18,X + 19 AT Y + 1: HLIN X + 18,X + 19 AT Y + 5: PLOT X + 18,Y + 3: PLOT X + 21,Y + 2: PLOT X + 21,Y + 4: RETURN
+200  COLOR= 0: FOR I = 0 TO 10: HLIN 0,39 AT I: NEXT I: HLIN 0,39 AT 21
+202 X = 0:Y = 22: IF  LEFT$ (P$(1),1) = "S" THEN Y = Y + 3
+204  IF  MID$ (P$(1),2,1) = "T" THEN X = X - 1
+206  COLOR= 8: HLIN X + 6,X + 8 AT Y + 7: HLIN X + 6,X + 8 AT Y + 8: COLOR= 14: HLIN X + 4,X + 6 AT Y + 6: PLOT X + 4,Y + 5: COLOR= 13: PLOT X + 7,Y + 5: PLOT X + 8,Y + 4
+210 X = 8:Y = 22: IF  LEFT$ (P$(2),1) = "S" THEN Y = Y + 3
+212  COLOR= 13: VLIN Y + 6,Y + 8 AT X + 8: VLIN Y + 5,Y + 6 AT X + 7: PLOT X + 6,Y + 4: PLOT X + 5,Y + 3: COLOR= 14: HLIN X + 4,X + 6 AT Y + 6
+220 X = 16:Y = 22: IF  LEFT$ (P$(3),1) = "S" THEN Y = Y + 3
+222  COLOR= 13: HLIN X + 5,X + 7 AT Y + 3: VLIN Y + 2,Y + 4 AT X + 8: COLOR= 14: HLIN X + 4,X + 6 AT Y + 6: VLIN Y + 3,Y + 6 AT X + 6
+230 X = 24:Y = 22: IF  LEFT$ (P$(4),1) = "S" THEN Y = Y + 2
+232  COLOR= 10: VLIN Y + 5,Y + 9 AT X + 7: COLOR= 15: PLOT X + 7,Y + 4: PLOT X + 7,Y + 10: COLOR= 14: HLIN X + 4,X + 7 AT Y + 7
+240 X = 32:Y = 22: IF  LEFT$ (P$(5),1) = "S" THEN Y = Y + 2
+242  COLOR= 8: VLIN Y - 7,Y + 9 AT X + 7: COLOR= 14: HLIN X + 4,X + 7 AT Y + 7: COLOR= 1: FOR I = Y - 7 TO Y - 4: HLIN X + 3,X + 6 AT I: NEXT I
+244  COLOR= 4: HLIN X - 2,X + 2 AT Y - 7: HLIN X - 2,X + 2 AT Y - 5: HLIN X - 2,X + 6 AT Y - 3: HLIN X - 2,X + 6 AT Y - 1
+246  COLOR= 15: HLIN X - 2,X + 2 AT Y - 6: HLIN X - 2,X + 2 AT Y - 4: HLIN X - 2,X + 6 AT Y - 2: COLOR= 13: PLOT X + 7,Y - 8
+250  GOSUB 310: RETURN 
+300  POKE 768,N: POKE 769,T: CALL 770: RETURN 
+310  FOR I = 1 TO 11: READ N,T: GOSUB 300: NEXT I: RESTORE : RETURN 
+312  DATA    54,140,64,140,81,120,81,120,81,120 
+314  DATA  96,60,108,60,81, 80,72,100,85, 60,81,160 
+320 T = 10:N = 64: GOSUB 300:N = 57: GOSUB 300:N = 51: GOSUB 300:N = 48: GOSUB 300: RETURN 
+322 T = 80:N = 64: GOSUB 300:N = 96: GOSUB 300: RETURN 
+400  IF P$ = "GGRB" THEN  GOSUB 100: RETURN 
+402  IF P$ = "GGRG" THEN  GOSUB 104: RETURN 
+404  IF P$ = "GGBB" THEN  GOSUB 110: RETURN 
+406  IF P$ = "GGBG" THEN  GOSUB 114: RETURN 
+408  IF P$ = "GMRB" THEN  GOSUB 120: RETURN 
+410  IF P$ = "GMRG" THEN  GOSUB 124: RETURN 
+412  IF P$ = "GMBB" THEN  GOSUB 130: RETURN 
+414  IF P$ = "GMBG" THEN  GOSUB 134: RETURN 
+416  IF P$ = "PGRB" THEN  GOSUB 140: RETURN 
+418  IF P$ = "PGRG" THEN  GOSUB 144: RETURN 
+420  IF P$ = "PGBB" THEN  GOSUB 150: RETURN 
+422  IF P$ = "PGBG" THEN  GOSUB 154: RETURN 
+424  IF P$ = "PMRB" THEN  GOSUB 160: RETURN 
+426  IF P$ = "PMRG" THEN  GOSUB 164: RETURN 
+428  IF P$ = "PMBB" THEN  GOSUB 170: RETURN 
+430  IF P$ = "PMBG" THEN  GOSUB 174: RETURN 
+500  GOSUB 60: IF IN$ = "" THEN 500
+502  IF  ASC (IN$) = 27 THEN  GOSUB 520:IN$ = "ESC": RETURN 
+504  IF IN$ = "?" THEN  GOSUB 2000: POP : POP : GOTO 1000
+506  RETURN 
+510  GOSUB 60: IF  ASC (IN$) <  > 13 AND  ASC (IN$) <  > 27 AND IN$ <  > "?" THEN 510
+512  IF  ASC (IN$) = 27 THEN  GOSUB 520: RETURN 
+514  IF IN$ = "?" THEN  GOSUB 2000: POP : GOTO 1000
+516  RETURN 
+520  HOME : PRINT "VEUX-TU T'ARRETER ? (O/N) ";
+522  GET IN$: IF IN$ <  > "O" AND IN$ <  > "N" THEN 522
+524  IF IN$ = "O" THEN 1500
+526  RETURN 
+530  GOSUB 60: IF IN$ = "?" THEN  GOSUB 2000: POP : GOTO 1000
+532  IF  ASC (IN$) = 27 THEN  GOSUB 520:IN$ = "": RETURN 
+534  RETURN 
+600  POKE 34,20: HOME : PRINT "QUI VIENT ENSUITE ?": PRINT : PRINT "GRAND OU PETIT ? (G OU P) ";
+602  GOSUB 500: IF IN$ = "ESC" THEN  GOTO 600
+603  IF IN$ =  CHR$ (8) THEN 600: REM  ARROW
+604  IF IN$ <  > "G" AND IN$ <  > "P" THEN 602
+606 G1$ = IN$:GA$ = "GRAND": IF G1$ = "P" THEN GA$ = "PETIT"
+608  HOME : VTAB 21: PRINT GA$: POKE 34,22
+610  HOME : PRINT "GROS OU MINCE ? (G OU M) ";
+612  GOSUB 500: IF IN$ = "ESC" THEN  GOTO 610
+613  IF IN$ =  CHR$ (8) THEN 600
+614  IF IN$ <  > "G" AND IN$ <  > "M" THEN 612
+616 G2$ = IN$:GB$ = "GROS": IF G2$ = "M" THEN GB$ = "MINCE"
+618  HOME : VTAB 21: PRINT GA$;", ";GB$
+620  HOME : PRINT "ROUGE OU BLEU ? (R OU B) ";
+622  GOSUB 500: IF IN$ = "ESC" THEN 620
+623  IF IN$ =  CHR$ (8) THEN 600
+624  IF IN$ <  > "R" AND IN$ <  > "B" THEN 622
+626 G3$ = IN$:GC$ = "ROUGE": IF G3$ = "B" THEN GC$ = "BLEU"
+628  HOME : VTAB 21: PRINT GA$;", ";GB$;", ";GC$
+630  HOME : PRINT "BIBBIT OU GRIBBIT? (B OU G) ";
+632  GOSUB 500: IF IN$ = "ESC" THEN  GOTO 630
+633  IF IN$ =  CHR$ (8) THEN 600
+634  IF IN$ <  > "B" AND IN$ <  > "G" THEN 632
+636 G4$ = IN$:GD$ = "BIBBIT": IF G4$ = "G" THEN GD$ = "GRIBBIT"
+638  HOME : VTAB 21: PRINT GA$;", ";GB$;", ";GC$;" ";GD$
+640 GUESS$ = G1$ + G2$ + G3$ + G4$: RETURN 
+1000  GR : HOME :RU = 1:C = 1
+1002  COLOR= 13: HLIN 0,39 AT 21: HLIN 0,39 AT 37
+1004 Y = 2:X = 5: GOSUB 196:X = 28: GOSUB 191
+1006 X = 0:Y = 22
+1010 A =  INT ( RND (1) * 16) + 1:P$(1) = PP$(A):P$ = P$(1): GOSUB 400:X = X + 8: GOSUB 182
+1100  HOME : PRINT "VEUX-TU CHANGER CETTE REGLE ?": PRINT : PRINT "(TAPE O OU N) ";
+1102  GOSUB 530: IF IN$ <  > "O" AND IN$ <  > "N" THEN 1100
+1104  IF IN$ = "N" THEN  GOTO 1110
+1106  HOME : PRINT "COMBIEN DE TRAITS VEUX-TU CHANGER ? ": PRINT : PRINT "(TAPE UN CHIFFRE DE 1 A 4) ";
+1108  GOSUB 530:IN =  VAL (IN$): IF IN < 1 OR IN > 4 THEN 1106
+1109 RU = IN:Y = 2:X = 28: GOSUB 195: ON IN GOSUB 191,192,193,194:X = 8:Y = 22
+1110  GOSUB 600
+1116 P$ = GUESS$: GOSUB 180: GOSUB 400: POKE 34,20
+1120 FLAG = 0: FOR I = 1 TO 4: IF  MID$ (P$(C),I,1) <  >  MID$ (P$,I,1) THEN FLAG = FLAG + 1
+1122  NEXT I: IF FLAG = RU THEN C = C + 1:P$(C) = P$: GOSUB 320: GOTO 1140
+1130  GOSUB 322: HOME : PRINT "TON MOPPET EST DIFFERENT ";: IF FLAG = 1 THEN  PRINT "D'UNE FACON."
+1132  IF FLAG <  > 1 THEN  PRINT "DE ";FLAG;" FACONS."
+1136  VTAB 23: PRINT "APPUIE SUR <RETURN> ET RECOMMENCE. ";
+1138  GOSUB 510: GOSUB 180: GOSUB 182: GOTO 1110
+1140 X = X + 8: IF X > 32 AND Y < 18 THEN X = 0:Y = Y + 18
+1142  IF X > 32 AND Y > 10 THEN 1200
+1144  GOSUB 182: GOTO 1110
+1200  HOME : PRINT : HTAB 11: PRINT "VOICI LA PARADE !": GOSUB 200
+1210  PRINT : PRINT "VEUX-TU REJOUER ? (O OU N) ";
+1212  GET IN$: IF IN$ <  > "O" AND IN$ <  > "N" THEN 1212
+1214  IF IN$ = "O" THEN 1000
+1500  TEXT : HOME : PRINT : POKE 791,2: PRINT  CHR$ (4);"RUN MENU"
+2000  REM   ** INSTRUCTIONS **
+2002  TEXT : HOME : VTAB 2: INVERSE : PRINT ">>>>>>>>>>>>>>>>>>>><<<<<<<<<<<<<<<<<<<<";
+2004  VTAB 23: PRINT ">>>>>>>>>>>>>>>>>>>><<<<<<<<<<<<<<<<<<<<";: NORMAL 
+2006  POKE 32,5: POKE 33,30: POKE 34,5: POKE 35,20: REM   WINDOW
+2008  POKE 48,30: VLIN 4,43 AT 0: VLIN 4,43 AT 39: HOME 
+2010  PRINT "LA PARADE DES MARIONNETTES !"
+2012  PRINT : PRINT : PRINT "CHAQUE MOPPET DOIT ETRE":PRINT"DIFFERENT DU PRECEDENT."
+2014  PRINT : PRINT "COMMENCE PAR CHOISIR UNE REGLEPOUR DEFINIR LE NOMBRE DE":PRINT"TRAITS DIFFERENTS DES MOPPETS":PRINT"(1, 2, 3 OU 4)."
+2016  PRINT : PRINT "PUIS DECRIS LE MOPPET SUIVANT."
+2055  FOR I = 1 TO 2000: NEXT I: POKE  - 16368,0
+2060  VTAB 19: PRINT "APPUIE SUR <RETURN> POUR      JOUER. ";
+2062  GOSUB 510: TEXT : HOME : RETURN 
+10000  CALL 37632
diff --git a/laparadedesmarionnettes/basic/QUELLE EST LA RESSEMBLANCE.BAS b/laparadedesmarionnettes/basic/QUELLE EST LA RESSEMBLANCE.BAS
new file mode 100644
index 0000000..563b5ad
--- /dev/null
+++ b/laparadedesmarionnettes/basic/QUELLE EST LA RESSEMBLANCE.BAS	
@@ -0,0 +1,205 @@
+0  ONERR  GOTO 10000
+1  POKE 791,32
+5  REM  WHAT'S THE SAME?, COPYRIGHT 1981, LESLIE M. GRIMM
+10 D$ =  CHR$ (4): TEXT : HOME : POKE  - 16298,0
+14  PRINT D$;"BLOAD HOME SWEET HOME.LPIC,A$5000": GR : CALL 815
+16  PRINT : VTAB 23: PRINT "  FIND OUT WHAT'S THE SAME ABOUT THE": HTAB 9: PRINT "MOPPETS WHO LIVE HERE!";
+20  DIM PP$(17):PP$(1) = "TFRB":PP$(2) = "TFRG":PP$(3) = "TFBB":PP$(4) = "TFBG":PP$(5) = "TTRB":PP$(6) = "TTRG":PP$(7) = "TTBB":PP$(8) = "TTBG"
+22 PP$(9) = "SFRB":PP$(10) = "SFRG":PP$(11) = "SFBB":PP$(12) = "SFBG":PP$(13) = "STRB":PP$(14) = "STRG":PP$(15) = "STBB":PP$(16) = "STBG"
+24  DIM PA$(10):PA$(1) = "GRANDS !":PA$(2) = "PETITS !":PA$(3) = "GROS !":PA$(4) = "MINCES !":PA$(5) = "ROUGES !":PA$(6) = "BLEUS !":PA$(7) = "BIBBITS !":PA$(8) = "GRIBBITS !"
+26  FOR I = 1 TO 400: IF  PEEK ( - 16384) = 160 THEN I = 400
+28  NEXT I
+30  HOME : PRINT : PRINT "VEUX-TU DES INSTRUCTIONS? (O OU N) ";
+34  GOSUB 80: IF IN$ <  > "O" AND  ASC (IN$) <  > 27 AND IN$ <  > "N" THEN 34
+36  IF  ASC (IN$) = 27 THEN 60
+38  IF IN$ = "O" THEN  GOSUB 2000
+50  GOTO 1000
+60  HOME : PRINT "VEUX-TU T'ARRETER ? (O OU N) ";
+62  GOSUB 80: IF IN$ <  > "O" AND IN$ <  > "N" THEN 62
+64  IF IN$ = "O" THEN 1500
+66  GOTO 30
+80  GET IN$: IF  LEN (IN$) < 1 THEN 80
+82  RETURN 
+100  COLOR= 14: PLOT X + 3,Y + 1: HLIN X + 3,X + 6 AT Y + 2: HLIN X + 3,X + 4 AT Y + 3: PLOT X + 6,Y + 3: HLIN X + 2,X + 6 AT Y + 14: PLOT X + 6,Y + 13: COLOR= 9: PLOT X + 4,Y + 1
+101 TALL = TALL + 1:FA = FA + 1:RED = RED + 1:BOY = BOY + 1
+102  COLOR= 1: VLIN Y + 4,Y + 13 AT X + 3: VLIN Y + 4,Y + 13 AT X + 4: VLIN Y + 5,Y + 8 AT X + 5: RETURN 
+104  COLOR= 14: HLIN X + 2,X + 3 AT Y + 1: HLIN X + 2,X + 4 AT Y + 2: PLOT X + 3,Y + 3: HLIN X + 3,X + 5 AT Y + 14: PLOT X + 1,Y + 8: PLOT X + 2,Y + 9: COLOR= 9: PLOT X + 4,Y + 1
+105 TALL = TALL + 1:FA = FA + 1:RED = RED + 1:GIRL = GIRL + 1
+106  COLOR= 1: VLIN Y + 4,Y + 13 AT X + 3: VLIN Y + 4,Y + 13 AT X + 4: VLIN Y + 5,Y + 8 AT X + 5: RETURN 
+110  COLOR= 14: PLOT X + 3,Y + 1: HLIN X + 3,X + 6 AT Y + 2: HLIN X + 3,X + 4 AT Y + 3: PLOT X + 6,Y + 3: HLIN X + 2,X + 6 AT Y + 14: PLOT X + 6,Y + 13: COLOR= 9: PLOT X + 4,Y + 1
+111 TALL = TALL + 1:FA = FA + 1:BLUE = BLUE + 1:BOY = BOY + 1
+112  COLOR= 6: VLIN Y + 4,Y + 13 AT X + 3: VLIN Y + 4,Y + 13 AT X + 4: VLIN Y + 5,Y + 8 AT X + 5: RETURN 
+114  COLOR= 14: HLIN X + 2,X + 3 AT Y + 1: HLIN X + 2,X + 4 AT Y + 2: PLOT X + 3,Y + 3: HLIN X + 3,X + 5 AT Y + 14: PLOT X + 1,Y + 8: PLOT X + 2,Y + 9: COLOR= 9: PLOT X + 4,Y + 1
+115 TALL = TALL + 1:FA = FA + 1:BLUE = BLUE + 1:GIRL = GIRL + 1
+116  COLOR= 6: VLIN Y + 4,Y + 13 AT X + 3: VLIN Y + 4,Y + 13 AT X + 4: VLIN Y + 5,Y + 8 AT X + 5: RETURN 
+120  COLOR= 14: PLOT X + 3,Y + 1: HLIN X + 3,X + 6 AT Y + 2: HLIN X + 3,X + 4 AT Y + 3: PLOT X + 6,Y + 3: HLIN X + 2,X + 6 AT Y + 14: PLOT X + 6,Y + 13: COLOR= 9: PLOT X + 4,Y + 1
+121 TALL = TALL + 1:THIN = THIN + 1:RED = RED + 1:BOY = BOY + 1
+122  COLOR= 1: VLIN Y + 4,Y + 13 AT X + 3: RETURN 
+124  COLOR= 14: HLIN X + 2,X + 3 AT Y + 1: HLIN X + 2,X + 4 AT Y + 2: PLOT X + 3,Y + 3: HLIN X + 3,X + 5 AT Y + 14: PLOT X + 1,Y + 8: PLOT X + 2,Y + 9: COLOR= 9: PLOT X + 4,Y + 1
+125 TALL = TALL + 1:THIN = THIN + 1:RED = RED + 1:GIRL = GIRL + 1
+126  COLOR= 1: VLIN Y + 4,Y + 13 AT X + 3: RETURN 
+130  COLOR= 14: PLOT X + 3,Y + 1: HLIN X + 3,X + 6 AT Y + 2: HLIN X + 3,X + 4 AT Y + 3: PLOT X + 6,Y + 3: HLIN X + 2,X + 6 AT Y + 14: PLOT X + 6,Y + 13: COLOR= 9: PLOT X + 4,Y + 1
+131 TALL = TALL + 1:THIN = THIN + 1:BLUE = BLUE + 1:BOY = BOY + 1
+132  COLOR= 6: VLIN Y + 4,Y + 13 AT X + 3: RETURN 
+134  COLOR= 14: HLIN X + 2,X + 3 AT Y + 1: HLIN X + 2,X + 4 AT Y + 2: PLOT X + 3,Y + 3: HLIN X + 3,X + 5 AT Y + 14: PLOT X + 1,Y + 8: PLOT X + 2,Y + 9: COLOR= 9: PLOT X + 4,Y + 1
+135 TALL = TALL + 1:THIN = THIN + 1:BLUE = BLUE + 1:GIRL = GIRL + 1
+136  COLOR= 6: VLIN Y + 4,Y + 13 AT X + 3: RETURN 
+140  COLOR= 14: HLIN X + 3,X + 6 AT Y + 5: HLIN X + 3,X + 4 AT Y + 6: PLOT X + 3,Y + 4: PLOT X + 6,Y + 6: HLIN X + 2,X + 6 AT Y + 14: PLOT X + 6,Y + 13: COLOR= 9: PLOT X + 4,Y + 4
+141 SH = SH + 1:FA = FA + 1:RED = RED + 1:BOY = BOY + 1
+142  COLOR= 1: VLIN Y + 7,Y + 13 AT X + 3: VLIN Y + 7,Y + 13 AT X + 4: VLIN Y + 8,Y + 10 AT X + 5: RETURN 
+144  COLOR= 14: HLIN X + 2,X + 3 AT Y + 4: HLIN X + 2,X + 4 AT Y + 5: PLOT X + 3,Y + 6: HLIN X + 3,X + 5 AT Y + 14: PLOT X + 1,Y + 10: PLOT X + 2,Y + 11: COLOR= 9: PLOT X + 4,Y + 4
+145 SH = SH + 1:FA = FA + 1:RED = RED + 1:GIRL = GIRL + 1
+146  COLOR= 1: VLIN Y + 7,Y + 13 AT X + 3: VLIN Y + 7,Y + 13 AT X + 4: VLIN Y + 8,Y + 10 AT X + 5: RETURN 
+150  COLOR= 14: HLIN X + 3,X + 6 AT Y + 5: HLIN X + 3,X + 4 AT Y + 6: PLOT X + 3,Y + 4: PLOT X + 6,Y + 6: HLIN X + 2,X + 6 AT Y + 14: PLOT X + 6,Y + 13: COLOR= 9: PLOT X + 4,Y + 4
+151 SH = SH + 1:FA = FA + 1:BLUE = BLUE + 1:BOY = BOY + 1
+152  COLOR= 6: VLIN Y + 7,Y + 13 AT X + 3: VLIN Y + 7,Y + 13 AT X + 4: VLIN Y + 8,Y + 10 AT X + 5: RETURN 
+154  COLOR= 14: HLIN X + 2,X + 3 AT Y + 4: HLIN X + 2,X + 4 AT Y + 5: PLOT X + 3,Y + 6: HLIN X + 3,X + 5 AT Y + 14: PLOT X + 1,Y + 10: PLOT X + 2,Y + 11: COLOR= 9: PLOT X + 4,Y + 4
+155 SH = SH + 1:FA = FA + 1:BLUE = BLUE + 1:GIRL = GIRL + 1
+156  COLOR= 6: VLIN Y + 7,Y + 13 AT X + 3: VLIN Y + 7,Y + 13 AT X + 4: VLIN Y + 8,Y + 10 AT X + 5: RETURN 
+160  COLOR= 14: HLIN X + 3,X + 6 AT Y + 5: HLIN X + 3,X + 4 AT Y + 6: PLOT X + 3,Y + 4: PLOT X + 6,Y + 6: HLIN X + 2,X + 6 AT Y + 14: PLOT X + 6,Y + 13: COLOR= 9: PLOT X + 4,Y + 4
+161 SH = SH + 1:THIN = THIN + 1:RED = RED + 1:BOY = BOY + 1
+162  COLOR= 1: VLIN Y + 7,Y + 13 AT X + 3: RETURN 
+164  COLOR= 14: HLIN X + 2,X + 3 AT Y + 4: HLIN X + 2,X + 4 AT Y + 5: PLOT X + 3,Y + 6: HLIN X + 3,X + 5 AT Y + 14: PLOT X + 1,Y + 10: PLOT X + 2,Y + 11: COLOR= 9: PLOT X + 4,Y + 4
+165 SH = SH + 1:THIN = THIN + 1:RED = RED + 1:GIRL = GIRL + 1
+166  COLOR= 1: VLIN Y + 7,Y + 13 AT X + 3: RETURN 
+170  COLOR= 14: HLIN X + 3,X + 6 AT Y + 5: HLIN X + 3,X + 4 AT Y + 6: PLOT X + 3,Y + 4: PLOT X + 6,Y + 6: HLIN X + 2,X + 6 AT Y + 14: PLOT X + 6,Y + 13: COLOR= 9: PLOT X + 4,Y + 4
+171 SH = SH + 1:THIN = THIN + 1:BLUE = BLUE + 1:BOY = BOY + 1
+172  COLOR= 6: VLIN Y + 7,Y + 13 AT X + 3: RETURN 
+174  COLOR= 14: HLIN X + 2,X + 3 AT Y + 4: HLIN X + 2,X + 4 AT Y + 5: PLOT X + 3,Y + 6: HLIN X + 3,X + 5 AT Y + 14: PLOT X + 1,Y + 10: PLOT X + 2,Y + 11: COLOR= 9: PLOT X + 4,Y + 4
+175 SH = SH + 1:THIN = THIN + 1:BLUE = BLUE + 1:GIRL = GIRL + 1
+176  COLOR= 6: VLIN Y + 7,Y + 13 AT X + 3: RETURN 
+180  COLOR= 0: FOR I = X TO X + 7: VLIN Y,Y + 14 AT I: NEXT I: RETURN 
+190  HLIN 2,37 AT 39: HLIN 2,37 AT 5: HLIN 2,37 AT 22: VLIN 5,39 AT 20: VLIN 5,39 AT 2: VLIN 5,39 AT 37
+192  HLIN 19,21 AT 0: HLIN 16,19 AT 1: HLIN 21,24 AT 1: HLIN 9,16 AT 2: HLIN 24,31 AT 2: HLIN 5,9 AT 3: HLIN 31,35 AT 3: HLIN 0,5 AT 4: HLIN 35,39 AT 4: RETURN 
+200 T = 10
+210  FOR I = 1 TO 10
+220  COLOR=  INT ( RND (1) * 15) + 1: GOSUB 190
+230 N =  INT ( RND (1) * 128) + 20: GOSUB 300
+250  NEXT I: RETURN 
+300  POKE 768,N: POKE 769,T: CALL 770: RETURN 
+310 T = 10:N =  INT ( RND (1) * 128) + 20: GOSUB 300: RETURN 
+320 N = 64:T = 40: GOSUB 300: GOSUB 300:N = 96:T = 80: GOSUB 300: RETURN 
+330 N = 64:T = 40: GOSUB 300: GOSUB 300:N = 48:T = 80: GOSUB 300: RETURN 
+400 A =  INT ( RND (1) * 8) + 1: ON A GOSUB 100,104,110,114,120,124,130,134: GOSUB 310: RETURN 
+402 A =  INT ( RND (1) * 8) + 1: ON A GOSUB 140,144,150,154,160,164,170,174: GOSUB 310: RETURN 
+404 A =  INT ( RND (1) * 8) + 1: ON A GOSUB 100,104,110,114,140,144,150,154: GOSUB 310: RETURN 
+406 A =  INT ( RND (1) * 8) + 1: ON A GOSUB 120,124,130,134,160,164,170,174: GOSUB 310: RETURN 
+408 A =  INT ( RND (1) * 8) + 1: ON A GOSUB 100,104,120,124,140,144,160,164: GOSUB 310: RETURN 
+410 A =  INT ( RND (1) * 8) + 1: ON A GOSUB 110,114,130,134,150,154,170,174: GOSUB 310: RETURN 
+412 A =  INT ( RND (1) * 8) + 1: ON A GOSUB 100,110,120,130,140,150,160,170: GOSUB 310: RETURN 
+414 A =  INT ( RND (1) * 8) + 1: ON A GOSUB 104,114,124,134,144,154,164,174: GOSUB 310: RETURN 
+450  IF P$ = "TFRB" THEN  GOSUB 100: RETURN 
+452  IF P$ = "TFRG" THEN  GOSUB 104: RETURN 
+454  IF P$ = "TFBB" THEN  GOSUB 110: RETURN 
+456  IF P$ = "TFBG" THEN  GOSUB 114: RETURN 
+458  IF P$ = "TTRB" THEN  GOSUB 120: RETURN 
+460  IF P$ = "TTRG" THEN  GOSUB 124: RETURN 
+462  IF P$ = "TTBB" THEN  GOSUB 130: RETURN 
+464  IF P$ = "TTBG" THEN  GOSUB 134: RETURN 
+466  IF P$ = "SFRB" THEN  GOSUB 140: RETURN 
+468  IF P$ = "SFRG" THEN  GOSUB 144: RETURN 
+470  IF P$ = "SFBB" THEN  GOSUB 150: RETURN 
+472  IF P$ = "SFBG" THEN  GOSUB 154: RETURN 
+474  IF P$ = "STRB" THEN  GOSUB 160: RETURN 
+476  IF P$ = "STRG" THEN  GOSUB 164: RETURN 
+478  IF P$ = "STBB" THEN  GOSUB 170: RETURN 
+480  IF P$ = "STBG" THEN  GOSUB 174: RETURN 
+500 T = 10: FOR J = 1 TO 2
+510 A =  INT ( RND (1) * 16) + 1:Y = 7:X = 8:P$ = PP$(A): GOSUB 180: GOSUB 450:N =  INT ( RND (1) * 128) + 20: GOSUB 300
+512 A =  INT ( RND (1) * 16) + 1:Y = 7:X = 25:P$ = PP$(A): GOSUB 180: GOSUB 450:N =  INT ( RND (1) * 128) + 20: GOSUB 300
+514 A =  INT ( RND (1) * 16) + 1:Y = 24:X = 8:P$ = PP$(A): GOSUB 180: GOSUB 450:N =  INT ( RND (1) * 128) + 20: GOSUB 300
+516 A =  INT ( RND (1) * 16) + 1:Y = 24:X = 25:P$ = PP$(A): GOSUB 180: GOSUB 450:N =  INT ( RND (1) * 128) + 20: GOSUB 300
+518  NEXT J
+520  RETURN 
+600  GOSUB 80: IF IN$ = "" THEN 600
+602  IF  ASC (IN$) = 27 THEN  POP : GOTO 1550
+604  IF IN$ = "?" THEN  POP : GOSUB 2000: GOTO 1000
+606  RETURN 
+1000  GR : HOME 
+1002  COLOR= 15: GOSUB 190: GOSUB 500
+1010 TALL = 0:SH = 0:FA = 0:THIN = 0:RED = 0:BLUE = 0:BOY = 0:GIRL = 0
+1012 TS$ = "":FT$ = "":RB$ = "":BG$ = ""
+1018 A =  INT ( RND (1) * 4) + 1: ON A GOTO 1020,1030,1040,1050
+1020 TS$ = "GRAND":A =  RND (1): IF A < .5 THEN TS$ = "PETIT"
+1022 X = 8:Y = 7: GOSUB 180: IF TS$ = "GRAND" THEN  GOSUB 400
+1023  IF TS$ = "PETIT" THEN  GOSUB 402
+1024 X = 25: GOSUB 180: IF TS$ = "GRAND" THEN  GOSUB 400
+1025  IF TS$ = "PETIT" THEN  GOSUB 402
+1026 X = 8:Y = 24: GOSUB 180: IF TS$ = "GRAND" THEN  GOSUB 400
+1027  IF TS$ = "PETIT" THEN  GOSUB 402
+1028 X = 25: GOSUB 180: IF TS$ = "GRAND" THEN  GOSUB 400: GOTO 1060
+1029  IF TS$ = "PETIT" THEN  GOSUB 402: GOTO 1060
+1030 FT$ = "GROS":A =  RND (1): IF A < .5 THEN FT$ = "MINCE"
+1032 X = 8:Y = 7: GOSUB 180: IF FT$ = "GROS" THEN  GOSUB 404
+1033  IF FT$ = "MINCE" THEN  GOSUB 406
+1034 X = 25: GOSUB 180: IF FT$ = "GROS" THEN  GOSUB 404
+1035  IF FT$ = "MINCE" THEN  GOSUB 406
+1036 X = 8:Y = 24: GOSUB 180: IF FT$ = "GROS" THEN  GOSUB 404
+1037  IF FT$ = "MINCE" THEN  GOSUB 406
+1038 X = 25: GOSUB 180: IF FT$ = "GROS" THEN  GOSUB 404: GOTO 1060
+1039  IF FT$ = "MINCE" THEN  GOSUB 406: GOTO 1060
+1040 RB$ = "ROUGE":A =  RND (1): IF A < .5 THEN RB$ = "BLEU"
+1042 X = 8:Y = 7: GOSUB 180: IF RB$ = "ROUGE" THEN  GOSUB 408
+1043  IF RB$ = "BLEU" THEN  GOSUB 410
+1044 X = 25: GOSUB 180: IF RB$ = "ROUGE" THEN  GOSUB 408
+1045  IF RB$ = "BLEU" THEN  GOSUB 410
+1046 X = 8:Y = 24: GOSUB 180: IF RB$ = "ROUGE" THEN  GOSUB 408
+1047  IF RB$ = "BLEU" THEN  GOSUB 410
+1048 X = 25: GOSUB 180: IF RB$ = "ROUGE" THEN  GOSUB 408: GOTO 1060
+1049  IF RB$ = "BLEU" THEN  GOSUB 410: GOTO 1060
+1050 BG$ = "BIBBIT":A =  RND (1): IF A < .5 THEN BG$ = "GRIBBIT"
+1052 X = 8:Y = 7: GOSUB 180: IF BG$ = "BIBBIT" THEN  GOSUB 412
+1053  IF BG$ = "GRIBBIT" THEN  GOSUB 414
+1054 X = 25: GOSUB 180: IF BG$ = "BIBBIT" THEN  GOSUB 412
+1055  IF BG$ = "GRIBBIT" THEN  GOSUB 414
+1056 X = 8:Y = 24: GOSUB 180: IF BG$ = "BIBBIT" THEN  GOSUB 412
+1057  IF BG$ = "GRIBBIT" THEN  GOSUB 414
+1058 X = 25: GOSUB 180: IF BG$ = "BIBBIT" THEN  GOSUB 412: GOTO 1060
+1059  IF BG$ = "GRIBBIT" THEN  GOSUB 414
+1060  HOME 
+1100  PRINT "QUELLE EST LA RESSEMBLANCE ?"
+1102  PRINT "1. GRAND 2. PETIT";: HTAB 20: PRINT "3. GROS   4. MINCE"
+1104  PRINT "5. ROUGE 6. BLEU"; : HTAB 20: PRINT "7. BIBBIT 8. GRIBBIT"
+1106  VTAB 24: PRINT ;
+1110  GOSUB 600:IN =  VAL (IN$): IF IN < 1 OR IN > 8 THEN 1110
+1202  IF IN = 1 AND TALL = 4 THEN 1300
+1204  IF IN = 2 AND SH = 4 THEN 1300
+1206  IF IN = 3 AND FA = 4 THEN 1300
+1208  IF IN = 4 AND TH = 4 THEN 1300
+1210  IF IN = 5 AND RED = 4 THEN 1300
+1212  IF IN = 6 AND BL = 4 THEN 1300
+1214  IF IN = 7 AND BOY = 4 THEN 1300
+1216  IF IN = 8 AND GIRL = 4 THEN 1300
+1250  GOSUB 320: PRINT "NON, CE N'EST PAS ";IN;".":PRINT"(APPUIE SUR <RETURN>.) ";
+1254  GOSUB 600: IF  ASC (IN$) <  > 13 THEN 1254
+1256  HOME : GOTO 1100
+1300  HOME : PRINT : PRINT "C'EST EXACT, ILS SONT TOUS ";PA$(IN)
+1302  GOSUB 200
+1310  VTAB 24: PRINT "VEUX-TU REJOUER ? (O OU N) ";
+1312  GOSUB 600: IF IN$ <  > "O" AND IN$ <  > "N" THEN 1312
+1314  IF IN$ = "O" THEN 1000
+1316  GOTO 1500
+1500  TEXT : HOME : PRINT : POKE 791,2: PRINT  CHR$ (4);"RUN MENU"
+1550  HOME : PRINT "VEUX-TU T'ARRETER ? (O OU N) ";
+1552  GET IN$: IF IN$ <  > "O" AND IN$ <  > "N" THEN 1552
+1554  IF IN$ = "O" THEN 1500
+1556  IF IN$ = "N" THEN  PRINT : HOME : GOTO 1100
+2000  REM   ** INSTRUCTIONS **
+2002  TEXT : HOME : VTAB 2: INVERSE : PRINT ">>>>>>>>>>>>>>>>>>>><<<<<<<<<<<<<<<<<<<<";
+2004  VTAB 23: PRINT ">>>>>>>>>>>>>>>>>>>><<<<<<<<<<<<<<<<<<<<";: NORMAL 
+2006  POKE 32,5: POKE 33,30: POKE 34,3: POKE 35,20: REM   WINDOW
+2008  POKE 48,30: VLIN 4,43 AT 0: VLIN 4,43 AT 39: HOME 
+2010  PRINT " QUELLE EST LA RESSEMBLANCE ?"
+2012  PRINT : PRINT "LES MOPPETS QUI VIVENT DANS   LA MAISON ONT AU MOINS UN     TRAIT EN COMMUN."
+2014  PRINT : PRINT "PAR EXEMPLE, ILS POURRAIENT   ETRE ROUGES OU ETRE ROUGES ET FINS."
+2016  PRINT : PRINT "CHOISIS LE TRAIT IDENTIQUE    SI TU EN VOIS PLUSIEURS,      CHOISIS N'IMPORTE LEQUEL."
+2045  FOR I = 1 TO 2000: NEXT I: POKE  - 16368,0
+2050  VTAB 19: PRINT "APPUIE SUR <RETURN> POUR      JOUER. ";
+2052  GOSUB 80: IF  ASC (IN$) = 27 THEN 2060
+2054  IF  ASC (IN$) <  > 13 THEN 2052
+2056  TEXT : HOME : RETURN 
+2060  HOME : PRINT "VEUX-TU T'ARRETER ? (O/N) ";
+2062  GET IN$: IF IN$ <  > "O" AND IN$ <  > "N" THEN 2062
+2064  IF IN$ = "O" THEN 1500
+2066  TEXT : HOME : RETURN 
+10000  CALL 37632
diff --git a/laparadedesmarionnettes/basic/QUI EST DIFFERENT.BAS b/laparadedesmarionnettes/basic/QUI EST DIFFERENT.BAS
new file mode 100644
index 0000000..4d10e2b
--- /dev/null
+++ b/laparadedesmarionnettes/basic/QUI EST DIFFERENT.BAS	
@@ -0,0 +1,171 @@
+0  ONERR  GOTO 10000
+1  POKE 791,32
+5  REM  WHO'S DIFFERENT?, COPYRIGHT 1981, LESLIE M. GRIMM
+10 D$ =  CHR$ (4)
+12 N(1) = 96:N(2) = 85:N(3) = 76:N(4) = 72
+18 S =  PEEK (78) +  PEEK (79) * 256:Z =  RND ( - S)
+20  GOSUB 3000
+30  PRINT : PRINT "VEUX-TU DES INSTRUCTIONS? (O OU N) ";
+32  GOSUB 80: IF IN$ <  > "O" AND IN$ <  > "N" AND  ASC (IN$) <  > 27 THEN 32
+34  IF  ASC (IN$) = 27 THEN  GOSUB 510: HOME : GOTO 30
+36  IF IN$ = "O" THEN  GOSUB 2000
+40 GAME = 1: REM  ALL MOPPETS SAME
+50  GOTO 1000
+60  GOSUB 510
+70  GOSUB 510
+74  IF IN$ = "O" THEN 1500
+76  HOME : GOTO 40
+80  GET IN$: IF  LEN (IN$) < 1 THEN 80
+82  RETURN 
+100  COLOR= 14: PLOT X + 3,Y + 1: HLIN X + 3,X + 6 AT Y + 2: HLIN X + 3,X + 4 AT Y + 3: PLOT X + 6,Y + 3: HLIN X + 2,X + 6 AT Y + 14: PLOT X + 6,Y + 13: COLOR= 9: PLOT X + 4,Y + 1
+102  COLOR= 1: VLIN Y + 4,Y + 13 AT X + 3: VLIN Y + 4,Y + 13 AT X + 4: VLIN Y + 5,Y + 8 AT X + 5: RETURN 
+104  COLOR= 14: HLIN X + 2,X + 3 AT Y + 1: HLIN X + 2,X + 4 AT Y + 2: PLOT X + 3,Y + 3: HLIN X + 3,X + 5 AT Y + 14: PLOT X + 1,Y + 8: PLOT X + 2,Y + 9: COLOR= 9: PLOT X + 4,Y + 1
+106  COLOR= 1: VLIN Y + 4,Y + 13 AT X + 3: VLIN Y + 4,Y + 13 AT X + 4: VLIN Y + 5,Y + 8 AT X + 5: RETURN 
+110  COLOR= 14: PLOT X + 3,Y + 1: HLIN X + 3,X + 6 AT Y + 2: HLIN X + 3,X + 4 AT Y + 3: PLOT X + 6,Y + 3: HLIN X + 2,X + 6 AT Y + 14: PLOT X + 6,Y + 13: COLOR= 9: PLOT X + 4,Y + 1
+112  COLOR= 6: VLIN Y + 4,Y + 13 AT X + 3: VLIN Y + 4,Y + 13 AT X + 4: VLIN Y + 5,Y + 8 AT X + 5: RETURN 
+114  COLOR= 14: HLIN X + 2,X + 3 AT Y + 1: HLIN X + 2,X + 4 AT Y + 2: PLOT X + 3,Y + 3: HLIN X + 3,X + 5 AT Y + 14: PLOT X + 1,Y + 8: PLOT X + 2,Y + 9: COLOR= 9: PLOT X + 4,Y + 1
+116  COLOR= 6: VLIN Y + 4,Y + 13 AT X + 3: VLIN Y + 4,Y + 13 AT X + 4: VLIN Y + 5,Y + 8 AT X + 5: RETURN 
+120  COLOR= 14: PLOT X + 3,Y + 1: HLIN X + 3,X + 6 AT Y + 2: HLIN X + 3,X + 4 AT Y + 3: PLOT X + 6,Y + 3: HLIN X + 2,X + 6 AT Y + 14: PLOT X + 6,Y + 13: COLOR= 9: PLOT X + 4,Y + 1
+122  COLOR= 1: VLIN Y + 4,Y + 13 AT X + 3: RETURN 
+124  COLOR= 14: HLIN X + 2,X + 3 AT Y + 1: HLIN X + 2,X + 4 AT Y + 2: PLOT X + 3,Y + 3: HLIN X + 3,X + 5 AT Y + 14: PLOT X + 1,Y + 8: PLOT X + 2,Y + 9: COLOR= 9: PLOT X + 4,Y + 1
+126  COLOR= 1: VLIN Y + 4,Y + 13 AT X + 3: RETURN 
+130  COLOR= 14: PLOT X + 3,Y + 1: HLIN X + 3,X + 6 AT Y + 2: HLIN X + 3,X + 4 AT Y + 3: PLOT X + 6,Y + 3: HLIN X + 2,X + 6 AT Y + 14: PLOT X + 6,Y + 13: COLOR= 9: PLOT X + 4,Y + 1
+132  COLOR= 6: VLIN Y + 4,Y + 13 AT X + 3: RETURN 
+134  COLOR= 14: HLIN X + 2,X + 3 AT Y + 1: HLIN X + 2,X + 4 AT Y + 2: PLOT X + 3,Y + 3: HLIN X + 3,X + 5 AT Y + 14: PLOT X + 1,Y + 8: PLOT X + 2,Y + 9: COLOR= 9: PLOT X + 4,Y + 1
+136  COLOR= 6: VLIN Y + 4,Y + 13 AT X + 3: RETURN 
+140  COLOR= 14: HLIN X + 3,X + 6 AT Y + 5: HLIN X + 3,X + 4 AT Y + 6: PLOT X + 3,Y + 4: PLOT X + 6,Y + 6: HLIN X + 2,X + 6 AT Y + 14: PLOT X + 6,Y + 13: COLOR= 9: PLOT X + 4,Y + 4
+142  COLOR= 1: VLIN Y + 7,Y + 13 AT X + 3: VLIN Y + 7,Y + 13 AT X + 4: VLIN Y + 8,Y + 10 AT X + 5: RETURN 
+144  COLOR= 14: HLIN X + 2,X + 3 AT Y + 4: HLIN X + 2,X + 4 AT Y + 5: PLOT X + 3,Y + 6: HLIN X + 3,X + 5 AT Y + 14: PLOT X + 1,Y + 10: PLOT X + 2,Y + 11: COLOR= 9: PLOT X + 4,Y + 4
+146  COLOR= 1: VLIN Y + 7,Y + 13 AT X + 3: VLIN Y + 7,Y + 13 AT X + 4: VLIN Y + 8,Y + 10 AT X + 5: RETURN 
+150  COLOR= 14: HLIN X + 3,X + 6 AT Y + 5: HLIN X + 3,X + 4 AT Y + 6: PLOT X + 3,Y + 4: PLOT X + 6,Y + 6: HLIN X + 2,X + 6 AT Y + 14: PLOT X + 6,Y + 13: COLOR= 9: PLOT X + 4,Y + 4
+152  COLOR= 6: VLIN Y + 7,Y + 13 AT X + 3: VLIN Y + 7,Y + 13 AT X + 4: VLIN Y + 8,Y + 10 AT X + 5: RETURN 
+154  COLOR= 14: HLIN X + 2,X + 3 AT Y + 4: HLIN X + 2,X + 4 AT Y + 5: PLOT X + 3,Y + 6: HLIN X + 3,X + 5 AT Y + 14: PLOT X + 1,Y + 10: PLOT X + 2,Y + 11: COLOR= 9: PLOT X + 4,Y + 4
+156  COLOR= 6: VLIN Y + 7,Y + 13 AT X + 3: VLIN Y + 7,Y + 13 AT X + 4: VLIN Y + 8,Y + 10 AT X + 5: RETURN 
+160  COLOR= 14: HLIN X + 3,X + 6 AT Y + 5: HLIN X + 3,X + 4 AT Y + 6: PLOT X + 3,Y + 4: PLOT X + 6,Y + 6: HLIN X + 2,X + 6 AT Y + 14: PLOT X + 6,Y + 13: COLOR= 9: PLOT X + 4,Y + 4
+162  COLOR= 1: VLIN Y + 7,Y + 13 AT X + 3: RETURN 
+164  COLOR= 14: HLIN X + 2,X + 3 AT Y + 4: HLIN X + 2,X + 4 AT Y + 5: PLOT X + 3,Y + 6: HLIN X + 3,X + 5 AT Y + 14: PLOT X + 1,Y + 10: PLOT X + 2,Y + 11: COLOR= 9: PLOT X + 4,Y + 4
+166  COLOR= 1: VLIN Y + 7,Y + 13 AT X + 3: RETURN 
+170  COLOR= 14: HLIN X + 3,X + 6 AT Y + 5: HLIN X + 3,X + 4 AT Y + 6: PLOT X + 3,Y + 4: PLOT X + 6,Y + 6: HLIN X + 2,X + 6 AT Y + 14: PLOT X + 6,Y + 13: COLOR= 9: PLOT X + 4,Y + 4
+172  COLOR= 6: VLIN Y + 7,Y + 13 AT X + 3: RETURN 
+174  COLOR= 14: HLIN X + 2,X + 3 AT Y + 4: HLIN X + 2,X + 4 AT Y + 5: PLOT X + 3,Y + 6: HLIN X + 3,X + 5 AT Y + 14: PLOT X + 1,Y + 10: PLOT X + 2,Y + 11: COLOR= 9: PLOT X + 4,Y + 4
+176  COLOR= 6: VLIN Y + 7,Y + 13 AT X + 3: RETURN 
+180  COLOR= 0: FOR I = X TO X + 7: VLIN Y,Y + 14 AT I: NEXT I: RETURN 
+182  COLOR= 13: HLIN X,X + 8 AT Y - 1: HLIN X,X + 8 AT Y + 16: VLIN Y - 1,Y + 16 AT X: VLIN Y - 1,Y + 16 AT X + 8: RETURN 
+190  COLOR= 13: VLIN Y + 1,Y + 5 AT X + 3: RETURN 
+192  COLOR= 13: HLIN X + 2,X + 4 AT Y + 1: HLIN X + 2,X + 4 AT Y + 5: PLOT X + 4,Y + 2: PLOT X + 3,Y + 3: PLOT X + 2,Y + 4: RETURN 
+194  COLOR= 13: HLIN X + 2,X + 4 AT Y + 1: HLIN X + 3,X + 4 AT Y + 3: HLIN X + 2,X + 4 AT Y + 5: VLIN Y + 2,Y + 4 AT X + 4: RETURN 
+196  COLOR= 13: VLIN Y + 1,Y + 4 AT X + 2: VLIN Y + 1,Y + 5 AT X + 4: PLOT X + 3,Y + 4: PLOT X + 5,Y + 4: RETURN 
+200 Y = 10:X = (P - 1) * 10: GOSUB 182: RETURN 
+210 X = 5:Y = 2:T = 20: GOSUB 250
+220  RETURN 
+250  COLOR= 13: HLIN X,X + 3 AT Y: VLIN Y,Y + 4 AT X: HLIN X,X + 3 AT Y + 4: VLIN Y + 2,Y + 4 AT X + 3
+251 N = 85: GOSUB 300
+252  COLOR= 12: VLIN Y+1,Y+4 AT X+5:VLIN Y+1,Y+4 AT X+8:HLIN X+6,X+7 AT Y:HLIN X+6,X+7 AT Y+2
+253 N = 76: GOSUB 300
+254  COLOR= 7: HLIN X+10,X + 13 AT Y: VLIN Y,Y + 4 AT X+10: HLIN X+10,X + 13 AT Y + 4: VLIN Y + 2,Y + 4 AT X + 13
+255 N = 72: GOSUB 300
+256  COLOR= 13: VLIN Y,Y + 4 AT X + 15: VLIN Y,Y + 4 AT X + 18: PLOT X + 16,Y + 2: PLOT X + 17,Y + 3
+257 N = 64: GOSUB 300
+258  COLOR= 12: HLIN X+20,X+23 AT Y:VLIN Y,Y+4 AT X+20:HLIN X+20,X+23 AT Y+4:HLIN X+20,X+22 AT Y+2
+259 N = 57: GOSUB 300
+260  COLOR= 7: VLIN Y,Y + 2 AT X + 26: PLOT X + 26,Y + 4
+261 N = 51: GOSUB 300
+262  COLOR= 13: VLIN Y,Y + 2 AT X + 28: PLOT X + 28,Y + 4
+263 N = 48: GOSUB 300
+264  RETURN 
+300  POKE 768,N: POKE 769,T: CALL 770: RETURN 
+310 N = 64:T = 40: GOSUB 300: GOSUB 300:N = 96:T = 80: GOSUB 300: RETURN 
+320 N = 64:T = 40: GOSUB 300: GOSUB 300:N = 48:T = 80: GOSUB 300: RETURN 
+400  IF P$ = "GGRB" THEN  GOSUB 100: RETURN 
+402  IF P$ = "GGRG" THEN  GOSUB 104: RETURN 
+404  IF P$ = "GGBB" THEN  GOSUB 110: RETURN 
+406  IF P$ = "GGBG" THEN  GOSUB 114: RETURN 
+408  IF P$ = "GMRB" THEN  GOSUB 120: RETURN 
+410  IF P$ = "GMRG" THEN  GOSUB 124: RETURN 
+412  IF P$ = "GMBB" THEN  GOSUB 130: RETURN 
+414  IF P$ = "GMBG" THEN  GOSUB 134: RETURN 
+416  IF P$ = "PGRB" THEN  GOSUB 140: RETURN 
+418  IF P$ = "PGRG" THEN  GOSUB 144: RETURN 
+420  IF P$ = "PGBB" THEN  GOSUB 150: RETURN 
+422  IF P$ = "PGBG" THEN  GOSUB 154: RETURN 
+424  IF P$ = "PMRB" THEN  GOSUB 160: RETURN 
+426  IF P$ = "PMRG" THEN  GOSUB 164: RETURN 
+428  IF P$ = "PMBB" THEN  GOSUB 170: RETURN 
+430  IF P$ = "PMBG" THEN  GOSUB 174: RETURN 
+500  GOSUB 80: IF IN$ = "?" THEN  GOSUB 2000: POP : GOTO 1000
+504  RETURN 
+510  HOME 
+512  PRINT "VEUX-TU ARRETER ? (O OU N) ";
+514  GOSUB 80: IF IN$ <  > "O" AND IN$ <  > "N" THEN 514
+516  IF IN$ = "O" THEN 1500
+518  RETURN 
+520  GOSUB 80: IF  ASC (IN$) <  > 13 AND  ASC (IN$) <  > 27 AND IN$ <  > "?" THEN 520
+522  IF IN$ = "?" THEN  GOSUB 2000: POP : GOTO 1000
+524  RETURN 
+699  REM  ** CHOOSE DIFFERENT MOPPET **
+700 TS$ = "G":A =  RND (1): IF A < .5 THEN TS$ = "P"
+702 FT$ = "G":A =  RND (1): IF A < .5 THEN FT$ = "M"
+704 RB$ = "R":A =  RND (1): IF A < .5 THEN RB$ = "B"
+706 BG$ = "B":A =  RND (1): IF A < .5 THEN BG$ = "G"
+708  FOR I = 1 TO 4:P$(I) = TS$ + FT$ + RB$ + BG$: NEXT I
+710 A =  INT ( RND (1) * 4) + 1:P = A:A =  INT ( RND (1) * 4) + 1:TRAIT = A: ON TRAIT GOTO 712,716,720,724
+712 T$ = "G":TR$ = " GRAND !": IF TS$ = "G" THEN T$ = "P":TR$ = " PETIT !"
+714 P$(P) = T$ + FT$ + RB$ + BG$: GOTO 728
+716 T$ = "G":TR$ = " GROS !": IF FT$ = "G" THEN T$ = "M":TR$ = " MINCE !"
+718 P$(P) = TS$ + T$ + RB$ + BG$: GOTO 728
+720 T$ = "R":TR$ = " ROUGE !": IF RB$ = "R" THEN T$ = "B":TR$ = " BLEU !"
+722 P$(P) = TS$ + FT$ + T$ + BG$: GOTO 728
+724 T$ = "B":TR$ = " A BIBBIT!": IF BG$ = "B" THEN T$ = "G":TR$ = " A GRIBBIT!"
+726 P$(P) = TS$ + FT$ + RB$ + T$
+728  RETURN 
+1000  GR : HOME : GOSUB 700
+1005 Z =  RND ( -  RND (9))
+1010 C$ = "LEQUEL EST DIFFERENT ? (1, 2, 3 OU 4) "
+1030 X =  - 10:Y = 10: FOR I = 1 TO 4:P$ = P$(I):X = X + 10: GOSUB 400: NEXT I
+1040 Y = 27:X = 0: GOSUB 190:X = 10: GOSUB 192:X = 20: GOSUB 194:X = 30: GOSUB 196
+1100  HOME : PRINT C$;
+1102  GOSUB 500: IF  ASC (IN$) = 27 THEN  GOSUB 510: GOTO 1100
+1104 IN =  VAL (IN$): IF IN < 1 OR IN > 4 THEN 1102
+1110  IF IN = P THEN  GOSUB 320: GOSUB 200: GOTO 1130
+1120  PRINT : PRINT : GOSUB 310: PRINT "CE N'EST PAS ";IN".": PRINT "(APPUIE SUR <RETURN>.) ";
+1122  GOSUB 520: IF  ASC (IN$) = 27 THEN  GOSUB 510
+1124  GOTO 1100
+1130  HOME : PRINT "QUEL TRAIT CARACTERISTIQUE ":PRINT "EST DIFFERENT (A, B, C OU D) ?"
+1131  PRINT "A (GRAND/PETIT) ";: HTAB 20: PRINT "B (GROS/MINCE)  ": PRINT "C (ROUGE/BLEU) ";: HTAB 20: PRINT "D (BIBBIT/GRIBBIT) ";
+1132  GOSUB 500: IF  ASC (IN$) = 27 THEN  GOSUB 510: GOTO 1130
+1134 IN =  ASC (IN$) - 64: IF IN < 1 OR IN > 4 THEN 1132
+1136  IF IN = TR THEN 1200
+1140  PRINT:GOSUB 310: PRINT "CE N'EST PAS ";IN$;".":PRINT "(APPUIE SUR <RETURN>) ";
+1142  GOSUB 520: IF  ASC (IN$) = 27 THEN  GOSUB 510
+1144  GOTO 1130
+1200  HOME : PRINT "OUI ! SEUL LE MOPPET ";P;" EST";TR$
+1202  GOSUB 210
+1210  PRINT : PRINT "VEUX-TU REJOUER ? (O OU N) ";
+1212  GET IN$: IF IN$ <  > "O" AND IN$ <  > "N" THEN 1212
+1214  IF IN$ = "O" THEN 1000
+1500  TEXT : HOME : PRINT : POKE 791,2: PRINT  CHR$ (4);"RUN MENU"
+2000  REM   ** INSTRUCTIONS **
+2002  TEXT : HOME : VTAB 2: INVERSE : PRINT ">>>>>>>>>>>>>>>>>>>><<<<<<<<<<<<<<<<<<<<";
+2004  VTAB 23: PRINT ">>>>>>>>>>>>>>>>>>>><<<<<<<<<<<<<<<<<<<<";: NORMAL 
+2006  POKE 32,5: POKE 33,30: POKE 34,5: POKE 35,20: REM   WINDOW
+2008  POKE 48,30: VLIN 4,43 AT 0: VLIN 4,43 AT 39: HOME 
+2010  HTAB 6: PRINT "QUI EST DIFFERENT ?"
+2012  PRINT : PRINT : PRINT "TU VAS VOIR QUATRE MOPPETS."
+2014  PRINT : PRINT "CHOISIS D'ABORD LE MOPPET     DIFFERENT DES AUTRES,"
+2016  PRINT : PRINT "PUIS CHOISIS LE TRAIT QUI LE  REND DIFFERENT."
+2065  FOR I = 1 TO 1000: NEXT I: POKE  - 16368,0
+2070  VTAB 20: PRINT "APPUIE SUR <RETURN> POUR      JOUER. ";
+2072  GOSUB 80: IF  ASC (IN$) = 13 THEN 2090
+2074  IF  ASC (IN$) <  > 27 THEN 2072
+2080  HOME : VTAB 10: PRINT "VEUX-TU ARRETER ? (O/N) ";
+2082  GET IN$: IF IN$ = "N" THEN 2090
+2084  IF IN$ = "O" THEN  POP : GOTO 1500
+2086  GOTO 2082
+2090  TEXT : HOME : RETURN 
+3000  GR : HOME : PRINT : HTAB 10: PRINT "QUI EST DIFFERENT ?"
+3010 P$(1) = "GGRB":P$(2) = "GGRB":P$(3) = "PGRB":P$(4) = "GGRB"
+3020 X =  - 10:Y = 10: FOR I = 1 TO 4:P$ = P$(I):X = X + 10: GOSUB 400:N = N(I):T = 10: GOSUB 300: NEXT I
+3022 Y = 27:X = 0: GOSUB 190:X = 10: GOSUB 192:X = 20: GOSUB 194:X = 30: GOSUB 196
+3024  FOR I = 1 TO 1000: NEXT 
+3030  RETURN 
+10000  CALL 37632
diff --git a/laparadedesmarionnettes/basic/QUI VIENT ENSUITE.BAS b/laparadedesmarionnettes/basic/QUI VIENT ENSUITE.BAS
new file mode 100644
index 0000000..96dffcd
--- /dev/null
+++ b/laparadedesmarionnettes/basic/QUI VIENT ENSUITE.BAS	
@@ -0,0 +1,194 @@
+0  ONERR  GOTO 10000
+1  POKE 791,32
+5  REM  WHO COMES NEXT?, COPYRIGHT 1981, LESLIE M. GRIMM
+10 D$ =  CHR$ (4)
+20  DIM PP$(17):PP$(1) = "GGRB":PP$(2) = "GGRG":PP$(3) = "GGBB":PP$(4) = "GGBG":PP$(5) = "GMRB":PP$(6) = "GMRG":PP$(7) = "GMBB":PP$(8) = "GMBG"
+22 PP$(9) = "PGRB":PP$(10) = "PGRG":PP$(11) = "PGBB":PP$(12) = "PGBG":PP$(13) = "PMRB":PP$(14) = "PMRG":PP$(15) = "PMBB":PP$(16) = "PMBG"
+24  DIM N(9):N(1) = 96:N(2) = 76:N(3) = 85:N(4) = 72:N(5) = 64:N(6) = 57:N(7) = 51:N(8) = 48
+35  GOSUB 3000: HOME 
+40  PRINT : PRINT "VEUX-TU DES INSTRUCTIONS? (O OU N) ";
+42  GOSUB 60: IF IN$ <  > "O" AND IN$ <  > "N" AND  ASC (IN$) <  > 27 THEN 42
+44  IF  ASC (IN$) = 27 THEN  GOSUB 520: HOME : GOTO 40
+46  IF IN$ = "O" THEN  GOSUB 2000
+50  GOTO 1000
+60  GET IN$: IF  LEN (IN$) < 1 THEN 60
+62  RETURN 
+100  COLOR= 14: PLOT X + 3,Y + 1: HLIN X + 3,X + 6 AT Y + 2: HLIN X + 3,X + 4 AT Y + 3: PLOT X + 6,Y + 3: HLIN X + 2,X + 6 AT Y + 14: PLOT X + 6,Y + 13: COLOR= 9: PLOT X + 4,Y + 1
+102  COLOR= 1: VLIN Y + 4,Y + 13 AT X + 3: VLIN Y + 4,Y + 13 AT X + 4: VLIN Y + 5,Y + 8 AT X + 5: RETURN 
+104  COLOR= 14: HLIN X + 2,X + 3 AT Y + 1: HLIN X + 2,X + 4 AT Y + 2: PLOT X + 3,Y + 3: HLIN X + 3,X + 5 AT Y + 14: PLOT X + 1,Y + 8: PLOT X + 2,Y + 9: COLOR= 9: PLOT X + 4,Y + 1
+106  COLOR= 1: VLIN Y + 4,Y + 13 AT X + 3: VLIN Y + 4,Y + 13 AT X + 4: VLIN Y + 5,Y + 8 AT X + 5: RETURN 
+110  COLOR= 14: PLOT X + 3,Y + 1: HLIN X + 3,X + 6 AT Y + 2: HLIN X + 3,X + 4 AT Y + 3: PLOT X + 6,Y + 3: HLIN X + 2,X + 6 AT Y + 14: PLOT X + 6,Y + 13: COLOR= 9: PLOT X + 4,Y + 1
+112  COLOR= 6: VLIN Y + 4,Y + 13 AT X + 3: VLIN Y + 4,Y + 13 AT X + 4: VLIN Y + 5,Y + 8 AT X + 5: RETURN 
+114  COLOR= 14: HLIN X + 2,X + 3 AT Y + 1: HLIN X + 2,X + 4 AT Y + 2: PLOT X + 3,Y + 3: HLIN X + 3,X + 5 AT Y + 14: PLOT X + 1,Y + 8: PLOT X + 2,Y + 9: COLOR= 9: PLOT X + 4,Y + 1
+116  COLOR= 6: VLIN Y + 4,Y + 13 AT X + 3: VLIN Y + 4,Y + 13 AT X + 4: VLIN Y + 5,Y + 8 AT X + 5: RETURN 
+120  COLOR= 14: PLOT X + 3,Y + 1: HLIN X + 3,X + 6 AT Y + 2: HLIN X + 3,X + 4 AT Y + 3: PLOT X + 6,Y + 3: HLIN X + 2,X + 6 AT Y + 14: PLOT X + 6,Y + 13: COLOR= 9: PLOT X + 4,Y + 1
+122  COLOR= 1: VLIN Y + 4,Y + 13 AT X + 3: RETURN 
+124  COLOR= 14: HLIN X + 2,X + 3 AT Y + 1: HLIN X + 2,X + 4 AT Y + 2: PLOT X + 3,Y + 3: HLIN X + 3,X + 5 AT Y + 14: PLOT X + 1,Y + 8: PLOT X + 2,Y + 9: COLOR= 9: PLOT X + 4,Y + 1
+126  COLOR= 1: VLIN Y + 4,Y + 13 AT X + 3: RETURN 
+130  COLOR= 14: PLOT X + 3,Y + 1: HLIN X + 3,X + 6 AT Y + 2: HLIN X + 3,X + 4 AT Y + 3: PLOT X + 6,Y + 3: HLIN X + 2,X + 6 AT Y + 14: PLOT X + 6,Y + 13: COLOR= 9: PLOT X + 4,Y + 1
+132  COLOR= 6: VLIN Y + 4,Y + 13 AT X + 3: RETURN 
+134  COLOR= 14: HLIN X + 2,X + 3 AT Y + 1: HLIN X + 2,X + 4 AT Y + 2: PLOT X + 3,Y + 3: HLIN X + 3,X + 5 AT Y + 14: PLOT X + 1,Y + 8: PLOT X + 2,Y + 9: COLOR= 9: PLOT X + 4,Y + 1
+136  COLOR= 6: VLIN Y + 4,Y + 13 AT X + 3: RETURN 
+140  COLOR= 14: HLIN X + 3,X + 6 AT Y + 5: HLIN X + 3,X + 4 AT Y + 6: PLOT X + 3,Y + 4: PLOT X + 6,Y + 6: HLIN X + 2,X + 6 AT Y + 14: PLOT X + 6,Y + 13: COLOR= 9: PLOT X + 4,Y + 4
+142  COLOR= 1: VLIN Y + 7,Y + 13 AT X + 3: VLIN Y + 7,Y + 13 AT X + 4: VLIN Y + 8,Y + 10 AT X + 5: RETURN 
+144  COLOR= 14: HLIN X + 2,X + 3 AT Y + 4: HLIN X + 2,X + 4 AT Y + 5: PLOT X + 3,Y + 6: HLIN X + 3,X + 5 AT Y + 14: PLOT X + 1,Y + 10: PLOT X + 2,Y + 11: COLOR= 9: PLOT X + 4,Y + 4
+146  COLOR= 1: VLIN Y + 7,Y + 13 AT X + 3: VLIN Y + 7,Y + 13 AT X + 4: VLIN Y + 8,Y + 10 AT X + 5: RETURN 
+150  COLOR= 14: HLIN X + 3,X + 6 AT Y + 5: HLIN X + 3,X + 4 AT Y + 6: PLOT X + 3,Y + 4: PLOT X + 6,Y + 6: HLIN X + 2,X + 6 AT Y + 14: PLOT X + 6,Y + 13: COLOR= 9: PLOT X + 4,Y + 4
+152  COLOR= 6: VLIN Y + 7,Y + 13 AT X + 3: VLIN Y + 7,Y + 13 AT X + 4: VLIN Y + 8,Y + 10 AT X + 5: RETURN 
+154  COLOR= 14: HLIN X + 2,X + 3 AT Y + 4: HLIN X + 2,X + 4 AT Y + 5: PLOT X + 3,Y + 6: HLIN X + 3,X + 5 AT Y + 14: PLOT X + 1,Y + 10: PLOT X + 2,Y + 11: COLOR= 9: PLOT X + 4,Y + 4
+156  COLOR= 6: VLIN Y + 7,Y + 13 AT X + 3: VLIN Y + 7,Y + 13 AT X + 4: VLIN Y + 8,Y + 10 AT X + 5: RETURN 
+160  COLOR= 14: HLIN X + 3,X + 6 AT Y + 5: HLIN X + 3,X + 4 AT Y + 6: PLOT X + 3,Y + 4: PLOT X + 6,Y + 6: HLIN X + 2,X + 6 AT Y + 14: PLOT X + 6,Y + 13: COLOR= 9: PLOT X + 4,Y + 4
+162  COLOR= 1: VLIN Y + 7,Y + 13 AT X + 3: RETURN 
+164  COLOR= 14: HLIN X + 2,X + 3 AT Y + 4: HLIN X + 2,X + 4 AT Y + 5: PLOT X + 3,Y + 6: HLIN X + 3,X + 5 AT Y + 14: PLOT X + 1,Y + 10: PLOT X + 2,Y + 11: COLOR= 9: PLOT X + 4,Y + 4
+166  COLOR= 1: VLIN Y + 7,Y + 13 AT X + 3: RETURN 
+170  COLOR= 14: HLIN X + 3,X + 6 AT Y + 5: HLIN X + 3,X + 4 AT Y + 6: PLOT X + 3,Y + 4: PLOT X + 6,Y + 6: HLIN X + 2,X + 6 AT Y + 14: PLOT X + 6,Y + 13: COLOR= 9: PLOT X + 4,Y + 4
+172  COLOR= 6: VLIN Y + 7,Y + 13 AT X + 3: RETURN 
+174  COLOR= 14: HLIN X + 2,X + 3 AT Y + 4: HLIN X + 2,X + 4 AT Y + 5: PLOT X + 3,Y + 6: HLIN X + 3,X + 5 AT Y + 14: PLOT X + 1,Y + 10: PLOT X + 2,Y + 11: COLOR= 9: PLOT X + 4,Y + 4
+176  COLOR= 6: VLIN Y + 7,Y + 13 AT X + 3: RETURN 
+180  COLOR= 0: FOR I = X TO X + 7: VLIN Y,Y + 14 AT I: NEXT I: RETURN 
+182  COLOR= 13: HLIN X + 3,X + 6 AT Y + 6: VLIN Y + 7,Y + 8 AT X + 6: VLIN Y + 10,Y + 11 AT X + 4: PLOT X + 5,Y + 9: PLOT X + 4,Y + 13: RETURN 
+190  COLOR=  INT ( RND (1) * 15) + 1: HLIN X,X + 7 AT Y - 2: HLIN X,X + 7 AT Y + 18: VLIN Y - 2,Y + 18 AT X: VLIN Y - 2,Y + 18 AT X + 7: RETURN 
+192  COLOR= 0: HLIN X,X + 7 AT Y - 2: HLIN X,X + 7 AT Y + 18: VLIN Y - 2,Y + 18 AT X: VLIN Y - 2,Y + 18 AT X + 7: RETURN 
+200  FOR I = 1 TO 200: NEXT I: COLOR= 0: HLIN 0,39 AT 14: HLIN 0,39 AT 30
+202 T = 20:X =  - 8
+210  FOR M = 1 TO 5
+220 X = X + 8: GOSUB 190:N = N(M): GOSUB 300
+224  FOR I = 1 TO 50: NEXT I
+226  GOSUB 192
+230  NEXT M
+232  FOR M = 1 TO 5: GOSUB 190:A =  INT ( RND (1) * 5) + 1:N = N(A): GOSUB 300: NEXT M
+240  RETURN 
+300  POKE 768,N: POKE 769,T: CALL 770: RETURN 
+400  IF P$ = "GGRB" THEN  GOSUB 100: RETURN 
+402  IF P$ = "GGRG" THEN  GOSUB 104: RETURN 
+404  IF P$ = "GGBB" THEN  GOSUB 110: RETURN 
+406  IF P$ = "GGBG" THEN  GOSUB 114: RETURN 
+408  IF P$ = "GMRB" THEN  GOSUB 120: RETURN 
+410  IF P$ = "GMRG" THEN  GOSUB 124: RETURN 
+412  IF P$ = "GMBB" THEN  GOSUB 130: RETURN 
+414  IF P$ = "GMBG" THEN  GOSUB 134: RETURN 
+416  IF P$ = "PGRB" THEN  GOSUB 140: RETURN 
+418  IF P$ = "PGRG" THEN  GOSUB 144: RETURN 
+420  IF P$ = "PGBB" THEN  GOSUB 150: RETURN 
+422  IF P$ = "PGBG" THEN  GOSUB 154: RETURN 
+424  IF P$ = "PMRB" THEN  GOSUB 160: RETURN 
+426  IF P$ = "PMRG" THEN  GOSUB 164: RETURN 
+428  IF P$ = "PMBB" THEN  GOSUB 170: RETURN 
+430  IF P$ = "PMBG" THEN  GOSUB 174: RETURN 
+500  GOSUB 60: IF IN$ = "" THEN 500
+502  IF  ASC (IN$) = 27 THEN  GOSUB 520:IN$ = "ESC": RETURN 
+504  IF (IN$) = "?" THEN  GOSUB 2000: POP : POP : GOTO 1000
+506  RETURN 
+520  HOME : PRINT "VEUX-TU T'ARRETER ? (O/N) ";
+522  GET IN$: IF IN$ <  > "O" AND IN$ <  > "N" THEN 520
+524  IF IN$ = "O" THEN  HOME : GOTO 1500
+526  HOME : RETURN 
+530  GOSUB 60: IF  ASC (IN$) <  > 13 AND  ASC (IN$) <  > 27 THEN 530
+532  IF  ASC (IN$) = 27 THEN  GOSUB 520: RETURN 
+534  RETURN 
+540  GOSUB 60: IF  ASC (IN$) <  > 13 AND  ASC (IN$) <  > 27 AND IN$ <  > "?" THEN 540
+542  IF  ASC (IN$) = 27 THEN  GOSUB 520: RETURN 
+544  IF IN$ = "?" THEN  GOSUB 2000: POP : GOTO 1000
+546  RETURN 
+600  POKE 34,20: HOME : PRINT "QUI VIENT ENSUITE ?": PRINT : PRINT "GRAND OU PETIT ? (G OU P) ";
+602  GOSUB 500: IF IN$ = "ESC" THEN  GOTO 600
+603  IF IN$ <  > "G" AND IN$ <  > "P" THEN 602
+604 G1$ = IN$:GA$ = "GRAND": IF G1$ = "P" THEN GA$ = "PETIT"
+606  HOME : VTAB 21: PRINT GA$: POKE 34,22
+610  HOME : PRINT "GROS OU MINCE ? (G OU M) ";
+612  GOSUB 500: IF IN$ = "ESC" THEN  GOTO 610
+613  IF IN$ =  CHR$ (8) THEN 600: REM  ARROW
+614  IF IN$ <  > "G" AND IN$ <  > "M" THEN 612
+616 G2$ = IN$:GB$ = "GROS": IF G2$ = "T" THEN GB$ = "MINCE"
+618  HOME : VTAB 21: PRINT GA$;", ";GB$
+620  HOME : PRINT "ROUGE OU BLEU ? (R OU B) ";
+622  GOSUB 500: IF IN$ = "ESC" THEN 620
+623  IF IN$ =  CHR$ (8) THEN 600: REM  ARROW
+624  IF IN$ <  > "R" AND IN$ <  > "B" THEN 622
+626 G3$ = IN$:GC$ = "ROUGE": IF G3$ = "B" THEN GC$ = "BLEU"
+628  HOME : VTAB 21: PRINT GA$;", ";GB$;", ";GC$
+630  HOME : PRINT "BIBBIT OU GRIBBIT? (B OU G) ";
+632  GOSUB 500: IF IN$ = "ESC" THEN  GOTO 630
+633  IF IN$ =  CHR$ (8) THEN 600: REM  ARROW
+634  IF IN$ <  > "B" AND IN$ <  > "G" THEN 632
+636 G4$ = IN$:GD$ = "BIBBIT": IF G4$ = "G" THEN GD$ = "GRIBBIT"
+638  HOME : VTAB 21: PRINT GA$;", ";GB$;", ";GC$;" ";GD$
+640 GUESS$ = G1$ + G2$ + G3$ + G4$: RETURN 
+700  REM  ** DEFINE M$ FOR CLUE **
+702 M1$ =  LEFT$ (M$,1): IF M1$ = "G" THEN M1$ = "GRAND, "
+704  IF M1$ = "P" THEN M1$ = "PETIT, "
+706 M2$ =  MID$ (M$,2,1): IF M2$ = "M" THEN M2$ = "MINCE, "
+708  IF M2$ = "G" THEN M2$ = "GROS, "
+710 M3$ =  MID$ (M$,3,1): IF M3$ = "B" THEN M3$ = "BLEU "
+712  IF M3$ = "R" THEN M3$ = "ROUGE "
+714 M4$ =  RIGHT$ (M$,1): IF M4$ = "B" THEN M4$ = "BIBBIT"
+716  IF M4$ = "G" THEN M4$ = "GRIBBIT"
+720 M$ = M1$ + M2$ + M3$ + M4$: RETURN 
+1000  GR : HOME 
+1002  COLOR= 13: HLIN 0,39 AT 14: HLIN 0,39 AT 30
+1004 Y = 15:T = 40
+1010 TS$ = "G":A =  RND (1): IF A < .5 THEN TS$ = "P"
+1012 FT$ = "G":A =  RND (1): IF A < .5 THEN FT$ = "M"
+1014 RB$ = "R":A =  RND (1): IF A < .5 THEN RB$ = "B"
+1016 BG$ = "B":A =  RND (1): IF A < .5 THEN BG$ = "G"
+1018 P$(1) = TS$ + FT$ + RB$ + BG$:M$ = P$(1): GOSUB 700:M$(1) = M$
+1020 A =  INT ( RND (1) * 4) + 1: ON A GOTO 1022,1024,1026,1028
+1022  IF TS$ = "G" THEN TS$ = "P": GOTO 1030
+1023  IF TS$ = "P" THEN TS$ = "G": GOTO 1030
+1024  IF FT$ = "G" THEN FT$ = "M": GOTO 1030
+1025  IF FT$ = "M" THEN FT$ = "G": GOTO 1030
+1026  IF RB$ = "R" THEN RB$ = "B": GOTO 1030
+1027  IF RB$ = "B" THEN RB$ = "R": GOTO 1030
+1028  IF BG$ = "B" THEN BG$ = "G": GOTO 1030
+1029  IF BG$ = "G" THEN BG$ = "B"
+1030 P$(2) = TS$ + FT$ + RB$ + BG$:M$ = P$(2): GOSUB 700:M$(2) = M$
+1031 A =  INT ( RND (1) * 3) + 1: ON A GOTO 1032,1036,1040
+1032 X = 0:P$ = P$(1): GOSUB 400:N = 96: GOSUB 300:X = 8:P$ = P$(2): GOSUB 400:N = 76: GOSUB 300:X = 16:P$ = P$(1): GOSUB 400:N = 96: GOSUB 300:X = 24:P$ = P$(2): GOSUB 400:N = 76: GOSUB 300
+1034 X = 32: GOSUB 182:AN$ = P$(1):AN = 1:PA$ = "A B A B A B.": GOTO 1100
+1036 P$ = P$(1):X = 0: GOSUB 400:N = 96: GOSUB 300:P$ = P$(2):X = 8: GOSUB 400:N = 76: GOSUB 300:P$ = P$(2):X = 16: GOSUB 400:N = 76: GOSUB 300:P$ = P$(1):X = 24: GOSUB 400:N = 96: GOSUB 300
+1038 X = 32: GOSUB 182:AN$ = P$(2):AN = 2:PA$ = "A B B A B B.": GOTO 1100
+1040 P$ = P$(1):X = 0: GOSUB 400:N = 96: GOSUB 300:P$ = P$(1):X = 8: GOSUB 400:N = 96: GOSUB 300:P$ = P$(2):X = 16: GOSUB 400:N = 76: GOSUB 300:P$ = P$(1):X = 24: GOSUB 400:N = 96: GOSUB 300
+1042 X = 32: GOSUB 182:AN$ = P$(1):AN = 1:PA$ = "A A B A A B.": GOTO 1100
+1100  GOSUB 600
+1110  HOME :P$ = GUESS$: GOSUB 180: GOSUB 400
+1120  IF GUESS$ = AN$ THEN N = N(AN): POKE 34,20: GOSUB 300: GOTO 1200
+1122  IF GUESS$ <  > P$(1) AND GUESS$ <  > P$(2) THEN 1140
+1130  POKE 34,21: HOME : PRINT "MA SEQUENCE EST ";PA$:N = 96:T = 40: GOSUB 300:N = 128:T = 80: GOSUB 300:T = 40
+1132  VTAB 24: HTAB 1: PRINT "(APPUIE SUR <RETURN>.) ";
+1134  GOSUB 540: GOSUB 180: GOSUB 182: POKE 34,20: HOME : GOTO 1100
+1140  POKE 34,21: HOME : PRINT "CE DOIT ETRE ";M$(1): PRINT "OU UN ";M$(2);"."
+1142 N = 96:T = 40: GOSUB 300:N = 128:T = 80: GOSUB 300:T = 40
+1144  VTAB 24: HTAB 1: PRINT "(APPUIE SUR <RETURN>.) ";
+1146  GOSUB 540: GOSUB 180: GOSUB 182: POKE 34,20: HOME : GOTO 1100
+1200  HOME : PRINT "TU AS TROUVE !"
+1202  GOSUB 200
+1210  PRINT : PRINT "VEUX-TU REJOUER ? (O OU N) ";
+1212  GET IN$: IF IN$ <  > "O" AND IN$ <  > "N" THEN 1212
+1214  IF IN$ = "O" THEN 1000
+1500  TEXT : HOME : PRINT : POKE 791,2: PRINT  CHR$ (4);"RUN MENU"
+2000  REM   ** INSTRUCTIONS **
+2002  TEXT : HOME : VTAB 2: INVERSE : PRINT ">>>>>>>>>>>>>>>>>>>><<<<<<<<<<<<<<<<<<<<";
+2004  VTAB 23: PRINT ">>>>>>>>>>>>>>>>>>>><<<<<<<<<<<<<<<<<<<<";: NORMAL 
+2006  POKE 32,5: POKE 33,30: POKE 34,5: POKE 35,20: REM   WINDOW
+2008  POKE 48,30: VLIN 4,43 AT 0: VLIN 4,43 AT 39: HOME 
+2010  PRINT "    QUI VIENT ENSUITE ?"
+2012  PRINT : PRINT "LES MOPPETS SONT PLACES EN    L'UNE DES 3 SEQUENCES :"
+2014  PRINT : PRINT "     1  A B A B A B"
+2016  PRINT "     2  A B B A B B"
+2018  PRINT "     3  A A B A A B"
+2020  PRINT : PRINT "DETERMINE QUELLE SEQUENCE TU  VOIS."
+2022  PRINT "CHOISIS QUI VIENT ENSUITE."
+2030  FOR I = 1 TO 2000: NEXT 
+2080  VTAB 19: PRINT "APPUIE SUR <RETURN> POUR      JOUER. ";
+2082  GOSUB 530
+2084  TEXT : HOME : RETURN 
+3000  GR : HOME :Y = 15:P$(1) = "GGRB":P$(2) = "PMBG":T = 40
+3010 X = 0:P$ = P$(1): GOSUB 400:N = 96: GOSUB 300:X = 8:P$ = P$(2): GOSUB 400:N = 76: GOSUB 300:X = 16:P$ = P$(1): GOSUB 400:N = 96: GOSUB 300:X = 24:P$ = P$(2): GOSUB 400:N = 76: GOSUB 300
+3012 X = 32: GOSUB 182
+3020  HTAB 10: PRINT "QUI VIENT ENSUITE ?"
+3030  PRINT : PRINT "DETERMINE LA SEQUENCE QUE TU VOIS ET QUIVIENT ENSUITE."
+3040  PRINT "APPUIE SUR <RETURN> QUAND TU ES PRET. ";
+3042  GOSUB 530
+3044  GOSUB 180:P$ = P$(1): GOSUB 400:N = 96: GOSUB 300
+3050  HOME : RETURN 
+10000  CALL 37632
diff --git a/laparadedesmarionnettes/basic/REPRESENTE MON CONTRAIRE.BAS b/laparadedesmarionnettes/basic/REPRESENTE MON CONTRAIRE.BAS
new file mode 100644
index 0000000..8de7e4f
--- /dev/null
+++ b/laparadedesmarionnettes/basic/REPRESENTE MON CONTRAIRE.BAS	
@@ -0,0 +1,169 @@
+0  ONERR  GOTO 10000
+1  POKE 791,32
+5 D$ =  CHR$ (4)
+7  REM  MAKE MY OPPOSITE, COPYRIGHT 1983, LESLIE M GRIMM
+10  TEXT : HOME 
+12 ARROW$ =  CHR$ (8)
+14 KB =  - 16384:SPACE = 32 + 128
+30  POKE  - 16368,0: GOSUB 3000
+32  VTAB 24: HTAB 1
+40  PRINT "VEUX-TU DES INSTRUCTIONS? (O OU N) ";
+42  GOSUB 80: IF IN$ <  > "O" AND  ASC (IN$) <  > 27 AND IN$ <  > "N" THEN 42
+44  IF IN$ = "O" THEN  GOSUB 2000
+45  IF  ASC (IN$) = 27 THEN 60
+50  GOTO 1000
+60  HOME : PRINT "DO YOU WANT TO STOP? (Y OR N) ";
+62  GET IN$: IF IN$ <  > "Y" AND IN$ <  > "N" THEN 62
+64  IF IN$ = "Y" THEN 1500
+66  HOME : PRINT : GOTO 40
+80  GET IN$: IF  LEN (IN$) < 1 THEN 80
+82  RETURN 
+100  COLOR= 14: VLIN Y + 1,Y + 3 AT X + 3: VLIN Y + 2,Y + 3 AT X + 4: HLIN X + 3,X + 5 AT Y + 14: COLOR= 9: PLOT X + 4,Y + 1: COLOR= 15: VLIN Y + 4,Y + 13 AT X + 3: VLIN Y + 4,Y + 13 AT X + 4: RETURN 
+102  COLOR= 14: VLIN Y + 4,Y + 6 AT X + 3: VLIN Y + 5,Y + 6 AT X + 4: HLIN X + 3,X + 5 AT Y + 14: COLOR= 9: PLOT X + 4,Y + 4: COLOR= 15: VLIN Y + 7,Y + 13 AT X + 3: VLIN Y + 7,Y + 13 AT X + 4: RETURN 
+110  COLOR= 15: IF G1$ = "GRAND" THEN  VLIN Y + 5,Y + 8 AT X + 5: RETURN 
+112  VLIN Y + 8,Y + 10 AT X + 5: RETURN 
+114  COLOR= 0: IF G1$ = "GRAND" THEN  VLIN Y + 4,Y + 13 AT X + 4: RETURN 
+116  VLIN Y + 7,Y + 13 AT X + 4: RETURN 
+120  COLOR= HUE: IF G1$ = "GRAND" AND G2$ = "GROS" THEN  VLIN Y + 4,Y + 13 AT X + 3: VLIN Y + 4,Y + 13 AT X + 4: VLIN Y + 5,Y + 8 AT X + 5: RETURN 
+122  IF G1$ = "GRAND" AND G2$ = "MINCE" THEN  VLIN Y + 4,Y + 13 AT X + 3: RETURN 
+124  IF G1$ = "PETIT" AND G2$ = "GROS" THEN  VLIN Y + 7,Y + 13 AT X + 3: VLIN Y + 7,Y + 13 AT X + 4: VLIN Y + 8,Y + 10 AT X + 5: RETURN 
+126  IF G1$ = "PETIT" AND G2$ = "MINCE" THEN  VLIN Y + 7,Y + 13 AT X + 3: RETURN 
+130  COLOR= 14: IF G1$ = "GRAND" THEN  VLIN Y + 1,Y + 2 AT X + 2: PLOT X + 1,Y + 8: PLOT X + 2,Y + 9: COLOR= 0: PLOT X + 4,Y + 3: RETURN 
+134  COLOR= 14: VLIN Y + 4,Y + 5 AT X + 2: PLOT X + 1,Y + 10: PLOT X + 2,Y + 11: COLOR= 0: PLOT X + 4,Y + 6: RETURN 
+140  COLOR= 14: IF G1$ = "GRAND" THEN  HLIN X + 5,X + 6 AT Y + 2: PLOT X + 6,Y + 3: VLIN Y + 13,Y + 14 AT X + 6: PLOT X + 2,Y + 14: RETURN 
+142  HLIN X + 5,X + 6 AT Y + 5: PLOT X + 6,Y + 6: VLIN Y + 13,Y + 14 AT X + 6: PLOT X + 2,Y + 14: RETURN 
+150 T = 5: FOR I = 1 TO 20: COLOR=  INT ( RND (1) * 15) + 1: HLIN X - 1,X + 8 AT Y - 1: VLIN Y - 1,Y + 16 AT X + 8: HLIN X - 1,X + 8 AT Y + 16: VLIN Y - 1,Y + 16 AT X - 1
+152 P =  RND (1) * 200 + 10: GOSUB 300: NEXT I: RETURN 
+160  COLOR= 15: HLIN X - 1,X + 8 AT Y - 1: VLIN Y - 1,Y + 16 AT X + 8: HLIN X - 1,X + 8 AT Y + 16: VLIN Y - 1,Y + 16 AT X - 1
+162 T = 40:P = 96: GOSUB 300: GOSUB 300:T = 80:P = 192: GOSUB 300: RETURN 
+164  COLOR= 15: HLIN X - 1,X + 8 AT Y - 1: VLIN Y - 1,Y + 16 AT X + 8: HLIN X - 1,X + 8 AT Y + 16: VLIN Y - 1,Y + 16 AT X - 1: RETURN 
+170  COLOR= 0: FOR I = X TO X + 7: VLIN Y,Y + 16 AT I: NEXT I: RETURN 
+180  COLOR= 0: FOR I = X + 1 TO X + 6: VLIN Y + 1,Y + 14 AT I: NEXT I: RETURN 
+250  FOR I = 1 TO 700: NEXT I: RETURN 
+300  POKE 768,P: POKE 769,T: CALL 770: RETURN 
+400  GOSUB 80: IF IN$ = "?" THEN  POP : GOSUB 2000: GOTO 1000
+402  IF  ASC (IN$) = 27 THEN  GOSUB 420
+404  RETURN 
+420  HOME : PRINT "VEUX-TU T'ARRETER ? (O OU N) ";
+422  GET IN$: IF IN$ <  > "O" AND IN$ <  > "N" THEN 422
+424  IF IN$ = "O" THEN 1500
+426  HOME : RETURN 
+1000 X = 8:Y = 15
+1010  GR : HOME : POKE 34,22: HOME 
+1020 A =  RND (1):TS$ = "GRAND": IF A < .5 THEN TS$ = "PETIT"
+1022 A =  RND (1):FT$ = "GROS": IF A < .5 THEN FT$ = "MINCE"
+1024 A =  RND (1):RB$ = "ROUGE": IF A < .5 THEN RB$ = "BLEU"
+1026 A =  RND (1):BG$ = "BIBBIT": IF A < .5 THEN BG$ = "GRIBBIT"
+1030 G1$ = TS$:G2$ = FT$:G3$ = RB$:G4$ = BG$
+1032  IF TS$ = "GRAND" THEN  GOSUB 100:C1$ = "PETIT"
+1034  IF TS$ = "PETIT" THEN  GOSUB 102:C1$ = "GRAND"
+1036  IF FT$ = "GROS" THEN  GOSUB 110:C2$ = "MINCE"
+1038  IF FT$ = "MINCE" THEN  GOSUB 114:C2$ = "GROS"
+1040 HUE = 1:C3$ = "BLEU": IF RB$ = "BLEU" THEN HUE = 6:C3$ = "ROUGE"
+1042  GOSUB 120
+1044  IF BG$ = "GRIBBIT" THEN  GOSUB 130:C4$ = "UN BIBBIT"
+1046  IF BG$ = "BIBBIT" THEN  GOSUB 140:C4$ = "UN GRIBBIT"
+1050  GOSUB 164
+1090 GUESS = 0:C = 0
+1100 X = 24: POKE 34,20: HOME : GOSUB 180: GOSUB 164: POKE 34,22: HOME 
+1102  PRINT "GRAND OU PETIT ? (G OU P) ";
+1110  GOSUB 400:G1$ = IN$: IF G1$ = ARROW$ THEN 1100
+1112  IF G1$ <  > "G" AND G1$ <  > "P" THEN 1100
+1114  IF G1$ = "G" THEN G1$ = "GRAND": GOSUB 100
+1116  IF G1$ = "P" THEN G1$ = "PETIT": GOSUB 102
+1117  HOME : VTAB 21: PRINT G1$: POKE 34,22: HOME 
+1118 T = 10:P = 192: GOSUB 300
+1120  HOME : PRINT "GROS OU MINCE ? (G OU M) ";
+1122  GOSUB 400:G2$ = IN$: IF G2$ = ARROW$ THEN 1100
+1123  IF G2$ <  > "G" AND G2$ <  > "M" THEN 1120
+1124  IF G2$ = "G" THEN G2$ = "GROS": GOSUB 110
+1126  IF G2$ = "M" THEN G2$ = "MINCE": GOSUB 114
+1127  HOME : VTAB 21: PRINT G1$", ";G2$
+1128 T = 10:P = 171: GOSUB 300
+1130  HOME : PRINT "ROUGE OU BLEU ? (R OU B) ";
+1132  GOSUB 400:G3$ = IN$: IF G3$ = ARROW$ THEN 1100
+1133  IF G3$ <  > "R" AND G3$ <  > "B" THEN 1130
+1134  IF G3$ = "R" THEN G3$ = "ROUGE":HUE = 1: GOSUB 120
+1136  IF G3$ = "B" THEN G3$ = "BLEU":HUE = 6: GOSUB 120
+1137  HOME : VTAB 21: PRINT G1$", ";G2$", ";G3$
+1138 T = 10:P = 152: GOSUB 300
+1140  HOME : PRINT "BIBBIT OU GRIBBIT? (B OU G) ";
+1142  GOSUB 400:G4$ = IN$: IF G4$ = ARROW$ THEN 1100
+1143  IF G4$ <  > "B" AND G4$ <  > "G" THEN 1140
+1144  IF G4$ = "B" THEN G4$ = "BIBBIT": GOSUB 140
+1146  IF G4$ = "G" THEN G4$ = "GRIBBIT": GOSUB 130
+1147  HOME : VTAB 21: PRINT G1$", ";G2$;", ";G3$" ";G4$
+1148 T = 10:P = 144: GOSUB 300
+1150  IF G1$ <  > TS$ AND G2$ <  > FT$ AND G3$ <  > RB$ AND G4$ <  > BG$ THEN  FOR I = 1 TO 500: NEXT : GOTO 1200
+1160  FOR I = 1 TO 500: NEXT I: GOSUB 162: POKE 34,21
+1162  FOR I = 1 TO 4:CL$(I) = "": NEXT :K = 0
+1164  HOME : PRINT "ON LE FAIT ";
+1166  IF G1$ = TS$ THEN K = K + 1:CL$(K) = C1$
+1168  IF G2$ = FT$ THEN K = K + 1:CL$(K) = C2$
+1170  IF G3$ = RB$ THEN K = K + 1:CL$(K) = C3$
+1172  IF G4$ = BG$ THEN K = K + 1:CL$(K) = C4$
+1174  IF K > 1 THEN 1178
+1176  PRINT CL$(K);".": GOTO 1190
+1178  IF K > 2 THEN 1182
+1180  PRINT CL$(1);" AND ";CL$(2);".": GOTO 1190
+1182  IF K > 3 THEN 1186
+1184  PRINT CL$(1)", ";CL$(2);" ET ";CL$(3);".": GOTO 1190
+1186  PRINT CL$(1);", ";CL$(2);", ";CL$(3);" ET":PRINT CL$(4);"."
+1190  VTAB 24: HTAB 1: PRINT "(APPUIE SUR <RETURN>.) ";
+1192  GOSUB 400: IF IN$ <  >  CHR$ (13) THEN  VTAB 24: HTAB 1: CALL  - 958: GOTO 1190
+1196  POKE 34,20: HOME : GOSUB 180: GOTO 1100
+1200  HOME : PRINT "TU AS CREE MON CONTRAIRE !": GOSUB 150
+1210  PRINT : PRINT "VEUX-TU REJOUER ? (O OU N) ";
+1212  GET IN$: IF IN$ <  > "O" AND IN$ <  > "N" THEN 1212
+1214  IF IN$ = "O" THEN 1000
+1216  GOTO 1500
+1500  TEXT : HOME : PRINT : POKE 791,2: PRINT  CHR$ (4);"RUN MENU"
+1550  POKE 34,20: HOME : PRINT "VEUX-TU T'ARRETER ? (O OU N) ";
+1552  GET IN$: IF IN$ <  > "O" AND IN$ <  > "N" THEN 1552
+1554  IF IN$ = "O" THEN 1500
+1556  HOME : GOSUB 170: GOTO 1100
+2000  REM   ** INSTRUCTIONS **
+2002  TEXT : HOME : VTAB 2: INVERSE : PRINT ">>>>>>>>>>>>>>>>>>>><<<<<<<<<<<<<<<<<<<<";
+2004  VTAB 23: PRINT ">>>>>>>>>>>>>>>>>>>><<<<<<<<<<<<<<<<<<<<";: NORMAL 
+2006  POKE 32,5: POKE 33,30: POKE 34,5: POKE 35,20: REM   WINDOW
+2008  POKE 48,30: VLIN 4,43 AT 0: VLIN 4,43 AT 39: HOME 
+2010  PRINT "  REPRESENTE MON CONTRAIRE !"
+2012  PRINT : PRINT : PRINT "TU VAS VOIR L'IMAGE D'UN      MOPPET."
+2014  PRINT :         PRINT "CREE SON CONTRAIRE DANS       LE CADRE DE DROITE."
+2016  PRINT :         PRINT "L'IMAGE CLIGNOTERA QUAND      SON CONTRAIRE AURA ETE CREE."
+2025  FOR I = 1 TO 2000: NEXT I: POKE  - 16368,0
+2030  VTAB 19: PRINT "APPUIE SUR <RETURN> POUR      JOUER. ";
+2032  GOSUB 80: IF  ASC (IN$) <  > 13 AND  ASC (IN$) <  > 27 THEN 2032
+2034  IF  ASC (IN$) = 13 THEN  TEXT : HOME : RETURN 
+2040  HOME : PRINT "VEUX-TU T'ARRETER ? (O/N) ";
+2042  GET IN$: IF IN$ <  > "O" AND IN$ <  > "N" THEN 2042
+2044  IF IN$ = "O" THEN 1500
+2046  TEXT : HOME : RETURN 
+3000  GR : HOME : HTAB 8: PRINT "VOICI MON CONTRAIRE !"
+3002 X = 10:Y = 15: GOSUB 164:X = 24: GOSUB 164:X = 10: GOSUB 100:G1$ = "GRAND":G2$ = "MINCE":G3$ = "ROUGE":HUE = 1:G4$ = "GRIBBIT": GOSUB 114: GOSUB 120: GOSUB 130
+3004  IF  PEEK (KB) = SPACE THEN 3092
+3006  GOSUB 250
+3010 X = 24: GOSUB 164: GOSUB 102
+3020  VTAB 23: HTAB 2: PRINT "PETIT";
+3021 G1$ = "PETIT":G2$ = "GROS":HUE = 6: REM  SHORT FAT BLUE BIBBIT
+3022 T = 10:P = 192: GOSUB 300
+3024  IF  PEEK (KB) = SPACE THEN 3092
+3026  GOSUB 250
+3030  GOSUB 110
+3040  HTAB 11: PRINT "GROS";
+3042 T = 10:P = 171: GOSUB 300
+3044  IF  PEEK (KB) = SPACE THEN 3092
+3046  GOSUB 250
+3050  GOSUB 120
+3060  HTAB 21: PRINT "BLEU";
+3062 T = 10:P = 152: GOSUB 300:
+3064  IF  PEEK (KB) = SPACE THEN 3092
+3066  GOSUB 250
+3070  GOSUB 140
+3080  HTAB 31: PRINT "BIBBIT"
+3082 T = 10:P = 144: GOSUB 300
+3084  IF  PEEK (KB) = SPACE THEN 3092
+3086  GOSUB 250: GOSUB 150
+3092  REM 
+3094  RETURN 
+10000  CALL 37632
diff --git a/laparadedesmarionnettes/basic/REPRODUIS MON JUMEAU.BAS b/laparadedesmarionnettes/basic/REPRODUIS MON JUMEAU.BAS
new file mode 100644
index 0000000..63d8902
--- /dev/null
+++ b/laparadedesmarionnettes/basic/REPRODUIS MON JUMEAU.BAS	
@@ -0,0 +1,171 @@
+0  ONERR  GOTO 10000
+1  POKE 791,32
+5 D$ =  CHR$ (4)
+7  REM  MAKE MY TWIN, COPYRIGHT 1981, LESLIE M GRIMM
+10  TEXT : HOME 
+12 ARROW$ =  CHR$ (8)
+14 KB =  - 16384:SPACE = 32 + 128
+30  POKE  - 16368,0: GOSUB 3000
+32  VTAB 24: HTAB 1
+40  PRINT "VEUX-TU DES INSTRUCTIONS ? (O OU N) ";
+42  GOSUB 80: IF IN$ <  > "O" AND  ASC (IN$) <  > 27 AND IN$ <  > "N" THEN 42
+44  IF IN$ = "O" THEN  GOSUB 2000
+45  IF  ASC (IN$) = 27 THEN 60
+50  GOTO 1000
+60  HOME : PRINT "VEUX-TU T'ARRETER ? (O OU N) ";
+62  GET IN$: IF IN$ <  > "O" AND IN$ <  > "N" THEN 62
+64  IF IN$ = "O" THEN 1500
+66  HOME : PRINT : GOTO 40
+80  GET IN$: IF  LEN (IN$) < 1 THEN 80
+82  RETURN 
+100  COLOR= 14: VLIN Y + 1,Y + 3 AT X + 3: VLIN Y + 2,Y + 3 AT X + 4: HLIN X + 3,X + 5 AT Y + 14: COLOR= 9: PLOT X + 4,Y + 1: COLOR= 15: VLIN Y + 4,Y + 13 AT X + 3: VLIN Y + 4,Y + 13 AT X + 4: RETURN 
+102  COLOR= 14: VLIN Y + 4,Y + 6 AT X + 3: VLIN Y + 5,Y + 6 AT X + 4: HLIN X + 3,X + 5 AT Y + 14: COLOR= 9: PLOT X + 4,Y + 4: COLOR= 15: VLIN Y + 7,Y + 13 AT X + 3: VLIN Y + 7,Y + 13 AT X + 4: RETURN 
+110  COLOR= 15: IF G1$ = "GRAND" THEN  VLIN Y + 5,Y + 8 AT X + 5: RETURN 
+112  VLIN Y + 8,Y + 10 AT X + 5: RETURN 
+114  COLOR= 0: IF G1$ = "GRAND" THEN  VLIN Y + 4,Y + 13 AT X + 4: RETURN 
+116  VLIN Y + 7,Y + 13 AT X + 4: RETURN 
+120  COLOR= HUE: IF G1$ = "GRAND" AND G2$ = "GROS" THEN  VLIN Y + 4,Y + 13 AT X + 3: VLIN Y + 4,Y + 13 AT X + 4: VLIN Y + 5,Y + 8 AT X + 5: RETURN 
+122  IF G1$ = "GRAND" AND G2$ = "MINCE" THEN  VLIN Y + 4,Y + 13 AT X + 3: RETURN 
+124  IF G1$ = "PETIT" AND G2$ = "GROS" THEN  VLIN Y + 7,Y + 13 AT X + 3: VLIN Y + 7,Y + 13 AT X + 4: VLIN Y + 8,Y + 10 AT X + 5: RETURN 
+126  IF G1$ = "PETIT" AND G2$ = "MINCE" THEN  VLIN Y + 7,Y + 13 AT X + 3: RETURN 
+130  COLOR= 14: IF G1$ = "GRAND" THEN  VLIN Y + 1,Y + 2 AT X + 2: PLOT X + 1,Y + 8: PLOT X + 2,Y + 9: COLOR= 0: PLOT X + 4,Y + 3: RETURN 
+134  COLOR= 14: VLIN Y + 4,Y + 5 AT X + 2: PLOT X + 1,Y + 10: PLOT X + 2,Y + 11: COLOR= 0: PLOT X + 4,Y + 6: RETURN 
+140  COLOR= 14: IF G1$ = "GRAND" THEN  HLIN X + 5,X + 6 AT Y + 2: PLOT X + 6,Y + 3: VLIN Y + 13,Y + 14 AT X + 6: PLOT X + 2,Y + 14: RETURN 
+142  HLIN X + 5,X + 6 AT Y + 5: PLOT X + 6,Y + 6: VLIN Y + 13,Y + 14 AT X + 6: PLOT X + 2,Y + 14: RETURN 
+150 T = 5: FOR I = 1 TO 20: COLOR=  INT ( RND (1) * 15) + 1: HLIN X - 1,X + 8 AT Y - 1: VLIN Y - 1,Y + 16 AT X + 8: HLIN X - 1,X + 8 AT Y + 16: VLIN Y - 1,Y + 16 AT X - 1
+152 P =  RND (1) * 200 + 10: GOSUB 300: NEXT I: RETURN 
+160  COLOR= 15: HLIN X - 1,X + 8 AT Y - 1: VLIN Y - 1,Y + 16 AT X + 8: HLIN X - 1,X + 8 AT Y + 16: VLIN Y - 1,Y + 16 AT X - 1
+162 T = 40:P = 96: GOSUB 300: GOSUB 300:T = 80:P = 192: GOSUB 300: RETURN 
+164  COLOR= 15: HLIN X - 1,X + 8 AT Y - 1: VLIN Y - 1,Y + 16 AT X + 8: HLIN X - 1,X + 8 AT Y + 16: VLIN Y - 1,Y + 16 AT X - 1: RETURN 
+170  COLOR= 0: FOR I = X TO X + 7: VLIN Y,Y + 16 AT I: NEXT I: RETURN 
+180  COLOR= 0: FOR I = X + 1 TO X + 6: VLIN Y + 1,Y + 14 AT I: NEXT I: RETURN 
+250  FOR I = 1 TO 700: NEXT I: RETURN 
+300  POKE 768,P: POKE 769,T: CALL 770: RETURN 
+400  GOSUB 80: IF IN$ = "?" THEN  POP : GOSUB 2000: GOTO 1000
+402  IF  ASC (IN$) = 27 THEN  GOSUB 420
+404  RETURN 
+420  HOME : PRINT "VEUX-TU T'ARRETER ? (O OR N) ";
+422  GET IN$: IF IN$ <  > "O" AND IN$ <  > "N" THEN 422
+424  IF IN$ = "O" THEN 1500
+426  HOME : RETURN 
+1000 X = 8:Y = 15
+1010  GR : HOME : POKE 34,22: HOME 
+1020 A =  RND (1):TS$ = "GRAND": IF A < .5 THEN TS$ = "PETIT"
+1022 A =  RND (1):FT$ = "GROS": IF A < .5 THEN FT$ = "MINCE"
+1024 A =  RND (1):RB$ = "ROUGE": IF A < .5 THEN RB$ = "BLEU"
+1026 A =  RND (1):BG$ = "BIBBIT": IF A < .5 THEN BG$ = "GRIBBIT"
+1030 G1$ = TS$:G2$ = FT$:G3$ = RB$:G4$ = BG$
+1032  IF TS$ = "GRAND" THEN  GOSUB 100
+1034  IF TS$ = "PETIT" THEN  GOSUB 102
+1036  IF FT$ = "GROS" THEN  GOSUB 110
+1038  IF FT$ = "MINCE" THEN  GOSUB 114
+1040 HUE = 1: IF RB$ = "BLEU" THEN HUE = 6
+1042  GOSUB 120
+1044  IF BG$ = "GRIBBIT" THEN  GOSUB 130
+1046  IF BG$ = "BIBBIT" THEN  GOSUB 140
+1050  GOSUB 164
+1090 GUESS = 0:C = 0
+1100 X = 24: POKE 34,20: HOME : GOSUB 180: GOSUB 164: POKE 34,22: HOME 
+1102  PRINT "GRAND OU PETIT ? (G OU P) ";
+1110  GOSUB 400:G1$ = IN$: IF G1$ = ARROW$ THEN 1100
+1112  IF G1$ <  > "G" AND G1$ <  > "P" THEN 1100
+1114  IF G1$ = "G" THEN G1$ = "GRAND": GOSUB 100
+1116  IF G1$ = "P" THEN G1$ = "PETIT": GOSUB 102
+1117  HOME : VTAB 21: PRINT G1$: POKE 34,22: HOME 
+1118 T = 10:P = 192: GOSUB 300
+1120  HOME : PRINT "GROS OU MINCE ? (G OU M) ";
+1122  GOSUB 400:G2$ = IN$: IF G2$ = ARROW$ THEN 1100
+1123  IF G2$ <  > "G" AND G2$ <  > "M" THEN 1120
+1124  IF G2$ = "G" THEN G2$ = "GROS": GOSUB 110
+1126  IF G2$ = "M" THEN G2$ = "MINCE": GOSUB 114
+1127  HOME : VTAB 21: PRINT G1$", ";G2$
+1128 T = 10:P = 171: GOSUB 300
+1130  HOME : PRINT "ROUGE OU BLEU ? (R OU B) ";
+1132  GOSUB 400:G3$ = IN$: IF G3$ = ARROW$ THEN 1100
+1133  IF G3$ <  > "R" AND G3$ <  > "B" THEN 1130
+1134  IF G3$ = "R" THEN G3$ = "ROUGE":HUE = 1: GOSUB 120
+1136  IF G3$ = "B" THEN G3$ = "BLEU":HUE = 6: GOSUB 120
+1137  HOME : VTAB 21: PRINT G1$", ";G2$", ";G3$
+1138 T = 10:P = 152: GOSUB 300
+1140  HOME : PRINT "BIBBIT OR GRIBBIT? (B OR G) ";
+1142  GOSUB 400:G4$ = IN$: IF G4$ = ARROW$ THEN 1100
+1143  IF G4$ <  > "B" AND G4$ <  > "G" THEN 1140
+1144  IF G4$ = "B" THEN G4$ = "BIBBIT": GOSUB 140
+1146  IF G4$ = "G" THEN G4$ = "GRIBBIT": GOSUB 130
+1147  HOME : VTAB 21: PRINT G1$", ";G2$;", ";G3$" ";G4$
+1148 T = 10:P = 144: GOSUB 300
+1150  IF G1$ + G2$ + G3$ + G4$ = TS$ + FT$ + RB$ + BG$ THEN  FOR I = 1 TO 500: NEXT I: GOTO 1200
+1160  FOR I = 1 TO 500: NEXT I: GOSUB 162: POKE 34,21
+1162  FOR I = 1 TO 4:CL$(I) = "": NEXT :K = 0
+1164  HOME : PRINT "ON LE FAIT ";
+1166  IF G1$ <  > TS$ THEN K = K + 1:CL$(K) = TS$
+1168  IF G2$ <  > FT$ THEN K = K + 1:CL$(K) = FT$
+1170  IF G3$ <  > RB$ THEN K = K + 1:CL$(K) = RB$
+1172  IF G4$ <  > BG$ THEN K = K + 1:CL$(K) = "UN " + BG$
+1174  IF K > 1 THEN 1178
+1176  PRINT CL$(K);".": GOTO 1190
+1178  IF K > 2 THEN 1182
+1180  PRINT CL$(1);" AND ";CL$(2);".": GOTO 1190
+1182  IF K > 3 THEN 1186
+1184  PRINT CL$(1)", ";CL$(2);" ET ";CL$(3);".": GOTO 1190
+1186  PRINT CL$(1);", ";CL$(2);", ";CL$(3);" ET ";CL$(4);"."
+1190  VTAB 24: HTAB 1: PRINT "(APPUIE SUR <RETURN>) ";
+1192  GOSUB 400: IF IN$ <  >  CHR$ (13) THEN  VTAB 24: HTAB 1: CALL  - 958: GOTO 1190
+1196  POKE 34,20: HOME : GOSUB 180: GOTO 1100
+1200  HOME : PRINT "TU AS TROUVE !": GOSUB 150
+1210  PRINT : PRINT "VEUX-TU REJOUER ? (O OU N) ";
+1212  GET IN$: IF IN$ <  > "O" AND IN$ <  > "N" THEN 1212
+1214  IF IN$ = "O" THEN 1000
+1216  GOTO 1500
+1500  TEXT : HOME : PRINT : POKE 791,2: PRINT  CHR$ (4);"RUN MENU"
+1550  POKE 34,20: HOME : PRINT "VEUX-TU T'ARRETER ? (O OU N) ";
+1552  GET IN$: IF IN$ <  > "O" AND IN$ <  > "N" THEN 1552
+1554  IF IN$ = "O" THEN 1500
+1556  HOME : GOSUB 170: GOTO 1100
+2000  REM   ** INSTRUCTIONS **
+2002  TEXT : HOME : VTAB 2: INVERSE : PRINT ">>>>>>>>>>>>>>>>>>>><<<<<<<<<<<<<<<<<<<<";
+2004  VTAB 23: PRINT ">>>>>>>>>>>>>>>>>>>><<<<<<<<<<<<<<<<<<<<";: NORMAL 
+2006  POKE 32,5: POKE 33,30: POKE 34,5: POKE 35,20: REM   WINDOW
+2008  POKE 48,30: VLIN 4,43 AT 0: VLIN 4,43 AT 39: HOME 
+12010  PRINT " REPRODUIS MON JUMEAU"
+2012  PRINT : PRINT : PRINT "TU VAS VOIR UNE IMAGE D'UNE   MARIONNETTE"
+2014  PRINT : PRINT "REPRODUIS SON JUMEAU DANS LE  CADRE VIDE."
+2016  PRINT : PRINT "LE CADRE CLIGNOTERA QUAND TU  AURAS REPRODUIT LE JUMEAU."
+2025  FOR I = 1 TO 2000: NEXT I: POKE  - 16368,0
+2030  VTAB 19: PRINT "APPUIE SUR <RETURN> POUR      JOUER. ";
+2032  GOSUB 80: IF  ASC (IN$) <  > 13 AND  ASC (IN$) <  > 27 THEN 2032
+2034  IF  ASC (IN$) = 13 THEN  TEXT : HOME : RETURN 
+2040  HOME : PRINT "VEUX-TU T'ARRETER ? (O/N) ";
+2042  GET IN$: IF IN$ <  > "O" AND IN$ <  > "N" THEN 2042
+2044  IF IN$ = "O" THEN 1500
+2046  TEXT : HOME : RETURN 
+3000  GR : HOME : HTAB 10: PRINT "VOICI MON JUMEAU :"
+3002 X = 10:Y = 15: GOSUB 164:X = 24: GOSUB 164:X = 10: GOSUB 100:G1$ = "GRAND":G2$ = "MINCE":G3$ = "ROUGE":HUE = 1:G4$ = "BIBBIT": GOSUB 114: GOSUB 120: GOSUB 140
+3004  IF  PEEK (KB) = SPACE THEN 3092
+3006  GOSUB 250
+3010 X = 24: GOSUB 164: GOSUB 100
+3020  VTAB 23: HTAB 2: PRINT "GRAND";
+3022 T = 10:P = 192: GOSUB 300
+3024  IF  PEEK (KB) = SPACE THEN 3092
+3026  GOSUB 250
+3030  GOSUB 114:HUE = 1:G2$ = "MINCE"
+3040  HTAB 11: PRINT "MINCE";
+3042 T = 10:P = 171: GOSUB 300
+3044  IF  PEEK (KB) = SPACE THEN 3092
+3046  GOSUB 250
+3050  GOSUB 120
+3060  HTAB 21: PRINT "ROUGE";
+3062 T = 10:P = 152: GOSUB 300:
+3064  IF  PEEK (KB) = SPACE THEN 3092
+3066  GOSUB 250
+3070  GOSUB 140
+3080  HTAB 31: PRINT "BIBBIT"
+3082 T = 10:P = 144: GOSUB 300
+3084  IF  PEEK (KB) = SPACE THEN 3092
+3086  GOSUB 250: GOSUB 150
+3088  HTAB 5: PRINT "(";: INVERSE : PRINT "B";: NORMAL : PRINT "IBBIT...";: INVERSE : PRINT "G";: NORMAL : PRINT "ROS NEZ, ";: INVERSE 
+3090  PRINT "G";: NORMAL : PRINT "ROS PIEDS)"
+3091  PRINT 
+3092  REM 
+3094  RETURN 
+10000  CALL 37632
diff --git a/laparadedesmarionnettes/basic/majuscules.txt b/laparadedesmarionnettes/basic/majuscules.txt
new file mode 100644
index 0000000..c5122c7
--- /dev/null
+++ b/laparadedesmarionnettes/basic/majuscules.txt
@@ -0,0 +1,26 @@
+ 97 A
+ 98 B
+ 99 C
+100 D
+101 E
+102 F
+103 G
+104 H
+105 I
+106 J
+107 K
+108 L
+109 M
+110 N
+111 O
+112 P
+113 Q
+114 R
+115 S
+116 T
+117 U
+118 V
+119 W
+120 X
+121 Y
+122 Z
diff --git a/laparadedesmarionnettes/disk/Moptown Parade.dsk b/laparadedesmarionnettes/disk/Moptown Parade.dsk
new file mode 100755
index 0000000..3e050e9
Binary files /dev/null and b/laparadedesmarionnettes/disk/Moptown Parade.dsk differ
diff --git a/laparadedesmarionnettes/disk/VIFI Nathan - La parade des marionnettes.dsk b/laparadedesmarionnettes/disk/VIFI Nathan - La parade des marionnettes.dsk
new file mode 100755
index 0000000..1fc276c
Binary files /dev/null and b/laparadedesmarionnettes/disk/VIFI Nathan - La parade des marionnettes.dsk differ
diff --git a/laparadedesmarionnettes/disk/work/FINAL copie.dsk b/laparadedesmarionnettes/disk/work/FINAL copie.dsk
new file mode 100755
index 0000000..2a16328
Binary files /dev/null and b/laparadedesmarionnettes/disk/work/FINAL copie.dsk differ
diff --git a/laparadedesmarionnettes/disk/work/FINAL.dsk b/laparadedesmarionnettes/disk/work/FINAL.dsk
new file mode 100755
index 0000000..6b0da59
Binary files /dev/null and b/laparadedesmarionnettes/disk/work/FINAL.dsk differ
diff --git a/laparadedesmarionnettes/disk/work/FINAL.dsk.fdi b/laparadedesmarionnettes/disk/work/FINAL.dsk.fdi
new file mode 100644
index 0000000..5eeb5ff
Binary files /dev/null and b/laparadedesmarionnettes/disk/work/FINAL.dsk.fdi differ
diff --git a/laparadedesmarionnettes/disk/work/Moptown Parade VF copie.dsk b/laparadedesmarionnettes/disk/work/Moptown Parade VF copie.dsk
new file mode 100755
index 0000000..1fc276c
Binary files /dev/null and b/laparadedesmarionnettes/disk/work/Moptown Parade VF copie.dsk differ
diff --git a/laparadedesmarionnettes/images/HOME SWEET HOME.LPIC b/laparadedesmarionnettes/images/HOME SWEET HOME.LPIC
new file mode 100644
index 0000000..8b3c751
Binary files /dev/null and b/laparadedesmarionnettes/images/HOME SWEET HOME.LPIC differ
diff --git a/laparadedesmarionnettes/images/MOPTOWN PARADE.LPIC b/laparadedesmarionnettes/images/MOPTOWN PARADE.LPIC
new file mode 100644
index 0000000..69ff116
Binary files /dev/null and b/laparadedesmarionnettes/images/MOPTOWN PARADE.LPIC differ