From 793d8c94cd0fd4f0211d08859c13b8ca062b4bfd Mon Sep 17 00:00:00 2001
From: Antoine Vignau <34219772+antoinevignau@users.noreply.github.com>
Date: Wed, 20 Dec 2023 21:24:05 +0100
Subject: [PATCH] on va y arriver

---
 .../fr/Kikekankoi Solution Oric.txt           |   71 +
 kikekankoi/xavsnap/Actions_KKKK.txt           |  182 +++
 kikekankoi/xavsnap/KKKK_a2.bas                | 1206 +++++++++++++++++
 3 files changed, 1459 insertions(+)
 create mode 100644 cauchemarhouse/fr/Kikekankoi Solution Oric.txt
 create mode 100644 kikekankoi/xavsnap/Actions_KKKK.txt
 create mode 100644 kikekankoi/xavsnap/KKKK_a2.bas

diff --git a/cauchemarhouse/fr/Kikekankoi Solution Oric.txt b/cauchemarhouse/fr/Kikekankoi Solution Oric.txt
new file mode 100644
index 0000000..7716050
--- /dev/null
+++ b/cauchemarhouse/fr/Kikekankoi Solution Oric.txt	
@@ -0,0 +1,71 @@
+Solution tres rapide (sans lumiere, mots courts, maximum de pieces sombres)
+
+E
+E
+E
+PREN SEAU
+O
+O
+O
+D
+O
+PREN SABL
+E
+PREN BARQ
+PREN BOUT
+RAME
+LAIS BARQ
+E
+E
+N
+N
+PREN DELT
+S
+S
+O
+O
+O
+LANC SABL
+LAIS SEAU
+O
+N
+N
+ENTR
+VEND DELT
+SORS
+O
+PREN MAIL
+S
+ENTR MEDE
+AVAL ASPI
+PREN MASQ
+METS MASQ
+SORS
+ENTR CHAUS
+ACHE ESPA
+SORS
+E
+S
+ENTR TAIL
+ACHE ROBE
+SORS
+N
+E
+E
+PREN BROC
+N
+POSE CHAUS
+ENTR TEMP
+CASS BOUT
+PREN DEBR
+N
+DELI FILL
+DONN VETE
+S
+O
+PREN BOMB
+E
+E
+E
+S
+ENLE PIERRE (CREU MUR)
\ No newline at end of file
diff --git a/kikekankoi/xavsnap/Actions_KKKK.txt b/kikekankoi/xavsnap/Actions_KKKK.txt
new file mode 100644
index 0000000..4b0af20
--- /dev/null
+++ b/kikekankoi/xavsnap/Actions_KKKK.txt
@@ -0,0 +1,182 @@
+1=N  : 0100A25.D41N.
+2=S  : 0200A02.D01N.
+3=S  : 0200A13.D02N.
+4=MANG ROUG : 2545A16.D04N.
+5=MANG VERT : 2546A16.D05G0207K.
+6=MANG BLEU : 2547A16.D06L.
+7=N  : 0100A08.D07N.
+8=CHRO  : 6400.D37K.
+9=PREN RADE : 1028A05.D08N.
+10=OUVR BOUT : 1229B13C23.D09N.
+11=OUVR BOUT : 1229B13.J.
+12=POUS ANNE : 2344A21.D10N.
+13=DESC  : 0600A12D16E13.D11N.
+14=DESC  : 0600A12E13.I28M.
+15=O  : 0400A10F01F03.D12N.
+16=O  : 0400A10F03D08E01.D13N.
+17=O  : 0400A10E03.D59I36M.
+18=S  : 0200A14C18C17.D03N.
+19=S  : 0200A14D18C17.D14N.
+20=S  : 0200A14D17E04.D16N.
+21=S  : 0200A14D17.D15N.
+22=N  : 0100A30.D17N.
+23=E  : 0300A31.D18N.
+24=O  : 0400A29F05.G0107I34M.
+25=O  : 0400A29.I34M.
+26=M  : 0500A28D19.D19N.
+27=M  : 0500A28.I12M.
+28=ALLU LAMP : 1435C02D08.D38K.
+29=ALLU LAMP : 1435D10.D26K.
+30=ALLU LAMP : 1435D08.D39K.
+31=ALLU LAMP : 1435D09.G0313C09H09B10M.
+32=ALLU LAMP : 1435C02D09.D38K.
+33=ETEI LAMP : 1535C10.D40K.
+34=ETEI LAMP : 1535.C10H10B09M.
+35=PREN SABL : 1049D05A08.C05H05B06J.
+36=PREN EAU  : 1055D05A09.C05H05B07J.
+37=PREN EAU  : 1055D05A05.C05H05B07J.
+38=PREN EAU  : 1055D05A18.C05H05B07J.
+39=PREN BATT : 1036B01.B01J.
+40=PREN BARQ : 1027A05.F10I13M.
+41=PREN BARQ : 1027A09.E10I13M.
+42=PREN SEAU : 1031B06.B06J.
+43=PREN SEAU : 1031B07.B07J.
+44=PREN SEAU : 1031B05.B05J.
+45=PREN LAMP : 1035B09.B09J.
+46=PREN LAMP : 1035B10.B10J.
+47=PREN LAMP : 1035B08.B08J.
+48=PREN FIOL : 1037B11.B11J.
+49=PREN CLEF : 1042E09B12.B12J.
+50=PREN BOUT : 1029B13.B13J.
+51=PREN MANU : 1032B14.B14J.
+52=PREN PASS : 1034B15.B15J.
+53=PREN TOUR : 1039B16.B16J.
+54=PREN DELT : 1038B17.B17J.
+55=PREN ECHE : 1033B18.B18J.
+56=PREN COLL : 1053B19.B19J.
+57=PREN BOIT : 1041B21.B21J.
+58=PREN AMPO : 1040B20.B20J.
+59=POSE BATT : 1136D02.D27K.
+60=POSE BATT : 1136.C01J.
+61=POSE BARQ : 1127A18E10.I09O03M.
+62=POSE BARQ : 1127A18.I05O03M.
+63=POSE SEAU : 1131D05.C05J.
+64=POSE SEAU : 1131D06.C06J.
+65=POSE SEAU : 1131D07.C07J.
+66=POSE LAMP : 1135D02.D27K.
+67=POSE LAMP : 1135D09.C09J.
+68=POSE LAMP : 1135D10.C10J.
+69=POSE LAMP : 1135.C08J.
+70=POSE FIOL : 1137.C11J.
+71=POSE CLEF : 1142.C12J.
+72=POSE BOUT : 1129.C13J.
+73=POSE MANU : 1132.C14J.
+74=POSE PASS : 1134.C15J.
+75=POSE TOUR : 1139.C16J.
+76=POSE DELT : 1138.C17J.
+77=POSE ECHE : 1133.C18J.
+78=POSE COLL : 1153.C19J.
+79=POSE BOIT : 1141.C21J.
+80=POSE AMPO : 1140.C20J.
+81=RAME  : 6300A18E10.F10J.
+82=RAME  : 6300A18.E10J.
+83=VIDE SEAU : 1931D07I05I18I09.D20N.
+84=VIDE SEAU : 1931D07.B05C07H07J.
+85=VIDE SEAU : 1931D06.B05C06H06J.
+86=VIDE SEAU : 1931D05.D21N.
+87=JETT EAU  : 2455D07I05I18I09I10.D20N.
+88=JETT EAU  : 2455D07A10.D22N.
+89=JETT EAU  : 2455D07.B05C07H07J.
+90=JETT SABL : 2449D06I10.B05C06H06J.
+91=JETT SABL : 2449D06.E03B05C06H06D23K.
+92=POSE SABL : 1149D06.B05C06H06J.
+93=BRAN BATT : 5136D09D01.C01H01B02J.
+94=VIDE FIOL : 1937B11.E11J.
+95=VIDE COLL : 1953B19.D24N.
+96=BRAN BATT : 5136D08D01.C01H01B02J.
+97= BATT : 5636B10.D56N.
+98= BATT : 5636D02.C02H02B01J.
+99=BOIS FIOL : 2637B11F11F05.E05J.
+100=CASS BOUT : 5729B13C23.D09N.
+101=OUVR MANU : 1232B14.J.
+102=LIS  MANU : 1632B14.D28E04K.
+103=JETT MANU : 2432B14.C13H13J.
+104=ESSA DELT : 5838B17.D29K.
+105=OUVR COLL : 1253B19.D24N.
+106=SENS FIOL : 5937B11.D30K.
+107=VISS AMPO : 5440D20D08.C20H20C08H08B09A.
+108=CASS AMPO : 5740D20.C20H20J.
+109=JETT AMPO : 2440B20.C20H20J.
+110=OUVR BOIT : 1241B21D15.D31N.
+111=OUVR TRAP : 1248A12C12C15.D34K.
+112=OUVR TRAP : 1248A12C12.D35K.
+113=OUVR TRAP : 1248A12.E13J.
+114=DECO ADHE : 6261A18F09.E09O12D32K.
+115=DECO ADHE : 6261A18E09.D33N.
+116=OUVR PLAC : 1260A24.D36N.
+117=INVE  : 2000.A.
+118=PREN CHAU : 1067B35.F14H35J.
+119=PREN MAIL : 1065B37.B37J.
+120=PREN MASQ : 1066B23.B23J.
+121=PREN BROC : 1070B29.B29J.
+122=PREN HACH : 1081B32.B32G0603J.
+123=PREN HARN : 1071B30.B30J.
+124=PREN POT  : 1082B33.B33J.
+125=PREN PORT : 1069B28.B28G0405J.
+126=PREN BOMB : 1072B31.B31J.
+127=PREN ESPA : 1080A46B26.D46K.
+128=PREN ESPA : 1080B26.B26J.
+129=PREN ROBE : 1068A44B27.D46K.
+130=PREN ROBE : 1068B27.B27J.
+131=POSE MAIL : 1165.C37J.
+132=POSE MASQ : 1166E16.F16C23J.
+133=POSE MASQ : 1166.C23J.
+134=POSE HACH : 1181.C32J.
+135=POSE BROC : 1170.C29J.
+136=POSE HARN : 1171.C30J.
+137=POSE POT  : 1182.C33J.
+138=POSE CHAU : 1167F14.E14O35J.
+139=POSE BOMB : 1172.C31J.
+140=POSE ESPA : 1180.C26J.
+141=POSE ROBE : 1168.C27J.
+142=VEND DELT : 7638B17A52.C17H17B34A.
+143=VEND  : 7600A52.D62K.
+144=ACHE ESPA : 7780D34A46.B26J.
+145=ACHE ROBE : 7768D34A44.B27J.
+146=ENTR TABA : 0784A37.I42M.
+147=ENTR MEDE : 0785A39.I47M.
+148=ENTR CHAU : 0767A39.I46M.
+149=ENTR CREM : 0787A36.I45M.
+150=ENTR TRAI : 0788A38.I52M.
+151=ENTR BOUL : 0789A37.D47N.
+152=ENTR TAIL : 0790A36.I44M.
+153=ENTR DROG : 0791A48.I49M.
+154=ENTR TEMP : 0792A51F14.D48N.
+155=ENTR TEMP : 0792A51E14.I56M.
+156=S  : 0200A57C31.D49N.
+157=S  : 0200A57.I58M.
+158=ENLE PIER : 7879A58D29D37F15.D50N.
+159=ENLE PIER : 7879A58D29D37F17.D54N.
+160=ENLE PIER : 7879A58D29D37.D51K.
+161=METS MASQ : 9566B23F16.E16J.
+162=CASS BOUT : 5729B13D23F16.D52N.
+163=CASS BOUT : 5729B13I53E16.C13H13O22M.
+164=CASS BOUT : 5729B13E16.D53N.
+165=PREN DEBR : 1096B22.B22J.
+166=DELI FEMM : 9394A53B22F15.E15H36D65K.
+167=DELI FEMM : 9394A53F15.D55K.
+168=POSE DEBR : 1196.C22J.
+169=DONN VETE : 7475D26D27E15F17.E17C26H26C27H27J.
+170=DONN VETE : 7475D27E15F19.E19C27H27J.
+171=DONN ROBE : 7468D27E15F19.E19C27H27J.
+172=DONN ESPA : 7480D26E15F18.E18C26H26J.
+173=PREN ASPI : 1097B25.B25J.
+174=MANG ASPI : 2597D25.C25H25E20J.
+175=MANG ASPI : 2597B25.H25E20J.
+176=PREN QUIN : 1098B24.B24J.
+177=MANG QUIN : 2598B24.D61N.
+178=RIEN  : 2100A52.D63K.
+179=RIEN  : 2100.D64K.
+180=POSE ASPI : 1197.C25J.
+181=POSE QUIN : 1198.C24J.
+182=ENTR BARQ : 0727.D75N.
diff --git a/kikekankoi/xavsnap/KKKK_a2.bas b/kikekankoi/xavsnap/KKKK_a2.bas
new file mode 100644
index 0000000..badf0b4
--- /dev/null
+++ b/kikekankoi/xavsnap/KKKK_a2.bas
@@ -0,0 +1,1206 @@
+0  GOTO 8900
+1  REM
+10  HOME 
+19  DIM S(21): REM POINTEURS
+REM S(1)=ITEM INVENTAIRE (5 MAX)
+20  DIM C(21): REM COMPTEURS
+30 SALLE = 1
+40  DIM P$(2)
+50  DIM PO(O)
+60  FOR X = 1 TO O
+70 PO(X) = Q(X)
+80  NEXT X
+100 REM ********* (Affichage Salle 1) **********
+101 S(2)=0
+102 IF SALLE=10 OR SALLE=22 OR SALLE=54 OR SALLE=15 THEN S(2)=1
+103 IF O(10)=SALLE OR O(10)=1 THEN 200
+105 GOSUB 2850 : REM 110  IF C(2) THEN C(2) = C(2) - 1
+110  IF S(2) = 0 THEN 200
+120  IF S(3) THEN 200
+130 PRINT "Il fait trop sombre pour voir quelque "
+135 PRINT "chose...":PRINT "peut etre faudrait-il allumer"
+150  GOTO 1000
+
+200  REM ********* (Affichage Salle 2) **********
+210  PRINT "SALLE:";SALLE
+215  IF (SALLE > 10) AND (SALLE < 21) THEN 230
+216  IF (SALLE > 20) AND (SALLE < 31) THEN 232
+217  IF (SALLE > 30) AND (SALLE < 41) THEN 234
+218  IF (SALLE > 40) AND (SALLE < 51) THEN 236
+219  IF (SALLE > 50) THEN 238
+220  ON SALLE GOSUB 8010,8020,8030,8040,8050,8060,8070,8080,8090,8100: GOTO 300
+230  ON (SALLE-10) GOSUB 8110,8120,8130,8140,8150,8160,8170,8180,8190,8200: GOTO 300
+232  ON (SALLE-20) GOSUB 8210,8220,8230,8240,8250,8260,8270,8280,8290,8300: GOTO 300
+234  ON (SALLE-30) GOSUB 8310,8320,8330,8340,8350,8360,8370,8380,8390,8400: GOTO 300
+236  ON (SALLE-40) GOSUB 8410,8420,8430,8440,8450,8460,8470,8480,8490,8500: GOTO 300
+238  ON (SALLE-50) GOSUB 8510,8520,8530,8540,8550,8560,8570,8580: GOTO 300
+250  PRINT "Erreur de programme": STOP 
+300 F = 0
+310  FOR X = 1 TO O
+315 RW = PO(X)
+320  IF RW <  > (SALLE) THEN  GOTO 500
+330  IF F THEN 400
+340  PRINT "Ici,il y a egalement :"
+350 F = 1
+400  PRINT "   ";O$(X)
+500  NEXT X
+
+1000  REM ********* (DECODE SUIVANT) **********
+1010 T = 1
+1020  GOTO 2000
+
+1100  REM ********* (PROMPT) ********** 
+1105 GOSUB 2850:REM IF C(1) THEN C(1) = C(1) - 1
+1110  REM IF C(4) THEN C(4) = C(4) - 1
+1120  INPUT "Que faites vous?>";Y$
+1140  HOME 
+1150 Y = 0
+1160  PRINT ">";Y$
+1170 P$(2) = "00"
+1200  FOR W = 1 TO 2
+1210  GOSUB 6000
+1220  IF Y >  LEN (Y$) THEN 1300
+1230  IF P$(W) = "00" THEN 1210
+1240  NEXT W
+1300  IF P$(1) <  > "00" THEN 1600
+1310  PRINT "Pardon?"
+1320  GOTO 110
+1600  REM
+1610 Z = 1
+1620 T$ =  MID$ (M$(SALLE),Z,2)
+1630  IF T$ = "00" THEN 1900
+1640  IF T$ <  > P$(1) THEN 1700
+1650 SALLE =  VAL ( MID$ (M$(SALLE),Z + 2,2))
+1660  GOTO 100
+1700 Z = Z + 4
+1710  GOTO 1620
+1900 T = 0
+1910 XXO = 0
+
+2000 REM ********* (PROMPT) **********
+2010 CP = 0
+2100 CP = CP + 1
+2110  IF T = 0 THEN 2300
+2120 E$ = C$(CP)
+2130  GOTO 2600
+2300  IF CP <  = (A) THEN 2400
+2310  IF XXO THEN 1000
+2320  PRINT "Impossible ";
+2330  IF  VAL (P$(1)) < 10 THEN  PRINT "de prendre cette direction";
+2340  PRINT "."
+2350  GOTO 100
+2400  IF  LEFT$ (A$(CP),2) <  > P$(1) THEN 2100
+2410 Y$ =  MID$ (A$(CP),3,2)
+2420  IF Y$ <  > "00" AND Y$ <  > P$(2) THEN 2100
+2430 E$ =  MID$ (A$(CP),5)
+
+2600 E = 1
+2700  IF  MID$ (E$,E,1) = "." THEN 3000
+2710 TYPE =  ASC ( MID$ (E$,E,1)) - 64
+2720 N =  VAL ( MID$ (E$,E + 1,2))
+2800 ON TYPE GOSUB 2900,2910,2920,2930,2940,2950,2960,2970
+2810 IF OK=0 THEN  GOTO 2100
+2820 E = E + 3 : GOTO 2700
+
+REM TOUT COMPTEURS -1 SI POSITIFS
+2850 FOR ZZ=1 TO 10
+2860 IF C(ZZ) THEN C(ZZ)=C(ZZ)-1
+2885 NEXT ZZ
+2890 RETURN
+
+REM ACTIVE SI DANS SALLE NN (1) "A"
+2900 OK = (N = SALLE)
+2905  RETURN 
+
+REM ACTIVE SI OBJET NN PRESENT/INVENTAIRE (2) "B"
+2910 OK = (PO(N) = SALLE OR PO(N) < 0)
+2915  RETURN 
+
+REM ACTIVE SI OBJET NN ABSENT (3) "C"
+2920 OK = (PO(N) <  > SALLE AND PO(N) >  = 0)
+2925  RETURN 
+
+REM ACTIVE SI OBJET NN INVENTAIRE (4) "D"
+2930 OK = (PO(N) < 0)
+2935  RETURN 
+
+REM ACTIVE SI POINTEUR NN >0 (5) "E"
+2940 OK = (S(N) <  > 0)
+2945  RETURN 
+
+REM ACTIVE SI POINTEUR NN =0 (6) "F"
+2950 OK = (S(N) = 0)
+2955  RETURN 
+
+REM ACTIVE SI COMPTEUR NN =1 (7) "G"
+2960 OK = (C(N) = 1)
+2965  RETURN 
+
+REM ACTIVE SI ALEATOIRE / 99 X<NN (8) "H"
+2970 OK = ( INT ( RND (1) * 100) <  =  N)
+2975  RETURN 
+
+3000 REM
+3010 XXO = 1
+3020 E = E + 1
+3100  IF E>LEN(E$) OR ASC ( MID$ (E$,E,1))<0 THEN PRINT "SYNTAXE ERROR:";E$:STOP
+3102 IF  MID$ (E$,E,1) = "." THEN 2100
+3105  IF  MID$ (E$,E,1) = "" THEN TYPE = 0: GOTO 3120
+3110 TYPE =  ASC ( MID$ (E$,E,1)) - 64
+3120  IF  MID$ (E$,E + 1,1) <  > "." THEN N =  VAL ( MID$ (E$,E + 1,2))
+3200 BREAK = 0
+3201 PRINT E$
+3205  IF TYPE > 10 THEN 3215
+3210  ON TYPE GOSUB 4000,4100,4200,4300,4400,4500,4600,4700,4800,4900: GOTO 3220
+3215  ON TYPE-10 GOSUB 5000,5100,5300,5400,5450,5500,5600,4000,4100,5600,5700: GOTO 3220
+3218  PRINT "Erreur de programme": STOP 
+3220 IF BREAK>0 THEN E =0
+3221 IF BREAK = -1 THEN E=E+1:GOTO 3100
+3222 IF BREAK = 100 THEN 100
+3223 IF BREAK = 200 THEN 200
+3224 IF BREAK = 1000 THEN 1000
+3225 IF BREAK = 1100 THEN 1100
+3226 IF BREAK = 8600 THEN 8600
+3230 E = E + 3
+3240  GOTO 3100
+
+REM INVENTAIRE (1) "A"
+4000  PRINT 
+4010  PRINT "Vous tenez:"
+4020 F = 1
+4030  FOR X = 1 TO O
+4040  IF PO(X) >  = 0 THEN 4070
+4050  PRINT "   ";O$(X)
+4060 F = 0
+4070  NEXT X
+4080  IF F THEN  PRINT "   Rien."
+4090 BREAK = 100
+4095  RETURN 
+
+REM PREND (2) "B"
+4100  BREAK = 100
+4110 IF S(1) < 5 THEN 4140 
+4120 PRINT "Vous ne pouvez porter plus."
+4130  RETURN 
+4140  IF PO(N) =  - 1 THEN 4180
+4150 PO(N) =  - 1
+4160 S(1) = S(1) + 1
+4170  GOTO 5100
+4180  PRINT "Vous l'avez deja."
+4190  GOTO 4120
+
+REM POSE (3) "C"
+4200 IF PO(N) =  - 1 THEN 4240
+4210 PRINT "Vous n'avez pas ";O$(N)
+4220 GOTO 5110 
+4240 PO(N) = SALLE
+4250 S(1) = S(1) - 1
+4260 GOTO 5100 
+
+REM MESSAGE (4) "D"
+4300 PRINT
+4302  IF (N > 10) AND (N < 21) THEN 4312
+4303  IF (N > 20) AND (N < 31) THEN 4313
+4304  IF (N > 30) AND (N < 41) THEN 4314
+4305  IF (N > 40) AND (N < 51) THEN 4315
+4306  IF (N > 50) AND (N < 61) THEN 4316
+4307  IF (N > 60) AND (N < 71) THEN 4317
+4307  IF (N > 74)  THEN 4318
+4310  ON N GOSUB 7010,7020,7030,7040,7050,7060,7070,7080,7090,7100: GOTO 4320
+4312  ON N - 10 GOSUB 7110,7120,7130,7140,7150,7160,7170,7180,7190,7200: GOTO 4320
+4313  ON N - 20 GOSUB 7210,7220,7230,7240,7250,7260,7270,7280,7290,7300: GOTO 4320
+4314  ON N - 30 GOSUB 7310,7320,7330,7340,7350,7360,7370,7380,7390,7400: GOTO 4320
+4315  ON N - 40 GOSUB 7410,7420,7430,7440,7450,7460,7470,7480,7490,7500: GOTO 4320
+4316  ON N - 50 GOSUB 7510,7520,7530,7540,7550,7560,7570,7580,7590,7600: GOTO 4320
+4317  ON N - 60 GOSUB 7610,7620,7630,7640,7650,7660: GOTO 4320
+4318  ON N - 74 GOSUB 7760: GOTO 4320
+4319  PRINT "Erreur de programme": STOP 
+4320 RETURN 
+
+REM ACTIVE LE POINTEUR N (5) "E"
+4400 S(N) = 1
+4410  RETURN 
+
+REM DESACTIVE LE POINTEUR N (6) "F"
+4500 S(N) = 0
+4510  RETURN 
+
+REM  FIXE LE COMPTEUR (-) NN A MM (7) "G"
+4600 C(N) =  VAL ( MID$ (E$,E + 3,2))
+4610 E = E + 4
+4620  RETURN
+
+REM  INVERSE LES LIGNES NN ET NN+1 DANS LE TABEAU OBJET (8) "H"
+4700 X = PO(N)
+4710 PO(N) = PO(N + 1)
+4720 PO(N + 1) = X
+4730  RETURN 
+
+REM  POSE OBJET NN DANS LA SALLE EN COURS (9) "I"
+4800 PO(N) = SALLE
+4805 REM BREAK = -1
+4810  RETURN 
+
+REM MET LE NO DE SALLE CONTENANT L OBJET NN A 0 (10) "J"
+4900  IF PO(N) < 0 THEN S(1) = S(1) - 1
+4910 PO(N) = 0
+4915 REM BREAK = -1
+4920  RETURN 
+
+REM FIXE LE NO DE SALLE EN COURS A LA VALEUR NN  (11) "K"
+5000 SALLE = N
+5010  RETURN 
+
+REM AFFICHE "D ACCORD" ET ATTEND  (12) "L"
+5100  PRINT "D'acccord."
+5110 FOR ZZ=0 TO 1000
+5120 NEXT ZZ
+5200 BREAK = 1000
+5210  RETURN 
+
+REM ATTEND UNE NOUVELLE COMMANDE MAIS LE TABLEAU 
+REM DES ACTIONS EST REPASSE EN REVUE (13) "M"
+5300 BREAK = 1100
+5310  RETURN 
+
+REM ATTEND UNE NOUVELLE COMMANDE (14) "N"
+5400 BREAK = 1000
+5410  RETURN 
+
+REM MORT DU JOUEUR
+5400 BREAK = 8600
+5410  RETURN 
+
+REM AFFICHE LA DESCRIPTION DE LA SALLE EN COURS (15) "O"
+5450 BREAK = 200
+5455  RETURN 
+
+REM  ETES VOUS SURE ? >>> STOP (16) "P"
+5500  PRINT "Etes vous sur ";
+5510  INPUT W$
+5520  PRINT W$
+5530  IF  LEFT$ (W$,1) <  > "O" THEN  RETURN 
+
+REM  >>> STOP (17) "Q"
+5600  GOTO 9999
+
+REM  >>> MORT (18) "R"
+5700  GOTO 8600
+
+
+REM INVENTAIRE #2
+5710 PRINT "VOUS TENEZ:"
+5720 F=1
+5730 FOR X=1 TO O
+5740 IF PO(X)>=0 THEN GOTO 5770
+5750 PRINT O$(X)
+5760 F=0
+5770 NEXT X
+5780 IF F THEN PRINT "RIEN."
+5790 G=100
+5795 RETURN
+
+REM
+6000 REM
+6010 W$ = ""
+6015 P$(W) = "00"
+6020  GOSUB 6600
+6025  IF (FIN) THEN  RETURN 
+6030  FOR Q = 1 TO 4
+6040 W$ = W$ +  MID$ (Y$,Y,1)
+6050  GOSUB 6500
+6060  IF (FIN) THEN 6100
+6070  NEXT Q
+6080  GOSUB 6500
+6090  IF (FIN) = 0 THEN 6080
+6100  IF W$ = "   " THEN  RETURN 
+6110  FOR Q = 1 TO V
+6120  IF W$ =  MID$ (V$(Q),3) THEN 6200
+6130  NEXT Q
+6140  RETURN 
+6200 P$(W) =  LEFT$ (V$(Q),2)
+6210  RETURN 
+
+REM
+6500 Y = Y + 1
+6510 FIN = (Y >  LEN (Y$))
+6520  IF (FIN) THEN  RETURN 
+6530 FIN = ( MID$ (Y$,Y,1) = " ")
+6540  RETURN 
+
+REM
+6600 Y = Y + 1
+6610 FIN = (Y >  LEN (Y$))
+6620  IF (FIN) THEN  RETURN 
+6630  IF  MID$ (Y$,Y,1) = " " THEN 6600
+6640  RETURN
+
+REM 1 
+7010 PRINT "Vous etes arrive dans la salle de dis-  section, et vous n'avez pas fait de     vieux os..."
+7015 RETURN
+7020 PRINT "Vous etes tombe dans l'incinerateur     d'organes ..."
+7025 RETURN
+7030 PRINT "Vous venez de faire une chute dans un   precipice d'au moins 200 m."
+7035 RETURN
+7040 PRINT "Cette soupe etait un acide sulfurique   parfume... Hum! Douce mort."
+7045 RETURN
+REM 5 
+7050 PRINT "Il ne se passe rien, cela fait toujours un repas de gagne."
+7055 RETURN
+7060 PRINT "La soupe est euphorisante, vous avez la vision d'une ville doree."
+7065 RETURN
+7070 PRINT "Vous mourez etouffe dans les sables     mouvants..."
+7075 RETURN
+7080 PRINT "Vous trebuchez en l'abordant....        Miam, miam (les piranhas)."
+7085 RETURN
+7090 PRINT "Des gaz mortels s'echappent de la       bouteille... c'est triste."
+7095 RETURN
+
+REM 10 
+7100 PRINT "Un panneau du mur pivote, des COBRAS en sortent... Adieu !"
+7105 RETURN
+7110 PRINT "Vous trebuchez et vous vous empallez surle tournevis."
+7115 RETURN
+7120 PRINT "Vous avez ete broye !!!"
+7125 RETURN
+7130 PRINT "Le robot vous broie les os..."
+7135 RETURN
+7140 PRINT "Un barreau de l'echelle se detache."
+7145 RETURN
+REM 15 
+7150 PRINT "Vous ne saviez pas piloter le DELTA     PLANE... Adieu !"
+7155 RETURN
+7160 PRINT "J'ai toujours pense qu'en 10 lecons le  DELTA c'est juste."
+7165 RETURN
+7170 PRINT "Vous avez ete happe par une presse      hydraulique..."
+7175 RETURN
+7180 PRINT "Vous grillez sur le generateur de la    salle d'operation."
+7185 RETURN
+7190 PRINT "Vous glissez en montant, la colle gicle dans vos yeux."
+7195 RETURN
+REM 20 
+7200 PRINT "L'eau touche le systeme electrique...   Vous grillez..."
+7205 RETURN
+7210 PRINT "La folie vous a pris (vider un seau     vide), vous vous suicidez."
+7215 RETURN
+7220 PRINT "Vous electrocutez le robot, mais vous   aussi par la meme occasion."
+7225 RETURN
+7230 PRINT "Petit genie, hein ? Vous avez enraye le mecanisme du robot."
+7235 RETURN
+7240 PRINT "Vous vous etes colles les doigts, et en voulant les separer a la lame de rasoir,vous vous etes tranche la gorge."
+7245 RETURN
+REM 25 
+7250 PRINT "Oh merci, merci beaucoup... SMACK !"
+7255 RETURN
+7260 PRINT "Vous l'avez deja fait."
+7265 RETURN
+7270 PRINT "Il faudrait peut-etre debrancher la     batterie."
+7275 RETURN
+7280 PRINT "Ce livre apprend le DELTA-PLANE en 10   lecons."
+7285 RETURN
+7290 PRINT "L'endroit est un peu trop exigu pour    essayer une telle chose."
+7295 RETURN
+REM 30 
+7300 PRINT "Vous avez l'intention de vous shooter ?"
+7305 RETURN
+7310 PRINT "La boite explose !"
+7315 RETURN
+7320 PRINT "Il y a une clef sous l'adhesif."
+7325 RETURN
+7330 PRINT "Cette fois vous en avez trop enleve, la barque part en miettes."
+7335 RETURN
+7340 PRINT "La trappe est fermee a clef."
+7345 RETURN
+REM 35 
+7350 PRINT "Le passe partout ne fonctionne pas avec cette serrure."
+7355 RETURN
+7360 PRINT "Les murs se rapprochent les uns des     autres, vous etes aplati."
+7365 RETURN
+7370 PRINT "Si cela vous plait de perdre du temps !"
+7375 RETURN
+7380 PRINT "Il faudrait peut etre de l'electricite.."
+7385 RETURN
+7390 PRINT "Il faudrait peut etre y visser une      ampoule."
+7395 RETURN
+REM 40 
+7400 PRINT "IMPOSSIBLE"
+7405 RETURN
+7410 PRINT "Vous tombez dans un cercueil qui se     referme sur vous."
+7415 RETURN
+7420 PRINT "Vous avez du attraper la rage aupres de rats..."
+7425 RETURN
+7430 PRINT "Vous avez mal digere la soupe, c'est    une intoxication."
+7435 RETURN
+7440 PRINT "Vous avez ete electrocute par la lampe."
+7445 RETURN
+REM 45 
+7450 PRINT "A force de rester dans le noir, vous    etes devenu fou !"
+7455 RETURN
+7460 PRINT "Vous ne pouvez prendre, il faut acheter."
+7465 RETURN
+7470 PRINT "Le marchand est fou, il se jette sur    vous et vous tue."
+7475 RETURN
+7480 PRINT "He! he! On ne rentre pas dans un temple avec ses chaussures, les gardes vous tue"
+7485 RETURN
+7490 PRINT "La piece etait pleine de mouches........tse-tse !!!"
+7495 RETURN
+REM 50 
+7500 PRINT "Les murs s'ecroulent sur vous, vous     n'auriez pas du la laisser, grand lache."
+7505 RETURN
+7510 PRINT "Toutes mes felicitations.":PRINT: GOTO 8800
+7515 RETURN
+7520 PRINT "Il aurait fallu mettre le masque, les   gaz vous tue !"
+7525 RETURN
+7530 PRINT "La fille n'avait pas de masque, elle    meurt et vous aussi (le remord...)."
+7535 RETURN
+7540 PRINT "La fille etait nue, elle ne pouvait voussuivre. Pour se venger elle vous tranchela gorge avec les debris."
+7545 RETURN
+REM 55 
+7550 PRINT "Vous n'avez rien pour trancher les      cordes."
+7555 RETURN
+7560 PRINT "Vous auriez du eteindre la lampe avant  de debrancher. Quel court circuit !!!"
+7565 RETURN
+7570 PRINT "Le possesseur du portefeuille devait    avoir la lepre..."
+7575 RETURN
+7580 PRINT "Vous trebuchez sur la hache...          Que de sang..."
+7585 RETURN
+7590 PRINT "Voici enfin la ville des mutiles.       Pauvres survivants des experiences      cruelles du savant fou."
+7595 RETURN
+REM 60 
+7600 PRINT "Vous avez du prendre mal par les pieds."
+7605 RETURN
+7610 PRINT "La quinine etait trop forte, vous mourezempoisonne..."
+7615 RETURN
+7620 PRINT "Je ne suis pas interresse."
+7625 RETURN 
+7630 PRINT "Alors,que faites vous la?"
+7635 RETURN 
+7640 PRINT "Si cela vous plait de perdre du temps"
+7645 RETURN 
+REM 65 
+7650 PRINT "Oh merci,merci beaucoup...' SMACK '"
+7655 RETURN 
+7660 ZX=INT(RND(1)*9+1)
+7661 ON ZX GOTO 7670,7680,7690,7700,7710,7720,7730,7740,7750
+7670 PRINT "Courage,pensez a la recompense..."
+7675 RETURN 
+7680 PRINT "Hum!Il y a de l'idee dans ce que vous   faites."
+7685 RETURN 
+7690 PRINT "Je n'aurais pas pense a faire cela."
+7695 RETURN 
+7700 PRINT "Vous etes un habitue des jeux d'aventures ?"
+7705 RETURN  
+7710 PRINT "Quelle drole d'idee ?"
+7715 RETURN 
+7720 PRINT "Pourquoi pas ?"
+7725 RETURN 
+7730 PRINT "Quel aventurier vous faites...fiiuuue"
+7735 RETURN 
+7740 PRINT "A ce train la,vous finirez bien par   y  arriver"
+7745 RETURN 
+7750 PRINT "Vous,vous avez pas de petrole , mais     vous avez des idees"
+7755 RETURN 
+REM 75
+7760 PRINT "Vous etes dans une barque rafistolee     par de l'adhesif"
+7765 RETURN
+REM ------------ LIEUX --------------
+REM 1
+8010 PRINT "L'antre du demon.":PRINT
+8011 PRINT "Vous etes dans une grotte amenagee..."
+8015 RETURN
+8020  PRINT "Le repere du chirurgien.":PRINT
+8021 PRINT "Il y a une porte au sud ,il y a plein dephotos chirurgicales sur les murs"
+8025 RETURN
+8030 PRINT "xxxxxxxxxxxxxxxxxx 1"
+8035 RETURN
+8040 PRINT "L'antre du sorcier.":PRINT
+8045 RETURN
+8050 PRINT "Au bord du lac.":PRINT
+8051 PRINT "Vous etes au bord d'un lac souterrain"
+8055 RETURN
+8060 PRINT "Vous etes sur la rive nord du lac":PRINT
+
+
+8065 RETURN
+8070 PRINT "Le repere du lecteur."
+
+8075 RETURN
+8080 PRINT "Au nord,un banc de sable."
+8082 PRINT "Vous etes sur le cote du lac,le seul"
+8083 PRINT "chemin est au nord sous la forme d'un   banc de sable"
+8085 RETURN
+
+8090 PRINT "Le bout du lac."
+8095 RETURN
+
+REM 10
+8100 PRINT "La salle mecanique."
+8105 RETURN
+8110 PRINT "Une grotte vide."
+8115 RETURN
+8120 PRINT "La trappe des enrages.":PRINT
+
+8125 RETURN
+8130 PRINT "Il y a une porte au sud marquee 'EXIT'"
+8135 RETURN
+8140 PRINT "Il y a une porte au sud avec le jour     qui filtre en dessous"
+8145 RETURN
+8150 PRINT "L'antre du lecteur."
+8155 RETURN
+8160 PRINT "Il y a trois marmites avec des soupes":PRINT "rouge,verte et bleue"
+8165 RETURN
+8170 PRINT "L'atelier."
+8175 RETURN
+8180 PRINT "Sur la rive nord du lac.":PRINT
+8181 PRINT "Vous etes dans une barque rafistolee    par de l'adhesif."
+8185 RETURN
+8190 PRINT "La chambre des lumieres."
+8195 RETURN
+
+REM 20
+8200 PRINT "Le refuge de l'alchimiste."
+8205 RETURN
+8210 PRINT "Le gite du fakir.":PRINT
+8211 PRINT "Il y a un anneau fixe au mur"
+8215 RETURN
+8220 PRINT "L'antre de la verite."
+8225 RETURN
+8230 PRINT "L'antre du fou."
+8235 RETURN
+8240 PRINT "L'antre du maigre."
+8245 RETURN
+8250 PRINT "Le repere de l'embaumeur."
+8255 RETURN
+8260 PRINT "Le gite du bricoleur.":PRINT
+8261 PRINT "Il y a une ouverture au sud..."
+8265 RETURN
+8270 PRINT "Le repere du fuyard."
+8275 RETURN
+8280 PRINT "Le refuge du montagnard."
+8285 RETURN
+8290 PRINT "Le chemin des rongeurs."
+8295 RETURN
+REM 30
+8300 PRINT "L'antichambre de la mort."
+8305 RETURN
+8310 PRINT "Du bruit a l'est.":PRINT
+8311 PRINT "Il y a une porte marquee DANGER au sud"
+8315 RETURN
+8320 PRINT "De la lumiere au sud."
+8321 PRINT "Il y a au sud un passage d'ou viennent    de droles de bruits"
+8325 RETURN
+8330 PRINT "L'antre du maniaque."
+8335 RETURN
+8340 PRINT "Le repere des rats.":PRINT
+8341 PRINT "Il y a des rats un peu partout..."
+8345 RETURN
+8350 PRINT "La salle des survivants."
+8355 RETURN
+8360 PRINT "La cremerie et le tailleur."
+8365 RETURN
+8370 PRINT "Le tabac et la boulangerie."
+8375 RETURN
+8380 PRINT "Le traiteur."
+8385 RETURN
+8390 PRINT "Le medecin et le chausseur."
+8395 RETURN
+8400 PRINT "Le coin nord-ouest de la ville."
+8405 RETURN
+8410 PRINT "La fin de la ville !"
+8415 RETURN
+8420 PRINT "Dans le tabac.":PRINT
+8421 PRINT "Le vendeur dort sur le comptoir"
+8425 RETURN
+8430 PRINT "xxxxxxxxxxxxxxxxxx 3"
+8435 RETURN
+8440 PRINT "Chez le tailleur.":PRINT
+8441 PRINT "  Il y a plein d'habits a vendre"
+8445 RETURN
+8450 PRINT " Vous etes dans la cremerie"
+8455 RETURN
+8460 PRINT "Vous etes chez le chausseur":PRINT
+8461 PRINT "La boutique est bien achalandee"
+8465 RETURN
+8470 PRINT "Chez le medecin.":PRINT
+8471 PRINT "Le medecin est parti"
+8475 RETURN
+8480 PRINT "  Vous etes dans la droguerie"
+8485 RETURN
+8490 PRINT "Dans la droguerie."
+8495 RETURN
+8500 PRINT "Le coin sud-est de la ville."
+8505 RETURN
+8510 PRINT "Devant un monument..?"
+8515 RETURN
+8520 PRINT "Vous etes en face du traiteur":PRINT
+8521 PRINT "Que vendez-vous ?"
+8525 RETURN
+8530 PRINT "La salle de la B.A."
+8535 RETURN
+8540 PRINT "Le mausolee de l'exterminateur."
+8545 RETURN
+8550 PRINT "Le choeur du Temple."
+8555 RETURN
+8560 PRINT "L'antre du venere.":PRINT
+8561 PRINT "Il y a une porte au sud"
+8565 RETURN
+8570 PRINT "Le chemin des dipteres."
+8575 RETURN
+8580 PRINT "L'antre du victorieux."
+8581 PRINT "Vous etes dans un reduit dont les"
+8582 PRINT "murs sont fait de blocs de pierre."
+8585 RETURN
+
+8600 PRINT:PRINT " EN CETTE HEURE PENIBLE ,MOI Apple 2":PRINT
+8620 PRINT "J'ai le terrible devoir de vous       "
+8630 PRINT "annoncer la mort tragique de votre    "
+8640 PRINT "propre personne dans la redoutable    "
+8650 PRINT "KIKEKANKOI,mais peut etre vous en     "
+8660 PRINT "etiez vous rendu compte...?":PRINT 
+8670 PRINT "Vos funerailles furent respectables,  "
+8680 PRINT "de par la preuve de courage que vous  "
+8690 PRINT "aviez donne,et pour la personne qui   "
+8700 PRINT "a cette heure ci est encore prison-   "
+8710 PRINT "niere de la cite mysterieuse... "
+8720 PRINT
+8730 PRINT "  OUF.....oui je sais,c'est toujours  "
+8740 PRINT "trop long les sepultures...":PRINT
+8750 PRINT "Voulez vous arreter ?"
+8760 GOSUB 5510
+8770 RUN
+
+8800 PRINT "Quelle classe...,ressortir vivant de  "
+8810 PRINT "KIKEKANKOI,il fallait le faire,       "
+8820 PRINT "d'autant plus que vous ne vous etes   "
+8830 PRINT "meme pas ecorche un doigt!Mais ne     "
+8840 PRINT "restez pas trop dans les parages,car  "
+8850 PRINT "le savant fou a peut etre encore      "
+8860 PRINT "quelques experiences a faire sur vous,"
+8865 PRINT "comme vous greffer une tete de singe  "
+8870 PRINT "ou un cerveau electronique de 48 Ko..."
+8875 PRINT:PRINT "Merci d'etre reste si longtemps a"
+8880 PRINT "votre clavier,et encore toutes mes    ":PRINT "felicitations"
+8885 PRINT "Voulez vous arreter ?"
+8890 GOSUB 5510
+8895 RUN
+
+8900 O = 37: DIM Q(37): DIM O$(37)
+8902 LET O$(01)="Une batterie"
+8903 LET O$(02)="Une batterie branchee"
+8904 LET O$(03)="Une barque"
+8905 LET O$(04)="X"
+8906 LET O$(05)="Un seau"
+8907 LET O$(06)="Un seau plein de sable"
+8908 LET O$(07)="Un seau plein d'eau"
+8909 LET O$(08)="Une lampe electrique"
+8910 LET O$(09)="Une lampe avec une ampoule"
+8911 LET O$(10)="Une lampe allumee"
+8912 LET O$(11)="Une fiole"
+8913 LET O$(12)="Une clef"
+8914 LET O$(13)="Une bouteille"
+8915 LET O$(14)="Un livre"
+8916 LET O$(15)="Un passe partout"
+8917 LET O$(16)="Un tournevis"
+8918 LET O$(17)="Un delta plane"
+8919 LET O$(18)="Une echelle de corde"
+8920 LET O$(19)="Un tube de colle"
+8921 LET O$(20)="Une ampoule"
+8922 LET O$(21)="Une boite"
+8923 LET O$(22)="Des debris de verre"
+8924 LET O$(23)="Un masque a gaz"
+8925 LET O$(24)="De la quinine"
+8926 LET O$(25)="Un aspirine"
+8927 LET O$(26)="Des espadrilles"
+8928 LET O$(27)="Une robe"
+8929 LET O$(28)="Un portefeuille"
+8930 LET O$(29)="Une broche"
+8931 LET O$(30)="Un harnais"
+8932 LET O$(31)="Une bombe insecticide"
+8933 LET O$(32)="Une hache"
+8934 LET O$(33)="Un pot de creme"
+8935 LET O$(34)="Une liasse de billets"
+8936 LET O$(35)="Vos chaussures"
+8937 LET O$(36)="Une super jolie fille ligotee....et nue qui plus est."
+8938 LET O$(37)="Un maillet"
+8939 LET Q(01)=2
+8940 LET Q(02)=0
+8941 LET Q(03)=5
+8942 LET Q(04)=0
+8943 LET Q(05)=14
+8944 LET Q(06)=0
+8945 LET Q(07)=0
+8946 LET Q(08)=19
+8947 LET Q(09)=0
+8948 LET Q(10)=0
+8949 LET Q(11)=20
+8950 LET Q(12)=0
+8951 LET Q(13)=18
+8952 LET Q(14)=15
+8953 LET Q(15)=17
+8954 LET Q(16)=26
+8955 LET Q(17)=27
+8956 LET Q(18)=28
+8957 LET Q(19)=33
+8958 LET Q(20)=34
+8959 LET Q(21)=35
+8960 LET Q(22)=0
+8961 LET Q(23)=47
+8962 LET Q(24)=47
+8963 LET Q(25)=47
+8964 LET Q(26)=46
+8965 LET Q(27)=44
+8966 LET Q(28)=50
+8967 LET Q(29)=50
+8968 LET Q(30)=49
+8969 LET Q(31)=54
+8970 LET Q(32)=42
+8971 LET Q(33)=45
+8972 LET Q(34)=0
+8973 LET Q(35)=0
+8974 LET Q(36)=53
+8975 LET Q(37)=40
+9100 V = 130: DIM V$(V)
+9101 LET V$(01)="01N"
+9102 LET V$(02)="O1NORD"
+9103 LET V$(03)="02S"
+9104 LET V$(04)="02SUD"
+9105 LET V$(05)="03E"
+9106 LET V$(06)="03EST"
+9107 LET V$(07)="04O"
+9108 LET V$(08)="04OUES"
+9109 LET V$(09)="05M"
+9110 LET V$(10)="05MONT"
+9111 LET V$(11)="05GRIM"
+9112 LET V$(12)="06DESC"
+9113 LET V$(13)="06D"
+9114 LET V$(14)="07ENTR"
+9115 LET V$(15)="08AVAN"
+9116 LET V$(16)="10PREN"
+9117 LET V$(17)="10RAMA"
+9118 LET V$(18)="11POSE"
+9119 LET V$(19)="11LAIS"
+9120 LET V$(20)="12OUVR"
+9121 LET V$(21)="13FERM"
+9122 LET V$(22)="14ALLU"
+9123 LET V$(23)="14ECLA"
+9124 LET V$(24)="15ETEI"
+9125 LET V$(25)="15ARRE"
+9126 LET V$(26)="16LIS"
+9127 LET V$(27)="16LIT"
+9128 LET V$(28)="17REGA"
+9129 LET V$(29)="18REMP"
+9130 LET V$(30)="19VIDE"
+9131 LET V$(31)="20INVE"
+9132 LET V$(32)="21RIEN"
+9133 LET V$(33)="21ATTE"
+9134 LET V$(34)="22FRAP"
+9135 LET V$(35)="22ASSO"
+9136 LET V$(36)="22ATTA"
+9137 LET V$(37)="23POUS"
+9138 LET V$(38)="23TIRE"
+9139 LET V$(39)="24JETT"
+9140 LET V$(40)="25MANG"
+9141 LET V$(41)="25GOUT"
+9142 LET V$(42)="26BOIS"
+9143 LET V$(43)="24LANC"
+9144 LET V$(44)="27BARQ"
+9145 LET V$(45)="28RADE"
+9146 LET V$(46)="29BOUT"
+9147 LET V$(47)="30MESS"
+9148 LET V$(48)="31SEAU"
+9149 LET V$(49)="32MANU"
+9150 LET V$(50)="32LIVR"
+9151 LET V$(51)="33ECHE"
+9152 LET V$(52)="34PASS"
+9153 LET V$(53)="35LAMP"
+9154 LET V$(54)="35TORC"
+9155 LET V$(55)="36BATT"
+9156 LET V$(56)="37FIOL"
+9157 LET V$(57)="38DELT"
+9158 LET V$(58)="39TOUR"
+9159 LET V$(59)="40AMPO"
+9160 LET V$(60)="41BOIT"
+9161 LET V$(61)="42CLEF"
+9162 LET V$(62)="43MARM"
+9163 LET V$(63)="44ANNE"
+9164 LET V$(64)="45ROUG"
+9165 LET V$(65)="46VERT"
+9166 LET V$(66)="47BLEU"
+9167 LET V$(67)="48TRAP"
+9168 LET V$(68)="49SABL"
+9169 LET V$(69)="50ROBO"
+9170 LET V$(70)="53COLL"
+9171 LET V$(71)="54VISS"
+9172 LET V$(72)="55EAU"
+9173 LET V$(73)="57CASS"
+9174 LET V$(74)="58ESSA"
+9175 LET V$(75)="59SENS"
+9176 LET V$(76)="59RENI"
+9177 LET V$(77)="61ADHE"
+9178 LET V$(78)="62DECO"
+9179 LET V$(79)="60PLAC"
+9180 LET V$(80)="63RAME"
+9181 LET V$(81)="53TUBE"
+9182 LET V$(82)="64CHRO"
+9183 LET V$(83)="20LIST"
+9184 LET V$(84)="51BRAN"
+9185 LET V$(85)="00ESCA"
+9186 LET V$(86)="09SORS"
+9187 LET V$(87)="25AVAL"
+9188 LET V$(88)="65MAIL"
+9189 LET V$(89)="66MASQ"
+9190 LET V$(90)="67CHAU"
+9191 LET V$(91)="68ROBE"
+9192 LET V$(92)="69PORT"
+9193 LET V$(93)="70BROC"
+9194 LET V$(94)="71HARN"
+9195 LET V$(95)="72BOMB"
+9196 LET V$(96)="95METS"
+9197 LET V$(97)="95ENFI"
+9198 LET V$(98)="95PASS"
+9199 LET V$(99)="74DONN"
+9200 LET V$(100)="76VEND"
+9201 LET V$(101)="77ACHE"
+9202 LET V$(102)="78ENLE"
+9203 LET V$(103)="78ARRA"
+9204 LET V$(104)="78CREU"
+9205 LET V$(105)="79PIER"
+9206 LET V$(106)="79BLOC"
+9207 LET V$(107)="79MUR"
+9208 LET V$(108)="80ESPA"
+9209 LET V$(109)="81HACH"
+9210 LET V$(110)="82POT"
+9211 LET V$(111)="83LIAS"
+9212 LET V$(112)="84TABA"
+9213 LET V$(113)="85MEDE"
+9214 LET V$(114)="86CHAU"
+9215 LET V$(115)="87CREM"
+9216 LET V$(116)="88TRAI"
+9217 LET V$(117)="89BOUL"
+9218 LET V$(118)="90TAIL"
+9219 LET V$(119)="91DROG"
+9220 LET V$(120)="92TEMP"
+9221 LET V$(121)="93DELI"
+9222 LET V$(122)="93LIBE"
+9223 LET V$(123)="94FEMM"
+9224 LET V$(124)="94FILL"
+9225 LET V$(125)="96DEBR"
+9226 LET V$(126)="97ASPI"
+9227 LET V$(127)="98QUIN"
+9228 LET V$(128)="99FIN"
+9229 LET V$(129)="75VETE"
+9230 LET V$(130)="20I"
+9300 R = 58: DIM M$(58)
+9301 LET M$(01)="04020304060500"
+9302 LET M$(02)="030100"
+9303 LET M$(03)="X"
+9304 LET M$(04)="0401031300"
+9305 LET M$(05)="05010408030700"
+9306 LET M$(06)="X"
+9307 LET M$(07)="0405031500"
+9308 LET M$(08)="030500"
+9309 LET M$(09)="06120410031100"
+9310 LET M$(10)="030900"
+9311 LET M$(11)="0409032200"
+9312 LET M$(12)="0509012500"
+9313 LET M$(13)="0404031400"
+9314 LET M$(14)="0413031600"
+9315 LET M$(15)="04070121032000"
+9316 LET M$(16)="04140119031700"
+9317 LET M$(17)="041600"
+9318 LET M$(18)="00"
+9319 LET M$(19)="021600"
+9320 LET M$(20)="041500"
+9321 LET M$(21)="021500"
+9322 LET M$(22)="04110124032300"
+9323 LET M$(23)="042200"
+9324 LET M$(24)="0127022200"
+9325 LET M$(25)="0212032600"
+9326 LET M$(26)="0425032700"
+9327 LET M$(27)="0426022400"
+9328 LET M$(28)="042901300232033100"
+9329 LET M$(29)="032800"
+9330 LET M$(30)="022800"
+9331 LET M$(31)="0428023500"
+9332 LET M$(32)="0128023300"
+9333 LET M$(33)="013200"
+9334 LET M$(34)="032900"
+9335 LET M$(35)="013100"
+9336 LET M$(36)="0137031000"
+9337 LET M$(37)="023601380348043900"
+9338 LET M$(38)="014102370440075200"
+9339 LET M$(39)="0140033700"
+9340 LET M$(40)="0338023900"
+9341 LET M$(41)="023800"
+9342 LET M$(42)="093700"
+9343 LET M$(43)="00"
+9344 LET M$(44)="093600"
+9345 LET M$(45)="093600"
+9346 LET M$(46)="093900"
+9347 LET M$(47)="093900"
+9348 LET M$(48)="04370350074900"
+9349 LET M$(49)="094800"
+9350 LET M$(50)="0151044800"
+9351 LET M$(51)="025000"
+9352 LET M$(52)="093800"
+9353 LET M$(53)="025600"
+9354 LET M$(54)="035600"
+9355 LET M$(55)="0456035700"
+9356 LET M$(56)="0153035502510454095100"
+9357 LET M$(57)="045500"
+9358 LET M$(58)="015700"
+
+9399 C = 11: DIM C$( C )
+9400 LET C$(01)="G01.D42R."
+9401 LET C$(02)="G02.D43R."
+9402 LET C$(03)="G03B10.D44R."
+9403 LET C$(04)="G09.D45R."
+9404 LET C$(05)="E18E19F21.E21E17L."
+9405 LET C$(06)="G04.D57R."
+9406 LET C$(07)="G06.D58R."
+9407 LET C$(08)="H20E14F20.D60R."
+9408 LET C$(09)="D26D27D34.C34H34L."
+9409 LET C$(10)="H08.D66L."
+9410 LET C$(11)=".M."
+9411 LET C$(12)=".."
+
+REM # E01:
+REM # E02:
+REM # E03: SEAU+SABLE.
+REM # E04: MANUEL.
+REM # E05: BATTERIE.
+REM # E06:
+REM # E07:
+REM # E08:
+REM # E09: TRAPPE./ADHESIF.
+REM # E10: BARQUE.
+REM # E11: LAMPE+BATTERIE.
+REM # E12: 
+REM # E13: TRAPPE.
+REM # E14: TOP.
+REM # E15: DEBRIS.
+REM # E16: PIERRE./BOUTEILLE.
+REM # E17: 
+REM # E18: ROBE.
+REM # E19: VETEMENTS.
+REM # E20: ASPIRINE.
+
+9500 A = 184: DIM A$( A )
+9501 LET A$(01)="0100A25.D41R."
+9502 LET A$(02)="0200A02.D01R."
+9503 LET A$(03)="0200A13.D02R."
+9504 LET A$(04)="2545A16.D04R."
+9505 LET A$(05)="2546A16.D05G0207K."
+9506 LET A$(06)="2547A16.D06L."
+9507 LET A$(07)="0100A08.D07R."
+9508 LET A$(08)="6400.D37K."
+9509 LET A$(09)="1028A05.D08R."
+9510 LET A$(10)="1229B13C23.D09R."
+9511 LET A$(11)="1229B13.J."
+9512 LET A$(12)="2344A21.D10R."
+9513 LET A$(13)="0600A12D16E13.D11R."
+9514 LET A$(14)="0600A12E13.I28M."
+9515 LET A$(15)="0400A10F01F03.D12R."
+9516 LET A$(16)="0400A10F03D08E01.D13R."
+9517 LET A$(17)="0400A10E03.D59I36M."
+9518 LET A$(18)="0200A14C18C17.D03R."
+9519 LET A$(19)="0200A14D18C17.D14R."
+9520 LET A$(20)="0200A14D17E04.D16R."
+9521 LET A$(21)="0200A14D17.D15R."
+9522 LET A$(22)="0100A30.D17R."
+9523 LET A$(23)="0300A31.D18R."
+9524 LET A$(24)="0400A29F05.G0107I34M."
+9525 LET A$(25)="0400A29.I34M."
+9526 LET A$(26)="0500A28D19.D19R."
+9527 LET A$(27)="0500A28.I12M."
+9528 LET A$(28)="1435C02D08.D38K."
+9529 LET A$(29)="1435D10.D26K."
+9530 LET A$(30)="1435D08.D39K."
+9531 LET A$(31)="1435D09.G0313C09H09B10M."
+9532 LET A$(32)="1435C02D09.D38K."
+9533 LET A$(33)="1535C10.D40K."
+9534 LET A$(34)="1535.C10H10B09M."
+9535 LET A$(35)="1049D05A08.C05H05B06J."
+9536 LET A$(36)="1055D05A09.C05H05B07J."
+9537 LET A$(37)="1055D05A05.C05H05B07J."
+9538 LET A$(38)="1055D05A18.C05H05B07J."
+9539 LET A$(39)="1036B01.B01J."
+9540 LET A$(40)="1027A05.F10I13JD75O."
+9541 LET A$(41)="1027A09.E10I13JD75O."
+9542 LET A$(42)="1031B06.B06J."
+9543 LET A$(43)="1031B07.B07J."
+9544 LET A$(44)="1031B05.B05J."
+9545 LET A$(45)="1035B09.B09J."
+9546 LET A$(46)="1035B10.B10J."
+9547 LET A$(47)="1035B08.B08J."
+9548 LET A$(48)="1037B11.B11J."
+9549 LET A$(49)="1042E09B12.B12J."
+9550 LET A$(50)="1029B13.B13J."
+9551 LET A$(51)="1032B14.B14J."
+9552 LET A$(52)="1034B15.B15J."
+9553 LET A$(53)="1039B16.B16J."
+9554 LET A$(54)="1038B17.B17J."
+9555 LET A$(55)="1033B18.B18J."
+9556 LET A$(56)="1053B19.B19J."
+9557 LET A$(57)="1041B21.B21J."
+9558 LET A$(58)="1040B20.B20J."
+9559 LET A$(59)="1136D02.D27K."
+9560 LET A$(60)="1136.C01J."
+9561 LET A$(61)="1127A18E10.I09I03M."
+9562 LET A$(62)="1127A18.I05I03M."
+9563 LET A$(63)="1131D05.C05J."
+9564 LET A$(64)="1131D06.C06J."
+9565 LET A$(65)="1131D07.C07J."
+9566 LET A$(66)="1135D02.D27K."
+9567 LET A$(67)="1135D09.C09J."
+9568 LET A$(68)="1135D10.C10J."
+9569 LET A$(69)="1135.C08J."
+9570 LET A$(70)="1137.C11J."
+9571 LET A$(71)="1142.C12J."
+9572 LET A$(72)="1129.C13J."
+9573 LET A$(73)="1132.C14J."
+9574 LET A$(74)="1134.C15J."
+9575 LET A$(75)="1139.C16J."
+9576 LET A$(76)="1138.C17J."
+9577 LET A$(77)="1133.C18J."
+9578 LET A$(78)="1153.C19J."
+9579 LET A$(79)="1141.C21J."
+9580 LET A$(80)="1140.C20J."
+
+9581 LET A$(81)="6300A18E10.F10K05JO.": REM 05
+9582 LET A$(82)="6300A05.E10K18JO.": REM 18
+
+9583 LET A$(83)="1931D07I05I18I09.D20R."
+9584 LET A$(84)="1931D07.B05C07H07J."
+9585 LET A$(85)="1931D06.B05C06H06J."
+9586 LET A$(86)="1931D05.D21R."
+9587 LET A$(87)="2455D07I05I18I09I10.D20R."
+9588 LET A$(88)="2455D07A10.D22R."
+9589 LET A$(89)="2455D07.B05C07H07J."
+9590 LET A$(90)="2449D06I10.B05C06H06J."
+9591 LET A$(91)="2449D06.E03B05C06H06D23K."
+9592 LET A$(92)="1149D06.B05C06H06J."
+9593 LET A$(93)="5136D09D01.C01H01B02J."
+9594 LET A$(94)="1937B11.E11J."
+9595 LET A$(95)="1953B19.D24R."
+9596 LET A$(96)="5136D08D01.C01H01B02J."
+9597 LET A$(97)="5636B10.D56R."
+9598 LET A$(98)="5636D02.C02H02B01J."
+9599 LET A$(99)="2637B11F11F05.E05J."
+9600 LET A$(100)="5729B13C23.D09R."
+9601 LET A$(101)="1232B14.J."
+9602 LET A$(102)="1632B14.D28E04K."
+9603 LET A$(103)="2432B14.C13H13J."
+9604 LET A$(104)="5838B17.D29K."
+9605 LET A$(105)="1253B19.D24R."
+9606 LET A$(106)="5937B11.D30K."
+9607 LET A$(107)="5440D20D08.C20H20C08H08B09A."
+9608 LET A$(108)="5740D20.C20H20J."
+9609 LET A$(109)="2440B20.C20H20J."
+9610 LET A$(110)="1241B21D15.D31R."
+9611 LET A$(111)="1248A12C12C15.D34K."
+9612 LET A$(112)="1248A12C12.D35K."
+9613 LET A$(113)="1248A12.E13J."
+9614 LET A$(114)="6261A18F09.E09I12D32K."
+9615 LET A$(115)="6261A18E09.D33R."
+9616 LET A$(116)="1260A24.D36R."
+9617 LET A$(117)="2000.A."
+9618 LET A$(118)="1067B35.F14H35J."
+9619 LET A$(119)="1065B37.B37J."
+9620 LET A$(120)="1066B23.B23J."
+9621 LET A$(121)="1070B29.B29J."
+9622 LET A$(122)="1081B32.B32G0603J."
+9623 LET A$(123)="1071B30.B30J."
+9624 LET A$(124)="1082B33.B33J."
+9625 LET A$(125)="1069B28.B28G0405J."
+9626 LET A$(126)="1072B31.B31J."
+9627 LET A$(127)="1080A46B26.D46K."
+9628 LET A$(128)="1080B26.B26J."
+9629 LET A$(129)="1068A44B27.D46K."
+9630 LET A$(130)="1068B27.B27J."
+9631 LET A$(131)="1165.C37J."
+9632 LET A$(132)="1166E16.F16C23J."
+9633 LET A$(133)="1166.C23J."
+9634 LET A$(134)="1181.C32J."
+9635 LET A$(135)="1170.C29J."
+9636 LET A$(136)="1171.C30J."
+9637 LET A$(137)="1182.C33J."
+9638 LET A$(138)="1167F14.E14I35J."
+9639 LET A$(139)="1172.C31J."
+9640 LET A$(140)="1180.C26J."
+9641 LET A$(141)="1168.C27J."
+9642 LET A$(142)="7638B17A52.C17H17B34A."
+9643 LET A$(143)="7600A52.D62K."
+9644 LET A$(144)="7780D34A46.B26J."
+9645 LET A$(145)="7768D34A44.B27J."
+9646 LET A$(146)="0784A37.I42M."
+9647 LET A$(147)="0785A39.I47M."
+9648 LET A$(148)="0767A39.I46M."
+9649 LET A$(149)="0787A36.I45M."
+9650 LET A$(150)="0788A38.I52M."
+9651 LET A$(151)="0789A37.D47R."
+9652 LET A$(152)="0790A36.I44M."
+9653 LET A$(153)="0791A48.I49M."
+9654 LET A$(154)="0792A51F14.D48R."
+9655 LET A$(155)="0792A51E14.I56M."
+9656 LET A$(156)="0200A57C31.D49R."
+9657 LET A$(157)="0200A57.I58M."
+9658 LET A$(158)="7879A58D29D37F15.D50R."
+9659 LET A$(159)="7879A58D29D37F17.D54R."
+9660 LET A$(160)="7879A58D29D37.D51K."
+9661 LET A$(161)="9566B23F16.E16J."
+9662 LET A$(162)="5729B13D23F16.D52R."
+9663 LET A$(163)="5729B13I53E16.C13H13I22M."
+9664 LET A$(164)="5729B13E16.D53R."
+9665 LET A$(165)="1096B22.B22J."
+9666 LET A$(166)="9394A53B22F15.E15H36D65K."
+9667 LET A$(167)="9394A53F15.D55K."
+9668 LET A$(168)="1196.C22J."
+9669 LET A$(169)="7475D26D27E15F17.E17C26H26C27H27J."
+9670 LET A$(170)="7475D27E15F19.E19C27H27J."
+9671 LET A$(171)="7468D27E15F19.E19C27H27J."
+9672 LET A$(172)="7480D26E15F18.E18C26H26J."
+9673 LET A$(173)="1097B25.B25J."
+9674 LET A$(174)="2597D25.C25H25E20J."
+9675 LET A$(175)="2597B25.H25E20J."
+9676 LET A$(176)="1098B24.B24J."
+9677 LET A$(177)="2598B24.D61R."
+9678 LET A$(178)="2100A52.D63K."
+9679 LET A$(179)="2100.D64K."
+9680 LET A$(180)="1197.C25J."
+9681 LET A$(181)="1198.C24J."
+
+9682 LET A$(182)="0727.D75R."
+9683 LET A$(183)="9900.P."
+
+9900  GOTO 1
+9999  END 
+
+19000 REM
+19400 PR#1
+19405 FOR AZ=1 TO A
+19410 LET OZ=VAL(MID$ (A$(AZ),1, 2))
+19415 GOSUB 19500
+19416 PRINT AZ;"=";E$;" ";
+19420 OZ=VAL(MID$ (A$(AZ),3,2))
+19425 GOSUB 19500
+19428 PRINT E$;" : ";A$(AZ)
+19430 REM FOR BZ=5 TO LEN (A$(AZ))
+19431  REM E$=MID$ (A$(AZ),BZ,1)
+19433  REM IF LEFT$(E$,BZ)>="A" AND LEFT$(E$,BZ)<="K" THEN BZ=BZ+2
+19434  REM PRINT LEFT$(E$,,3);
+19435  REM IF E$<>"" THEN NEXT BZ
+19440 NEXT AZ
+19445 PR#0
+19450 STOP
+
+19500 E$=""
+19501 IF OZ=0 THEN RETURN
+19505 FOR ZZ=1 TO V
+19510 IF OZ<>VAL(LEFT$(V$(ZZ), 2)) THEN NEXT ZZ
+19520 IF ZZ<(V+1) THEN E$=MID$(V$(ZZ),3)
+19530 RETURN
+
+29100 K = (PO(N) = SALLE OR PO(N) < 0)
+
+