From 1646cd0bb8d45affc2b93ac00523daa854320c61 Mon Sep 17 00:00:00 2001 From: Antoine Vignau <34219772+antoinevignau@users.noreply.github.com> Date: Thu, 19 Oct 2023 18:50:34 +0200 Subject: [PATCH] v0 --- lemanoirdudocteurgenius/jeu copie.bas | 722 +++++++++++++ lemanoirdudocteurgenius/jeu.bas | 729 +++++++++++++ .../lemanoirdudrgenius.dsk | Bin 0 -> 143360 bytes .../oric/Dr_genius_ORIC_VG5000.zip | Bin 0 -> 25082 bytes lemanoirdudocteurgenius/oric/code_oric.bas | 958 ++++++++++++++++++ lemanoirdudocteurgenius/presentation.bas | 143 +++ lemanoirdudocteurgenius/vg5000/vg5000_jeu.bas | 721 +++++++++++++ .../vg5000/vg5000_presentation.bas | 141 +++ 8 files changed, 3414 insertions(+) create mode 100644 lemanoirdudocteurgenius/jeu copie.bas create mode 100644 lemanoirdudocteurgenius/jeu.bas create mode 100644 lemanoirdudocteurgenius/lemanoirdudrgenius.dsk create mode 100644 lemanoirdudocteurgenius/oric/Dr_genius_ORIC_VG5000.zip create mode 100644 lemanoirdudocteurgenius/oric/code_oric.bas create mode 100644 lemanoirdudocteurgenius/presentation.bas create mode 100644 lemanoirdudocteurgenius/vg5000/vg5000_jeu.bas create mode 100644 lemanoirdudocteurgenius/vg5000/vg5000_presentation.bas diff --git a/lemanoirdudocteurgenius/jeu copie.bas b/lemanoirdudocteurgenius/jeu copie.bas new file mode 100644 index 0000000..a12b009 --- /dev/null +++ b/lemanoirdudocteurgenius/jeu copie.bas @@ -0,0 +1,722 @@ +20 REM CLEAR 300,-16385 +30 PRINT "DISKLOAD CODE" +35 CALL -16384: POKE&"47FD",0 +40 GOSUB 7600 +45 INIT0,0: TX3,0,0: PRINT: PRINTSPC(10)"VEUILLEZ PATIENTER" +50 GOSUB 8000: REM CHARGEMENT VARIABLES +51 GOSUB 7500 +55 MODEMN: INIT0,0: TX0,0,0 +57 DIM P(12): P(11) = 0: P(12) = 0 +60 SALLE = 1 +70 FOR N = 1 TO 10 +80 P(N) = 0: C(N) = 0 +85 NEXT N +90 C(3) = 14: C(7) = 12: C(1) = 80: C(9) = 12 +100 IF SALLE <> 14 AND SALLE <> 16 AND SALLE <> 17 AND SALLE <> 19 THENP(2) = 0 +105 IFP(2) = 0 THEN 200 +106 IFO(22) = SA AND P(7) = 1 THEN 200 +107 IFO(05) = SA AND P(3) = 1 THEN 200 +110 IFC(9) > 1 THEN C(9) = C(9)-1 +130 MODEMC: MODEMN +140 HTAB 1: VTAB 18: PRINT "Il fait noir comme dans un four!" +145 PRINT "Il faudrait peut etre allumer." +150 GOTO 500 + +200 REM DESCRIPTION SALLE +210 MODEMN: MODEMC: REM cadre+zone+dessin +215 DEST = SALLE +220 GOSUB 6900 +230 MODEMD +300 H = 0: N = 1 +310 IF O(N) <> SALLE THEN 400 +320 IF H = 1 THEN 350 +330 MODEML: PRINT "Il y a dans la salle: ": MODEMW,10 +340 H = 1 +350 MODEML: PRINT " ";O$(N); +360 MODEMW,25 +400 N = N + 1 +410 IF N <= O THEN 310 +415 MODEML: PRINT + +500 REM ACCEPTATION COMMANDE +510 T = 1: Y$(1) = "": Y$(2) = "": N = 0 +520 GOTO 1000 +530 IF C(7) > 1 AND P(7) = 1 THEN C(7) = C(7) - 1 +540 IF C(3) > 1 AND P(3) = 1 THEN C(3) = C(3) - 1 +545 IF C(4) > 1 AND P(4) = 1 THEN C(4) = C(4) - 1 +547 IF C(5) > 1 THEN C(5) = C(5)-1 +550 X$ = "": INPUT "Que faites vous ";X$ +560 MODEMN: PRINT ">";X$ +570 GOSUB 6000 +580 MODEML: IF MO(1) = 0 THEN PRINT "Je ne comprends pas...": MODEMW,50: GOTO 500 + +900 REM CONTROLE Mvt +905 MODEMI,SALLE +910 IF PEEK(-4) = 0 THEN 980 +920 SALLE = PEEK(-4): GOTO 100 +980 T = 0 +990 A1 = 0 + +1000 REM CONTROLE +1010 NL = 0 +1100 NL = NL + 1 +1110 IF T = 0 THEN 1150 +1120 E$ = C$(NL) +1130 GOTO 1400 +1150 MODEMA: NL = PEEK(-33) +1151 IF PEEK(-32) = 0 THEN 1159 +1152 AD = -32: E$ = "" +1153 IF PEEK(AD) = 255 THEN 1400 +1154 E$ = E$ + CHR$(PEEK(AD)): AD = AD + 1 +1155 GOTO 1153 +1159 PY = 23: CO = 12 +1160 IF A1 = 1 THEN 500 +1170 MODEML: PRINT "Impossible "; +1180 IF MO(1) < 10 THEN PRINT "de prendre ce chemin"; + +1190 PRINT "!": MODEMW,100: GOTO 100 + +1400 REM CONDITIONS +1410 E = 1 +1420 IF MID$(E$,E,1) = "." THEN 1700 +1430 LI = ASC(MID$(E$,E,1))-65 +1440 N = VAL(MID$(E$,E+1,2)) +1450 ON (LI+1) GOSUB 1500,1510,1520,1530,1540,1550,1560,1570,1580 +1460 IF OK = 0 THEN 1100 +1470 E = E + 3: GOTO 1420 +1500 IF N = SALLE THEN 1590 +1505 GOTO 1585 +1510 IF O(N) = -1 OR O(N) = SALLE THEN 1590 +1515 GOTO 1585 +1520 IF O(N) <> SALLE AND O(N) <> -1 THEN 1590 +1525 GOTO 1585 +1530 IF O(N) = -1 THEN 1590 +1535 GOTO 1585 +1540 IF P(N) = 1 THEN 1590 +1545 GOTO 1585 +1550 IF P(N) = 0 THEN 1590 +1555 GOTO 1585 +1560 IF C(N) = 1 THEN 1590 +1565 GOTO 1585 +1570 IF INT(RND(1)*99+1) < N THEN 1590 +1575 GOTO 1585 +1580 IF N <> SALLE THEN 1590 +1585 OK = 0: RETURN +1590 OK = 1: RETURN + +1700 REM ACTIONS +1705 E = E + 1: A1 = 1 +1710 IF MID$(E$,E,1) = "." THEN 1100 +1720 LI = ASC(MID$(E$,E,1))-65 +1730 IF MID$(E$,E+1,1) <> "." THEN N = VAL(MID$(E$,E+1,2)) +1740 BREAK = 0 +1750 ON (LI+1) GOSUB 1800,1900,2000,2100,2200,2300,2400,2500,2600,2700,2800,2900,3000,3100,3200,3300 +1760 IF BREAK > 0 THEN ON BREAK GOTO 100,300,500,530,20000 +1780 E = E + 3 +1790 GOTO 1710 +1800 G = 0: HH = 0 +1810 G = G + 1 +1820 IF O(G) = -1 THEN 1840 +1830 IF G < O THEN 1810 +1835 GOTO 1870 +1840 MODEML: IF HH = 0 THEN PRINT "Vous detenez: " +1850 HH = 1 +1860 MODEML: PRINT O$(G);: PRINT " ";: MODEMW,30 +1865 IF G < V THEN 1810 +1870 MODEML: IF HH = 1 THEN PRINT ".": RETURN +1880 MODEML: PRINT "Vous ne detenez absolument rien!!!": RETURN +1900 IF S(1) < 5 THEN 1930 +1910 MODEML: PRINT "Il parait evident que vous ne pouvez" +1915 MODEML: PRINT "porter tant de chose!!!" +1920 MODEMW,200: BREAK = 1: RETURN +1930 IF O(N) <> -1 THEN 1960 +1935 REM +1940 MODEML: PRINT "Vous l'avez deja,vous etes etourdis et" +1945 MODEML: PRINT "dans cette maison ce n'est pas tres" +1950 MODEML: PRINT "conseille...": GOTO 1920 +1960 O(N) = -1: S(1) = S(1) + 1: RETURN +2000 IF O(N) = -1 THEN 2030 +2010 MODEML: PRINT "Comment voulez vous poser ce que vous" +2015 MODEML: PRINT "n'avez pas..." +2020 GOTO 1920 +2030 O(N) = SALLE: S(1) = S(1) - 1: RETURN + +2100 REM +2105 DEST = N + 1: GOSUB 3900 +2110 RETURN +2200 P(N) = 1: RETURN +2300 P(N) = 0: RETURN + +2400 C(N) = VAL(MID$(A$(N),E+3,2)): E = E + 2: RETURN + +2500 IF O(N) = -1 THE NS(1) = S(1) - 1 +2510 O(N) = 0: RETURN +2600 SALLE = N: RETURN +2700 MODEML: PRINT "D'accord..." +2710 MODEMW,20: BREAK=2: RETURN +2800 BREAK = 3 +2810 RETURN +2900 BREAK = 4: RETURN +3000 BREAK = 1: RETURN +3100 BREAK = 5: RETURN +3200 O(N) = SALLE: RETURN +3300 X$=O$(N): O$(N)=O$(N+1): O$(N+1)=X$: RETURN + +3900 IF DEST < 11 THEN ON DEST GOTO 4000,4010,4020,4030,4040,4050,4060,4070,4080,4090 +3910 DEST = DEST - 10 +3915 IF DEST < 11 THEN ON DEST GOTO 4100,4110,4120,4130,4140,4150,4160,4170,4180,4190 +3920 DEST = DEST - 10 +3925 IF DEST < 11 THEN ON DEST GOTO 4200,4210,4220,4230,4240,4250,4260,4270,4280,4290 +3930 DEST = DEST - 10 +3935 IF DEST < 11 THEN ON DEST GOTO 4300,4310,4320,4330,4340,4350,4360,4370,4380,4390 +3940 DEST = DEST - 10 +3945 IF DEST < 11 THEN ON DEST GOTO 4400,4410,4420,4430,4440,4450,4460,4470,4480,4490 +3950 DEST = DEST - 10 +3955 IF DEST < 11 THEN ON DEST GOTO 4500,4510,4520,4530,4540,4550,4560,4570,4580,4590 +3960 DEST = DEST - 10 +3965 IF DEST < 11 THEN ON DEST GOTO 4600,4610,4620,4630,4640 + +4000 MODEMC: FOR N = 1 TO 20: MODEME: MODEMW,4: NEXT N +4001 MODEMN: PRINT "Vous avez garde la lampe allumee trop" +4002 MODEML: PRINT "longtemps, elle a explose!" +4005 MODEMW,200: RETURN +4010 MODEMC +4011 MODEMN: PRINT "Vous avez oublie de fermer le robinet" +4012 MODEML: PRINT "vous mourez sous des tonnes d'eau!" +4015 MODEMW,200: RETURN +4020 MODEMC +4022 MODEMN: PRINT "La porte vient de se refermer derriere" +4023 MODEML: PRINT "vous. Vous etes prisonnier..." +4025 MODEMW,200: RETURN +4030 MODEMC +4031 MODEMN: PRINT "Vous avez trebuche dans l'escalier,vous" +4032 MODEML: PRINT "vous empallez sur le couteau!" +4035 MODEMW,200: RETURN +4040 MODEMC +4041 MODEMN: PRINT "Vous renversez l'eau dans l'escalier," +4042 MODEML: PRINT "ce qui provoque une decharge au niveau" +4043 MODEML: PRINT "de la prise electrique." +4045 MODEMW,200: RETURN +4050 MODEMC +4051 MODEMN: PRINT "Vous etes sauf grace a la combinaison" +4052 MODEML: PRINT "que vous avez enfilee..!" +4055 MODEMW,200: RETURN +4060 MODEML: PRINT "Vous mourez electrocute..." +4065 MODEMW,200: RETURN +4070 MODEMC: FORN=1TO20: MODEMM,2,2,2,10: MODEMP,3,7,4,80: MODEMW,1: MODEME: MODEMW,6: NEXTN +4071 MODEMN: PRINT "La piece etait pleine de gaz explosif," +4072 MODEML: PRINT "vous auriez du eteindre..." +4073 MODEMW,200: PRINT "On ramassera vos morceaux un autre" +4074 MODEML: PRINT "jour..!" +4075 MODEMW,200: RETURN +4080 MODEMC +4081 MODEMN: PRINT "Vous mourez empalle sur des lances" +4082 MODEML: PRINT "sorties du mur...!" +4085 MODEMW,200: RETURN +4090 MODEML: PRINT "La porte ne s'ouvre pas de cette piece": MODEMW,200: RETURN +4100 MODEMC +4101 MODEML: PRINT "La lampe et le briquet refusent de" +4102 MODEML: PRINT "fonctionner dans cette piece!" +4109 MODEMW,200: RETURN +4110 MODEMC +4111 MODEML: PRINT "Vous tombez dans une trappe,vous vous" +4112 MODEML: PRINT "disloquez en arrivant au sol.." +4115 MODEMW,200: RETURN +4120 MODEML: PRINT "Vous avez raison de passer,car ce" +4122 MODEML: PRINT "monstre n'etait qu'une projection" +4124 MODEML: PRINT "en 3 dimensions sur un ecran de fumee" +4125 MODEMW,250: RETURN +4130 MODEML: PRINT "Vous avez raison,la curiosite est un" +4132 MODEML: PRINT "vilain defaut!!!" +4134 MODEMW,250 +4135 RUN 20040 +4140 MODEML: PRINT "Vous avez raison d'attendre,mais cela" +4141 MODEML: PRINT "ne pourra pas durer eternellement.." +4142 MODEMW,200: RETURN +4150 MODEML: PRINT "Vous avez de la chance car ce coffre" +4151 MODEML: PRINT "etait ouvert.": MODEMW,100 +4152 MODEML: PRINT "Un message a l'interieur dit: " +4153 MODEML: PRINTCHR$(34)+"Ne respectez pas les couleurs du code" +4154 MODEML: PRINT "de la route...?"+CHR$(34): MODEMW,200 +4156 MODEML: PRINT "Tiens le coffre se referme!": MODEMW,150: RETURN +4160 MODEML: PRINT "Maintenant,vous avez une lampe pleine" +4162 MODEML: PRINT "de petrole." +4165 MODEMW,200: RETURN +4170 MODEML: PRINT "Vous n'avez rien pour transporter le" +4171 MODEML: PRINT "petrole.": MODEMW,200: RETURN +4180 FOR N = 1 TO 10: MODEME: MODEMW,6: NEXTN +4181 MODEMC: MODEMN: PRINT "Le briquet que vous aviez laisse" +4182 MODEML: PRINT "allume vient d'exploser!" +4185 MODEML: MODEMW,200: PRINT "Ca tue l'etourderie.....": MODEMW,150: RETURN +4190 MODEMC: MODEMN: PRINT "A force de marcher en long et en large" +4191 MODEML: PRINT "dans cette maison, vous sombrez dans" +4194 MODEML: PRINT "un coma des plus mortel... +4195 MODEMW,300: RETURN +4200 PRINT "L'eau coule...": RETURN +4210 MODEMC: MODEMN: PRINT "Vous avez les pieds trempes,et cela" +4211 MODEML: PRINT "vous rend tres malade..." +4215 MODEMW,100: MODEML: PRINT "Vous mourez d'une triple pneumonie...!": MODEMW,200: RETURN +4220 MODEML: PRINT "Le titre est: " +4225 MODEML: PRINTCHR$(34)+"La mort a la 1ere page."+CHR$(34): MODEMW,200: RETURN +4230 MODEMC: FOR N=1 TO 20: MODEME: NEXTN +4233 MODEMN: PRINT "Le livre a explose lorsque vous l'avez" +4235 MODEML: PRINT "ouvert...": MODEMW,200: RETURN +4240 MODEML: PRINT "Le papier indique: "+CHR$(34)+"Cherchez la clef."+CHR$(34) +4242 MODEMW,200: RETURN +4250 MODEML: PRINT "La clef vous permettra de trouver le" +4252 MODEML: PRINT "code de la porte d'entree." +4255 MODEMW,200: RETURN +4260 MODEML: PRINT "Il y a un clavier numerique permettant" +4261 MODEML: PRINT "d'entrer un code a côte de la porte.": MODEMW,200: RETURN +4270 MODEML: PRINT "Pour faire quoi..?": MODEMW,200: RETURN +4280 MODEML: PRINT "Il y a une odeur de gaz.": MODEMW,200: RETURN +4290 MODEML: PRINT "Apparemment,il n'y a aucune odeur.": MODEMW,200: RETURN +4300 MODEML: PRINT "C'est deja fait,espece de rigolo!": MODEMW,200: RETURN +4310 MODEML: PRINT "Il faudrait peut etre du feu!": MODEMW,200: RETURN +4320 MODEML: PRINT "La lampe ne contient pas de petrole!": MODEMW,200: RETURN +4330 MODEML: PRINT "Vous ne l'avez pas!": MODEMW,200: RETURN +4340 MODEML: PRINT "Le briquet est encore allume et il" +4342 MODEML: PRINT "eclaire la piece.": MODEMW,200: RETURN +4350 FOR N = 1 TO 15: MODEME: MODEMW,4: NEXT N +4355 MODEML: PRINT "La torche etait piegee,elle vous" +4356 MODEML: PRINT "a explose dans les mains.." +4357 MODEMW,200: RETURN +4360 MODEML: PRINT "La lampe est encore allumee,et elle" +4362 MODEML: PRINT "vous eclaire.": MODEMW,200: RETURN +4370 MODEML: PRINT "Un nain vient de vous lancer un" +4371 MODEML: PRINT "poignard en plein coeur.." +4375 MODEMW,200: RETURN +4380 MODEML: PRINT "Un nain vient de se precipiter sur" +4385 MODEML: PRINT "vous, il s'empalle sur votre ciseau.": MODEMW,200: RETURN +4390 MODEML: PRINT "Un nain vient de se precipiter sur" +4395 MODEML: PRINT "vous, il s'empalle sur votre couteau.": MODEMW,200: RETURN +4400 MODEML: PRINT "Vous venez de renverser le pot.": MODEMW,150: RETURN +4410 IF PEEK(-1) = 1 THEN BREAK = 3: RETURN +4411 MODEMC: MODEMS,4,4,0: MODEMP,0,1,1,5000 +4412 MODEMN: PRINT "La foudre vient de tomber sur la maison": MODEMW,200 +4413 MODEML: PRINT "La maison n'existe plus!": MODEMW,100 +4414 MODEML: PRINT "Vous non plus!": MODEMW,100: MODEMP,0,0,0,0: RETURN +4420 MODEMC: MODEMN: PRINT "A force de marcher dans le noir,vous" +4422 MODEML: PRINT "avez trebuche.": MODEMW,100 +4425 MODEML: PRINT "Vous mourez d'une fracture du crane...": MODEMW,200: RETURN +4430 MODEML: PRINT "Vous ne pouvez pas travailler dans le" +4433 MODEML: PRINT "noir...": MODEMW,200: RETURN +4440 MODEML: PRINT "La lumiere du briquet ne suffit pas" +4442 MODEML: PRINT "pour travailler...": MODEMW,200: RETURN +4450 MODEML: PRINT "Impossible !": MODEMW,100: RETURN +4460 MODEML: PRINT "Vous n'avez aucun outil...": MODEMW,200: RETURN +4470 MODEML: PRINT "Le teleporteur est en panne,donc les" +4472 MODEML: PRINT "boutons ne fonctionnent pas." +4475 MODEMW,400: RETURN +4480 FOR N = 1 TO 25: MODEME: MODEMW,5: NEXT N +4484 MODEMC: MODEMN: PRINT "Le teleporteur vient d'exploser," +4485 MODEML: PRINT "vous etes decompose..!": MODEMW,200: RETURN +4490 MODEMN: PRINT "Le teleporteur se met en marche" +4491 MODEML: PRINT "vous disparaissez...": MODEMW,50 +4492 MODEMM,2,1,5,0: MODEMP,2,1,3,1000 +4493 MODEMF +4494 MODEMP,0,0,0,0 +4495 FOR N = 500 TO 30 STEP -5 +4497 MODEMS,2,N,12: MODEMP,2,0,0,100 +4498 NEXT N +4499 MODEMP,0,0,0,0: RETURN +4500 MODEMC: MODEML: PRINT "Vous prenez du 30000 Volts dans les" +4502 MODEML: PRINT "doigts!": MODEMW,200: RETURN +4510 MODEML: PRINT "Le placard est ferme a clef!": MODEMW,200: RETURN +4520 MODEMC: MODEMN: PRINT "L'horrible monstre sorti du placard" +4522 MODEML: PRINT "vient de vous devorer!" +4525 MODEMW,200: RETURN +4530 MODEML: PRINT "Il ne fallait pas fuir!": MODEMW,200: RETURN +4540 MODEMC: MODEML: PRINT "Vous avez raison d'utiliser le ciseau," +4542 MODEML: PRINT "le monstre est mort!" +4545 MODEMW,200: RETURN +4550 MODEMD: MODEMN: PRINT "A l'interieur du placard,le No "PL +4552 MODEML: PRINT "est inscrit": MODEMW,200 +4555 MODEML: PRINT "Le placard se referme.": MODEMW,100: RETURN +4560 MODEMC: FORN=1TO30: MODEME: MODEMW,5: NEXTN +4562 MODEMN: PRINT "le pistolet a explose!": MODEMW,200 +4565 RETURN + +4570 IF SALLE = 2 THEN RETURN +4571 MODEML: PRINT "Impossible!": BREAK = 3: RETURN +4575 MODEMC: FOR N = 1 TO 25: MODEME: MODEMW,7: NEXTN +4576 MODEMN: PRINT "le clavier numerique a explose!": MODEMW,200: BREAK = 5: RETURN +4580 MODEMN: PRINT "Le clavier numerique prend feu.": MODEMW,200 +4581 MODEML: IF O(24) <> -1 THEN 4586 +4582 MODEML: PRINT "Heureusement,vous avez un pot plein" +4584 MODEML: PRINT "d'eau. Ce qui vous permet d'eteindre" +4585 MODEML: PRINT "ce feu.": MODEMW,300: RETURN +4586 MODEML: PRINT "Malheureusement vous n'avez pas d'eau" +4587 MODEML: PRINT "pour l'eteindre.": MODEMW,200 +4588 GOTO 4575 + +4590 MODEMN: INPUT"No DE CODE ";ZC +4595 IF ZC <> PL THEN 4575 +4600 MODEMW,100: MODEML: PRINT "Le code est exact...": MODEML: PRINT "La porte s'ouvre..." +4603 MODEMW,150 +4605 GOTO 11000 +4610 MODEML: PRINT "A l'interieur du placard,il y a un mot" +4611 MODEML: PRINT "qui parle d'un teleporteur.": MODEMW,200 +4615 MODEML: PRINT "Tiens le placard se ferme tout seul...": MODEMW,100: RETURN +4620 MODEML: PRINT "Avant de la poser par terre,il faudrait" +4621 MODEML: PRINT "peut etre l'enlever." +4625 MODEMW,200: RETURN +4630 MODEMC: MODEMN: PRINT "Devant vous, il y a un horrible" +4631 MODEML: PRINT "monstre qui est sorti du placard." +4635 MODEMW,200: RETURN +4640 MODEML: PRINT "Le placard etait piege,vous n'auriez" +4641 MODEML: PRINT "pas du l'ouvrir!" +4645 FOR N = 1 TO 30: MODEME: MODEMW,7: NEXT N +4647 MODEMW,200: RETURN + +6000 REM ANALYSE DU MOT +6010 N = 0: GN = 0 +6020 N = N + 1: IF MID$(X$,N,1) <> " " THEN 6040 +6030 GOTO 6020 +6040 GN = GN + 1: XX$ = MID$(X$,N+GN,1): IF XX$ = " " OR XX$ = "" OR GN = 20 THEN 6060 +6050 GOTO 6040 +6060 IF GN > 4 THEN GN = 4 +6070 X$(1) = MID$(X$,N,GN) +6080 N = N + 1: XX$ = MID$(X$,N,1): IF XX$ = " " OR XX$ = "" THEN 6100 +6090 GOTO 6080 +6100 N = N + 1: IF MID$(X$,N,1) <> " " THEN 6115 +6110 GOTO 6100 +6115 GN = 0 +6120 GN = GN + 1: XX$ = MID$(X$,N+GN,1): IF XX$ = " " OR XX$ = "" OR GN = 20 THEN 6140 +6130 GOTO 6120 +6140 IF GN > 4 THEN GN = 4 +6150 X$(2) = MID$(X$,N,GN) +6160 MODEMU,X$(1): MODEMV,X$(2) +6170 MO(1) = PEEK(-3) +6180 MO(2) = PEEK(-2) +6190 RETURN + +6900 REM Chargement image salle +6902 MODEMC: MODEMN +6905 IF DEST < 11 THEN ON DEST GOTO 7000,7010,7020,7030,7040,7050,7060,7070,7080,7090 +6910 DEST = DEST - 10 +6915 IF DEST < 11 THEN ON DEST GOTO 7100,7110,7120,7130,7140,7150,7160,7170,7180,7190 +6920 DEST = DEST - 10 +6925 ON DEST GOTO 7200,7210,7220,7230,7240 + +7000 PRINT "DISKLOAD IMG_01" +7005 PRINT "Vous etes devant le manoir du defunt" +7006 PRINTSPC(14)"Dr GENIUS" +7009 RETURN +7010 PRINT "DISKLOAD IMG_02" +7015 PRINT "Vous etes dans le hall d'entree." +7019 RETURN +7020 PRINT "DISKLOAD IMG_03" +7025 PRINT "Vous etes en bas de l'escalier menant" +7026 PRINT "au 2eme etage." +7029 RETURN +7030 PRINT "DISKLOAD IMG_04" +7035 PRINT "Vous etes dans la salle a manger." +7039 RETURN +7040 PRINT "DISKLOAD IMG_05" +7045 PRINT "Vous etes dans une bibliotheque sans" +7046 PRINT "livre...!" +7049 RETURN +7050 PRINT "DISKLOAD IMG_06" +7055 PRINT "Vous etes dans une buanderie." +7059 RETURN +7060 PRINT "DISKLOAD IMG_07" +7065 PRINT "Vous etes dans le salon." +7069 RETURN +7070 PRINT "DISKLOAD IMG_08" +7075 PRINT "Vous etes dans une chambre." +7079 RETURN +7080 PRINT "DISKLOAD IMG_09" +7085 PRINT "Vous etes dans un corridor." +7089 RETURN +7090 PRINT "DISKLOAD IMG_10" +7095 PRINT "Vous etes dans une salle d'attente." +7099 RETURN +7100 PRINT "DISKLOAD IMG_11" +7105 PRINT "Vous etes dans le vestibule." +7109 RETURN +7110 PRINT "DISKLOAD IMG_12" +7115 PRINT "Vous etes dans la chambre d'amis." +7119 RETURN +7120 PRINT "DISKLOAD IMG_13" +7125 PRINT "Vous etes dans une chambre." +7129 RETURN +7130 STOP +7140 PRINT "DISKLOAD IMG_14" +7145 PRINT "Vous etes dans une petite salle." +7149 RETURN +7150 PRINT "DISKLOAD IMG_15" +7155 PRINT "Vous etes dans le laboratoire du +7156 PRINT "Dr GENIUS." +7159 RETURN +7160 PRINT "DISKLOAD IMG_16" +7165 PRINT "Vous etes dans une petite piece vide." +7169 RETURN +7170 PRINT "DISKLOAD IMG_17" +7175 PRINT "Vous ne savez pas où vous etes." +7179 RETURN +7180 PRINT "DISKLOAD IMG_18" +7185 PRINT "Vous etes en haut de l'escalier." +7189 RETURN +7190 PRINT "DISKLOAD IMG_19" +7195 PRINT "Vous etes dans la salle bain." +7199 RETURN +7200 PRINT "DISKLOAD IMG_20" +7205 PRINT "Vous etes dans le living room." +7209 RETURN +7210 PRINT "DISKLOAD IMG_21" +7215 PRINT "Vous etes dans une piece enfumee...!" +7219 RETURN +7220 PRINT "DISKLOAD IMG_22" +7225 PRINT "Vous etes dans une grande piece." +7229 RETURN +7230 PRINT "DISKLOAD IMG_23" +7235 PRINT "Vous etes dans une piece de rangement." +7239 RETURN +7240 PRINT "DISKLOAD IMG_24" +7245 PRINT "Vous etes dans le dressing." +7249 RETURN + +7500 TX7,0,0: VTAB 23: PRINTSPC(8)"APPUYEZ SUR UNE TOUCHE" +7510 N = RND(1) +7511 IF KEY(0) = 0 THEN 7510 +7515 RETURN + +7600 REM CONFIG JEU +7602 INIT0,0: TX3,0,0 +7605 POKE -34,0: POKE -1,0 +7610 INPUT "Carte SON (O/N)";X$ +7620 IF X$ = "O" THEN POKE -34,1: GOTO 7630 +7625 IF X$ <> "N" THEN 7610 +7630 INPUT "Foudre (O/N)";X$ +7640 IF X$ = "O" THEN POKE -1,1: GOTO 7650 +7645 IF X$ <> "N" THEN 7630 +7650 RETURN + +8000 REM CHARGEMENT VARIABLES +8001 RESTORE +8010 V = 70 +8130 O = 25: DIMO(25) +8140 FOR N = 1 TO 25 +8150 READ O(N) +8170 NEXT N +8180 DATA 06,05,05,08,08,00,00,11,11 +8190 DATA 13,20,18,16,16,16,16,00,21 +8200 DATA 00,22,25,12,00,25,00 + +8205 DIM O$(25) +8210 FOR N = 1 TO 25 +8220 READ O$(N) +8240 NEXT N +8250 DATA UNE TORCHE ELECTRIQUE,UN ROBINET,UN CISEAU,UN TOURNEVIS +8260 DATA UNE LAMPE A PETROLE,UNE LAMPE PLEINE,UNE LAMPE ALLUMEE,UN COUTEAU +8270 DATA UN PAPIER,UN LIVRE,DU PETROLE DANS UN LAVABO BOUCHE +8280 DATA UNE CLEF,UN BOUTON ROUGE,UN BOUTON BLEU +8290 DATA UN BOUTON VERT,UN TELEPORTEUR,UN TELEPORTEUR REPARE +8300 DATA UNE COMBINAISON ARGENTEE,UNE COMBINAISON ENFILEE,UN MONSTRE A L'EST +8310 DATA UN PISTOLET,UN BRIQUET,UN BRIQUET ALLUME,UN POT,UN POT PLEIN D'EAU + +8320 M = 25: DIM M$(25) +8330 FOR N = 1TO 25 +8340 READ M$(N) +8360 NEXT N +8370 DATA 00,0403030400,030200,04020305010600,04040107032000,020400 +8380 DATA 04080109020500,030700,04130207031000 +8390 DATA 0409021100,0110031200,041100,030900,0209031500,00,00 +8400 DATA 00,00,0122032100,040500,0125022200,012100 +8410 DATA 0124042200,022300,022100 + +8430 A = 128: DIM A$(128) +8440 FOR N = 1 TO 128 +8450 READ A$(N) +8470 NEXT N +8480 DATA 1400A01.I02D02M.,0500A03D08.D03N.,0500A03E08E09D24.D04D05I19E02M. +8485 DATA 0500A03E08D24.D04D06N. +8490 DATA 0500A03E07.I19M.,0500A03E03.I19M.,0500A03.I19E02M.,0600A19D08.D03N. +8500 DATA 0600A19E08E09D24.D04D05I03M.,0600A19E08D24.D04D06N.,0600A19.I03M. +8505 DATA 0100A09E07B22.D07N. +8510 DATA 0100A09E03B05.D07N.,0100A09.I14E02M.,0100A14.I16E02M. +8515 DATA 0200A16E07B22.D07N.,0200A16E03B05.D07N. +8520 DATA 0200A16.I14E02M.,0400A15E03B05.D07N.,0400A15E07B22.D07N. +8522 DATA 0400A15.I14E02M.,0100A15E03.I17M.,0100A15E07.I17M.,0100A15.I17E02M. +8525 DATA 0200A17.F01I15M. +8530 DATA 0300A17.D08N.,0400A17.D09K.,0300A18.D10F03E01E02I17M. +8531 DATA 0400A21E03.I19M. +8535 DATA 0400A21E07.I19M.,0400A21.I19E02M.,0200A22E03.I19M.,0200A22E07.I19M. +8540 DATA 0200A22.I19E02M.,0200A19.D11N.,0400A19.D11N.,0300A22.D12I23M. +8541 DATA 2500A01.D13.,2500I01.D14K.,1244A03.D15M.,1034B01.B01J.,1027B08.B08J. +8545 DATA 1028B04.B04J.,1029B05.B05J.,1032B21.B21J.,1038B24.B24J. +8548 DATA 1039B12.B12J.,1040B09.B09J.,1041B10.B10J.,1043B18.B18J. +8550 DATA 1050B03.B03J.,1042B22.B22J.,1037A20B05.H11P05E05D16K.,1037A20.D17K. +8553 DATA 1134.C01J.,1127.C08J.,1128.C04J.,1129.C05J.,1132.C21J.,1138.C24J. +8555 DATA 1143E09.D62K. +8556 DATA 1139.C12J.,1140.C09J.,1141.C10J.,1143.C18J.,1150.C03J.,1142.C22J. +8560 DATA 2400.A00L.,1249A05.E04D20G0405J.,1349A05.F04J.,2238A05E04.P24E08J. +8563 DATA 2338A05E08.F08P24J.,2338E08.D21N.,1848B10.D22L.,1841B10.D23N. + +8566 DATA 1840B09.D24K.,2040B09.D25K.,1951A02.D26M.,1951.D27K.,2100A14.D28K. +8570 DATA 2100.D29K.,1542C22.D33K.,1542E07.D30K.,1542A14.D07N. +8575 DATA 1542A17E01.D10K.,1542E02.F02E07E06P22M.,1542.E07P22J. +8580 DATA 1529C05.D33K.,1529E03.D30K.,1529F07.D31L.,1529F05.D32L. +8590 DATA 1529E02.F02E03E06P06P05M.,1529.E03P06P05J. +8595 DATA 1642C22.D33K.,1642F07.D30K.,1642E06E03.D36F07P22M. +8597 DATA 1642E06.E02F07F06P22M. +8600 DATA 1642.F07P22M.,1629C05.D33K.,1629F03.D30K.,1629E07E06.D34F03P05M. +8605 DATA 1629E06.E02F06F03P05M.,1629.F03P05M.,1534B01.D35N. +8610 DATA 1735I16.D45K.,1735E02.D43K.,1735F03.D44K.,1735C04.D46K. +8615 DATA 1735.P16E10J.,5600A16F10.D47K.,5646A16.D48N.,5647A16.D48N. +8620 DATA 5645A16F09.D50D06N.,5645A16.D49I18M.,5543D18E09.D30K. +8625 DATA 5543D18.P18E09J.,5743D18F09.D30K.,5743D18.P18F09J. +8630 DATA 1233A24C12.D51K.,1233A24C03.D52N.,1233A24.G0503E11D63K. +8635 DATA 2636E11.D54F11D55K.,5350E11.D54F11D55K.,5232B21.D56N. +8640 DATA 5830F08.D57.,5830.D58D59.,1233A06.D61M. +8650 DATA 1233A25.D64N. + +8700 PL = INT(RND(1)*9000+1000) +8800 C = 14: DIMC$(14) +8810 FOR N = 1 TO 14 +8820 READ C$(N) +8840 NEXT N +8850 DATA G03E03.D00N.,G04E04.D01N.,I14I16I17I19.F02.,G07E07.D18N.,GO1.D19N. +8860 DATA H06C03C08.D37N.,H08D08.D39L.,H06D03.D38L.,G08E08B24.D40D21N. +8870 DATA H02.D41N.,G09E02.D42N.,G05E11.D52N.,I24E11.D53D52N.,.L. +8900 RETURN + +9000 FOR IJ = 1 TO 100: NEXT IJ +9010 RETURN + +11000 REM SUCCES +11020 PRINT "DISKLOAD IMG_01" +11030 MODEMN: MODEMC: MODEMD +11040 PRINT "Vous voila en dehors de la maison..." +11050 MODEMW,250 +11055 MODEMN +11060 PRINT " Cela est exceptionnel,vous etes le" +11065 PRINT "premier a sortir vivant de cette" +11070 PRINT "maison. Mais a votre place, je me" +11075 PRINT "mettrais a courir car un nain rode" +11080 PRINT "peut-etre dans les parages..." +11085 GOSUB 11100 +11090 GOTO 20040 + +11100 REM TEA FOR TWO +11102 REM RESTORE 11125 +11105 FOR N = 1 TO 110 +11110 READ A1,A2,A3 +11115 MODEMM,1,A1,A2,10: MODEMP,1,0,0,100: MODEMW,A3 +11120 MODEMP,0,0,0,0 +11122 NEXT N +11123 RETURN +11125 DATA 4,6,45,4,3,15,4,5,45,4,3,15,4,6,45,4,3,15,4,5,45 +11130 DATA 4,1,15,4,5,45,4,1,15,4,3,45,4,1,15,4,5,45,4,1,15 +11135 DATA 4,3,45,4,1,15,4,6,45,4,3,15,4,5,45,4,3,15,4,6,45 +11140 DATA 4,3,15,4,5,45,4,1,30,4,10,30,4,10,22,4,7,8,4,9,30,4,9,22,4,7,8 +11145 DATA 4,10,30,4,10,22,4,7,8,4,9,30,4,9,22,4,5,8,4,9,30,4,7,22,4,5,8 +11150 DATA 4,7,30,4,7,22,4,5,8,4,9,30,4,9,22,4,5,8,4,7,30,4,7,22,4,5,8 +11155 DATA 4,10,30,4,10,22,4,7,8,4,9,30,4,9,22,4,7,8,4,10,30,4,10,22,4,7,8 +11160 DATA 4,9,30,4,9,30,5,2,120,5,1,60,4,6,45,4,3,15,4,5,45,4,3,15,4,6,45 +11165 DATA 4,3,15,4,5,45,4,1,15,4,5,45,4,1,15,4,3,45,4,1,15,4,5,45,4,1,15 +11170 DATA 4,3,45,4,1,15,4,6,45,4,3,15,4,5,45,4,3,15,4,6,45,4,3,15,4,5,45 +11175 DATA 4,1,30,5,3,45,5,3,15,5,1,45,5,1,15,4,11,45,4,11,15,4,10,45,4,10,15 +11180 DATA 5,1,45,5,1,15,4,11,45,4,11,15,4,10,45,4,10,15,4,8,45,4,8,15 +11185 DATA 4,6,45,4,3,15,4,5,45,4,3,15 +11190 DATA 4,6,45,4,3,15,4,5,45,4,10,15,4,6,120 + +20000 REM TOMBE +20005 PRINT "DISKLOAD IMGTMB" +20010 MODEMC: MODEMD: MODEMN +20020 PRINT "Vous etes mort !": MODEMW,100 +20030 IF PEEK(-34)=1 THEN GOSUB 21000 +20040 MODEML: PRINT: MODEML: X$="": INPUT "Voulez-vous rejouer ";X$ +20050 IF X$ = "O" OR X$ = "o" THEN RUN 45 +20060 IF X$ = "N" OR X$ = "n" THEN 20080 +20070 GOTO 20040 +20080 MODEMN: PRINT " AU REVOIR" +20090 END + +21000 REM SARABANDE +21005 REM RESTORE 21040 +21015 FOR N = 1 TO 75 +21020 READ A1,A2,A3,A4,A5 +21025 READ A6,A7,A8,A9,A0 +21030 MODEMM,1,A1,A2,A3: MODEMM,2,A4,A5,A6: MODEMM,3,A7,A8,A9: MODEMP,7,0,0,100: MODEMW,A0 +21031 IF KEY(0) <> 0 THEN MODEMP,0,0,0,0: RETURN +21032 IF N > 70 THEN NEXT N: MODEMP,0,0,0,0: RETURN +21035 MODEMP,0,0,0,0: NEXTN +21040 DATA 3,6,8,3,3,8,2,10,8,80 +21045 DATA 3,6,8,3,3,8,2,10,8,80 +21050 DATA 0,1,1,0,1,1,0,1,1,40 +21055 DATA 3,8,8,3,5,8,0,1,1,40 +21060 DATA 3,5,8,3,2,8,2,10,8,80 +21065 DATA 3,5,8,3,2,8,2,10,8,40 +21070 DATA 1,11,8,0,1,1,0,1,1,40 +21075 DATA 1,10,8,0,1,1,0,1,1,40 +21080 DATA 1,8,8,0,1,1,0,1,1,40 +21085 DATA 3,10,8,3,6,9,3,1,8,80 +21090 DATA 3,10,8,3,6,9,3,1,8,80 +21095 DATA 0,1,1,0,1,1,0,1,1,40 +21100 DATA 3,11,8,3,8,8,0,1,1,40 +21105 DATA 3,8,8,3,5,8,3,1,8,80 +21110 DATA 3,8,8,3,5,8,3,1,8,40 +21115 DATA 2,1,8,0,1,1,0,1,1,40 +21120 DATA 1,11,8,0,1,1,0,1,1,40 +21125 DATA 1,10,8,3,7,8,3,10,8,40 +21130 DATA 3,11,8,3,8,8,3,3,8,80 +21135 DATA 3,11,8,3,8,8,3,3,8,80 +21140 DATA 1,8,8,0,1,1,0,1,1,40 +21145 DATA 1,8,8,3,10,8,4,1,8,40 +21150 DATA 3,10,8,3,6,8,3,3,8,80 +21155 DATA 3,10,8,3,6,8,3,3,8,80 +21160 DATA 0,1,1,0,1,1,0,1,1,40 +21165 DATA 3,10,8,2,1,8,0,1,1,40 +21170 DATA 4,3,8,3,10,8,1,11,8,80 +21175 DATA 4,3,8,3,8,8,2,11,9,80 +21180 DATA 0,1,1,0,1,1,0,1,1,40 +21185 DATA 4,5,8,0,1,1,0,1,1,40 +21190 DATA 4,2,8,3,10,8,3,5,8,80 +21195 DATA 4,2,8,3,10,8,3,5,8,40 +21200 DATA 2,8,8,0,1,1,0,1,1,40 +21202 DATA 2,6,8,0,1,1,0,1,1,40 +21203 DATA 2,5,8,0,1,1,0,1,1,40 +21205 DATA 3,6,8,3,3,8,2,10,8,80 +21210 DATA 3,6,8,3,3,8,2,10,8,80 +21215 DATA 0,1,1,0,1,1,0,1,1,40 +21220 DATA 3,8,8,3,5,8,0,1,1,40 +21225 DATA 3,5,8,3,2,8,2,10,8,80 +21230 DATA 3,5,8,3,2,8,2,10,8,40 +21235 DATA 1,11,8,0,1,1,0,1,1,40 +21240 DATA 1,10,8,0,1,1,0,1,1,40 +21245 DATA 1,8,8,0,1,1,0,1,1,40 +21250 DATA 3,10,8,3,6,9,3,1,8,80 +21255 DATA 3,10,8,3,6,9,3,1,8,80 +21260 DATA 0,1,1,0,1,1,0,1,1,40 +21265 DATA 3,11,8,3,8,8,0,1,1,40 +21270 DATA 3,8,8,3,5,8,3,1,8,80 +21275 DATA 3,8,8,3,5,8,3,1,8,40 +21280 DATA 2,1,8,0,1,1,0,1,1,40 +21285 DATA 1,11,8,0,1,1,0,1,1,40 +21290 DATA 1,10,8,3,7,8,3,10,8,40 +21295 DATA 3,11,8,3,8,8,3,3,8,80 +21300 DATA 2,8,8,0,1,1,0,1,1,40 +21305 DATA 3,11,8,3,8,8,3,1,8,40 +21310 DATA 2,8,8,0,1,1,0,1,1,40 +21315 DATA 2,1,8,0,1,1,0,1,1,40 +21320 DATA 4,1,8,2,5,8,0,1,1,40 +21325 DATA 3,10,8,3,6,8,3,1,8,80 +21330 DATA 3,10,8,2,3,8,0,1,1,40 +21335 DATA 4,3,8,3,6,8,2,11,8,40 +21340 DATA 4,2,8,0,1,1,0,1,1,40 +21345 DATA 4,3,8,3,11,8,2,8,8,40 +21350 DATA 4,5,8,0,1,1,0,1,1,40 +21355 DATA 4,6,8,3,10,8,2,10,8,80 +21360 DATA 4,5,8,3,8,8,1,10,8,40 +21365 DATA 0,1,1,3,8,8,1,10,8,40 +21370 DATA 4,3,8,0,1,1,0,1,1,40 +21375 DATA 4,3,8,3,6,8,2,3,8,80 +21380 DATA 3,3,8,3,10,8,3,6,8,40 +21385 DATA 3,3,7,3,10,7,3,6,7,40 +21390 DATA 3,3,6,3,10,6,3,6,6,40 +21395 DATA 3,3,5,3,10,5,3,6,5,40 +21400 DATA 3,3,4,3,10,4,3,6,5,40 + + diff --git a/lemanoirdudocteurgenius/jeu.bas b/lemanoirdudocteurgenius/jeu.bas new file mode 100644 index 0000000..9dacbe4 --- /dev/null +++ b/lemanoirdudocteurgenius/jeu.bas @@ -0,0 +1,729 @@ +2 REM LE MANOIR DU DOCTEUR GENIUS +3 REM COPYRIGHT LORICIELS 83 L.BENES +4 REM VERSION VG5000 FRED_72 2021 +5 REM VERSION APPLE II BRUTAL DELUXE 2023 +6 REM +10 REM POKE -34 BECOMES 254 +11 REM POKE -1 BECOMES 255 +12 D$=CHR$(4) +20 REM CLEAR 300,-16385 +30 PRINT "DISKLOAD CODE" +35 REM CALL -16384: POKE&"47FD",0 +40 GOSUB 7600 +45 HOME : & INIT0,0: & TX3,0,0: PRINT: PRINTSPC(10)"VEUILLEZ PATIENTER" +50 GOSUB 8000: REM CHARGEMENT VARIABLES +51 GOSUB 7500 +55 & N: & INIT0,0: & TX0,0,0 +57 DIM P(12): P(11) = 0: P(12) = 0 +60 SALLE = 1 +70 FOR N = 1 TO 10 +80 P(N) = 0: C(N) = 0 +85 NEXT N +90 C(3) = 14: C(7) = 12: C(1) = 80: C(9) = 12 +100 IF SALLE <> 14 AND SALLE <> 16 AND SALLE <> 17 AND SALLE <> 19 THENP(2) = 0 +105 IF P(2) = 0 THEN 200 +106 IF O(22) = SA AND P(7) = 1 THEN 200 +107 IF O(05) = SA AND P(3) = 1 THEN 200 +110 IF C(9) > 1 THEN C(9) = C(9) - 1 +130 & C: & N +140 HTAB 1: VTAB 18: PRINT "Il fait noir comme dans un four!" +145 PRINT "Il faudrait peut etre allumer." +150 GOTO 500 + +200 REM DESCRIPTION SALLE +210 & N: & C: REM cadre+zone+dessin +215 DEST = SALLE +220 GOSUB 6900 +230 & D +300 H = 0: N = 1 +310 IF O(N) <> SALLE THEN 400 +320 IF H = 1 THEN 350 +330 & L: PRINT "Il y a dans la salle: ": & W,10 +340 H = 1 +350 & L: PRINT " ";O$(N); +360 & W,25 +400 N = N + 1 +410 IF N <= O THEN 310 +415 & L: PRINT + +500 REM ACCEPTATION COMMANDE +510 T = 1: Y$(1) = "": Y$(2) = "": N = 0 +520 GOTO 1000 +530 IF C(7) > 1 AND P(7) = 1 THEN C(7) = C(7) - 1 +540 IF C(3) > 1 AND P(3) = 1 THEN C(3) = C(3) - 1 +545 IF C(4) > 1 AND P(4) = 1 THEN C(4) = C(4) - 1 +547 IF C(5) > 1 THEN C(5) = C(5) - 1 +550 X$ = "": INPUT "Que faites vous ";X$ +560 & N: PRINT ">";X$ +570 GOSUB 6000 +580 & L: IF MO(1) = 0 THEN PRINT "Je ne comprends pas...": & W,50: GOTO 500 + +900 REM CONTROLE Mvt +905 & I,SALLE +910 IF PEEK(-4) = 0 THEN 980 +920 SALLE = PEEK(-4): GOTO 100 +980 T = 0 +990 A1 = 0 + +1000 REM CONTROLE +1010 NL = 0 +1100 NL = NL + 1 +1110 IF T = 0 THEN 1150 +1120 E$ = C$(NL) +1130 GOTO 1400 +1150 & A: NL = PEEK(-33) +1151 IF PEEK(-32) = 0 THEN 1159 +1152 AD = -32: E$ = "" +1153 IF PEEK(AD) = 255 THEN 1400 +1154 E$ = E$ + CHR$(PEEK(AD)): AD = AD + 1 +1155 GOTO 1153 +1159 PY = 23: CO = 12 +1160 IF A1 = 1 THEN 500 +1170 & L: PRINT "Impossible "; +1180 IF MO(1) < 10 THEN PRINT "de prendre ce chemin"; + +1190 PRINT "!": & W,100: GOTO 100 + +1400 REM CONDITIONS +1410 E = 1 +1420 IF MID$(E$,E,1) = "." THEN 1700 +1430 LI = ASC(MID$(E$,E,1))-65 +1440 N = VAL(MID$(E$,E+1,2)) +1450 ON (LI+1) GOSUB 1500,1510,1520,1530,1540,1550,1560,1570,1580 +1460 IF OK = 0 THEN 1100 +1470 E = E + 3: GOTO 1420 +1500 IF N = SALLE THEN 1590 +1505 GOTO 1585 +1510 IF O(N) = -1 OR O(N) = SALLE THEN 1590 +1515 GOTO 1585 +1520 IF O(N) <> SALLE AND O(N) <> -1 THEN 1590 +1525 GOTO 1585 +1530 IF O(N) = -1 THEN 1590 +1535 GOTO 1585 +1540 IF P(N) = 1 THEN 1590 +1545 GOTO 1585 +1550 IF P(N) = 0 THEN 1590 +1555 GOTO 1585 +1560 IF C(N) = 1 THEN 1590 +1565 GOTO 1585 +1570 IF INT(RND(1)*99+1) < N THEN 1590 +1575 GOTO 1585 +1580 IF N <> SALLE THEN 1590 +1585 OK = 0: RETURN +1590 OK = 1: RETURN + +1700 REM ACTIONS +1705 E = E + 1: A1 = 1 +1710 IF MID$(E$,E,1) = "." THEN 1100 +1720 LI = ASC(MID$(E$,E,1))-65 +1730 IF MID$(E$,E+1,1) <> "." THEN N = VAL(MID$(E$,E+1,2)) +1740 BREAK = 0 +1750 ON (LI+1) GOSUB 1800,1900,2000,2100,2200,2300,2400,2500,2600,2700,2800,2900,3000,3100,3200,3300 +1760 IF BREAK > 0 THEN ON BREAK GOTO 100,300,500,530,20000 +1780 E = E + 3 +1790 GOTO 1710 +1800 G = 0: HH = 0 +1810 G = G + 1 +1820 IF O(G) = -1 THEN 1840 +1830 IF G < O THEN 1810 +1835 GOTO 1870 +1840 & L: IF HH = 0 THEN PRINT "Vous detenez: " +1850 HH = 1 +1860 & L: PRINT O$(G);: PRINT " ";: & W,30 +1865 IF G < V THEN 1810 +1870 & L: IF HH = 1 THEN PRINT ".": RETURN +1880 & L: PRINT "Vous ne detenez absolument rien!!!": RETURN +1900 IF S(1) < 5 THEN 1930 +1910 & L: PRINT "Il parait evident que vous ne pouvez" +1915 & L: PRINT "porter tant de chose!!!" +1920 & W,200: BREAK = 1: RETURN +1930 IF O(N) <> -1 THEN 1960 +1935 REM +1940 & L: PRINT "Vous l'avez deja,vous etes etourdis et" +1945 & L: PRINT "dans cette maison ce n'est pas tres" +1950 & L: PRINT "conseille...": GOTO 1920 +1960 O(N) = -1: S(1) = S(1) + 1: RETURN +2000 IF O(N) = -1 THEN 2030 +2010 & L: PRINT "Comment voulez vous poser ce que vous" +2015 & L: PRINT "n'avez pas..." +2020 GOTO 1920 +2030 O(N) = SALLE: S(1) = S(1) - 1: RETURN + +2100 REM +2105 DEST = N + 1: GOSUB 3900 +2110 RETURN +2200 P(N) = 1: RETURN +2300 P(N) = 0: RETURN + +2400 C(N) = VAL(MID$(A$(N),E+3,2)): E = E + 2: RETURN + +2500 IF O(N) = -1 THEN S(1) = S(1) - 1 +2510 O(N) = 0: RETURN +2600 SALLE = N: RETURN +2700 & L: PRINT "D'accord..." +2710 & W,20: BREAK=2: RETURN +2800 BREAK = 3 +2810 RETURN +2900 BREAK = 4: RETURN +3000 BREAK = 1: RETURN +3100 BREAK = 5: RETURN +3200 O(N) = SALLE: RETURN +3300 X$=O$(N): O$(N)=O$(N+1): O$(N+1)=X$: RETURN + +3900 IF DEST < 11 THEN ON DEST GOTO 4000,4010,4020,4030,4040,4050,4060,4070,4080,4090 +3910 DEST = DEST - 10 +3915 IF DEST < 11 THEN ON DEST GOTO 4100,4110,4120,4130,4140,4150,4160,4170,4180,4190 +3920 DEST = DEST - 10 +3925 IF DEST < 11 THEN ON DEST GOTO 4200,4210,4220,4230,4240,4250,4260,4270,4280,4290 +3930 DEST = DEST - 10 +3935 IF DEST < 11 THEN ON DEST GOTO 4300,4310,4320,4330,4340,4350,4360,4370,4380,4390 +3940 DEST = DEST - 10 +3945 IF DEST < 11 THEN ON DEST GOTO 4400,4410,4420,4430,4440,4450,4460,4470,4480,4490 +3950 DEST = DEST - 10 +3955 IF DEST < 11 THEN ON DEST GOTO 4500,4510,4520,4530,4540,4550,4560,4570,4580,4590 +3960 DEST = DEST - 10 +3965 IF DEST < 11 THEN ON DEST GOTO 4600,4610,4620,4630,4640 + +4000 & C: FOR N = 1 TO 20: & E: & W,4: NEXT N +4001 & N: PRINT "Vous avez garde la lampe allumee trop" +4002 & L: PRINT "longtemps, elle a explose!" +4005 & W,200: RETURN +4010 & C +4011 & N: PRINT "Vous avez oublie de fermer le robinet" +4012 & L: PRINT "vous mourez sous des tonnes d'eau!" +4015 & W,200: RETURN +4020 & C +4022 & N: PRINT "La porte vient de se refermer derriere" +4023 & L: PRINT "vous. Vous etes prisonnier..." +4025 & W,200: RETURN +4030 & C +4031 & N: PRINT "Vous avez trebuche dans l'escalier,vous" +4032 & L: PRINT "vous empallez sur le couteau!" +4035 & W,200: RETURN +4040 & C +4041 & N: PRINT "Vous renversez l'eau dans l'escalier," +4042 & L: PRINT "ce qui provoque une decharge au niveau" +4043 & L: PRINT "de la prise electrique." +4045 & W,200: RETURN +4050 & C +4051 & N: PRINT "Vous etes sauf grace a la combinaison" +4052 & L: PRINT "que vous avez enfilee..!" +4055 & W,200: RETURN +4060 & L: PRINT "Vous mourez electrocute..." +4065 & W,200: RETURN +4070 & C: FORN=1TO20: & M,2,2,2,10: & P,3,7,4,80: & W,1: & E: & W,6: NEXTN +4071 & N: PRINT "La piece etait pleine de gaz explosif," +4072 & L: PRINT "vous auriez du eteindre..." +4073 & W,200: PRINT "On ramassera vos morceaux un autre" +4074 & L: PRINT "jour..!" +4075 & W,200: RETURN +4080 & C +4081 & N: PRINT "Vous mourez empalle sur des lances" +4082 & L: PRINT "sorties du mur...!" +4085 & W,200: RETURN +4090 & L: PRINT "La porte ne s'ouvre pas de cette piece": & W,200: RETURN +4100 & C +4101 & L: PRINT "La lampe et le briquet refusent de" +4102 & L: PRINT "fonctionner dans cette piece!" +4109 & W,200: RETURN +4110 & C +4111 & L: PRINT "Vous tombez dans une trappe,vous vous" +4112 & L: PRINT "disloquez en arrivant au sol.." +4115 & W,200: RETURN +4120 & L: PRINT "Vous avez raison de passer,car ce" +4122 & L: PRINT "monstre n'etait qu'une projection" +4124 & L: PRINT "en 3 dimensions sur un ecran de fumee" +4125 & W,250: RETURN +4130 & L: PRINT "Vous avez raison,la curiosite est un" +4132 & L: PRINT "vilain defaut!!!" +4134 & W,250 +4135 RUN 20040 +4140 & L: PRINT "Vous avez raison d'attendre,mais cela" +4141 & L: PRINT "ne pourra pas durer eternellement.." +4142 & W,200: RETURN +4150 & L: PRINT "Vous avez de la chance car ce coffre" +4151 & L: PRINT "etait ouvert.": & W,100 +4152 & L: PRINT "Un message a l'interieur dit: " +4153 & L: PRINTCHR$(34)+"Ne respectez pas les couleurs du code" +4154 & L: PRINT "de la route...?"+CHR$(34): & W,200 +4156 & L: PRINT "Tiens le coffre se referme!": & W,150: RETURN +4160 & L: PRINT "Maintenant,vous avez une lampe pleine" +4162 & L: PRINT "de petrole." +4165 & W,200: RETURN +4170 & L: PRINT "Vous n'avez rien pour transporter le" +4171 & L: PRINT "petrole.": & W,200: RETURN +4180 FOR N = 1 TO 10: & E: & W,6: NEXTN +4181 & C: & N: PRINT "Le briquet que vous aviez laisse" +4182 & L: PRINT "allume vient d'exploser!" +4185 & L: & W,200: PRINT "Ca tue l'etourderie.....": & W,150: RETURN +4190 & C: & N: PRINT "A force de marcher en long et en large" +4191 & L: PRINT "dans cette maison, vous sombrez dans" +4194 & L: PRINT "un coma des plus mortel... +4195 & W,300: RETURN +4200 PRINT "L'eau coule...": RETURN +4210 & C: & N: PRINT "Vous avez les pieds trempes,et cela" +4211 & L: PRINT "vous rend tres malade..." +4215 & W,100: & L: PRINT "Vous mourez d'une triple pneumonie...!": & W,200: RETURN +4220 & L: PRINT "Le titre est: " +4225 & L: PRINTCHR$(34)+"La mort a la 1ere page."+CHR$(34): & W,200: RETURN +4230 & C: FOR N=1 TO 20: & E: NEXTN +4233 & N: PRINT "Le livre a explose lorsque vous l'avez" +4235 & L: PRINT "ouvert...": & W,200: RETURN +4240 & L: PRINT "Le papier indique: "+CHR$(34)+"Cherchez la clef."+CHR$(34) +4242 & W,200: RETURN +4250 & L: PRINT "La clef vous permettra de trouver le" +4252 & L: PRINT "code de la porte d'entree." +4255 & W,200: RETURN +4260 & L: PRINT "Il y a un clavier numerique permettant" +4261 & L: PRINT "d'entrer un code a côte de la porte.": & W,200: RETURN +4270 & L: PRINT "Pour faire quoi..?": & W,200: RETURN +4280 & L: PRINT "Il y a une odeur de gaz.": & W,200: RETURN +4290 & L: PRINT "Apparemment,il n'y a aucune odeur.": & W,200: RETURN +4300 & L: PRINT "C'est deja fait,espece de rigolo!": & W,200: RETURN +4310 & L: PRINT "Il faudrait peut etre du feu!": & W,200: RETURN +4320 & L: PRINT "La lampe ne contient pas de petrole!": & W,200: RETURN +4330 & L: PRINT "Vous ne l'avez pas!": & W,200: RETURN +4340 & L: PRINT "Le briquet est encore allume et il" +4342 & L: PRINT "eclaire la piece.": & W,200: RETURN +4350 FOR N = 1 TO 15: & E: & W,4: NEXT N +4355 & L: PRINT "La torche etait piegee,elle vous" +4356 & L: PRINT "a explose dans les mains.." +4357 & W,200: RETURN +4360 & L: PRINT "La lampe est encore allumee,et elle" +4362 & L: PRINT "vous eclaire.": & W,200: RETURN +4370 & L: PRINT "Un nain vient de vous lancer un" +4371 & L: PRINT "poignard en plein coeur.." +4375 & W,200: RETURN +4380 & L: PRINT "Un nain vient de se precipiter sur" +4385 & L: PRINT "vous, il s'empalle sur votre ciseau.": & W,200: RETURN +4390 & L: PRINT "Un nain vient de se precipiter sur" +4395 & L: PRINT "vous, il s'empalle sur votre couteau.": & W,200: RETURN +4400 & L: PRINT "Vous venez de renverser le pot.": & W,150: RETURN +4410 IF PEEK(255) = 1 THEN BREAK = 3: RETURN +4411 & C: & S,4,4,0: & P,0,1,1,5000 +4412 & N: PRINT "La foudre vient de tomber sur la maison": & W,200 +4413 & L: PRINT "La maison n'existe plus!": & W,100 +4414 & L: PRINT "Vous non plus!": & W,100: & P,0,0,0,0: RETURN +4420 & C: & N: PRINT "A force de marcher dans le noir,vous" +4422 & L: PRINT "avez trebuche.": & W,100 +4425 & L: PRINT "Vous mourez d'une fracture du crane...": & W,200: RETURN +4430 & L: PRINT "Vous ne pouvez pas travailler dans le" +4433 & L: PRINT "noir...": & W,200: RETURN +4440 & L: PRINT "La lumiere du briquet ne suffit pas" +4442 & L: PRINT "pour travailler...": & W,200: RETURN +4450 & L: PRINT "Impossible !": & W,100: RETURN +4460 & L: PRINT "Vous n'avez aucun outil...": & W,200: RETURN +4470 & L: PRINT "Le teleporteur est en panne,donc les" +4472 & L: PRINT "boutons ne fonctionnent pas." +4475 & W,400: RETURN +4480 FOR N = 1 TO 25: & E: & W,5: NEXT N +4484 & C: & N: PRINT "Le teleporteur vient d'exploser," +4485 & L: PRINT "vous etes decompose..!": & W,200: RETURN +4490 & N: PRINT "Le teleporteur se met en marche" +4491 & L: PRINT "vous disparaissez...": & W,50 +4492 & M,2,1,5,0: & P,2,1,3,1000 +4493 & F +4494 & P,0,0,0,0 +4495 FOR N = 500 TO 30 STEP -5 +4497 & S,2,N,12: & P,2,0,0,100 +4498 NEXT N +4499 & P,0,0,0,0: RETURN +4500 & C: & L: PRINT "Vous prenez du 30000 Volts dans les" +4502 & L: PRINT "doigts!": & W,200: RETURN +4510 & L: PRINT "Le placard est ferme a clef!": & W,200: RETURN +4520 & C: & N: PRINT "L'horrible monstre sorti du placard" +4522 & L: PRINT "vient de vous devorer!" +4525 & W,200: RETURN +4530 & L: PRINT "Il ne fallait pas fuir!": & W,200: RETURN +4540 & C: & L: PRINT "Vous avez raison d'utiliser le ciseau," +4542 & L: PRINT "le monstre est mort!" +4545 & W,200: RETURN +4550 & D: & N: PRINT "A l'interieur du placard,le No "PL +4552 & L: PRINT "est inscrit": & W,200 +4555 & L: PRINT "Le placard se referme.": & W,100: RETURN +4560 & C: FORN=1TO30: & E: & W,5: NEXTN +4562 & N: PRINT "le pistolet a explose!": & W,200 +4565 RETURN + +4570 IF SALLE = 2 THEN RETURN +4571 & L: PRINT "Impossible!": BREAK = 3: RETURN +4575 & C: FOR N = 1 TO 25: & E: & W,7: NEXTN +4576 & N: PRINT "le clavier numerique a explose!": & W,200: BREAK = 5: RETURN +4580 & N: PRINT "Le clavier numerique prend feu.": & W,200 +4581 & L: IF O(24) <> -1 THEN 4586 +4582 & L: PRINT "Heureusement,vous avez un pot plein" +4584 & L: PRINT "d'eau. Ce qui vous permet d'eteindre" +4585 & L: PRINT "ce feu.": & W,300: RETURN +4586 & L: PRINT "Malheureusement vous n'avez pas d'eau" +4587 & L: PRINT "pour l'eteindre.": & W,200 +4588 GOTO 4575 + +4590 & N: INPUT"No DE CODE ";ZC +4595 IF ZC <> PL THEN 4575 +4600 & W,100: & L: PRINT "Le code est exact...": & L: PRINT "La porte s'ouvre..." +4603 & W,150 +4605 GOTO 11000 +4610 & L: PRINT "A l'interieur du placard,il y a un mot" +4611 & L: PRINT "qui parle d'un teleporteur.": & W,200 +4615 & L: PRINT "Tiens le placard se ferme tout seul...": & W,100: RETURN +4620 & L: PRINT "Avant de la poser par terre,il faudrait" +4621 & L: PRINT "peut etre l'enlever." +4625 & W,200: RETURN +4630 & C: & N: PRINT "Devant vous, il y a un horrible" +4631 & L: PRINT "monstre qui est sorti du placard." +4635 & W,200: RETURN +4640 & L: PRINT "Le placard etait piege,vous n'auriez" +4641 & L: PRINT "pas du l'ouvrir!" +4645 FOR N = 1 TO 30: & E: & W,7: NEXT N +4647 & W,200: RETURN + +6000 REM ANALYSE DU MOT +6010 N = 0: GN = 0 +6020 N = N + 1: IF MID$(X$,N,1) <> " " THEN 6040 +6030 GOTO 6020 +6040 GN = GN + 1: XX$ = MID$(X$,N+GN,1): IF XX$ = " " OR XX$ = "" OR GN = 20 THEN 6060 +6050 GOTO 6040 +6060 IF GN > 4 THEN GN = 4 +6070 X$(1) = MID$(X$,N,GN) +6080 N = N + 1: XX$ = MID$(X$,N,1): IF XX$ = " " OR XX$ = "" THEN 6100 +6090 GOTO 6080 +6100 N = N + 1: IF MID$(X$,N,1) <> " " THEN 6115 +6110 GOTO 6100 +6115 GN = 0 +6120 GN = GN + 1: XX$ = MID$(X$,N+GN,1): IF XX$ = " " OR XX$ = "" OR GN = 20 THEN 6140 +6130 GOTO 6120 +6140 IF GN > 4 THEN GN = 4 +6150 X$(2) = MID$(X$,N,GN) +6160 & U,X$(1): & V,X$(2) +6170 MO(1) = PEEK(-3) +6180 MO(2) = PEEK(-2) +6190 RETURN + +6900 REM Chargement image salle +6902 & C: & N +6905 IF DEST < 11 THEN ON DEST GOTO 7000,7010,7020,7030,7040,7050,7060,7070,7080,7090 +6910 DEST = DEST - 10 +6915 IF DEST < 11 THEN ON DEST GOTO 7100,7110,7120,7130,7140,7150,7160,7170,7180,7190 +6920 DEST = DEST - 10 +6925 ON DEST GOTO 7200,7210,7220,7230,7240 + +7000 PRINT "DISKLOAD IMG_01" +7005 PRINT "Vous etes devant le manoir du defunt" +7006 PRINTSPC(14)"Dr GENIUS" +7009 RETURN +7010 PRINT "DISKLOAD IMG_02" +7015 PRINT "Vous etes dans le hall d'entree." +7019 RETURN +7020 PRINT "DISKLOAD IMG_03" +7025 PRINT "Vous etes en bas de l'escalier menant" +7026 PRINT "au 2eme etage." +7029 RETURN +7030 PRINT "DISKLOAD IMG_04" +7035 PRINT "Vous etes dans la salle a manger." +7039 RETURN +7040 PRINT "DISKLOAD IMG_05" +7045 PRINT "Vous etes dans une bibliotheque sans" +7046 PRINT "livre...!" +7049 RETURN +7050 PRINT "DISKLOAD IMG_06" +7055 PRINT "Vous etes dans une buanderie." +7059 RETURN +7060 PRINT "DISKLOAD IMG_07" +7065 PRINT "Vous etes dans le salon." +7069 RETURN +7070 PRINT "DISKLOAD IMG_08" +7075 PRINT "Vous etes dans une chambre." +7079 RETURN +7080 PRINT "DISKLOAD IMG_09" +7085 PRINT "Vous etes dans un corridor." +7089 RETURN +7090 PRINT "DISKLOAD IMG_10" +7095 PRINT "Vous etes dans une salle d'attente." +7099 RETURN +7100 PRINT "DISKLOAD IMG_11" +7105 PRINT "Vous etes dans le vestibule." +7109 RETURN +7110 PRINT "DISKLOAD IMG_12" +7115 PRINT "Vous etes dans la chambre d'amis." +7119 RETURN +7120 PRINT "DISKLOAD IMG_13" +7125 PRINT "Vous etes dans une chambre." +7129 RETURN +7130 STOP +7140 PRINT "DISKLOAD IMG_14" +7145 PRINT "Vous etes dans une petite salle." +7149 RETURN +7150 PRINT "DISKLOAD IMG_15" +7155 PRINT "Vous etes dans le laboratoire du +7156 PRINT "Dr GENIUS." +7159 RETURN +7160 PRINT "DISKLOAD IMG_16" +7165 PRINT "Vous etes dans une petite piece vide." +7169 RETURN +7170 PRINT "DISKLOAD IMG_17" +7175 PRINT "Vous ne savez pas où vous etes." +7179 RETURN +7180 PRINT "DISKLOAD IMG_18" +7185 PRINT "Vous etes en haut de l'escalier." +7189 RETURN +7190 PRINT "DISKLOAD IMG_19" +7195 PRINT "Vous etes dans la salle bain." +7199 RETURN +7200 PRINT "DISKLOAD IMG_20" +7205 PRINT "Vous etes dans le living room." +7209 RETURN +7210 PRINT "DISKLOAD IMG_21" +7215 PRINT "Vous etes dans une piece enfumee...!" +7219 RETURN +7220 PRINT "DISKLOAD IMG_22" +7225 PRINT "Vous etes dans une grande piece." +7229 RETURN +7230 PRINT "DISKLOAD IMG_23" +7235 PRINT "Vous etes dans une piece de rangement." +7239 RETURN +7240 PRINT "DISKLOAD IMG_24" +7245 PRINT "Vous etes dans le dressing." +7249 RETURN + +7500 & TX7,0,0: VTAB 23: PRINTSPC(8)"APPUYEZ SUR UNE TOUCHE" +7510 N = RND(1) +7511 IF PEEK(-16384)<128 THEN 7510 +7512 POKE -16368,0 +7515 RETURN + +7600 REM CONFIG JEU +7602 & INIT0,0: & TX3,0,0 +7605 POKE 254,0: POKE 255,0 +7610 INPUT "Carte SON (O/N)";X$ +7620 IF X$ = "O" THEN POKE 254,1: GOTO 7630 +7625 IF X$ <> "N" THEN 7610 +7630 INPUT "Foudre (O/N)";X$ +7640 IF X$ = "O" THEN POKE 255,1: GOTO 7650 +7645 IF X$ <> "N" THEN 7630 +7650 RETURN + +8000 REM CHARGEMENT VARIABLES +8001 RESTORE +8010 V = 70 +8130 O = 25: DIMO(25) +8140 FOR N = 1 TO 25 +8150 READ O(N) +8170 NEXT N +8180 DATA 06,05,05,08,08,00,00,11,11 +8190 DATA 13,20,18,16,16,16,16,00,21 +8200 DATA 00,22,25,12,00,25,00 + +8205 DIM O$(25) +8210 FOR N = 1 TO 25 +8220 READ O$(N) +8240 NEXT N +8250 DATA UNE TORCHE ELECTRIQUE,UN ROBINET,UN CISEAU,UN TOURNEVIS +8260 DATA UNE LAMPE A PETROLE,UNE LAMPE PLEINE,UNE LAMPE ALLUMEE,UN COUTEAU +8270 DATA UN PAPIER,UN LIVRE,DU PETROLE DANS UN LAVABO BOUCHE +8280 DATA UNE CLEF,UN BOUTON ROUGE,UN BOUTON BLEU +8290 DATA UN BOUTON VERT,UN TELEPORTEUR,UN TELEPORTEUR REPARE +8300 DATA UNE COMBINAISON ARGENTEE,UNE COMBINAISON ENFILEE,UN MONSTRE A L'EST +8310 DATA UN PISTOLET,UN BRIQUET,UN BRIQUET ALLUME,UN POT,UN POT PLEIN D'EAU + +8320 M = 25: DIM M$(25) +8330 FOR N = 1TO 25 +8340 READ M$(N) +8360 NEXT N +8370 DATA 00,0403030400,030200,04020305010600,04040107032000,020400 +8380 DATA 04080109020500,030700,04130207031000 +8390 DATA 0409021100,0110031200,041100,030900,0209031500,00,00 +8400 DATA 00,00,0122032100,040500,0125022200,012100 +8410 DATA 0124042200,022300,022100 + +8430 A = 128: DIM A$(128) +8440 FOR N = 1 TO 128 +8450 READ A$(N) +8470 NEXT N +8480 DATA 1400A01.I02D02M.,0500A03D08.D03N.,0500A03E08E09D24.D04D05I19E02M. +8485 DATA 0500A03E08D24.D04D06N. +8490 DATA 0500A03E07.I19M.,0500A03E03.I19M.,0500A03.I19E02M.,0600A19D08.D03N. +8500 DATA 0600A19E08E09D24.D04D05I03M.,0600A19E08D24.D04D06N.,0600A19.I03M. +8505 DATA 0100A09E07B22.D07N. +8510 DATA 0100A09E03B05.D07N.,0100A09.I14E02M.,0100A14.I16E02M. +8515 DATA 0200A16E07B22.D07N.,0200A16E03B05.D07N. +8520 DATA 0200A16.I14E02M.,0400A15E03B05.D07N.,0400A15E07B22.D07N. +8522 DATA 0400A15.I14E02M.,0100A15E03.I17M.,0100A15E07.I17M.,0100A15.I17E02M. +8525 DATA 0200A17.F01I15M. +8530 DATA 0300A17.D08N.,0400A17.D09K.,0300A18.D10F03E01E02I17M. +8531 DATA 0400A21E03.I19M. +8535 DATA 0400A21E07.I19M.,0400A21.I19E02M.,0200A22E03.I19M.,0200A22E07.I19M. +8540 DATA 0200A22.I19E02M.,0200A19.D11N.,0400A19.D11N.,0300A22.D12I23M. +8541 DATA 2500A01.D13.,2500I01.D14K.,1244A03.D15M.,1034B01.B01J.,1027B08.B08J. +8545 DATA 1028B04.B04J.,1029B05.B05J.,1032B21.B21J.,1038B24.B24J. +8548 DATA 1039B12.B12J.,1040B09.B09J.,1041B10.B10J.,1043B18.B18J. +8550 DATA 1050B03.B03J.,1042B22.B22J.,1037A20B05.H11P05E05D16K.,1037A20.D17K. +8553 DATA 1134.C01J.,1127.C08J.,1128.C04J.,1129.C05J.,1132.C21J.,1138.C24J. +8555 DATA 1143E09.D62K. +8556 DATA 1139.C12J.,1140.C09J.,1141.C10J.,1143.C18J.,1150.C03J.,1142.C22J. +8560 DATA 2400.A00L.,1249A05.E04D20G0405J.,1349A05.F04J.,2238A05E04.P24E08J. +8563 DATA 2338A05E08.F08P24J.,2338E08.D21N.,1848B10.D22L.,1841B10.D23N. + +8566 DATA 1840B09.D24K.,2040B09.D25K.,1951A02.D26M.,1951.D27K.,2100A14.D28K. +8570 DATA 2100.D29K.,1542C22.D33K.,1542E07.D30K.,1542A14.D07N. +8575 DATA 1542A17E01.D10K.,1542E02.F02E07E06P22M.,1542.E07P22J. +8580 DATA 1529C05.D33K.,1529E03.D30K.,1529F07.D31L.,1529F05.D32L. +8590 DATA 1529E02.F02E03E06P06P05M.,1529.E03P06P05J. +8595 DATA 1642C22.D33K.,1642F07.D30K.,1642E06E03.D36F07P22M. +8597 DATA 1642E06.E02F07F06P22M. +8600 DATA 1642.F07P22M.,1629C05.D33K.,1629F03.D30K.,1629E07E06.D34F03P05M. +8605 DATA 1629E06.E02F06F03P05M.,1629.F03P05M.,1534B01.D35N. +8610 DATA 1735I16.D45K.,1735E02.D43K.,1735F03.D44K.,1735C04.D46K. +8615 DATA 1735.P16E10J.,5600A16F10.D47K.,5646A16.D48N.,5647A16.D48N. +8620 DATA 5645A16F09.D50D06N.,5645A16.D49I18M.,5543D18E09.D30K. +8625 DATA 5543D18.P18E09J.,5743D18F09.D30K.,5743D18.P18F09J. +8630 DATA 1233A24C12.D51K.,1233A24C03.D52N.,1233A24.G0503E11D63K. +8635 DATA 2636E11.D54F11D55K.,5350E11.D54F11D55K.,5232B21.D56N. +8640 DATA 5830F08.D57.,5830.D58D59.,1233A06.D61M. +8650 DATA 1233A25.D64N. + +8700 PL = INT(RND(1)*9000+1000) +8800 C = 14: DIMC$(14) +8810 FOR N = 1 TO 14 +8820 READ C$(N) +8840 NEXT N +8850 DATA G03E03.D00N.,G04E04.D01N.,I14I16I17I19.F02.,G07E07.D18N.,GO1.D19N. +8860 DATA H06C03C08.D37N.,H08D08.D39L.,H06D03.D38L.,G08E08B24.D40D21N. +8870 DATA H02.D41N.,G09E02.D42N.,G05E11.D52N.,I24E11.D53D52N.,.L. +8900 RETURN + +9000 FOR IJ = 1 TO 100: NEXT IJ +9010 RETURN + +11000 REM SUCCES +11020 PRINT "DISKLOAD IMG_01" +11030 & N: & C: & D +11040 PRINT "Vous voila en dehors de la maison..." +11050 & W,250 +11055 & N +11060 PRINT " Cela est exceptionnel,vous etes le" +11065 PRINT "premier a sortir vivant de cette" +11070 PRINT "maison. Mais a votre place, je me" +11075 PRINT "mettrais a courir car un nain rode" +11080 PRINT "peut-etre dans les parages..." +11085 GOSUB 11100 +11090 GOTO 20040 + +11100 REM TEA FOR TWO +11102 REM RESTORE 11125 +11105 FOR N = 1 TO 110 +11110 READ A1,A2,A3 +11115 & M,1,A1,A2,10: & P,1,0,0,100: & W,A3 +11120 & P,0,0,0,0 +11122 NEXT N +11123 RETURN +11125 DATA 4,6,45,4,3,15,4,5,45,4,3,15,4,6,45,4,3,15,4,5,45 +11130 DATA 4,1,15,4,5,45,4,1,15,4,3,45,4,1,15,4,5,45,4,1,15 +11135 DATA 4,3,45,4,1,15,4,6,45,4,3,15,4,5,45,4,3,15,4,6,45 +11140 DATA 4,3,15,4,5,45,4,1,30,4,10,30,4,10,22,4,7,8,4,9,30,4,9,22,4,7,8 +11145 DATA 4,10,30,4,10,22,4,7,8,4,9,30,4,9,22,4,5,8,4,9,30,4,7,22,4,5,8 +11150 DATA 4,7,30,4,7,22,4,5,8,4,9,30,4,9,22,4,5,8,4,7,30,4,7,22,4,5,8 +11155 DATA 4,10,30,4,10,22,4,7,8,4,9,30,4,9,22,4,7,8,4,10,30,4,10,22,4,7,8 +11160 DATA 4,9,30,4,9,30,5,2,120,5,1,60,4,6,45,4,3,15,4,5,45,4,3,15,4,6,45 +11165 DATA 4,3,15,4,5,45,4,1,15,4,5,45,4,1,15,4,3,45,4,1,15,4,5,45,4,1,15 +11170 DATA 4,3,45,4,1,15,4,6,45,4,3,15,4,5,45,4,3,15,4,6,45,4,3,15,4,5,45 +11175 DATA 4,1,30,5,3,45,5,3,15,5,1,45,5,1,15,4,11,45,4,11,15,4,10,45,4,10,15 +11180 DATA 5,1,45,5,1,15,4,11,45,4,11,15,4,10,45,4,10,15,4,8,45,4,8,15 +11185 DATA 4,6,45,4,3,15,4,5,45,4,3,15 +11190 DATA 4,6,45,4,3,15,4,5,45,4,10,15,4,6,120 + +20000 REM TOMBE +20005 PRINT "DISKLOAD IMGTMB" +20010 & C: & D: & N +20020 PRINT "Vous etes mort !": & W,100 +20030 IF PEEK(254)=1 THEN GOSUB 21000 +20040 & L: PRINT: & L: X$="": INPUT "Voulez-vous rejouer ";X$ +20050 IF X$ = "O" OR X$ = "o" THEN RUN 45 +20060 IF X$ = "N" OR X$ = "n" THEN 20080 +20070 GOTO 20040 +20080 & N: PRINT " AU REVOIR" +20090 END + +21000 REM SARABANDE +21005 REM RESTORE 21040 +21015 FOR N = 1 TO 75 +21020 READ A1,A2,A3,A4,A5 +21025 READ A6,A7,A8,A9,A0 +21030 & M,1,A1,A2,A3: & M,2,A4,A5,A6: & M,3,A7,A8,A9: & P,7,0,0,100: & W,A0 +21031 IF PEEK(-16384) > 128 THEN & P,0,0,0,0: RETURN +21032 IF N > 70 THEN NEXT N: & P,0,0,0,0: RETURN +21035 & P,0,0,0,0: NEXTN +21040 DATA 3,6,8,3,3,8,2,10,8,80 +21045 DATA 3,6,8,3,3,8,2,10,8,80 +21050 DATA 0,1,1,0,1,1,0,1,1,40 +21055 DATA 3,8,8,3,5,8,0,1,1,40 +21060 DATA 3,5,8,3,2,8,2,10,8,80 +21065 DATA 3,5,8,3,2,8,2,10,8,40 +21070 DATA 1,11,8,0,1,1,0,1,1,40 +21075 DATA 1,10,8,0,1,1,0,1,1,40 +21080 DATA 1,8,8,0,1,1,0,1,1,40 +21085 DATA 3,10,8,3,6,9,3,1,8,80 +21090 DATA 3,10,8,3,6,9,3,1,8,80 +21095 DATA 0,1,1,0,1,1,0,1,1,40 +21100 DATA 3,11,8,3,8,8,0,1,1,40 +21105 DATA 3,8,8,3,5,8,3,1,8,80 +21110 DATA 3,8,8,3,5,8,3,1,8,40 +21115 DATA 2,1,8,0,1,1,0,1,1,40 +21120 DATA 1,11,8,0,1,1,0,1,1,40 +21125 DATA 1,10,8,3,7,8,3,10,8,40 +21130 DATA 3,11,8,3,8,8,3,3,8,80 +21135 DATA 3,11,8,3,8,8,3,3,8,80 +21140 DATA 1,8,8,0,1,1,0,1,1,40 +21145 DATA 1,8,8,3,10,8,4,1,8,40 +21150 DATA 3,10,8,3,6,8,3,3,8,80 +21155 DATA 3,10,8,3,6,8,3,3,8,80 +21160 DATA 0,1,1,0,1,1,0,1,1,40 +21165 DATA 3,10,8,2,1,8,0,1,1,40 +21170 DATA 4,3,8,3,10,8,1,11,8,80 +21175 DATA 4,3,8,3,8,8,2,11,9,80 +21180 DATA 0,1,1,0,1,1,0,1,1,40 +21185 DATA 4,5,8,0,1,1,0,1,1,40 +21190 DATA 4,2,8,3,10,8,3,5,8,80 +21195 DATA 4,2,8,3,10,8,3,5,8,40 +21200 DATA 2,8,8,0,1,1,0,1,1,40 +21202 DATA 2,6,8,0,1,1,0,1,1,40 +21203 DATA 2,5,8,0,1,1,0,1,1,40 +21205 DATA 3,6,8,3,3,8,2,10,8,80 +21210 DATA 3,6,8,3,3,8,2,10,8,80 +21215 DATA 0,1,1,0,1,1,0,1,1,40 +21220 DATA 3,8,8,3,5,8,0,1,1,40 +21225 DATA 3,5,8,3,2,8,2,10,8,80 +21230 DATA 3,5,8,3,2,8,2,10,8,40 +21235 DATA 1,11,8,0,1,1,0,1,1,40 +21240 DATA 1,10,8,0,1,1,0,1,1,40 +21245 DATA 1,8,8,0,1,1,0,1,1,40 +21250 DATA 3,10,8,3,6,9,3,1,8,80 +21255 DATA 3,10,8,3,6,9,3,1,8,80 +21260 DATA 0,1,1,0,1,1,0,1,1,40 +21265 DATA 3,11,8,3,8,8,0,1,1,40 +21270 DATA 3,8,8,3,5,8,3,1,8,80 +21275 DATA 3,8,8,3,5,8,3,1,8,40 +21280 DATA 2,1,8,0,1,1,0,1,1,40 +21285 DATA 1,11,8,0,1,1,0,1,1,40 +21290 DATA 1,10,8,3,7,8,3,10,8,40 +21295 DATA 3,11,8,3,8,8,3,3,8,80 +21300 DATA 2,8,8,0,1,1,0,1,1,40 +21305 DATA 3,11,8,3,8,8,3,1,8,40 +21310 DATA 2,8,8,0,1,1,0,1,1,40 +21315 DATA 2,1,8,0,1,1,0,1,1,40 +21320 DATA 4,1,8,2,5,8,0,1,1,40 +21325 DATA 3,10,8,3,6,8,3,1,8,80 +21330 DATA 3,10,8,2,3,8,0,1,1,40 +21335 DATA 4,3,8,3,6,8,2,11,8,40 +21340 DATA 4,2,8,0,1,1,0,1,1,40 +21345 DATA 4,3,8,3,11,8,2,8,8,40 +21350 DATA 4,5,8,0,1,1,0,1,1,40 +21355 DATA 4,6,8,3,10,8,2,10,8,80 +21360 DATA 4,5,8,3,8,8,1,10,8,40 +21365 DATA 0,1,1,3,8,8,1,10,8,40 +21370 DATA 4,3,8,0,1,1,0,1,1,40 +21375 DATA 4,3,8,3,6,8,2,3,8,80 +21380 DATA 3,3,8,3,10,8,3,6,8,40 +21385 DATA 3,3,7,3,10,7,3,6,7,40 +21390 DATA 3,3,6,3,10,6,3,6,6,40 +21395 DATA 3,3,5,3,10,5,3,6,5,40 +21400 DATA 3,3,4,3,10,4,3,6,5,40 diff --git a/lemanoirdudocteurgenius/lemanoirdudrgenius.dsk b/lemanoirdudocteurgenius/lemanoirdudrgenius.dsk new file mode 100644 index 0000000000000000000000000000000000000000..fe786a8d02c31f815128b445b5a5625fd7a379fc GIT binary patch literal 143360 zcmeFZdsq|48Zf>I;p#2gTU5{ykxPo279-T-QLtizT@`P=oVIqU27^UZ6c6n=r(&DU z;ZWiUr*aA^x};gkQi8!sTiViM3p7E6_11bXDhUA<7Vv_i&%sac0un~?xUco-S5I%wR^jz+BdXB<66tLbCU>pjl@&u@!s9O|3 z|GC8z0Ht(9%TPes)9G`F?x6tqNB(BIcbGIDrOfS*h{ia={3 zYylimZhT{ALA=&n=qKHcA`IRa`({Ve0RYE&MMx}E4HZZ^&$K%@|$q8XU7{e`CG*QxzEhN9i6c|ZpU&G<3OyjE7sZ;YrGW8 zNsZTHIhpZ#Y-LAmZhkMWz7d;;IaI+BB?GdOY#I6}*6i7}<7zBvp9@SNea2fmV&ks& z;`Wd;_QtkAyWbE&?nW%M!Bs;u6={J0zy$$pT&Kk7nF(D%CFLEM)frpa9*b&XE3e1q z%Ke#9U0p5LV)L(Kj4hX9`CqAkY()Io<`b!)BI79Qw`z=xFbc8OJL)8l@oFpuEH9X6 z=LacbJP|bB9ZSrVP!hmC7z+u`hpDI77saY`;2Vecg_F)!(heY&x9tl>ECsB)?vx>tbXY9jcAXQWpl^yH%r7;o2BGOHVzv^03+C7x!uhKdgK~uw0G1CX zo#JnFi8)6F-^aY<&06^mj>y%Ae~Uq0C1zQ|i;3BM_y1S`1a*r5XNXz+W8Q`r`Jji` zgxBLJ=AJ&>&dXfkLch2E6fZoihu(a=h5yC9(GlW}k`5QIQ^Jd*iNuIpc}F?_r5EfX zU-esCi-IydO)HOP%Y^07Hr$#mqa)&+N+HJPpXBMzmYIChhFY>^jo~IK8}1lxla$Ay z?&oSp&qBm3HbQ}VpQ{bQc~?09BU}`KAj(JS`*cNJPJP+a6exmubTfb7wSbqpUI10( z1xlid3_}w_g7If#ba?2*2l@YgylZ#K-hE}CepYF%+JE5lgEe1#S^M=j-`0Ki{o$i6 zttWo|<;>Z0=Pz9R)#>W!?7DjGdUsD>|BaisZr`~(c<=s@r|L~*Td?43CcuU%&SM;u z8Hd*!N7j?m2d#B#qf2e@!$;Vv zM~;$@9`o2&k3aF`Q;MJRRT=J@c&48#6;aGd6DExmkaj{pUGzp|3wa|HnBH_rOi85><#P zv*90X7Vf%oc>&zSsoCHrAo(vOYyxVS&CbWkT%05%&QF}HS?D{*>lk!_73kz_@COgu zT!ozCfiHLf28eZCU0s0{U0tGcfP3oyb7XoAoy17<2mBaW{(y{;RBI}jQO7jG_&g0{ zb(#VVbixGGwI$g?tr>~)iZw8n&O#+y*`M)#rRau zre9#B)fz?)Nc{>lkqi;A&g5H{S8wyF`>;M$9T~t6WBkE5bNRbf1HO!`T7&*FCz2m+ zc|ksc8Ivno=WW*ud_Ob1S|j|$AroF%7hv;2L>!~a&-R5jX#R7iu$F9Jc|X{~%U*KoEL+&f;ttMJv&cIknlcFty63c0gv#ma$66`xXz#H_Bh^i6Z+&Fp+Wh)sl! zolS{NiHiTXBL7cIEm(zFx7WizECh%)v~?CaKi0TfY22tZZcDTaNpAjAj)`#D2=DXixR^jNr>Mb-x$vO+W8(q)|9|sVH2W$rJpy< zE1jqL9n3s{2?Q9+^Ez_rc-{7SmIQnLKZ4_muD=&-{CjZR^>>4X663aD>$}0m5g}ZN zF)5bQ8#S@GySk|0@;YTOoj`sxUQr#tep_%sydCDD1TkR~E<^{LI*Kkl9c;Rkr%01k zT#F1g9fs*+PfXokg6a6W*Py8xNJcvbEYs_y{OIcVqwfZrf{y+z*ybx@i({v2@Qubu9+{3T>fNNPxW$i|TDkiUn#7m^clNO@n`9_xbDQl zhv*~kD?g5TV`f|IOS6BSO~j3!l{RbVEaK1QbM13Ib3@_@VlpxL-u?Uc@7=$5@7~bR zy`g(BQ{MB4w;s3-dEf&jxEhin0J-nMpxy>z3XO3!B+wcoxPQ-saX=-sgw%@$w-)Ph zFSsl5?*9D~!P_U)O~_Jyq@jT0A7858#3$$VH(*ju3+ zL$`!>hK`%kIAzq7^Ha>BABX0IuAlO3=rwj{)l zHh!Tr2i2v7l&lPC=5LeVhH&w?Xn5V*4~pV!W2|2&dF-KlgXF#(i4IIr1fZpnU<0d^ z#%0RLb;hMil~4Mrko4C>g5+bp&HwtKxjCfnBV|dJvRQuHTCFs`tVAaxte-1|Kn*Gh z*D*vvJeZC3O(l=a)9aQ_DB*oDKjWK9GG`J+ zejfrhMc!AEHL=!FA(bOTDC-Z(%0o(uTpHQcMZS8M)OyHQJUG>Qv>tS9f_14Ul1LE z){(Cw^wA_?L~)kVUO(H^4>$Z^BtHsJadO;dI5Q!DKWzO->0pG%tXXj3U&NL5xKb*g z3rLvR98&Og;Q+V&WR55T23iAYTh(B)*x)2Ye zY~}}qFX|RXsa_ZXn6#i2Ym~TivvrL!D5#uGj`$#)8SP|hUsgNeXxR5b~#tfFor zDDi|44Fw7ak^?346P2)%!u-4o+`0`DH1lNf*J{idJp0p$!21A)MVK8)woHON?^iaT zh1oK$)25o_2(pEsp-I~LuxZyOmO~c)^R)Bn`9<19I?>b`NBPYUPoyHT02^_WZby(Q zpwnOFa>#9$%`yOQ=I{DK15y^s&L<0pAo*~}x=M*hu}VorZ&4=uAp1ma6U( zg?4R4kyh8Z#kP^Q(d!KR4QXX-Ejk3W1L0H%&?LgevE+41S-~#4o}x4*mN&d;iWlbS z4;z|y{HV@vP?JGn)}Roe!8$Ai6F^`JrN%>Q@bo~Y^Z}VEN+>V4Qc9?yaCq!U_)(y0 z92oJAx0DNkt9z%wG?t|-`3O&Ak~5}&mSFMu36H_llA$cA zQ$xoP%K8RJ@F*@Gv_tTVBMF>k}XP@?74c}@3Alr!ITbuR|38b0KZhi)OwU?6Gj?y>haajxE)_9AkDf& zX*{U3CM%6KN>FuBYJTKzWM6$qwoDjr%~0|IRU4GT=#~x2mJB7BnGlCPqu`{#+1pZK zVgbQC(icz@T)vp|!;=~q}^V$Z1V=wMrLFBH!-pHGCv2DUsOzSJxGhbsD`nzGg?=>+RR zB^^&8zo$)4LIl;}3qoHtll;%jE|fM4W=jC$hVen*O8mHy;95oi9mq8ocPwL1t45j$ zB#o$oGHHZYA7CtS%lX)R(*F_yOQX8E%8DJUm35nW@x#$+YMgw$p!3*vKOiNQ>$jxXjQU>nZgg1}t=MCI|0jan9D!X*2zV3N+r-oJ*#tU~zs7`A$Dhek@>g=@x4?5#RwATI62b>DQ>x>I zz>3`JctZjmp9kow<0)8e2qS?bjq!W{aHlarkTg?^z$AjAwh4aNLilhh4p7kXR!Imj z?`0+UP0_tE6XMwT&Z!0Q8aAPmuouKvH0v~Q$$ONw=M}`az>N4*g)Xi$9LhC$A|#!l zqvJ_ugoeZI;2(2$n2z2;Z`9G7=?#>QUPK?((InkWvCkd#2@%E^UsAGh#+6E|G=z?` z`h?KWv9U*eam5NHJJYyaX_bZ0Gp)WMbS#y$IO!z0B%xt>!b^?IR<=B^Nl0p$pGYRI zXe5_Be|Y6$oIX!3S>CuTF`*&xmBb%kUY4|?F?q@Iq!md^T9zaywj?AcCoXPSmbf@! zQRDLoD-y^hKP_6)vUmw3$;&=TTKvhPgjW_Mk%=c3@JWkL&chwe!#&P}?p{hSu@t`O!5>A0`k^hMexb6-*`XU%8{;>|=fvj(5CMdYfIKnj9kdDlHvZgj;>htI z4*lq8jYskTnN(8GmqNL)N0Em?r(C#*Px2O&0Fuw>=phL@I*D;FiA zMM=vSC9HVfo-}=lxBdL2J6Hd|k97`s?T>$hQ%K6gB{F zDseaft(#{3M(r438wMMSW~HXiq0~_1>KGLHG{j`l`KMtrxT3E5P7UE&-nWf_b+ys0 z-qEQ>j%Q4(U|SB8Qe9va?6VizM!=TF0UFchE=b0qR<>n*kFXgz3zdk7LFLhSO#+A^U-JyyYLNLEhR_wvBmWzXzEIhQRnOC)*PcN;pV3j| z1`KEYQH{<BhU{#LhBO^%=X8$7Ja{uYCqic%?Y&44Ix(~NI_nvs884Wn0} zRnu)skRdZXe@{&HJk>DRQroNNmFv*IrdIBWvD^6$>j`z`Nj2QZ*^Z&X>Cj;uy6`MV zn0-qGSWw)hu)bk|VM#n`EQvwWr@_B@Sl#{@bp1XoISh%`Te0+fG!K`ro)WbsD>lWV=zNbf1y#8J!8D=P0n-k})K&Z{wC zch_RfabQK?#JKsp=HYGm!sCojEfZ7HAA>1uo6lb}Yj`&>(oE!)d@}=}P@;+(T`9!m z=E7N~@!J{sbu;X6gb2&nS5%dCGjdhF{Iw#%g?@-d3u9qmW1|Q2gS9;%yI$9cp|A*^G}Pt3>%y0obZuoDRAW zX$!16rmj4$CTpfcV0fMoP=Qqf?y%F52~r#=eU_0H%+ut8Pk;-UKR5x#*Lo4N$NDRz zx(Z!62Sjp`9VgWJpg+r05SgB5Jg-))KdUxgR0B%m1@-!KYU8hJ;4Tm@A(yEt538+5 z)cFEFm96?&UHJA8SIrOr8~~h)v;|bw#Z-M8!v|G;JA((> zfMq*Aj>#_qVL+#VI#E^iaZDxLOQDUmQHe+1q=XKr9pYIn9QQh;yx$0sV-L?|t+&<2 z&RFXJoOQ)oFRP7xvDPbUV?RD$cE>`92m(cL>!=T=J{hB=?qFRGa+3FipR} z@~B;X{k%FTZFo5d1`gXtJrco;XGrvn@n?~dzo^mq=>Q9E6;Od^Me^yDF5qiEnB)9s zD@$VR1@nx*sJ-%nMo%sG@<(-5gIYh&@O<}=xTpb&4go+F ztor<0eo(i-)(AVS+ta}tf+ubO%>{;*z_epLtyXlOR%6ew^f%8iQ5DJ%VB^*EE;P;H zgY5Ma_yRJrBUZw_%{002D_ltb1b8CReoGgjFpD`k4G{4Ct#c zsYOt$o>G`)b9&VfG%yL>-I&-OwN(IZBaFRxj|V>Y_H>2yYRvj;F+$+co*2{PoCkLF z;F7Tp?2Q3KSEON^2l#S`wU}j!+FLOtfZq@7zxY;6ZZqF)sslr}3Nc1O&Hu~WJujg& zfVxsp>lC6Nh4v(PgM07Y!p^{cM2O-00G}`l?7LSz_EwA+S3d=_m-p-yW-uej`YNW= zsb=IAR+oCA%_q+^QUTIm?^Z);-uh1Ux(uf}qg|chf+);61>VbDQ?G~9TbDSuURSRN zB<*UGC^~`wI|~JiodDaLah!~QlJn)qK*V$;d3|md7sUI)jz(dU#09_{54!{n98g5! z6AH?^P7+g(M-sH=q~p*JCypQbfoVK?>PYL)%;6J`2HEIQGFWLojC=_6Z>BcEw zz^4ZI3SY4|AoIa3zQ?6Q&;V$7ICKo~kaw7o7zB6e?b(Y1j~SOkEzUwMfB}O<0-;aL zN~jXc#Vl_9pbY?F?qMoK3Sihn_}~PvVGiJ?@cAtj1ur5J2aem|I{4!5#1UhO0g~S- z+8^0JIPeDt{@}nL9QcC+e{kRr4*bD^KREFJdkz$Ph^AsVI+|vOoZf2rATP-il~Yk4 z##dOZwH_kZp%Mlh(*%i~d%A3wFij4R^T#=NRd7>_B@!;Nn2_X|r^mTFgKUFovx{MkEApj6Uj(}T6Lgipi-VK^a5JmsZ@d$PGgv7vjJf{VM@NvUaPJ5s_2tV$G zR$t}TFx}`*m#~p#A%vXlHs>(}dip9`As>Y%U*quIfvdbvk!1v0d9_G`5<11QZJj8v zN4L-v#FhwttU1X;o2l(_6@QBI-!$WuIWKK_^1aW;|8;uz75d!}eX#QHt6zO3=)J5U z1w(B5Dy~yS?;`(sZTFmSC*I$i@pc4GA_?vl<^+1?I=i(ji{5M4XEwzl<|>+Tot$-! zk#JLU!_0CS<{NF+TkV{x3?308U+(6Jwj4of3*;VWuA^<8+-ng7k@|a$DD%<`w7G$NxoYXwp%WB6+JCOmMviZ0ECgu%%^oR|Z1=)E{oqOYXP zMbYMu7($Sh(G~;BylPmbhem8^!Kz%A!O1?Hm;<*>*^4tJ1*@PDTS1%6zBQJ@J#5SSt>-bW|K6@L*`zE{uah{GN8YhIcx=tw+xS$WlJcQ6(%aQB_^3FL=i22 zJS~UDYQ45mhSC6~DbQW0 z6`qyD*-@lzq#qYv9{y=~na!nYkzX!nIcF)&vE@#NE@wY=?xR0t%ba`ZvLdpq3!Wcq z!3R7+L3Cv#>FP4mN=|drtMrdQDKSZJNw(rY=~kbuvUPU; znu6L6BOrXXt$OM3J2{W-9=0ZDYuraqz7Ng><)~%-Gq&R-CkJ41p2>V_00ais=|dJ@ zVoN%=!Q)PJ2{)DLMBjCA&%!0Oi+c<%pLTExxV+xO#fo)0P*iR4f0`^jY`9z?^c^SOu%qasa(XTTZWGS8G3|SF>+v z%jmaK-%4Gbx+YbdT3NJ^|Cxf3dNrNHVlKzYr#PvQzs!`hu@F~gXYfE6q~GJmudh2%r?1PM=#aU$)w~8TF?R0SwS)d z83PT^YJ5ouK8Wlv7%*I-VG1n_P;ST zDmbiL1*bEs%5{@( zD^CN*BNwhh zBU_*;(lA7x5CUguF3jNjPH;h^%keFop}^?Mp%g3?W*aQARSXf7=KGM8vNzicd0FF5 z;cGP6DfCybQo%{cD!B?0;pqolY20Y?<0rIlu#IcnV|tR8weL2`4ZG<*?5eUi={&=S z?7!&(_TRsauIx?VP1%RSZMGmvwy>NosLs>wrvJ79l`wCjYWz|QV0 z$g6M_vW517JTkYPE!D7$22mG5L^}F29bF0Jf2P>Pn0(DPP;PYU3Oeb0z);{J`+D6w)ONRwN=s$f$Qyu+fmO<|}?BQ0L33`>`&BkSdFP6t`&Y%7_n^v|C7q+JZ&bOgr zEC>qokn@4con?jX8N7evda&fToEQ#^94m7Ge6>62o%m8n7e>lY`E+fMWfq~oHF{z^yJ;zt7Vbf6=@|5DHiL!g=0bvn)itCcZj zVAO_uy%8;IH|*8#qf01rs9}U*B>kDbl7<4t1DYWWFW8N&mkn0B%Cf3y6n|b@XnTV$ zEYH*KH2K(tW$4NYdc8h_BV1J$tKgeku#+EbDr~CaZ@LQO*!9lcaA3Qe&9FQ7z(vl# zWv|{%kAevR@Y!`0G^3+SkL@;%&w}V&J64lFcZwCLdpcw zxYrr5X4MGr+$LBf4l!+bkMSM}F8p!+1y=4mM#GK<&r+me-`B9)HAs3%M{n2B@9WCH zu9HeMbrK0!Yl&3CmX=5)cI>^Ph2#2B*hSH!b@Z61ZM3}XZ8jadipC6Z8|#I+pqsnx zjoW!Y_WfhKg(rb~3hi!CkKNimreDl&N1N4n4$B74-ew;ckI1jLv7;E-vEBS7^2N(g z=4)1BZN1(Gl7g3hy$mea4J@>?@52>y(aMg31%JVA^DvGGlP3r06lszQcsv1$?0I8I z|28tRmz;ePGr{DG{?TR{R)MpFkhR@%gu&*}LyzX=jw$?O?Bl8?u!u3f+v)9jfjJn? z@P3@{~T1^NX0Q%bnJO_abuJAf!FzEr9zw$KX++V@Cb>+3^Tj_$@ z3$65jkcj}(XIbA8ei$sHWh|_m86ujI;E8Dc1>0k=(%v?uj4tC?u+;-sD@fa~z^&0u z{{jW2OR$}?3_Aw1 z#GR*{@}vM;2lAtD807SJxW#hy0dInhz%ZnWvK#D0 z8hDdxsA6GK{OBP^J$QdR-w#712l`ySWxc|;@H8t`X6G391wv}OTRjvtcOm};Jm(5q z)VYpvrVVLJU}u$9cHa(FZSb(dyEWysz2+F*n_E2;B)^+$iwjbz55A)J9L#ac&kCPA z-m`@^%Vmt8JZfi-#k2Dji+yLgrFZACsEOsZANK~8b6b_PhnLvxhWph+Dn0MZj3nEx zIDBkBE-bUVp=XoKVTSGFuY#Y!j)L3mxn%&D8zgUi&=b};c4Y3I?#G2>!L5S9rP7Y>E=ct z!s)a<$+q*-CTCMS>w;@XldHPDz-4L!$Yy{%Ou++2FsiGn+krXc_4`E?DC>S+IrnQZ zyiMbwD8>(+=ngxh@*%&tOzyg>Ok+TZ{BjVC$}hM2uO@$8q)qx#GF4vPLbvP6BW?ZF zXB*r3>$jHNT4ehL{c?$%*@0GE_G<}mHH}cPF6~*My+eDB?#LAa{aoQ4@^7z)kkUKoI07=UYeb$FynhTjW|8U@t>9Xpv^{V$XlB0AB7cHCcZhWifrwZVen zE--p{*)8@q8t)XJ;DTRf0DSu1JlbwXsGyy-rxA1;JPw#9r7xAXMF|d@;6r}khWS`= zsWACewrMo;H0T#}dn(y<1GV=QW|NcMa4U4cTk#aaP>P$`r1TO9@MpMn*Cf+twJna%B#5d5ej;ij(OZ1E8ySAN?~b;0|kg)prJ zbuiMM*>EwOu5iVmrTtAYd1a>yvul>pEj91Zt!_8^_EOE_Q(J9M+*%BxIhfqgZjvz{ z@P`V{-byw(4<_dooFyms0sL7UA!>(4=di-UoYJmvo~7HVn&p7%Z*(gL!L|6gHezS? zPR717xn|L+tN=~Tl2h3KBSIiQzYOn!UcXP}MIm7_#CF=@hC_{Ew&9!+UQfmk%Ym5y z^2@Hvp!ZiOtgTx?dmBNKogKCww7!k}6PONY?_v51OM;RtqC5DD545@+%ANET+fRnm zfc-8~wiVIskXFDK#D)}Y`nwf!MUcD`l-&o7Zp*`cPC?_^DpWV=c87%bEjvx_xUbQ- zn6DdJ9ZOBJrq<46O?68}Zgq?NZd<)g)<&rMDs-I^zB8;{<%0%#ph8{|HJ5Hzq~S;X za@*=n*U<1bo#PF`;)vw)guUqhcK=TuKAyc0d#3+OKc_s7L&6ADdkejM125VR@h(`) z!@a(wJg=+-&ALej+=dC?aEHQa2ToZxJ&x_9$LE=eL*pRQ%LbWzT;mnx)#J3|VD&am z3w4HZ7+WJB=*5Oc-(Ug5)Z3)*Eu5y@f_eYX@V0rfezsjd2i+f1u$wEI4Rf3jC)iRB zkI3cf=Q@`*X245zKCouSuNnY+r;c{x7Y^vz=Ehb>y|%beQWB-9{P4>Bm=KS4*GB ziyBq&?bkQ;d=gy0xoOuQx8MzQSLrzVm^sIA(r~J*gFP9i<>`|q8T$N&f<2`@PMc_(`eu<$2c|L^18^E=!n|7+adkc(w$S#rGuHsv903ftH`2mo-= znCk;Ba0-Ej5(p7gKwOjb>%&C>wp(?#Zh?CwlqFF74Yr6Ps%vKVJfa>A>z|$!E5|ug^6x^}(K@yEm>~ zI@x%z)R>);^o+v8h6k|`_$OY%aq#mp8v)a&zwc%2e1o*kpo(Tz6}8R1kiSR6OZ8f( zNva>m1{aJ&@7=KTw_M}d@lg}`Zi>EaXwzTPMAg&b3m5u^)8RTg0`P@L;Q!Qc=wYI- zi;l>vCj?(+a+=KE>2DjT9@&Id0I_YQ`VPi9pMZN5qMw2I1= zOPL4`a(X8l9OS5%`?0}E+vs45RRtyGz^@=|x7SCSU~0FWSFp#TWbnH1wkfJ-!uheT zE}WB(_7;!yG7EIA3p0#8rackmbDK-g(_j(1CYd6&FaZ!+_ zuxX9E*>%o6Hdk4Sh2ka6xrTN6G_voc^`(02@_I6U(7K|Yd~Oh(xeY&iu^Z;O-JKGf zq?t}OEJa6$(6_fqNYC5`=K%|u-Hpkxada+)rM>(luDd@Jy|O-fSv>^912`1DqCR?g zJ?*l-TyIUT2L%p><>PpUaJ8vyzJ_SSR0_w$uJyJHwg6V3qv@#zfoptVMk?E7$~#fk zN7{ZNi2)SYmuHEFn`VnZjumgq;qF^jAR`CB%JRrH_yX=mVf&PPZ4ehFc`Dq7UMkL{ zNbQ3k0D|YQ=b8!nSwla?Z8OL7H@(KpCO58UmpU`VVX(>A*|AHp_j?duh5F40xdGNWo9rDk>@-+m2^I*H<8!S}WD%m}LusjZ6=mC&hL0RL+v0mc3&37`B=R zcX5$SFD=naX_?*^ZSLbpnxK7X6CK1AGneRL`r+o_x}e@do1wRvzh&slqb>9b4USHM z(}kye?@NsLB<7WdWpFMUKqu>$f)JKgCntFdl8+_x0p6={&63P6jS}>m=`DH)i$Rzp zz_3=YgVpZOMFneJYk^E1i(fpwass{hGdGJlhslBCgp-)Gbcq<;T-K4EOo-z6a7erq z;tNRpF%YiTM|QzE4L(#Q=+96^2e*+C;GBXrYvd!~JQ4yTf$Wn>9{NedcZ+r3b?D?i z_$G@H$k%(&Bsk82+TI@VjJBhPgOf5ix`jeB`y_fxzz4HrYL|wbENo92b=Ld=PT+ko zg7DS5#!Ve>i1Z&E_-C>1Uy^@LR{wg*z`oHDDZ-SUIAlL*Kh@CEjETWrvLzbFc9Xw& zlmaIzEkNn(Jvy-{RiqjygR?+t*w)WKs5|k_gd1fy|MtN>oBZ#?C$4S&`^Dvl5B=lu zH5q<(D1Gi696WF9WGmB>VM2TND(vV};jGM& z3wKX<0h`zninQ%QKkNxKaJt7HEGaD6$-nJN__tK>Xe0*qT;lvQ4H6>`8+YI33(^omn zDL6@hv$?k!p{xR}qCgaQPqmYQ4G#mSoOm-?eO5I95rQ71^uS)0NxH38Uf0Qq2hq3n>X)i;O8yO_jM*|;eeYT2p49w`jGYQjFi;0yWvUovu-vUT*5mr zB_vyxl3BQ{sRnNkeMnt*`NOSQbqjtm0CuFL?1spoD4z-lxs;s-Ns0SZ3U9zQ5TtN? z!26IsZO!t2T?K`5F2mM*MSmWgML-0gRUS~(>;~-U+iDX;<|5Our!;MGdY5^5)g`XMfCAHfn#W|AN0!gt+Qd=r1W+b)M zl46_0-Y{tTo^rzrS~baWoj$N1&h8}WR&b*QEpEy|+kDR1PO&Y#jBOQ0!*t&a)BRx- z-3wDH@DR=NkWch7E#eX#Jnx_NbE%rj7Fgu$ifQB1~T17++SIAi&_8w>h>u$OSvmeb+3m7Vlk&op*0TD2g>hrL3I4=e; zKopq!)FEQqu_HgVwlwZ4GXA&lqwfzqJ7(0kw#x6+!&6l9VHXBLC4TDQ7y!rq6n`uW z*%vhpXPxJ4!8$!pAHy+zUNz{57jD}jr^&76%XRz(7(NvHE`;EsC6^qILnw@Xp`PRd z=ojflu0_=(OhV)_Qk;z7DqJJ2PV${z^sGRB=PqkwFI5ut^&jxpqUH4lINXHwQ8uiP z-XVX4CwV}ohSTPuxEj9DRkQdeUwGcl_nTg9t~p%Tar0cE(=FVDCv=WLXzQrcX?l!& z`%1N|pxp%#E|=2<@humGk{U_2!@0=hG7r_b3K!QLxp}_u2w(w`RFefQATMcCYf}qL z!gWy-2?03x^#@bC4V#dqrM{VMgdT8WSG(Hk|0G|d{Fq}@Flr? zAKQXKS_>KS-OD1`4M48*MbiX53H>ethI>ol&bi1I;2n&~O&;#X-Wq?Gu=3S&E1y6ODLc3CxRCN z`(6T3qQBDT4lXW&pi^M=S?n3eQ5gFvY(a(Dg-p#~<8FfO!XUAj*;YQ11#Zpgw%8pi z+ay>3hTyf~jBZ%{Ef}EC=l!t!3!8?3I zRn;8m-v5d7i_*{AOZQj4``)flM1b(|vvVV_x{6id*}^0h{xa(gO$Iv3+hygRgkAzY5>(ufhfUtAzcw8=rHP(EmZW z5b^(VyioF#t|aJ{zpVvkf3fypDR8cet9+CzUz_iLaDSz3ZOMWCmHR(|JN7d`QpFvx zZ5tVJ(0h#(uWS6vxV8Ha?*BCVAY1wNHmQ|8u-07j`TkG457ZoF54@NE+`+Hds@VBq8+)+ER>f`ejeKxb;%k3z|BdfHKk(%ju_s$wnIo+&FPu2ja`MnC zM;nhaO{b2Kxb*0umNN{0=y+qx@)IYIJ6c|7X=NH)=KpZ0f%)P1p_U&t)n70_wVpWj z!*X17yz%6z5_PB^@0d?n{@u`!8RH=9ez@ba%MBJNgF)yD#;0xO;l8 zcDg(JAmZ)zz!&OzpdI|-|879$X=`ii?d$99|EL2=+|8E3+Ez*7zS{4-Eb^{eumgtG ziQxO{28n!3?KTO0zV_b|`oeenB(?h`{6CupDP{#b2yf-?at)T(B*QADCY#Ld!=6Q4 z)_f1kn&MUoCxHbHJPEr&!k#bQCSflW|69Vg74MU=dlm;H2dg#dzTC1s&}X{JAOg&$;@OZi;QT9OnPR zB(V43*RocXyY9i52s|b^9w)-%R7n6cTJMB|i&*|oY`eutpVwbdr1`-11~$`YcF_=K zf~70y_1PPaX@|d&2Fed*!tgu^^^nL3oJT zQ4%<&%yKiUv7>*qih}cura|U4c2H;l$()%BzieESeP#(94b;9Vq0iQCkceke%?KtI zR~xK4E>*WtJOA3O@+nNFm{i;!OzW^-WZ?WHTNp{VR<~&Ea6;Cqqg!%e&ASkvU=_g} zUI?y$_iJqBrMKWIE^)aFHDRr)@y+6bq7@dGEkZy1b~T2D@=n|^&WY#$B4=yzWQLHN zya!^i=y-ToreIsNXT=qQ_T0t`g$$nE%3;bp+?`9_=x4(M{mbqAP58Inp$Is+$JD@< zA_#tR`}%#9*^%6nt3PFEEo*@lWf?5Y#l6KXSXtc8)eqR=B=m;3-V?3Q^+$B{QF!T|$SvUUKYJ7>M<9X6;P_nC$JK4{Y{Ejzi+p7@ z?})eUD%@9;<^xFJWD9v*x%}NC?XkjaUD#<=2w;KI!t82ZKI&GsoxdFjtCW-UDKpZ* zg0u||e^fQl21X4ju<9f{#Q-^*3yx|gvTe|oy;PVTc2YGA_D4Y-cu8_A8vs;yY$pKN z&mpt%3r?2PKiB4TMy(8@e}SWU$W=7{Vhe<)#IN?VKbs0`i7vXOHm8ejMfY6fX_v0) z4&O)j8TuP~`HL2ZUEd3*$+~j3-^PJpKBW5%eP)@#!P)3LY~O{|PPYHP&S@G!_p^QX zS3BuG*B!otz2k0%$C+({ly-zUR5JFiFbu>1r;;)_gS9uy4^i+6vs(^!?h^qgWN?T~ zcevRO8Xxwy!(!J7OT2K<-gak;9g2pFYM5z16&ZA%7S40I&~$N9K6_ zvBo3(FAYZ*6VHbJOTK^ctgk~!ElN+@nyE!8NSnPeeZywB-;lX^QF=b<#HWQ^~tVshT zvk(fkcSOd_h_Z)1uhV9()@k2G=_zP+x;Ay%gBoIY=zrwD;c5=u^#GR_%1g#ZZRUFI zmMxhnXpI(a$rOn|>Do}DCv=Y&eDwyXfqy{0aYN=7$VX^1wq$Cx(?W@Rq5B?nFmA(yrgA-5jmmf>vwOQ$mT?CT;fiCh{gz zo3RGNY)0!-(o@!mScyH8{)+p01{fpqOT@c=LslkWUK5d(fyqzXm=27}&}OaQkdcO) zP5K=(YbO2uH)d{01N2C{dCM#mN?emt!h-i}hz)3ertywiYTm~CD?$eaY@MXzFz2g3O} z^!XID1vDc)Lc0Y606_%~Yh8&4BZ>W0kKqFC0aVA*FPZ3gI9###g{ z#o3h1wLr;t=uIyrYf>^c1FN@y_|~VSZQhU(?G^v#4eQ?$83^^E#AWoB7d$Hit=_O6 z>jX$F9pr}@qD=>e53=AdKPl)w`YqzANZ9xw_gs9SB2E>0S#CfY%W}x-j z&6`0>vC>9hzQXWf=xfqM1wS(3IT7%If-lB`*}PG^dJ7P}F$K#Elmo;EO*W%7Sd?pk z^ZgTMdC_}G1mCa)o7CL@(GZBxiL9}hKkK-GY|>Nrd;<}B5fUOYO;r33LPEWbMe&ME%k=6n_IFvCX&W}D zfnI|#1FBGBZ%CLId}~@ds2E^PP089aX%bi+7ZUyeEpad;LS6|@c7}>*4~hO?;|G&X z0gK64lc|lyR`bADjhQgj3lF-A6%2eQX5t#~M4-2z7GMGoH3SSGYqMzmFsj60KX1d- z4H+V1GQe(sXPMv|SA(q(%YsKdQkhqSM}q1R{|X-UJ0iD$*ileRg111Rdd*e#@FW~OZgi$h?qn>TGxnw#5irJQ$9InU&8scRK$$7)#bznsZ$vk;8hk}ImN^I| z6B^7P-!)3~=j(u#*kKb($6tMjqMCSRyf6xePmk{%^=LME;Pqh+0S^m~25UN~a5}aj z7`u6VpBLq3@LFk50V=&7BgfeHkH7f{d*}GOUP$oy-pLJQx;X+2P4xQE5{yywnxbre zH<<|IWmqgB!MTxH%UHr~jh{8xsONTiWlQeJKFONuC zJMO#}Uexx7BTWZO%G|KpYk{G}mT{LJwfJnD3t04M9$FOrtoVmrSaNhsbZqpD=s3v3 z+=(Zthd%B6xDGE%@z}BEf$Cx}<8{1v|4$Bl#6+?;GvGu=e@<3kiiUJeo2^ddG7I0wx*dHH_=f$yhEb_mN zb^K1`uq1%x(Proo=19<9QS~AFu)k2Ea%{7=FBr+DtTY7vXDe2G(LmN{!NbCoh!sC0 zZ7X01C0fQF_BMc_f+yLSnFceKR^&8x?_e9}#vXk{*5$FsFHO+@7Z9 zmrSM;kI=(IR+}gqtu_HFxvqm3%`~D%-&5WM5zfXATtKNSUXnv^rA!|RtN)NGju`(LjysP?xirw4Idv0t9 zIUG_A0olbj4=onvy?-bNx9lS+M;Gf=w*?pPUwm&cXMaxnk>9i@JouPIsKemIK+djVf zdHv}_?u3LG+iBrQ?AL7=@-Af9KE#`i#?e zO}&c`!U-60iGBT#7*P3;zCnDr|BuQT{-sOxpMH1WhL5k`->TcWexwLct;+^|*gnQqs|MYvWF9x2R2i~XQfyG6s2@lq-TYNF` z&F(J8-p0cGKhu9q6>s`*U&a3N`p>;9eDBhIRtRsO^}yWQ#I-+u;nLIxPiIZNaR?i6 zV*5z;SHK)vjq^z!e2V??WF<}yd-}tZRZ~fa-1ikf{iTbyoh-iimFHGZ{q%MBbGC~= zyw8fy!*w6xj3bQTlwW$_tNSg&j=u=szcdNKD!Rq>Ca5PeEY?7!pL7S zsbsZaeJ|n7@11_;Q^yk$4r&wfEAy-HHT=2N7vIspb}$C9`>a2Ep0&jQ~42SNMx%r*XWKiZ|1$a z011jb&&2a^LNu9Kn84LA<-^;vnRg`crnkGGqq8&A-^FYGf62Tjfw$nxWgQasf6Kg> zAir7Io0)%1ILhA7Y)+IztcZ`vdYr$p*o;rc9b@*4&&ExU(a0lRXoKwPkb5Y+y&(^D zpi@QdpkT%qo9ZL_}to4tpizCo-a{&~ECl)0jvPnwY$S+lL`L-Wv}$+zsr# zjGxQ!$`}Jk;v!?2uf_4)4J;wOJg&BO%EXqYyE!Zjyr!rE<9mXkg4*85){^dxo2+@M z^@OPuO`Mu^9|2BMsuNEdz{pXyCw+sQ5pSQNPtpaM^@6gFZRob4j|^IAfP;Fq0KYZ8 zCvK9MeaUvhRE8WLOWz}>_x3<;=q+PVXis++B@1&S$h}uS2Kl4(F&SJLB^jhHBAQ2? zJ0Sz!bN+4mO>x{PM8zsdpe*BdS)ebSh0&SHN<`TrMAn)1!`Md(>%Az;M^I=)BMOa3 zW16^8VS_`&ja(TVB5u@BghRy5PB%&chbYo06K<3O&JH)cvpdsXjh*BfofS_!!XF;u z5C9-N)XJosME3c#cVel0SlCz7{u=v`$qs3MD@_+yGbNTo+9G>AEgdg4r%demw1vb< zP0Jp(Yt{_D_<-$WITd9rB(Wk^t@{%l` zFj2Es&}SffiZbc5V<&l0Mm7{xp5CGtPGNS$tQzs)fXrr{d!~U zr0=D(D8dicdVCzgxZV`&Uki?oVo6L1J(6nf(cc$)OmJ0UOM71vJEVVr3&K?HGQl*T z(tj&<@~uKop3!53e}c)Kfb$dC1^wf(_1>x1;bfG!qSGZd_9y)_VenHXBzWm8rSNfQ zL~sa%Ct`7FFT_S(T&WMnL=1qmVxn$i1%}3Q@XIGqHixpTgz~Le)6>GOxO!Y;0~q!y8?G2 z6=!NtJeOp>=SBIMG*2oyllra#_-g7OBM9ZVw^A=DaeqqHDoR$8#pvT>4J<3=X6@uJ z3tjG_DYFfw5$4Urlv}i(yeUr}Mv!?_QMt=K<#NOB%2Ph3eaHlnu)366wSkROW=naM zf68QL8&Yo5PLjG#KzuBe@@XyisNUW1O9S28&>1mQuzOOzsGV%^Q^_}xHKNS+(cn2o zFK8HXXK;6SFTfs3`MUN=gE9(>fm#sYy@!aS)yexbJp1NG zKTaWN*fYrLl0Tt2>^1TVid~m{mj;47Z6%Clu#CRsdo^<1#Y1H#Mv^aRnx{l|bMh-1 z2uoylC%+Mmmi=S$?=`-9M0`EDUW*4`J*56fa;tU{$zWqPkv)^#PU@*by;@(yUP#^r zjgZ=YmOP<7>?%hhWN5Jzv5UzP>Grh6Of(^F8B?X)q=haKR1Opde8*vnlipEL(W~+V znq4GW<#+?M4pt@oRn?60xiOCfWiZeKaN)rR3agWJYSN6zf=TIWcnN#aS<{OF{J;q4 zZHjKEO>AG%LW;J?(H1!xKNN)MuO;PDv{jCV{3tbk=!WR;BrTz68=?_zqi`FA|1>FI zjb<5$*=JaXVUz8sH8A?X>q0}thCKG~NurvM!L8x1?@!7d*S^#+$?*kho(m$fGT z3*&7h8Mr<1r|d`xwUl-wzRnK2*+8OE1qTkXnb;>1OH|XPnTk6p@18`bYLaSHG>h3& ziFGQu^z;Zfq7yF<9(7>g25kp?0peq0B0HJb46G*hqr|N;IEol=pH{G6Chk;G{bysp zN&J+`H-)wv`(xriswRCeP5DothGLqeuc!`BnXKhpQzkQhp<|4@RTY*&1!m??=wg$c zpO?;>tS^S2N+M78$Wz&g0NI7e+7h}MY7%a5sMFX;!Y&40%?N06g-wGZ?oPO#B1EW@ zM{uK{hzAmS8MIv{Ya5i%GqnA1!YvHKKkQ?_Ot^#HV=6yrDn%m&?FG`i&>QMT+lN|3 z;X!76aT=m8SGvTznF2S|#akAA!67s+Xau;!<%Y4lJqA`3zXWQpLW^HmVJfkdTFZri zf2}9qV6|7f4Mwzq;tSakJIsgeh+n}zUw#YId8i%?%&>G6Sq>vdWH;WU{h@*u4>U_}(F8$IqeyIC-cW)u6IE+z`X z6$l_xuUEh!G&r#aC9b|@gNGn3?4NY8>==7YmjHOug0RA36)HVAb;Z*pm~B=zrAv%N znWAEB?5DaU=FXe?HCzY#gDw+LRrMZMqkx8(kt^25bn%N}5OhdPy+3;3D=sB2IW8$K zF)kr4K28@G7Z)2B6Q_;S#Hr&{aV$15HX$}XRu>x=8yg!FtBuvfs$*5LEIlBOxO`LzfYk5t|W{q0P`_s54XNGlc~+rWU4b&nJgie;hc|P6|ESU~7+ORHZ8e+q|rfWgSsMy|l8#siC zBaYw)3XX+$I3Jq#U+QokohNrV6E30m`90-DeH(9TsilUx1$MVf= zk%NQ-qvS*|^vcd=+oEBv=%;hl{XV;#gG8%N$%1nQESdAX(;%c(t|9zlsvyzB$tj=v ze-dddz&0I*C@vhH0vgyl_Z<#`^or!B+2MHs=H|H{hGBT5LUKgNAm_fhf8`+Dyf|)} z#~s!KL9*}9)o_ZHWXg}6uMEk4K3AuJka}!fRai*JRN2WqoYNSk*07RkDR`NkWzPA2 z;;k-|(PcKeEUakG3yH^se4)XJ5FQ9RSI>Eo2L=#G^HFF^R<}1WAM>RHhG>g)}PUOUp`F;Q<)J?OOO%NvBJQ1WaV*q z%xc6+E57s%tBvVR=-YYY0IkLw!0Kl#a_$|(>QMvxWL7ax5MJX)GYtDNRgESgVWnTN zlh0bh`uD6-4u{#24IO+=6V@xb`@>UlFnN3W!bSiuWUbYbrq*NafXL2e)oYKkUt?x)6by(?IA2C!0bLElCSyXliAt* z87~7aya197fq5opYe0bnCq&Ns@vhiDqQ zHdD|%dYaE|gU>51e}bOTiLK359+Fh2i-O>>tu^m!axCtzmrrmR6Xdd^P$jVWg1$XVX6` zi}lg;FB5mqmKGW6y9a0kk0FSmvt!#3bVqAKpGyB40kGH8?<-sUh>D54Dk zBs8#R(rzF?H?-pODS6j>qr`^EdDZp6_*U8;8L+8}h~}6YFg=>sqYJFy(ZJHv#|SQx zE5$YNxy%M8>Kzovi@kzE@HBh8VQ~e(3MM^6NgMTU4%r$dt!htWLs&Y2dRG-VHL!hp zF9Bk5qrxS!t7-H$1Qf`C-&^C8W%7{T$3Yvt>smaDD7?N_(CzXP6I`DL_L9Ddz^c4W z(>&C9;HiicTme66;ywKa4pr}|mVSL$+Z z(2u2xM3=k_LeV-$t*{bs1-vw!^k=Cy4p(2_5|KP+EW7FvOP~SSDr5EK94ruM@rI?u zi>F6+ZUGNgqYq+rd4CaGlwwjnffWF#w`HFNmsOlnqI%MuXJ~Bk33Z+p1M{ZPRPlU) z=B5g$=F9U1W%eucr@X8BJlmV{R~1U8yvhWQt+QL+!Xdogns#$hsx<@qRLUh4CSsy? z3-)#o$t#n-m!jc94q);wxl+D{zMr<^>BK^MEcwDd1%uf3!zgt37}&2cfY*Zb@@(b=LtN3mKe4Q1lOze%)FUvDNMdXwFo4u&wgld0_8zrjHBwKJ-@JfCa zW@VOTDHvF9(%lTAIcO>&@NgW7Eb^i}ghfa;NRp*HfWootfuwtY$qrO@1=Zy#2qB;& zDL4`my@6d!`X`x)GM-Y&S_Z$24hovaDre2XK#GBtCLaJA%pS)ENTh2eH=adl;s9mA zc_fR`~}!!Nd^-mV$`@o+1oFkYRWO`$pm|>>gYBLC!R%NWo5o+GKt>ZaGV& zy*wPvoy1!)=N*DmxF=q&k#st-Oqqe@CDDX=lDdiWEaNAI+Vlx#cC#0q09qGOev6lt zB-k-$x(Uv|Mkq5I4Hl2RI{Kf*BZ}AtB4Jeo$^s}Po^ctNl;8rC>@CPy;1O8m$?|Zn zUSBiYpHRs@&yHcG!L;C`g~??&Elkqj&#}Z{8ki);HKRyg`Qg$8a8hD#6tIGs!^py6 z2QB6IVBZn6X2X-(jgeXF`36=MpTiDX%kLqvUp`U2$zR>Po;R36@d7(&leK}0zgeh; z7jB}aMXMjv=TVEG-GNmA0-A(h!774-Fux}afk;a^)Ze`WUag0k(3nk+Ws~p@rm|8? zk%67XT7!dTvPoB0N8g~_)K(_fQxBrLKiEYR>W0J7XuzX!GLXjTz#~=7^c`0 zWM%)*Ao6erdxl1W9G>t$oR+Vn`TwXR|DzQEYd^{gfZhM;3V_dlhVnLoUkgVtDJA&0z-+%<*U4e3)Gh76L?F2`LH52}ucw z*p(nYL6;Dh5StK_piR&us1sBPEIu_pB|ce~8kJ!7aaIDe5}1|1tORByFe`ys3Cv1h zRsypUn3ce+1ZE{LD}nzt5?J3RjY(d{w3r(pIGr7Bd&ZiUJl5;m@2{&A49IJ6kQuDZd&A4MOQ#&yYMO(U;Ln0y1o6@V> z*CjjRo3CF&K>|%y!B2l^Vmg1wLXzTuxKF(}oe5pN6Vhbz4_#ieW4NnQ zk8vVw3prz%!i~eL#B6&7%a>#@|2|{f-#=u9MbFj+TVgJQ(6g z5S%b51&HgPQaPC3EU2`CmLdibkTV|-DbCFl8M!nFGcc!~X_&y)Zd!faK>W@$o{=8; z=>V4|V515rbE+9sy|Z;-Y@ld;YRSqT$57oI;O6u**a>Army|=AMLH-@)yK^nDK}71 zVq84a&LN&0^oq+Ns06|guXC~yVcUq5M&vq|A#W{H=W>_@2tn3{c8bXx+Y_sG!VLOu z*t$l}yO!wMF^*V%wS|z1XPXyDR_Qy6B}YhF=?@vS?HC)SODF5qkh=$4qp4Yvo;jVR zezUD}wIqonV{LH>Kum^)tBsSuZyj2xigMI1bkm(;`K8k~IimO7O^VsL%DjKw)v)HAvy*d}#OY;U{XkW66E zfRos7!yjxw$?O!xSED&Q$h|T(42;a57e5IiXR_ts1htT(WDgVI)KlY#9fhjVb&>p~ z*4L+^YH~l2_lPECWGpQK=u>LpSk)b3=l zVcnyO%YiqiD7paMCS3=xJVPDnX1-%9g-8VnS~U>Tr6Os>uTz6bAK$nCT$aBC6QKgQt1Tw4Jum2AxTe>c z%|=6%y$TpaNJuuox&*bB6)s>qGbVCE!&a%yv1y`haUY3VXLYd}xt79L667fpuO4lg z=-wN&w}n5pXhCN?%n?cWB~?h{A*mo9mba)gMyKuam#rCW3$4(w(Nr#d=1lA&?T6qM z(I~^!uJh#XluQi?3#9AU4^K>BpCx3cXSvqBesG41$|Jv=s1;bZGksI762N~pjoldW z|2boRpmwx55u+~w;qC=$l;A$eE>u7$PNo~-u7~4|OXFM#0i9;45Mvm3=(T7g>dJL4 zYJgPAA>s$&&PDqY0^OQKY6`R8Q z#IfCD^*~OSs$H#viScLLD06;M`+%p^X-i4l_8T>Nwlg{0q#6QlNkS8sY(j4+ljaK! z`$WjGL^WRnl2nAR0}v`FDT%*Apc^|wJC?2qtdfSdIviAapt;2KxjTnvWcyaa+St(_60w#MMrW4Yo=47Qa{dnbfhZwSrdo%C$Mlte zAm1*O!WT{02d49<#xE{nK|qqcwY_a7TT0tn7HNL7ZHRXekfRxNvi1}~u#E3hc1QRhm)h0?GjD;8fDvtX&+g(j zm43vb*SJw))H+w#sY{YoZXY`*GCbXS?-nVPw{z#boNPB`rPkLk+02Q|qgT4%7CN_; zubeY)@7}SoF(n8r7H%Ai-$g=*%ZTh_#9IcM&p@6oW zQRkj@?j#1CoLZuUDmGj|Ii8A2q@9~I2t<#C7eC~Jt94J$ zwEYvjv_3XNSSm6#Q?cD4DKtE>)kr$!_6orQX`7}t0eHfkHkOW#NtLnXDDW$#G}*2R z^|Yx-IC2bZQy?xCliLG$Pny$7S<2yx|CiOF>jbH>yFy!}EpQrxbIBTTSH?j7<0cmUIM94n2+&tlTArw-T?M9Mf1pw(8-O-*YTQwfqCN1X;F2V>n0c7Hd zUqB1?9Q3R%WNf~(cJuJ)M9Gpo=R{<-1s5t2zy!)4;qzK@j3I4kqD}I*NkRB+9qZ5u z0mW8wIA(s+&lhTv^tx2Nno`P_8Z~+(|IrB~f|2V4Cn^KD&>AguRVJkE5=;o16G-|> zB}DxLa8OHP)vGJ_wCQ6BZ7%-sD-02h3e`@gb*tEpt)<(@?Ag}-;06N4TO8hDf2ulEm2BtA(D3@}>~WQ7m&zCQt2{le;1giv%?Gl#-XJaa?9V6N8euF|rwU_XRlCMh)hvKMDpw0Hr(y9!AOhTP zTH83Vs+r*1?BMd(Qwv1!P28xE%y>@ANrFOPF4Jl|J!5E)?k!WX8^Rr%F3>pIHs0$` z&y`c5C7x=mC~9qUgmPLWdls_S6;b1TGYT(9=+G+C#?YS=^%zDcNhF8geSzL|IF5+e*tay~Mjua0^LFv6hCrp(iFJI@Rray9d^2q?HrW z)^TZGrjx`H6LW(C80QLOXYqncQg?0XnhrtK2wZF!0@)9P0tdVoTpdE4M7(oC8Xay( zf!Y`i|Amb-N41?OP!l#3&55>rl}Z4+Mm4O`#mmZY*lP)>fZBcAH!c+B=Q3f`5gaAN zxC&J<8`P2ZCwNB&;1&8CiDSB!)q@Mj^X^46o{wJUid6Pw&Tfz~WV0p4Ece!3<2jCP zu{*6@f~Z27s&x+XGD^lYeKoBgi^-c`yk&WBm@u7Ks~?Y&KV^^0A1AOhb*?(eUAqnZ zwzX&LlhU+CITF2bJUF1*N(Q%v0mK^%`zCTW4oh~@w$_OZwX7L1h8{bFCd$^HWLhIl zELdrPsldo{35qe)wQ$t@5jRBeD-{wX6L!%(KtXM+5Q^X|$sj-xqgsgUl}nr$Q!!mk zd;&LabS%+#mpU*HkuJi;%7wjhx5l*VdTBx~18^6mdxs||nl2<6=Iw8`%#GpayzvQ# zw7RWlEM6_t$PikFVHF~yEnO`)znOa8hH=S|Hay`CjfDmn9pVisVAP10etlArSS!B zv%U=0vm0U}%#;Td7rs(&lomk@)Upv7I>b(bf~QhDSFHvNz0rk7LJtxJJ=Gj~X?$!v zzc$4wds2|kJHTjvgR9*&#MYd=_Ojs>_PNqv+u)*=YbH$8wq`0-ZBrXT0oU}EUFT1c zR_$mT8Brtv0+lUy!0eT1(MX+zG0dU3P^TWo=^!{s`s8UX0xep|c z=0A*kht}z27|IgUOZyPkwty2GkSz*#>ZP=yeT2fzSgDla>|H)KUbe%gcxjY>fw!x+ zEg-kG!Nn=qSvuUd)n{lKA0G~dXfT;yPBawcr|I%<*PwW!hfBlNPX5VdPaV?-_?QB6 z1_2P0Bc9c9{ZQ&m^_XLx$~oG^t3LtBDF0k8At=d-kmltBt)_Cd(XutUQ|jkqw@9cK z(450BzmNoc5w(@|d2m115AVJ1M#%@T@Ig=KL_x;rtdf-fwC%pE|1~D%kZTeIFAFr{MH+9D3c3n(l>`h+ zc5=INW9#yC?r6b5X8y$BmcovSwy~TwHJoE=ZqaCd>ysBfHP>bza(KaT98r##| zZLy#nmosKUZdKvS42*+0=Q=A3J0ypgF+9Ab-64(J32X#H-iE;{(iL8nOV1huNy&4% zo6S_dxK}`9ussT9_&Q*~drTpO)sET+QWvNvv);d;5F-by9+5QqNS8w>1Y!XU3R*!O z=xtl;B;a&8H-W?OXS9&{RhW>t60TRrjC)!K6n_R;ZOe(!IMGIyB`wmU-V)-Nvu{Uv zk_Ebuq@?Y7>b2>+5zQ@7lB!{$;G)o!nV{M2YL|vo+eEFfEe-xh#|(KWR=AXUUQGn- ztll)@z&PHH(AqXTr-&nH-6-cTT*~1|_)YB;J21T4=S2Gm?5`IDj1;((oDtFn+fINP zvHUDmH- zoYL#ZLoK5*mBYz>?WGH-hpvwo(2UNIBK1E{h+A?>a&mG~a$<5qGA8;b$0f%m$0Tc$ zHOcB^RWeITO-e~hPD)BjOiDow;41&L!ONI{9W4m-_#Cm;!mgbfImS+42mG%Cr zwF1#s#6G5@JtL4OrSJ(YO*qSsq{_acTSF1DU}ZrnISTAaom0v2G7f-+ox$iB4(gQc zm*XpDzt-XG!wpm7@v`z;UFAz?pF#%gun9X+DEY6C}{!Dm?HnNnI zl;jjXxDXvW`#dXwSqaQaU{(UN5}1|1tORByFe`z-9SPk3=f53Z{#%?J5N^BJ@zfnp z>;L3^dFq|F_|xeJr+$CnALYl%sb4?9ZrhjtT>{z2lJCp^0@F;reR+WT)YRJ?;KwX^ zDnm~A%2Yxa+r`bL?FT;Cmw#$X`+EMxKgjVfPhAYhBR7p4_$cMJzkt6i+n>*Wm*#)L z$UFtN>3@Cy)VF1@SEjxdNqb**`~GE5JRVqAQwGod!HAu%aAB{eNQBQtBx+t`%IU|C{G=!j`{E_ssYeEW$zah-nw$u69glRtOv?28BPKXLN8<1fE( z;i<pnW0b7`1nrWqv_Zq9QG3bS{#n>Sl8lj_T(8V{r+Z?#h|Z2&xyF{4MxYe<$V*9K=7H-nQFeBns;gzgOusF06Pz^O)*(3Qt7=zg!c=RD3mI9>Q}g|57!ADD}Z%Aa)Q zl^1S|z_F(25@R{|qw5lWul6U$Ui}_NX(joOdo|J{_>2X-{RSV)O`fnen#por%t}`!r5!WYglIL&3wwj`LoYmxGI>2Wu@+W z;q37fC(m6=NU>~A>b~cuo;iO0^s`sRap1r*HaB(O=`$Dp1DItjJN1?qkDtf1iEAJM z|MOD!DIm|DJ9+%V$r+IGtmvh)2ElNm#Dpa$S>{*fK2(B}Y}sP-zs;@jO^K}4{02SL z_)eM1H*Cn8daH0lp3!%z#%DAYl}}O#QlH_!hBE*(i$H~emUi>+36)u7A@iT-PS*I& zT2CO_%J!LKvp3`wnu`=v#u{G{`$w}r`*4d9;lO&hl^!tO^`Lovc7q>5Sj=+TQpBD# z=g~Wo;vMl%n~SrLvY(mXnUB$->Cp*nYq(BN-o`KHmi5J5SYgU7TFFC>LY zSp?u;ksOUH`Av6$T@mcwYP$EoEHJS|WOthm5(eNpVESgXz#cU{HkS(~T4294J*|*4 zt(2>11iFASe`9){P?w4<(R|@bE;_mg4Qz>+oPM|-gOB`V`XG)`#!<_`-ku;1UoOVs z;9^?(;q^ug5kgj5#5w6)qyTpZ_jL3Q@)PRmIA%J_9_QE#J45~b-P?MC2KEVYu8eqh zh>kuE;?U)8AviE7421dzyXjc>zMhWGj{Yv>a*w!RI+v58ASbL3hCzhjAcz(Ex`R7{ z#yz2-0im~`W2nD7IBH<8in$5{9Rq|F2SpF<>F@5(HL&-^rRg{OaKNoaEI;fi2OswG zTYOAwD&V;Z!I6&6!Q$d#Lphf~eFsiP?#Fq}0~|$=V%W-+e@a6_6Hde~U-_4`hfMsm z=j&Ihk!H%I~p-NU97kVFM zJqW^sgMh^`+Xl9^_)QtSlPDXKdB924u$H@u-;$#mI(l|OI>DiVAU~rztU$`VkCa9^ z8Q78Hf0yC;0qZbAC6j5nJX!pkw1=!VyN#VMemm{34`*!qLUh({l^-`l#ilCuTJay! zCO1{RbT&|bf+JSNy9?ns+yZIY0)E6qSu0*V-uySnXW#^E4C;Zfj;+w5@%4#j8ZWzv!%*-l`720mKzeq?YjRSQgPBSDaOQc}w8+V9USIJmqH+>`(h3iC z+5`!dVrgUX>oW1RQA(gvL?m;Wv{H%Uw$R_vJrL?8(;V!^+2#C5b)gdv9YaO~^Bcb> zV*)ebQcWd#H%bkP+h*f&61D6r{=xWM+F>``FL=LZApssJ5Z_7I{l-%=YQl%J(mVU% zoFe7H_yai-l2DumY#*n-^Rgh@hiw19F-}Dk5h?UGD)gBv&P5c_hf~=@J#_v#=bS_d zQ$*pVGu=g@HPnNH;=4L{(Hp>V@5}Fzv+oLZ?-(42*a~#izx>NHC?gK!LfQen1-D1T ze{K2wTBPnE^^2cn@}l$kO2gqtk3!c6-Dk zqZ}9Mg8Tx`p5NWk-?H02jG2RS_8q+u)l&o{o=Aa(hfHm%|?^ah7-aM z2lyivXwvtnuPwVX?Qk_aw(PDnM4+;!f9%<1pG-q3vxy>n`u9)U*elEKPCML$glLtR zWfTMn6zo^aKAi@|zqjl&Q5e8^!Sc__mfwRKjywOb&5A|a6!Arhxghf|Ti4d29yy+y z4XPmWU>!r9@St$V-4S0bmw-Eq_Q=q%+GuH!eLz%w9lgClV^^rR6Am6$_DIo)489Gx zP-SujB6hGl1VHE>t`hap@uD%(x0Sot9~Iq1;xHYLI2~^5vCH;NTiNBAD`r$ceh->L zl_i_G&>QOR=T)nL*$b;>N;rS0y0;AhG*Zmi4Tat)G3*Y(wWIW)HiO0WqejI$6{gPq zj$U4eP8;1<3w=>30S{Lnt_24BJN9&RqvaN%$-ur_xK4&A>Mqw6nqqPkYVDq(-SDeC z({0?b4wCQ&hPH2~MneaLt1sFlL-V>t$%;x7iar`Tilaj{sBmec3d~+mo<^S$ZMLE* z(}`(s-%?P)#oJ`G;vY9$SR7d~8SY&LtCT|0A#4w!nnjTfm)*h8?rq?208Itd%e%R= z4VOvwc){ujM{*QeIl&S5D)M?mir?XuU9d)ml`?7c{2E4d{wxeurp*vy>E>P5u zni`Cwr1p1lJEVFabs{PUYVYLc&z<%szWjx9MlHQUZwJ64oS?|VZFY9|b)!u|3>nzR z^K)fj@=&}@I8YGW-A9da&hefQwF2eJBvPk?z=!kmKYAv=$zT3aGC>id)=OBn$R(#h zloN89?IDj((wV>XuX$Px&U#Zd4L??B#?=LJ-0MLhNkR< zAX)<5{Yqh!{mjLs=`z3!CGiwJ9lf1U(Gc2pnfVzqWFIQBUYI8;2V-!cFDRQtfA@}1 zPbk{qH|G6N&szwnPk57&*Cs(UJ$Xj~g&b|Z=mfXty(%Z5Qps6ELF^3m4)PMf8+$Mu zBu4cco$hGfTXH(C9i-`zohwpAgT0dXj)FcYgiE^YPNQT8+Rz~}FwN5UWMD;RyeZrb zUc+V~$AUGb?{bw!7H{wlqN8JAT}uwh3D8{ag(Z_n<)$R6c@$BUDU@m6mJeq@26p?B zZ^_95@RKBQ==g@AP0&0?8oLFWdK^q;vMQ^Lmt<<(?1ixx9H zjuD+x4r4OgL`+Db5EDfRtkdxmN?Z$uNDy73sn{!;-J-dn*hu-iM2lN2 zEq03*UnIaImU_f8x7mtdt6Q{rO=TWR!2al13Oq_OKt(`Ge8tS|T$cN>re=S=r`br; zO&Y!HS}uDO(DrX>@K9vH&tdQ*U_y`AC%6kdt`_E7bCb|8g^Ks%4H&Yp6|qfgZkPEo z+gNbTXN6l44z_yM+%JHwZ>~9}2-YfE@DKbM@xw)F#g7G)nlKu`Wo^Zy9im5lLMj3* z`_Y>3QhF=;@+RoaEbGGpFiK$}Oh^HdLnj%I=VVyGQGXT6!rg))84k-sEMghDO)bsD zO66)F;E7dN!0Txwrt7_}jUFS0Ljs=WMuTPm9N+4~XLTQ>k^`3ygvDwqY^NxDO6s>@( z(Zk+Z-4o8o-%#oGxx7t4>T0Z^nL(5f^#P|NJU*Jp#q)2#9|vQ_l0N{?8@*s6uXtq6xz+_Fj}t9W`z@en3AnRXn+9pP{OQhC)cph5nVkB16T7JXTk6V$mcG{P_(hcp6jrL-rDj z$TnA;rU(p+`3xuQ7bzQxW|)aA5J*+uqB#WOj6ULer{MtOXz;)NWg zam?PS_+ieieiHnjD&ES0;1{lXC#R;(Y%wrPdDTLtBPjQMs6k9^S&TL*^`15jBFY@obhCMq-(&<4byLGKQvzp;EB(to48e$nCP z4R%sM`9ZU#{K;oaiwv$npkU>$yM}fHMSEEhPz;wX zn}Nb)U|%a+ITOXS#Dl%tsRe}QKDxILlv#l2=`!mKL}mkfqpa-eh<2dsfr^uB5Y)U~ zwi-xc%GX?uqzO^+rSC5|igU3(Sa5|tO(h1_Q2G}H^Crm^rV$)OyH~N0J>6YsQn02{ z6*AdXs=hpvnl_W&z&=$P7p9bYCcI-st)YRZT6S1E*=F9((knY80mZMKUwfF+i!nu1{M^WN&A~u$AV@e z37L=P1J%R!-vZV1_P1vsu^HI!?0=Yv1SPMhV_T@dV-USZFg3(9rSDMce(dVy^R~#= zPlh*5@Vt_5AQ!RZ{ws44A-$%O$(gzERv-qwyFw)WjU`8szOUrimFZ0=JO5Pj?W?6% zcqFM04x%wf*7Vhq?*Px^CEuNa2LSzTY_9F5D`Q0nv&y!ACVCRnHVk}rhX!{BY3yJu7(@rxqAB&kQ6eF<-Xca2XPm;cYYk9$kbnl-A2T9FJK00o*Ypm{Ivq_j3o~f6_Vx{4ZJe z%)pPb^hfL1W%w_5?=<3onvBep*`x(W?Py6F?PxgSW}zGQ!?UAZiCYQX>~t%oTbamK zTmCwqKAla`?KG;KTP&IdSAJEamZcqSP2318TBW!VR`f7%BdjLEY9g#AVEv3mx8O3Y zk6DrzD4*!4wQ5Hv0yjd2UIlLWNcN&-!wlY0C_c1oxtw?T0~KroT*Cp-kW^Q2`w;cz zQmtDTJo&7t3}oPDHpr9EnID?~R?!zmut489tENg$JgH1vuk=v8jAo`Q&?NAk?XXRr z+rQqYB*qN(t?^y#Nt!rcVW7sVgV1PgYL7B%Y|8GO>g4f7aYn zsmx|)?AHJMGyZ=U;%ln#{(p-x`TxpE|Evrv0S=n^tbMdh&;{^%!-CpHbNa13iWW4W z9pB_dLy;CX2u&NCnmr9d1GYBwG=>x0fyw;`?L0vpEplkwD42`_WN!&W+>adsG5x>7 zfNcZOq@tUrvDjZ(2fuk1JNw;X70XJnBB2_1c`P;?#Q$bbji*tlbTxUau(^MLuQa&h zbeXM`=T+qoY;5$_)HVw;2k0YUXF~LFyuPYpAzE%3DH)N;5Ygd(%g1h!HX35gi_MUTj8v>QutFOvhysF%dU*c0`i z;7C3Sye%4sUB-bh_NV&0I1X&*NLf$E%*av3FawUc8a}hUaXBr0fk&CYcJp#zHF z9)jg37=ktNL0Gs%8vh2+_}aeZ2u9)`P|CtKFUzBqB-cIRp=cUmXF}bwuQTDD0wdN(S~~T@?W$6@5PfP$!1b;LI^`fX3hWpmaY* z$_(uHb+wc=1}9g@gOl=yjRAZB=ttFwVOTKtm%4`KN1#r0(sgUi#l{-Z?h)<9Zc`~n zlxqAYJe6U1XtVc=hK~ugVo8-~siF}liyiT`7)0VPW%cw@f^jIsl;Wj^2BAtTX%NaP zy3Hn__($*8ISMm^@D30fm%@vgzt}t`WM-omuh}ZUSmgKO`eJs#d%|#(9rG40x!GHX z?>l5gw|MK=<6iTUqwJ*jgJs819aUAK7yMIi68OHXFDjxseA7Dzx+|woyl$3NCjf@G z_xFUlNsai%8x$?b*Ii;+Tg<9!zk|UtGy0D*Db{Ml*lcTyjW&x-oDpWWm@CahKaHgg z);^82wo;2&P13R1kq9q%Ds|h+iZL=`vAD#NVt0uN!*aLPK2O7Y6lS&|%nA%&t^IRu zpdNK1^>Lps!x+{nFf10aW3}yuswtDT{Nq&^JhT?E@73-y$Ys#VPS*|^Zbdjc^;5OC z8Bmtyc|Q%A*MKk5j3{zRTRkF;4U!JLCac#};x*YZNLXBr5izL43LZ^%i>->FtR;}e z`kHSLg$OGSm>>_a4h&&n&Sfg8Hi0dxoy1aNEkOX@$a3&zkG!$Z)O?c!Qew4H60r=D z5Zxj~MQ{{`RApXMDMmGIHme23hY?Izl8DS-s5we$yStSDBH-0$ad1m(^TNg@R{9 zZyvFPOVk2x>;W^4u5PIQoRScc#jtF|REs5Y+R!uZ1 zd6-c+P!b^-ixuGk(S|&JRQ)B6h9Z?bK!6;{@d11I&1SJyVz}6CvB93^)EuOQ&>++e zVUr!xn_K`nk9eytfdWirHl#9>N@={>Wr7u$OUVj6qrgF72q+^2w#$TsH|{xP2Jps{ zitrQcGaiYu=V4$9_)VlT3LpxqMM?>lxUhII1W00nLSFLh<7qDwmW?D35fnUJx1uxO)iLWGO3#y}-y!XsQ=iaeKp~387^A zc(mZLlt0=Cz#@m5i(xY$`IGKG;6ck=EOv<^(PXxkxu9wkJhxe_K@AI2Gny=NXtij? z8$J@00*18(*U~s#ti`)cabNiZyV&r@JHl{7Vf~|#6il2sxCq!TFNR>l<>zP zWHdk}zwvC5wfttOG?fC97&%zAou{@TTT3ziWC-L2TqHBf&F(TI+E!d^GC>y}sKW&B z6OMt+z$V#SRo#RMvV+_?nI^LxkFqw*rFbOypnU=*%3?NINHH?31pu6%zgAt(@mOIF z5KD;}xU0)h#u_TuBLV^vU1k#*G+ZNnZIJ`$4VFX!XeqhOFkDL*A{?M3VRu(&Aq6*Q zQ7-i;`CO)EdnJqnf6&4Fst)2yY ziC^{`S0e?J)J*WtB2_(dcJxM0N{&N8F`+VsuAx#h&x2_yo5IAAqKTI2k7E(FbIJ4S zQ?Ua%0Kj28;1yw6|7O5@cvl7uFP)tQ7%JELBr_R~4ltqokl|tYpxRlA{gUeogzc3m%JQOWTfi zF-@nctc`U&YG%Qs64M-a_7y&J^1%6*&tapw<5TAkym0o}9~?M+{=kW||8k~Cv-#*7 z8Vv_Nc8RHyyI98wr>78ew~JJB-q370@GR!%V~Y0q3+GOs`Tl|9_o;G!uX*N%W0@?Y zwBoq4KkFFI5Y@ClGv^3SWq#&{qc}4$>Cc+LGn$U$PR(^H$91Y_|KII>eo>W~z}9LS zN}jl1qwyVg8XhTR{i=*ib^?6wD=0W6_7Pb(50{ub6zoc}TAsK0nXo`%I3E0~WcM&=u0us8qU>TwW5WAhZ^DAf#3cQ>EoQ6)2@Zficzqe!sPbOYgi z%`YR$f&nNZgh-y&$J5O}xn|r?n}3eDXk=kV1@=MnYdjt2lxuT3F0*;>x9JOb z;UXu|bMxdH0AZ_}zAOWVwG*Zf6581GwQI%=Hr$Z=51_#QRcyx9cmt1{ zmSn_2w>0j#YLpd|P(~WZ5Esp1SOM&FjW;3cs^v&v#~Sy`k+RG$_Znv!Z|50C(J31Y zgz#45C$AY7)AU)6^fHqL0n?7GV4Z`fp5`(_Zq+(BkDB2UkZIdG@73d=&arhqo+&3b z+87Y``E^Zl9C3L?+_7~Vc-&>ga%HhI>$dRhxS3LciEOk#&!*#8 zNs%2`*ccheG`g%tmyH<%xd zH2ldYH=sPp!=EC%Gf>btJ$2zMODpIjdK57{3eHt{IoKt~^Q%;kg^l4V4Bq&%eya2g_*1SgGIYi~jIW3mm3rg0lwy z8Xun+Y^908M`(~hWTXCCAI+7dB^5M9#(>o+7;)%en67%@r`4K*=ywLC^j)luP^5I31E9r%Dm)W`Ykbau) zpn@bC{+iMwx~^D)deudz7h`U}sGHKkcv-V%u_j2i>bAS0_#{P46X6O%{ zf0OM$e`lutyI;%z{N3kHO?~jdrTwqBfBm()^!h37!PKePS5v3d2iXIczU0o#K6HM( zIdlKd51rfp$^%^ovVh@^O#K7;1BpV6{!^Oz`_i)yUHJN&<6q2p5c{qJ-z%q{pL+ig z<EaV;TX$^pre<1Y-7a;5s22$(o&0~=dl$GS&a8iYCX+xCNC*=o0a3?@ z2radsRuQi#Xt3cTV71*{o9@aQ+}`VUukWkvW>V_wxUpNUtwqPkAVH(S)+)BNSb-*p zFmh4RYHclut+k`J)m|+B^UMUq)^7Xm`+k1^-FFjlF3)qG+xML3$xP09&Upu3D#h)= z41@Kj-`JYmpL5fOUnthf9&R|?+SaubN=aLg9UnA)kdjdGLG5b&smv(;GNaQ;-G|W* z?s4N0{wUjL@1-`7@!d+F{fNDLb%ZW4B_^M+I3rzn?UE>AD-)sXg$t;|vLX@$rNe!V z?qsp*j

={!6aYSc20K_P}PjEs8oz&?oID+!&+P(LHoGi&vju!gWln&IcD79WzvC zb&X*AHUOSYy05G*CBTdCxImQJ-(zL=)09$YqYjYNZBZ8DjN4jSm7G%7#9xPFc3+ir zQObX0{XYB(n++IHab6g4M(&Jc8H3Kf1b}x(!GNjdqjNG}BQ8eTLSf^V+Fd8kD80fX_3 zj6aO=y!Eh*S0aL^>Js_F4ML)4B_j4)U|z}2_%HEQATKNy+ZSWH%5T*$27Rm`i6NJJ=yG!;hV!&b~*p_AM2Wf&zqhhqZ##X+UP! zDql5Qxyo|+1Iw2mL8mYn08r9)2UXlI$X%FF@=`B+R-r?0ufxjX)R!OauT|l+i=)dO z)SKt1F&{(Xs~_)AyRO0oLu~|3|F%|#(@)ltIK8hn5~ph{ZO2xXL{_~-?Zy1b{3U3I z>U$S@Y>ZEfk4z!Fgw=c9wG}#Bv5%KE)->*OVe#fwW;ae9ZKtfK0kCJGXxjN!r@>En z^?v-eY&`4PhG(4*Kt?rY*>I}jSw7kOr;@Ree^wEpe#fvL#UAuYjQecXi zx_-)5{*2C0CEUZ`KPPh4ZT*e0L+NMvV~Eb|q@S^uR;(yr>DXtlfhPIk@k8>pRQUCz z6$~bG^|3gwOj$wQcanPdq)1YY#YgH=fk@Ts*a!X82;sEGZxTY?>9oe3Y^1d}nEA?jHedBV;eI&Ke}aRL{&V%dDr!U5nZNL-EVsYQ!6+(*=m<;U zap3a`=+S%ZyO#8m))`rgiV8BQ?76vM$C0VQW)x(JzC<+`FK0E>&rfFeS-E(>(W#)m zKEaPH(Ip9Vyfa2gect0wf-d?`Cptr$R&~ca6;-`WdIHX&WJ1hR9{6F0rl7U}C8~}Ad z;t}%jU3?sgXZQ(V$3>eJ=1RU}zW3_+J82C!pI+>b@pf?e>V(DcSDa7hbBl}T)AK{} z6XtXI#Tq)_DeIY!03lBVDs}VFCyq38k!BEh+ilcCr+A}HN5UdPg}={Y9J`kGaa-2X zR?C==ZLF-CZFtma;6qE{;t{8|d`tZ@r;^ujY(t4Rlw-@cSoWSk^Oov7%dIYF=-MW0D|NzUP$uS36uQ?jlu+fvQdchPZ2VqOE3XXQ4>Bv zOHJzuw|$2FsFhnCBv_L`vyYI+w;bbyYk=;EGinC}hSkXF2}qQ)88>y>j$D{R#8qt4;n#`CZ&a4(<7 z=o%}39iAI$SZZGKdxbDpbh7I{SOpOGZFRGRDfDk`^piGvpN*~oq2FLE-be2Pglnv> z^km=+EMRsmr>)S?8iy9vyP$B_BQBKj3h0`!7ZSaM z1$vu!oVwOyhNk8I?fkQiTX^|~{wCrt>!K>2>=h#1qd<%+e#<>c#eV`qj)WueIE+*H zrEtgjmCi{2Om7qfl)~X_18go})wRqy;ZGOdf)#r=r68##oDC#( z8CO6bg-l3>ZH$PcmdhRPd=MUBx4VFz?xxD=q!ln?SOG>lLtzDQE9iJ%^+tYJW%Wk* zve@X@NWaX#=0*zzpy1vHgAv1&>YadH7C3oPI}Kjev}L`eSOyY0hEhXtVn%^M1!QYSHn2 zkmU$um?r!9g)rat!F)h#=x@>C$%yJQaY$ zR^TIisqKRb`e5cb)q)b98RYPN+Kr}M>`?$f&;^q0(i+A$*=$_CVm==N-Os1z!&}8h znDmQ|17Crah@B1ddHIL=g3Nn|odyZN-v~5|`7jQ36}kz6$I5+>^0jY6@nTrn*DmJn zFTs3k7dsZy_dDBMD;+2{)|pS8GS{bWtPGQ_62fZx@T3)GeRvc9xf?@YnpW`})LOBx ziIv;+AbCogjRM(gJJt&b$Lk-J`zhfwS_@yC%OB10&*0_m{d|@`#VPksbxyN;;9a!L z-AZqQ`5sZ~*w-Yo2o;55*U~PP2^ak<`3yybzk%1(;xd0OEOB{4io2oQ)9ZWjYrN)b zT$r48J{{o7=4G@#?fma~2d#w)g!f?0IEiR_d7)xok8NF9Z^~Byef^`(5MI&nh!?lI zasrbTP=oJ}T5FpbWVqL+`<(jAQJ6gK@a0tgqz|5)Vm<*9*C}djCwe%TgT6_sgbS`d z$CJ(w>fTO^;&{a_M@fa(u?(^7-cEZ2@XeWt*h1eAkT2$5rXS!omR{OuEG_|Qv2x3R z*~_|Lu1e!Jc9&FoiQdKsjKzzcMC1L&>cwlV@EX~3f6oI={AKh&k#<9x==H@B^z-G* z>@UD$q6t_ODdojJzwlH^=qFm<-bIy#upmb0X|lB$wcp6^y2*=E_RN!0(TR6IefvI%r4ai^Pa!K zJ2hqh&~n(ZjWG&)n!)VS)*(w)3m{g0PeyY_;lbJFf^ygeT2wBYT$kr$XO?5R z@Bl_F%q}v+Hc+sxZ7aMtwTjbHeR@37W6zjzXP83vU7kh83hFy zU76XiTM`+l&$^eoFRP$6P=9m2C9lJ5$!@s^{+s6(>^9GBGtbVm@$tTR1zzl2u!1h98gX;n8w-LvCK+RFIR=oSlno;Tz^yG75cCP5F8J zJ*ap#^m@M~4;}MzvkKba7uf|+V-{4`jI4|s3IWf|T1!^P+`OXJf(0$vjna>{4HY6h zB4jNES%-m`&udwjk==p1P?&K~LuOWEe%{>;`31m0kjoBBc3}r>$IWP)o7It>`ta4Bs|&xOt|nYve)Yl24_|)#@{^ZWT+Y3`tZTt# z`Z9O9>9XO<>sK~idEj!^iD_MtUA`{!@y`gVYgyOHu7{3)-1V1pzT>-&lV|^UuH(eI z-&JYxbxGD^Quoj`t;JL>B1&q$+@FF4QE5o zb@$Baxv$63v$p3Cb?5%zKKG}m&i~2w(SNMJm|yhXoZRktJgH-AA#W>#}%_F?eVR6n<^2r}{uwr1yU1>6U}Jx6P!HPPYGVbSVnRkSiXG&&?& z5iO4!om0d;QN2@{Xh8rAAJA+_k92FgOB(V!@ueKzxEg{vlDD21s8I=!lLY`o@e$| z&#SaqExE_aaZgHJkBnFJ5WK?rktO+9si3foJH~%pj@_Iy2Xc;BERf^rlflm;>yOcx z=elg3AfJQrU&3u#H%8+=xG2VG%#Ede@~w;};7wP?;rxb=KC(P>Y*0JTALB1z*cV^) z_MSZ1+IsNdzI{7)mX~kb_}p`=Rz3anpZ>Ib`9lvcwLS35pZ|Q}!h(XF-0bYEtc;9l z)6>%@P8tu6W5$lXJvk{UVNCpJ(@Dam?4ULP9HO3eWL!zUG=%Yw7GE%3D&}k#g zTqt$o`UYy%Q4WKHje72=kN>bIw26POVmgPfRogZ8@SboEr?L=5*3ppg1P!NYnC`s5 zVQbYrYW_q|SQFoAg@LHE!f7QJmZhOpoNTSKTHSyP=geFfG{C7*3s9Zd23)F8q7o&_ z;6UBc=VmOQT!%zA3uk)-t(B5FEK5sk+0Z#!=O{M|zoK%}{Q2(s5)3Zg9yn~^74B*{ z*R&snW2x?Fd4z>N>aE$g_q9E*zOuU-UZF$mp`{ymEgOrN3^(jZbfL7XSS7XQTE(4B zd^i`Dq!FT$l)R4CP|tp0Iw}iEsFumfCt@yaPuSX7z0|AUG~TKE%vo=B7qOidZ>QsU znyYV5&gX~Lwe|{Eso|HXqD~k5_KMCG@B;VMH|}W4{|!ABuGo0$`ZwM$;lNIzE_@?s zv&KUD{%_a`PQjAU_t8fm9hfS7Yz7pl=dM>z6;VLrtAv9M-MP^n0!TbCUlOaoBHR|{ z8ew%G6no>wD8AF(2M0@fAB|=A(Kt7a4y9FemmF4T|3$_0>W~IZ z&|59PIST{!j-T)u24|xMv!%tfVE(%%j+`>pKWTE(abiw-!kJ@4+C2B0FaN%9qXE9zZwhkL} zocPtbrPD@F85x)CntJts#3FRkz^*wh!pKdsoh46<#&!E ztkjonmjB>AqltNxvz_`a4_Tm5tpch_8@1$!NaAd_=y)Kc=C@N*+5)A}%}e6Vno$Hh zj(V=08AGs%a5j4q2|Cu3M9@Q73hsr;F6=-o{05b(b`m{9jg{50#j)_?RO~}Z1S~vk zboD$wy0m(p6;-6Do(Ea;D$f|tDSWb+QQPp4&KtP}#Rc>N zC%hr@O?)>uA1dP8dt%`?)}dQsdH?^Y`nn&l9vIAxN&e^vZwg89#wK6k1x3k-G%r~) z%FHE{c)hX`fljc&X~eG+O1`1Tz)zB6O5~`(m5>ByOvxEz^4KGS9%%Ek1wob#)Sd*w zDJwbi>jWnczheSK02x4OGpBt*5$08&j3nqnuiBQ~SAs)+cOgBWUSNZtDvNADyJjS@ z!T5=ZaLOV7Te@JiiTHJ4T6cbxyRUmbJq+;lD%4adXhw?ww<2!Ad5m6AosbnbI%R&s z+Js(S-ZM=24Oi$rL466MFG4^A#PjpJo_g9|>SXKU`o8_@vkUKcG`zZn`TYagsm4C^ z{_m!k1j4hh&QnGz(7d=C{p-Ch7i&hxT8j4swk}xOL z(FybBDG~r9dJKq9!Wi`T>jV&}5gMpr%&Iy}P_Uy)N+0;RY(wZBdm!o_8;pyRAuiaL8` z%De8Te07P=_gKt((#XwEk_%(pD@LcJCh$Wq-bSEH9a!0*^au$co`7_O5;woNFp2QX zmU;i0l42bE{%_D4G=^|Pm_cn&8I*=lLx@3PkQ)et%zzs(xk4_N6LOgxmt%?ug;t?a zge$@nYK2OnRD>!*6bgl0K`3MjT!Do|glI!FAp@Z$2DcKt4k8dlAc#N^fgl1w1cC?z z5eOm>MBx7~1com9?Z6&NX`dwQvJm(GrC<{m{Soq{t$47N1pY}!*gZ3U(TagAY0u&~ zamOBP(|Kr-UEE$dXak=_0mYtO^lTsxyiuWc&}kwZA&*Yx^yp$@de1nnriu}u)N zrY_78s~16$1_C_?IvDDrg#|bABmf2wTE1|hSfvC5+N33JRTMYr{&nHc#XPiq^gFMS%;zXVYK6ZUe7>-*p8@VY8JZF=?#)xy11klE4w4c#9P)<1sWmNS=gJXJ;%Z z1PCF?0=}ccMgw~u`3eM&Xq!Zjd|8XKW-kECnYjT6f&D;A9vH!iq8B^`f*(NBtOD?V zeKXkDJIY&nRQy1BnOOf_hl=|%;$c(a*GfJVHI8=cjT;9+ktWu|a6z6DR3~lMjLX}E(uq~A+K)fQ!m=D71R za^P{XU@T=`0EVp)TPJIF7VOe50QZT=KlG$DDp7oz2CBl0xnghOsoVlCoZ-FYUg#$Z zzfm+J>C^A@<)_@ECv*`4aFifEz87kKCRrx`0t~*P?pb*d^9LTzSxsnYClsR>B$$gwDyfpgI6y2=+4jZm<#u^XUc1 zay++ipsE|~i1-8XKu>c3C3v{jpeP>M8J6t(vQW?S^0Nvo_YPFrPptv#^*}Ca2!icE zGh+k&1tQ9vfu7WX5exFcS~e>)nYuR*0w8DHE3qGdrNlQOAT0v><*^zKMP<(si56xT znh_F#_aPHRP|kx_rUJ36cW4l-$r7eiKc-@Fkq8P)?@NW$&$0?8cT*F_AdjD8p80FEVNHpo;FWNFX~A3{#r6#y35_oCWG;X~sO zybe;iAh2);xGV%YM7$6y$rO#*!RQ|min5T7ic_Gl546%>zbJ8l9K140@&PQox&4Cd zdnBxH9xMnvunI{$^bF9>N*`bbn90MiGPCE*$tpnapy}hhK3WPFn9*svDCF;cu zNe#Sb-4S>jqu>qAl3gSM@b_J)BNzGo(F6)bkq zrd?g4z4(yU^N`j*i9cnun*BH*i+m_tvJ0@AMqu)_%wnw%F6L{Q`?YLjO`i6}C0cN6 zVPhWETCb@})%(>CgnbhBLil+w;F_&jqq!n71XK2fxWg%hiW;Q?BciiP>RFX@s9Oms z9xTpp5h5&elwhFrkvkMJEqj!nkl{I+;n@%K5uP_EWXpLa^XuE0kM)8Q%7_GRHI#*s zKvm1GQ)ZR-B0H=mRr}&^Z%0lxWGGXHGBql&L4osRmA9FqRnB>0LC<4awUt8ue^d#7d?2yDq47Xxa|c_Cx&|no!L5he4ejlt;rb)Et~a#T z!}YMwB&-Q5@b5Mlz$p0t_~gX;q|v{^Q@_O@0FT`54Q(B4QWg+E`}O|zL+pW;dbaAB zXOeK66Mv*yj}7?o9yGFF5rv8Mt!!6oCwt7_?qiV)wF8G5ploZ04}7p8pVMz8CHQ9& z)+zp(k0U?c@voHQgw;Q|A6-fD)m0d7d z^KtV|{8vOiV#fo1)M>W8xwYdaCLt%_2#*qX9f)zj6jAe(_F22MdWJO88wx_#^w2h$F@TLWn;P zBpz$?cYrrK;7h;zb4V09nlu+TEXH&8Hp;+#I3feMSYKz$A>3#iR9AqSWs`9ICUnluOCZIV4sGBKC5GZD zZ(=!n>tw`|y@zGR?d_sqE!o>5D?Z$R-3saTkk3O}Js#-;=j@Tdy;n@&Mqh{Fsy0ko z4adEUJ&@?}u+qZ2OtQV1h|d+_PD-3 zv!SIPpSd3MgA5EBNy}pg+ld2@LCr7;cjCn1_QzU?7St9GZ2S2u`yifj!|hVZcB$km1g1Y+FO_VElDN7G1Mb5Dg^zo603j+=0sjB-5mDGLq7{(Q(DCuU11A8b9$cS1;n9imfy7L}gb zUmDd29{RogHNzRQ=Ro!ke(>SL?DPj z5P={9K?H&b1QGa05ujcroVayoBXPQ2W-$}YJH#3vvDy!sX@Z_+pKA5IL+tbsJN$&T z%Ehv~|IudtY0I&)+i}lv7%TW|pX%Xd;P7;+&*y288IewX?Nlqvv6f>p%T<}hK)m|2 zlikg{RL$Skm&&T;h zDh-^Ovsxf%k~y^~AA=;wlkwrThh=m`ZL5sdf!hSXjCzBxu4yE89Fmo;ZUR3!EU|X# z#U{ejL>z9G2@$pJGF{}iM`TbvR4xPai3sQfkSW(r1sdPlsZbw_!>LsUH$I>fPwld` zQ`zv^PB;OF!OUVXV}@#n2JQa`0}{LrA`nC%h(Hj5AOinK5eOK4gP|(&Ms1n`0sA02 zU*_HM*rHUd;^ChX&y#oaI2Qo5HQB>jbfvi6U zvi=D$O-lFNeFVi}96vrKy~dw9ar{KslM9J_>V(vK@FkdjH-EQ3b<#vcXKA^+)htrx z@^@o}+C2PLC9nsz`S`6$Vav7iaa3}>wg_K8E+u_`?i5qMQSgnk3HEGOYZv32($|k0 z2b*8Pxq1fLB|8lm16glrZMY|=@JMT6VSP1rSo=8KWx`!1+@00_4u2ut)0+r*C#NRy zrc6`)ek>;9&-i{*!17yU6ErKDd1vINPEIcyH17St|IECbtlM)k?#>#pY)6*RGfY#m z_8x#E#vk8G}Qs*;1qTn(9+0reKe1k_Qrxw3>1uj^pGM2;z~7!yeo8 z)e|R;OQ$En7Vs3<7F?^Di0@BdpPIfuJ04+DXvr%|N8`2dsp)2ZQo48iT_Rr4+x5UH zFJf0Uc1bf6ADlA*;0geli7dzmRWYu=OuBX+aOZ?z?Ad5HGmuS8 zfla(~vtZl9f_xDt%p8v4t~B7s1lYp6--Na#AfxOl&>N{i6ZSy39A7;Nw%P8c0((g^ zU_VFh-PrHKRsCfLI%mRGg==xxkUJ@LJZ#7vSDy;Vyd17aNobEQKklx(>R-WH!iV6l z)HJcp+r-bH{TI@{6e&40)Rev*q5D<1@rO%@8$|{RU|AXy?%FLm>mP|FhrN%v?h=Q1 zqnl{YFzO;i_(ZkO4eP-?bBgMrcQ8z3UOp$g05)S3WMYqm2|o$RKZJdbc3VTx)eT`^ zV1qCn*v)}}g+0*kgnfnWH_1^lwP?|zdRTRkadLVC@l z)Je&Og-xjw(Pdh4PXFcPOunV1TA-iU~12BYxcM6ilPa2bl~ES889{-4j^tU@O$%ui!XsoF*L?DPj5P={9K?H&b1Q7@#5Jcc#9D$eV7u+TEM)za%dN)q5qjrN% zdr!%_je8ziw|>tf>z;2CEQ9B?2>QxAzDySiVX9(Q-_{;8} zfrkKsogDpeT^>TmUVwgZ*qM_y+riFe`x62b&sr@zGut2 zsnF!CCgD>SqmsXUa4%upgB6#pd#o2uo7O#MeQ*!);OoSLwZwyO5yeN_j(vUN=O^tS zzSLfykGyPxR=8IK|UyD4M_jbkTMruTiCZQq)B(pgPnnm|6#7M+5<${9s*SR z)GopuO8=EBsaQsrIW~RxAjFdVji8{)WWp7Cvx9|!|CQTZ!G8EKAKLH`#O&>pAv)M; zUk0%&%9QZGcr(2jomiSp)U~fl;o*kG)Fq1IGP=wOL3JxOeaJ$!n}z+c&MK#`l*{}V7c z;Gx8@viCBOXvxk67c!7kkdZq#i-Dgjk*gW-t0RU5&M1Jifgff?Vk&n5a#~f$431EH zFB9-vgIvOz^DN+A34Ehcri2`m`(+qtb!Lpfau1-50C@u5CAZ4!nUxostKdK)b4m0%aP&ELnL7SxbOm!ZR^ z^6gfxgx(4fx68}78>_cUCAUIJlG_Rew?e^kD7Y0BwANtHn0=DR7Tp!=#n&AW%;gOS zM1c0EdqdLBr=*?dtyorJ_8fZ0cJCYYNMw!N*5WPDKzXr?F89j)UpW=*80axq#>$Rx zK5o+`&ifj-UFUUvAVwg%EArz+ynQxyt9pirKZB z9h)KO{UPYeQh~5M_ZR3K2c4@(k?Uxli!*tfGdHOe6v zj4Y_Xin+C%SY5?hQNZ{k?oa6hF0C6|R|XN);Sq%1=aM;UED!puC@7lw%bOUXU}?n3 zCmMEf%e%ej<^9aq)x8t|GO(pu3q8uKqt@3yb&vBph} ztXS~|WAWy!rM!}3ORy}PpxD6o3Ln5jFo-uyc{C%D)D&+);sT;m>;i#tMu~z3lHsdD zut|~uLIi)6F!-Xszy)1~4x6ay4nU#|NV!dLfHYJ}cvJVeE9BH+hoArnN;wb7-g8tN z&B3Ar(*Tu%so{21IkvkZLdp_0UE|!v>`kkIf*k^q<-**3Pi>LcEB4} zFb-<_gTt!@_H2g>r-GdV z?sKVGj4q=$**Du+2gsshtGyg3ok_w%zZs}^*!{D4jb$s1iYN0V48uj7@;d|#FrnAK zQc$q1P|+%NCFBSpPBjpH4t%JD*M~N`V%z$%ipuqy&Y<-feeYE9d$}zN7q4J1z@3ZO zvveH?A^RNLA!Z-vYuF5jZq_>&LH$X9SyJ9p+kC*WIzsr2+bS}TD;G~dDUAK$Zv&r^ z`$NeHdMZ7g`(p`CPcxP%=^5-x)l-i=!E4esoDZ$^Ug4HQ;&Pa}^epBJf}ROW`RwzM z!dxZj3~m;zDYF}Aans>Eqj5SnwP89pt$PLpCJU{ezIN8W{8Q)z(HcJ|V0oPh5hu&< ztdsG&>Y2t8ola#edDQsORbuVT4Qa(Qq3#S=F*4H5D?hnP@U5K8AK}%y3FdyK`!i;- zGR<GPcY&5U>~O8v6j)03D11})?3S7M3kioorW*3|L!si}9RU`1-L z9CWF56OusDE759tOnKnxYQ&cI*m(e0^0}Q_*8gI znD}%?`u;-XC4RVSmK@pN6vj_UUk_$aQfijUg8C&|7X$_kK0W&_lJ3c{EXXQMGGV_{ z-6M8Cf%=(b5t5qn3+iV`#|?czSA~>#%90+-egP1vtYV3rEO?SMVU?<7QUzvstV7-p z`ycWGkBug<23RiN56_K|FP1@%kKZFYrut90YutFSWVo&>1#-#rDPSq%RL06(&=1H0I8%`sm#BX)%$oz|G6DHPSqN!V-Zddml2^vd!44--5*akz zuqn8e2?6pCJE$V;qH?UEd2{LvH_CdMG%1?0zm|V2m}!bA`nC%h(Hj5AOb-I zf(ZPJB5;dXe_1!h`kRxT`Qs7(<`0VSx8lDQ;cv^2M)>pG6yXoU_W!RUz4QM`{J&K{ z5dRN>i{8*vQeel+%Y&o-p&aa$TgUoq`Qcc9=YA;G9|^JkZWZfsFqk8>BmVvL|Mjgc z4Gh-O3Jyw}8`|0ShUSKY9S!x*Fqr7*v9YtcIdCa?TLq_>9U=vTp%QF!>%l_}^$h0U z)yj%qQsJ`YD0nEX7i(-eaJT_`<{5Cm+u7LYKj?30>0l2x9ByqB-F>!o4tUvQupjjC zcyk8R?}$?JCwc0m*bZCYaI~Shl?Ru+(x+;GZjd+0?_V|?lZvB$vW=~6EO_;m{ExP_ zF>grTN#8`CN!uFu<^u;C*oNc&cI5X~Du##-cCEs@A#V=p9fC!NM8`&tj-C>2jxLN|61^(=c0-fl zv#4%^VCXYM7{?j2jCsZ)<8O?=H#!FXu|~h~xY2EV&bY_eWBkk*=qGYg{1zr5ExMI{ z3me?K!Pz2FfCdQ@V!~S>KBB8;G>po2H^3$h_>G44g8@z;f831di5Z;59&Tvq1V5_a zk-3YNd@>LACCgyUfoA0SwM*h$`%ad@I=c7<7K$EVTTWcJv=c5pby&SKPXCe%TjSAF z!@?|Dr8EFI9$?wmC1y)W;GMKD@VB?+ZT29fcCyH2Db_!P{cIcC{yMvo4gB@7oiDHr zPzX}aAi@roZ2&=SZ9I6m1NhOo?_eV&Lo@JcWMRae>}xDr19!V$W#4H>$znfP`|j%9 zue`eFwY~dlu)Q_dYrFTn^6EaU8r!}1l^U#A>((68tk?WSW7F)`)M^fC3StU|7Q_|A z77UvfGcRgk)RL$tqe`Qmi%QVHAGKu26GQISzZA3P&Y0ED>G_x4DrTtOQcjvznKzh0 z^E@-AcBGz}9#cC^&&-JN81+m>j3-9V%!;YQ1sN+_ogK5INAEeO2PY~{t-Ftj)qCc} zNOgFo$1s){&x{x*C&pH3tFl?4&Q)e=3i9ppt&ts4^ObQeR;s&39VL|PkZSD3uZ(b) z=+t=RG5!!CM5>0mLkDFmZB}Z{bt=6N{yanVeic95r2~E?kJjrT=nV6fk@_|1R!C=8 zEI+|7=jE9(_|U?k%)+5g;^LyA)*WT~y3cqO#p^t=dI7h3KGZW= zF`jNcGbiR^nI8UX7RSZhA192UHb;6=Vi=?T#l=HCcg8R=`WNpX%3|R5Mn_(p69W}B zZ_@LJte$tp8cv}a+>t;JIK}9JNCFP(Xt^^c<#wZsn4TKbr2EP#?08PU^O+cTpK+O2 z=3CZu;m#QT^U14XUR)I;LALX6`rZqU7;oY#wYsuqRSc6FQ}bUj%(xg{p-GJq&aU~J zeoacu&SysJ89WAp4@vM@q1`e)sG2tE5yuPT5XXz+AT?GGJh8G7)iU6$4~{u8aObha ztd;pZIdHUk&WK}pAC19N7{|P%hjDm{;+U89Fcytb&nrbK0sA`^ci}KNsCJXS(z;`l z1ZTD`IaaT`8BSLpKneBu&?!dmTfGU@B#EYB^$sI#MD6xEG3` z7Y+5C7Q6PI*tHkMer-gZ0#4{Xkukt_PrRPFBL;9*tC{EYR`6?tONfX9$>TRf&=mrb z;|fKG7&uUmTt9;edB_&!FMPNw7Lsh@#|lx8Zr8uKT<>OIyj@?ayUh0ax-gmW6$%7Z z=PdG{@#ecwtSE>I<%FnEv&(MR`yf)3^MYkaL^2+uOLCE@kzrCJsDUmBAJrn1qNx!3 zjb(GhcZJ{TilPKH7axMOFA~g~+agSYF+<#-%S^U7_c@jn*_P zS_F4+`kh<#7hHN?Rl7hBgeD%WADS!lV1F6`vRkP)I)_NNO7}{*P4kAh>(Cjkc~;L( zy}Hs@)1)_-qJtHhPg*I2h+MS}tXJZAU@1#cxcrC&V5I&>-h@c7xpT1wz(ZulV(EAUVd z{C0hs)ioSgCQb~a)x+wUt$NQEJp*64zHopSK&Fm|J7*+U>Qg4}bm@0g=&7sW&O6b4 z0_69uDc7$N$yRSelqg;6?b)#n)&k&9x!!p$UzTPC2Vg7|^_2oIg|Aju0K=m--WZ8* z5`%l88dOGNaDR3af4!8yW{-!kZ(|@L7_6<*3V7dCD7v@F((gpo=>zOJ&TD58gB`jlAu#8nm z%h(Q~tPD*Pu#4&gvR+@aOYiJyTC+tDPgSfQ;V{yrks6YOiUgtR7pRBSP^wDrQb=g~ zH}VRb4Iaa|(Pl8k8ciMe+NFjph|mX@R#%urhM3|Czi}--W7`}i-UFGlhC21)T@HQVRv^XP?1(5vJyo^s=d;Vy}RC%`EX3y&G4_YBuF!}K0X z&y3LXI=2kvtE7C&uCl`NB7Fhid>9&0wNvij=Ty2(unJqIsFFe%N)O*s-=ld2XhtEL z`w`7>kX4v-vhULk)b$La8=-d*-=`Un!^#L{9!X^?ndi|XheyAEO`M+kFC}$C36t6tjc`#>zf^)8Tc#_iOXBs+ zFwb_V)fItyBR(s;SJF??UG(@gPaAPQ^!)G?5dTHrxP|}$db-AIN9fh?DH{pGc7=ME zuwyjD2PEt=nt*3Ksu!)M+x779Aue9fEG!rXRQsCi@D)7*u4;Dafr%~(E;krU606|s zt5fl35pp9DrMOT5L!iU^m>v4nI|0>2-?$^_cvy!6C195VS{%{H)QB(?njQT9PiY~F zWjGZ^sVNnuq(UhOBS^_9f|5}a;R@@XJ6U58`&bfvhx*yy#-hYfi!_TKhf6V zX1c@3AR`cK_20wR0T}*0TbHQIQ6WPjhm09AVaSXj`9q!@Vu*e%`i%Za^t;g?M}HkX z+>mORVwh=IXjo!+eBj?xhJQ(0hg;dY+*&a{fdp0HfMLX4Br=R>B&8pFSAvOxWXHg+ zY#wYF0jXdH;bjl>fyo5?N%jnI9%L8+cP*^9mG!<3Miia>b`fFW3L4eg=71pC5I9)DqGWRTb3{bph1jZyG=yzJpv-YuFiOT=Rxu^>$J; zhnPTGY9ss2Ar2dA(@Ex#p>`t4G#fmrB-3K>j3b#=L%ro?`|^tj%-Cz;qcr%?9R#VX$GuJoF3re;L3q;u*uuh7r#g0)`Q54WeO$ zSPeBbLQ-a+AMz!`hzaBk!-(mms5*ScK&^-bMWcBBA;SpIZjwnQJ+G3?I8roB7!m2g zP0Vi6BQr6tLed~}2+V}cAzmYqIfTN*C`@1u5n{6Lc#RazA>NDdj3))q-=8L#HiPFq zl4&!y%+Sx zfH{Q0$h>K&F&de-44@7Nj;=O%(ny9ec&3xg8Ur$i5J5xc5U-J74zZU+9LGl?j>|?t z>Ua_uDw#uc8IU=|2?H{R=rSO4h!b$MdQOOAIElvK!ACK#h&aneF?$fynpBcU<`Cln zVM!x6A`+_IOM*GXUJ1@c5y|68-OX@8*>dddul?VAk1cF#1D*>3<|fjPu>QZk2- zh>#fapx)^hy#J0lL?-znLxMR(Cizp$Au`E;IYhiRd5z&m%^`Mb!5l*DW539M-yDJ= z%Q8u14w0=D%^}JRrK0{H8;SJ)ual*#-y#R;|KB8czCm7iodo^=!{mVe|1C10|35$? z{l9pN^#2D)N&gRLN&o*2iS++%B80_G53Xa+M6%pu+|h~^McKxZp^!*IhK;&~ki z-44=9#cL&5XQqJ!))FIuDc{lmA0&UW{=b0~_5agJQUAY>Y^udZiu(V0@;mzf8j^W~ z^z0{@*GZ)Re}mldCMoIv50Ie$f1TX%7Afif;XVQKd)L&GYecfub%-(<(vkkZ4ul{0 zQ%erg|G!0o{vR6&`v13Jgrfdmp^6Flw29+7C|9_bLNA&+bm|wP2K2p;Ei%bNz zf&PCVc?nSu@Mg9MXNYMZ9Bm4FLZ<3(@e~SeD|2`66@7Mq1Bfqczhx(?IwNUpsLC$p^#2FR|0VtZ z2PEkK&yqhu|KCW0{$J6r|A)II1|D=o{r^i^S0*uJa(pBh131;;;3J^6R_|332j z`hVFE>HizZ)$ahR0sa3wK-j-fO9KQH00ICA0K~lTQpNDwC5$xy0Nbbl01W^D0Ap`tWnXV{X=5&8VRNm0 zYjfL1vgr3z0(}ZXrpY=5^Zxskve)fk1r`&f*o$jq?Qz2d-m7ge$1mm zf|gzPI*|m-^z`)fboX@k41gj#9bX+^T#hE!{QLCn<+B&|CH>LW%Y#Xlji;BR)6sBz zl?|`1v)7~HWp*~qE-r^x!^t(=93T9Rz*Y6~`|nit>tJ-PUC}`o0gnF|TpYidUfsNE zilX@bJDpt)&$H9%#qXD+H*c>+U$x1`N3VvH;nnxw8G_2j!|Z%8nU0|Uo9t|QdOf_k z%-#$qqnoSj`|m6QegB=yUQaKx$%!p%tFr59h8N}W#q^iqBrnbJWcb_l_urKn7np); z4y$naU%DLR3P`K6x1;mn`F}MU39YkhXqX*e3@(P3#qntJOK}XW`~JIzXgfMO>K(=P z^yWIFe`lA|(KRyea(Hn$J-a!*9!)3N2swBL6-W3F*jHp150sa|50H0-iRe($F>e%kj#N}Or zqM$Hq5<%RqLu0_Li!I_ao@4EWNbN$zrfQ2%Y3Qlc&sybmwjg~a1S+58j+7NtTh|_- zLI9;Ag!1aF8xH{L01%oXG6K;a#uT7!znEjRPYr3X71urG4VRO(G78KUUphsW%P23k z8U$kS@UZ#c_CMKrv&uG$HhWxdZvSdwXa)`3#c*(a{Ks!6my@#>>gDmxnvMvcj z-ABI%x|##SiR+ttnAH!n`3ktcAtubShrd>{b(>{(?JZ2lZ1H&TH^2u*j0pya_3R#| z=W+JXcEo{5u_!#Y$aZ?&9X9-X0B)~=1c~L%@cOrBfJ5zwN|xO$fUMPG-qPf*+xdN9 zLE`%8K6_|kULR(w56k)5PYoc{ehB{y;(&sMojxpAk1gU{0nV1#awG@hh={i%@CNz@ z@NRemlQ#S#yBJ)L$Xx*5yCNe^%4!t)EPHA+Q8-)6Krrwf1t!=Yz>+sJAGkZ zo+t}-75vrk7jV}I+u%Je#$YmD6aJrmR(1d~=&wt0U5V=^yM8;IK&MDuh8P@R2=`Q{ z3$7@!V){Zu&D9{w011F0ArTCrDuybYgfd%D3dzin?4Nx(4FP{00$&tZK4K(X2Ejui z0I`0|$byi*uvytGvJcCk{;22GUKKbcn%Dp40sA~bqL52#!3>loB4lk|;#E#SHIXJs# zz!6w*vg;Fd{5yEiFS8R^GT;it1}-Kj(@uNl^1|ed7l#VPVOy?9*zwn)!j7$nH3`-T zSc9;Jq{#7XpMp0ZL9GC_2x>hji7ga5A(0LN90NF9i!W}j5B_JVyo&&Tz001~VC-u&JQS$rxo*dCPGfY!mlKBCHhjF?@D%3IaaHxDKrd*IPC^js<)C z)5(BaD{qY)EQP0!BE&)>t+i7Tp7JjKK$;^E7m zR3T^iuFYtE!7AOt|9`cg<_m7w1e`y3|B9H11d`Ao%Lg-15Ewf9-Os!S zHUNw@Y*5JT;k=_V{O)I33oHm~h>H@5dr5XU%@c%wpzvg!p-WoIl+}sS;j?_0qmUnY z5d)SXZVR}_qm#ka=?e+>^00JRYtaTp3B$@C6^j-a?x0LCi^Y%Q(SMUsQkExb`b!W9 zKMGqRUBe#@>kSY`CY=S~MA%zsso3-*4gzv8&g+}Y3Em_teFEkO)@r)^VtXaq>m4hP ztmpefwGV}sC`^ZhJuQrE!J15d#NGy0HgKsyv9E!X4N7l>ztlr18&uQ)mc7$&YUK|pMI7`kBShY_L7d*O|W2@8PYmP=9?r|+_bg?%j0_U)3j5kyq`o`RaXSb;)Z=lQ%6DIUHjNB+W&Oi z5>>-k-;!gZ>e8D%utRTN{_Qw=DIo?T7{`>n^Al6^*s9R2lHJ0R8Kt1E3rWnP4fJHQ z_vxVFAS&CA=_*O3>kKKhN(FAq0;ci%~4H z`3&80O!6Oyub}=84gYf8LZ669dp8UdkSq_XLxT|(ButdTrIspP5cBT8Q_OZw-&_vP z&xe=-9S`sxC>~x9F{3v=`gI6VPD=YBGTY(S{qq@;e%JnUmeX)rba`3`=^)}p&zc<1 z+xGDh!}|GpxxgiD@w{DQoVKR1Sq`~*`E8;X3QqYt1bg=_xj7_H4OwX%o40ny$odof z1xg!OqKjhJBI?4Bn;z%olmhC<5D?P{V6nz1vlUasgJgPj5#3Uv1aS&`pNKgW#GsWx z&ySTClOjJ(cx}??t3)_l$k`&Nwx)>DUM$09mh5UY8@LF+1j~U-`O9Neb?w2i6W7BG zK`4PJKa3(14Z$h(KHWr=qTyr)o;{!4-Y!>noRiULD??s_#ncEf)o5wBn4KhD%fUCP z)}%(Jh{aOmF>#e$OfN_#aI!fd>P$t1MHc?{?1X}vWBN_ku(llgzbC&vi{LmtK0=4M z8{#nR;CT4k#dvx)+CXCRakjdHKM-u)&pti0+2d;Y5H#+7x%l|letKB@ zaI?)@%&5$=_TLZpAa@6ZGwOpNNyS(fu6H|KZr+W zjl@JA+uL>axLhpY&)xHOwxM2?3o)+fRf}GANTZBr51c*uJa5@jt)Z{h_Zw0w*lX^y zO>@jHtx)?hgTt}{2>W_8qDQkkPB04ZFCt2O~Z1W-exSHLfKmo@gOoaJo zqZ@4*aj{)|n4?K$p13}qlpQmV(u3l|bS`g!qhS`yK2j^8Kp}AjI&^+>H9Ex|8l5X( zzKlD6C#qK4 zj6^=NjFO0=Hr~$`x9|u4twFQqsF<7V6LtgrFq%H2&=kBk2v?Ftq@2K*^>c76fM8g- z$e*B9m>8I(Fd|b$(gIZobZo`iN7SYFB%_!*|FBtm<%fTtW-HLiRVEgD?uKynP_BeI zQ(bfR2vUm^$4NUhpI~lUq2G7&^*!nuiZSmTpuYsl3C1BMeK5EI65dTmmyE#0-3eZG6{G69gdJ`^pMfx-_T}jP0Y8CU_IOvI zXe5}p{XnKtMca!yyISDVh`jTYYCZWK9)V4iNqRv6SzGX-QL{2Xm$%CgA7C22`9QCG z_1MY!Ls0EWxLIVM+Vy(&k&Nl{`2r}Kx2Uf3M<1xf!vF^pT>sV&APej!(v}jB$ytx^ z7G2EE3J2_WCZOo9^>nV5Y*PQusM$S&)}?QK4NL8sS2G$yT5%8JE=b}^G~VYkBzyr1 zk|*nrqRUF14Cq4(X8oRpvFuaWsv9J+M~qPs?@WP~F4kmtXw8lIj(0Hy>*$#@8EQnJwlJLoKv`h^Gl}{`Z(Hj zi5_GhaD70|1=|OlK<^F>W$TxWd-MXbod_r=s+(JD(rGXoK7IY%Z>*F2-t`#)9nA^t z*Yig7zc$Nxw16G;)AiPN777($ChrNIzg`~3WclFXVYZ^B1h@Yd&k@7&_BJ8mMIMy1 zU$0Emt5Zr`V77yHcXBfN#H-c(ptZ%c6n^1&<2Z)qiq)u;D`NDG;h3x+JZ#jtlfK`{ODkp0@vNScKt!L zaV`z?af!+i9Q=9vF~rEE0Q4_tr9Uo$_GrFXvo$iV+7)$E?r?HvU@e+E>d2crKfXT3 zR$a{jS7CwPRt$&POrYbjO5wx9a{h5KTixO6K@=Y5qU=*`z)>4)5vI7Cnp7XG+1M zX0_ok4=y3g$AftCB_Y^a)nJ-GEH}7+7OAJOg2|>O%_}^(?m-m@Ps(wGbS3!w|DLZg zqPY(Vjm2_7cRgBU^^=Z5IOT*V6c}GOwb3C+yKLX0`T-*S#|>K$j40ZE*TwFb0iSM0 z0|IW_=NYC~yJYp7L2IQNZFt#*&V#YQh;#Gd!<=nX79B(G;XnOrrFA{qq~1AD9l)~B z1D$QajDsitIKPjh??^@^U5fU;r3DS>Vgmq_E*5Qmw_MzkCCT0cDh$<-zfg#A+rnF0 zQdC>@ETy*Y*g4&`b1v99TibqGw!K;}6_nJuYjL+9N~6ov?Yh}BKG4=r?25A7d7KbD z(?$dyzM}CoD)U(xmAjmiGI(urK6L>Qx?{vOm4UN_2Zs4XVa=z9mAo-b~IkABAMHu_+2oV0eQ^b|cOZDMseG zKD&cE@0>U?bawIG^8Rt1)*4_T81lz;-lHH+Nx$!Yc1z|S1dRf4){;&|ZnK`d~e*u%*&6-_e5pmO!?P|RhnQk!1_vzMXnF&(3{19(qCY-TRbTFsw z1)qJz^b7jA)U50gg&1M;0VF@x=FKAZ958k6kr}A9z1zWdkwSIeM>%oH2BotPADGJMnWst7(K#52X~v4O6cfE z8H10(XTKdy(IDzN5CA=|R;@owx#vLTJ%oYxEx2yX3vZN6rx(*3gTlym3?SII8E@3C zkqJ1doGMSedgP8wkD)2;j+#XKoFa`p?Dq2Bflp83@o|ukIkVWhY`?{*!pc+HD%<91 zS%~8%lfn4+t06w`b3Vn#cIYVE35dvqPybS~n$Fkz^OhyRqJa;UyqWxLy}C_KES6WenTngoiI6vw zmsnHpQr+}Xz1=@|4&bWT!GK!@`^Sx`e$O+ddsv{%{|gJ0?O{QN6^?kIcX@!hR}_$6 zz0Jp?tjBnO?pHp|i6B)xMO*r_fRms7v6Wv>_$*ph($ZF9;xQZ?dPiIQCbzg-4fuo+ z1noj-OaSt|s^}ib^nD8qicb4s2jqQazv7M9h{r?8!st0 ziJ;@ifWRlR!^XlHM34N0+W}Qq{U@%iJaMf&Ew!LjMN0V~R)zc6JEZ#1<}dJhI+-zm zF2BBGRf&#u>{xTHwmbd8;_#lcG-=Biyz+(LuhK2$Q)VAqB1OBeCqcl_A zqYA?y#_r)mc#H!VtHnn&&%uaOvu~inNGdE*p|+^7rk@H7VBdp*pD!Otwt9Tfsk`83>by|-WR z&0vMUTdt_v`Ww2f<(L~eW>w%3B2{qT%@@YZ8sK*)AN|;yZy=%(M4;snM9^7vrHBa7 zgS|8U8GM-e`^`N)c2@Z(YQCy>e8?to9v4XHUI!lFv@6ZsE3?-K_-RKbfTvCzz{T{d zX;6{_nn+L`(Nl(L&|fKg>KhE8k_Hf0X~6(GM5iow{w4eK&_3dxImrSM@C{~0Ni(B@ znNf6jTsiLB?VtPm+56>c_PFHd@3zln;**ZNHq!ilgAr1$BN?Tf7Ox#86IVXX7(Qx) z=T&)rzQHi5vO`CF#zoPYYsKbJ?OLTy;?Y0yvROZhK$Vm?q%W77uq}X%iO6p-U@93f zqOwj@q6t%MJ5`SjgN6Mse1f#IvLA>Uq;}sxiL_~|>FP7h8rxIVm?swX_cI95srzrR zW=dK!U37$ov`Mo`)nBk?uyW5AAG6hR`RRZ_zrK52$nI6Adore)jj2{&l36|%wxBaL zM|?c1(%)dvv@~d1cT74nfo-b(l0EylLhm6SegfccAV5o<(I!eGodDKsP182@ULN3< z2|9MDGepDJx^&#F|i z53)i{a`>5Ep5=wU!k-(sGDG~iy3Pwb#h)9xcIVRx{&{mbI?sy|9{@#El}DuteAYWx z#pU39kSldDy&C39PjB8`=E}StUY_U5;xpXvXYg(SkZv#@-{h(sUJplzsScPb2yy{M zbw+>c@#rd7&E@dTAlC)(aGGlcU5((+)o^l^YYn`-$hCPlIwO8H9+9@A$-7~$Env9L zwYwYvf!YnOuc5HKn2z4$x;mZSKwW)3y}8VFGadjYQ(#sOFrmm0CZk}qgWTu~#AM9H zcyO8<3lju?-1Trg%uNaWxyns-F@!Oi`eJ%bv?IUKfnhw&>3H}$x5dTaVw77o9szf( zeswwepWK?$>G`YN+SBQ40CAVon>V>FK_qT+TfG}z5+?02+4_0}{n+Mm`f8NB;&cS; zcEEKHW*N+BeC{WA<{!Xi_%j|%PT{W|4sLSihLhJ&=Pm|USGg+(7Z*@iLg6%b)o?N< z7J$w&rW$xoxbbO#6YWSGr!S^2`QjN|VXf`RT%m|fhVMqG;kpzk zQ0Ru)AVbNSjuAm9yBH4vk0?NuIj1gAZUHgksv<7jvlYf%YI*~7WAj>&LgEQPP=L3=V*H?=Fjykx6-|e{6zoIw zh?Cd#n6Az`F2k}0C_Tn6+8c&)CaXH5#+YuK$334vP1y5vnaWPer#RAX&8~6>E z1`{h-f)CiZg5qer#YZ8kf)eUrkqb)G*Cr|lp1ww(Nn^l|SSo6!5FIpA{5q1_G^qgq zqn`n$9)26e-ExUR?+d$Wpu(}LQHRz~k}pCJ!Dz)4IxcaA)|xMQajmV23ya1F1E^Nx z@{WHLBL-d$PL!^R!-Hop2FPLCwHpI0avcui_V_?>*e1(iQ&yR8> zbx@eIqCPq+%p?{Ji+WfzXWBxsJuBQuHA8Gb$ebTT1dVXzgdieo14MNM2+jp|(=9j( z_;Z}(fodW__+pE|X|CEKtuU$G7BQjth=2%JAYNg|0AIb*8sIDLD$S3tHm?fD)wwSN zTCJxQ3zUU|GB5|9>SY8P>q?0~k7WrdHVI3XuNL@mwv_7<5z4xBYaN9dtG8)%%<)PV zRNVr+i=)t;QB+5-3pG-X>r5cma2-rlqzmtwUygFFgDF(SYn*Ncn5j2HpaiX2MPZ;i zw^bJx^)ze83UsE-QI0nw zy0I{3&}fUIe1?nyKhM}#PzOK%z&l;N0+EKFe=t55yh2^SDlAl325WGt;fL;weg#8@ zAHJ(!foQ{zM^Oh9rUC!_2!0667Oy}^;fL=O1dvcy@SS-DvjRVi!bRWIK_df=41;MD zF8JYotAQ?%theB`79ct9OqIXH8W?c(3!^h0oig_5ln1VK1(!8n)^KV0vVlt)q%!*G zlt-ux0EFSWz#(NpfM9M)?RzO>FMxyx4R#IiHGHX{wBSnvm)y5Q0K=u&q2^x7=n5Cb z5!muE&0{lw(GJ0e=;95Ub8Kd~^fe6tOm;m$R@kEp4VvcpS$YOQjK336)T_=^;0>kPf^5;@pq^;XQuFX)IQjjD$E2`fRR9nFJe0lW5njeqP)yt;xHV_ycq%}CWS z4CkylQ#GkKvWF0OGJG9Sg7rvAW&KY3U;-7dLnEvRkgpLEv4llRf!YnU1v3F;D6-OA zfP8Rz5(|#rfDJT5rOryjgoLF?mj-wNymt0AR6ArWtW(8KnPzi+=GY4=!{Xz>p?{5< z?<#8!-3{R|8BupbIDB`*sqh$UAHrprgQ){8Z`fZuD+=Him_syrX9XHDa56yFU|ol0 z6*Us8D>5VsW#i2h4Mjr(sDq(>Ta>{2Q)Guhf95SXY;@C%@uoZ@RjJ2_3+*K?d1tmD ztBH83hzG@55lIcpxTYJ&^MW@cFwJyh`2L7&3BMPKGfl`vdi^O~I()fmO{aY56{?MY zx$2KPufnCttHxj2yw?8G<(2W5WnNZ@4Nn46L6z$2ybO(-gi;lG9UvfzH=3F|-yGs{ z6S{$r-o;incj+Agv`-(8PvIL}Z!WKfm|KIT0e&(D0g=8O{95FPC6pcGbyMZxvcfls z^5vl@KCJS?SfN~gh*uaEOqzS-`ASo4_ zfKM}RWg*)HTF$5M3Na{&?XZO5+K7dzI@BgNJ9INq#y8G-#@irEBlnGGmvw^whfaG0 z+@^MUDd;K_GKH^l4TPDBMzhoUB;0W-+`fJNwKaD%V&?a)Q9d`Q^2FFEfs(xjG_0%> z?N#JdoudFp^kGb19}b}&B$`LU@{~)+m3{&L-36sb)M( zj<&##QqGj!#e;9@w%yqz9A0&uk)A*a2xI>?x0P62jPNc@K;m|!2@zVmBQioz4xQ|! zjFw4z6VT)~IyHc+M-m-iFlpdoL8$^N?*?pjWlUURw}vD8;5qkpM51tcysE_F^`%jI zT!EY_ts00zE+JKH2tZZ>SwASZOA%VNfCDZM1-{rS*fNb9PFBcEX*-Kn8jed#t}f6U z@tTc$JW1JtV3v6_v_L9|HmeWqPerkcH@xl?j4n89a^;Py676tBAr=~IwUE~+(B4>- zV$l-KfE`JGtaPxf4hW*rFTvNxaqw7$5<*2;c9%ENByhYAE0FM9N|#rOu3WfBu#{DW zG^~sx5##)Nwaxgd*jK?V2u~wtY|A{FC(R?e*2&C)u??5#hy~7@6r`v)d4~Xz9E^hb zxxH>4GDboY-I6_!RW7h`KTI$XTSp|364wz)xib4HNRo;hu3I4oA=7E~X3+^D4mkWa zz$E38-U^^eQ4$&MSl)mvZH*3?5?9gyiR1zm`Jt*fn02~(W-E=04_ zy4+84kVqR=zTMVtf9q65BIb>UwMhentJ{e-0;H2-#&4VNwJsRYNdzX?@)EQ}hv}=M z-|M__DXUzpw@L(#O6UYyc^g(8aFt>_cjqp44Tk`@DU7G%g}v0LN+D^OV0aU%Jju;$i`k2x?&VOJt4UP3~V~C zx2GPQfYM3>6QU+kZJ8%=Ugkt(r<>f^-k4B#qR8mg`+?cCbegnQhOj81?1TiOIEJP! zrZ%2zlzKq!qzXZn_q?>n7MRfF(&dg$Tc;mXCgzfJ+orhus`$jnh(4@NrPm9WVzH*^ zL?@;b{TeM+I6tg18qwr9qH}d$Lo4~$pV4$$fN0%WdkCFL`Bs@_1hZ+IWG0YD zt`@Q6miRC#kB4 z)%S)H6@Oj;&;EDO*ZjetlzO14uS94OuEU&%8XN|-EdyyNL8VRs$|0D}0IebxvZ%hL z>uV|V!PuuT*FvouKk%x^cI-O3Pa;KMC8Ojxit&CE9_tMZ#GJyu@EhOn9|?6m2@oPv zdLxZkZi11kYVQkbnLsu{keVHHQh$}xVMU~$;&>Nb;o6%LQ1YF)e0R^Sn~X1+`-CQj z{beTxO`vJ*%}NeNIK)-DL>8 zu)2pfZ*{s(MJY!iHZ4SS4Cws))+u%bmxcV1t?6$1rdu1mHQ%n2xG}q~QB&;ZRt`HG zN3PGeI_y~<2pxT)BUzT<-%7WYd@%o=mx4bb0PSL|A>1$HbCwc|Io{{VF`ioRo=Q?& z=JriN1Pvyp5rQk2f$6c}q5AJUq@ntN%H-7-H!m9Fy2f?8J{oUwAd5bMM9*IJhVCKj z)Y#n={-N%sro)x)1es#b5;arJ#wz%kqb2DRxC!9lleidy2*EcP$42oVM*7( z+8#|r4Msy;#6hY!G%w>_n-$j>B@L0bX=~iD`@<-{=o4T%*o$SR>PiI2q-jOKC}S$n zP|+8tuXVmJ<97BN_NfTkd<55@PpoZF$ zy-L;*qwT8b*;1xNRiN9c?m>p_gpUXrJBN8{X$hhLUPCAK;%NGTLS9A`*=Zc#?on_|y#Coi_iGnKBX@K|;3 z0;-sji5;nZ2c<+0W$K}cWZ7`A=`fjqyl*I~`9cqjDrkM`NJPzM`#`Gos!_Y`l|bun z^PW4>9>qcHo;dO8FcB1ASH^w9U)7UKy>_I=yLNP(++`fnQk&ZI5EmubIA^g7;lS%p~&XGnU4 z$@^`tdq_^YAn7QP7RN~XbQ&j81lR&3qH|@WNn{nQ*r4rcv>(JoWFZc$p7d$ZJC5y= zCjp*AuXn82N_Qj-9|+%?Iomf;lxLOBT<1_?+)Pw1oX^uX8VQwx&+fjLwtd;UbZK35 zeRMbtl5r|N?VNtA{b6L0Hn+#)#CAynvx$L%+EK z&2-p4S83~C97a)L{V?KT8G$KY9(E2Srmcy%J!?YZ#&$i~v}-TDhq8M>XKSn1glA-I z@;-zkbGYTyl>53MRKmY1dk{R`1*2tLQSY8W)p^pX2T?pkqRQUHmJV=R2QuiBr2g$m zB;xSz`StYt)sX7KdrSEp^H_H^xE#D1OwRDj_VkkItpC$&@;APL>AwBXq5nS9KbMjg-=&f^L$Y9y@@U9 z0|Zt400F+)D&W%mg5SzJR{T!+^i=}+p<9qzSrdmAo+U-UzQ$c@_>C(C{HeK@@J50C z5aEGN+6K<$Z|eafikeWkyzT;&kqSoudZ&-l?S=3-;`^}hJV)I}Mtt6!+x0-i2g-@i zK7dFDp+KHA=x8QFo8n0bx1U}96@R8kZ@}W=7(o%!qKY1_%8t^@uXX@z!JULhvvuCj zviR1kUZye*-Q_AiI7i*2sZpkHEG$W$RO6n4uun{lif_K~ZJ7W+T!L`BQ?u2Hb5B8( zPsq9|yC@`QJwy;xOL#q;XRz-jNNND78516X^bqw^bkq@r>*rS!$mRR?Xyn0a{H|l0o28pjgzjQWM@-6Wt(*K zl;tr`3AriyQKX^77p3h*@suGp@%4iQpm&x~qx(%)Vz@EImSr;AILwyWDTCRG1F;>W z(L<-*LZO)4I-zjImkpC~5k;A1tD|bB?BHOAD><#E?5KPnMAr=W&{6erLkLD48ET|` zEK?uJT|m(zh>9Sp0MQ5>B}0^SSw;wf!!d*-2kRuZx2uk`n+0I@V6!b3mUi-S_!a|I zT?8J{E&aufbp~_^(ARiY>2ODIHXtNK_y{+h@L_Pntr^hm01`sI4d?xa`8|Ex0Ih63*q@V6Nx|GuvQpKbTA0lhP);lcQ$9J#21hQpoy+n=s4h4#zlE z3rlr99FQHk{&mVV;?>M}+x>Q6S?;$~!dPiEc(NT4j!B3e^Q6&`eXV)I{6*IJ$RHN! zEOx8KqGlbNX-A47?{@1lYHh^oFPr&0)43CM+&HPM1bd1OYAa1)2eljny6pxD#ItIhhS^h(fl=8iW`@-KBfiAx=d{e_5jl1PP0Zp=8 zdj>>cP4OkLfSjI;0eHjahm6c|%8{PFy?pjURWBJrb9&YB2ds?QvM9#%rWE;$jGYQ< z933uOqF0M4$B$-T zjjsSRCMN7OMSeAV=XrRQH+rwMH%3-omDD77+!cG$9+0;GY(T(WGgDIdXL&j1It13% zLt{BX;~MU{P}jg<k!*%Iol6G$;=*MytJJ zkFR0oj|E^ChZ8C?5xW*BwLrsE*zoc-mFUod4khT&f)40gg=>5&hmg5lI!b|G3#2+B z@|09b1~3`)Rn+5K76#+-f4#1oS6HCM8|y6P(7%v@Cy@9VT3Dd*Q_b}G>brK0-%fp8 zZRo4U>nwXQ{XdhJ+20SijmvP?;N3I2)3h=0PV5>OLlq`ggdGF4KbBI|{5eiU_5F9G zcv)v_;Izf>WzxquZ`%j{vhqED)P=qwL7!fKShe_FY5eAC`t0rJIeuymKThi8;O_9F zqK}X5L1zoXf3`cPPjP1d#P62l=W6*wF*z1|YO{j?4DG3QmU;B?yO+1i&1yAYWw$f> zh&z1?eYL#X>MeclGJYW#zpwm}zDDB;{^$hHol|k{_yftb-MPDmf*)X*T#u%c>}dNR zBXJ$Rj{Qe?XUI|J32<@waW(t&i9UWxjZ}9s@T<~`b&KESZnN3u-}t@OHBQJH*tMXK zaIdMI?zThFcJTpbBYxcu#+n0f*7NLNo98oXWV(&;Q=@I{AzN?OH2?4U3tXR<^A)uU zUl%_P-;@PnKF#i7cHja()j6O2Ytyco32qB`lD=&YvxeeLlk(UuHrc9OKS0Us@PL|@ zUFvYCIrjCqT5jIc1pf8EYy565eP0N_q5`9)mQ}YUaQX9+;P8v6^v(OMz5T1bC0U>r zb+-kK_&k0rF@EK#JI@(4Y#OpU8NJ@#DJ5*c{{>J>0|XQR0ssgA(S;*ZXT#&piy{C3 zwPOGP4gdfEc4sv(FfdOW-BWFx5saWb}CSVfJ207#)k z0vs+HRbR#+GAW@91UOh^J@sqa=G2<=yF8mC|Jd`-J#s~Y?4DO8CNd*D+&w&eizQQs zz0*PW!h~Vxt%^+Ie*D3N{o&<@({Z=I*Bkc-dsO0j-P2R9w+H9r4}*W&v+;3%uM__G zgAGr{m)A#e6ym`RN5iYI6CPZBG9CP$UkpcAa=kq7y;9-py^n+I;pyq%&%t^3YB(5O z4K9d;6EsN}h6fjev!M6BdvP*2qw3&e_hQ&RIvrdRloDbN#GE@L_RdBJCCv~tsV43Z z&w}$;O20m!t9pGH9`Ms4RYu_@b!Kp=e*7U0kH;6ILv=M)RFQ<|uSNjv@edWa(csh7 z=*J(@u=mQmK2(;fV*1teOGp!drg;AG2Nj0HV@CYTJ7v40etsWS?&HdR8eF{}jLu(y zsQ~TW@Yp}0BG91}N5kXsD^2B>U21*K^cg}!1}cnEAG)I6)awGA@4YCE!&n%PQEj0_5#Yfw}%_eHzR1b(>wsAxOgzECo$+< z7ammf^iQPyn{OG7bnq=(uBMCmpWq&N5PIX$)y0^U=Bl9GnjZ zA6~t+g`uYjVNP`@3V)baANaumRRX!fkfmwZRflZ$4U#BQ;pp^GY#w)`Q|OUm4{+s) zDY810>2UDkutzF*`WlZ$G{K6;AZ2I9y9WWG5q^weK&Pk&zNBzfRGf094!ZqAsyG;6 z=(xxfJ?{2jA8O~M&jl$P5bWT^o8J427q4=-*9U~B+ZXn!2{T8y_%S{I?NFP8-dNnO zil}=e6wx6kPE*AVOTB+skdydKqqg@m>XXoG!Y|5?f&kuT0c!!dsvG+EHM^hA(E@GK zP+)$ln0QznC3MOUN`DAbyhND_In*c%hjKRTzj!rx(HV4Lk^6fhznFz#O?Wyy>|XX> zRiR$LjT|a1Ifjqj)3WZ3>gd<6+2w}g(W}$p8}*uXKA-^%J2X_dXj}{~78i$0giDM| z!gL|Q@rPnCg_)Sx9=tKqKjNJoHeAwS=_qM1q}(x-L-GK+;!+Ras__NiY`0Lg7P{et z$!W;rTUBeNYpqO4rv_zeP;gir*6TpF2IO*}umOfAzCd86Vk%HY0Tso$^Uswn4jo2K9l#*)jIjvX zl}?GN#QF)Xi%qRPsT}p@U5=tvAsMF)k1ht?5A2NME%i*Gp5!w-6!ht$aM8FR3Dp)C zXt0iOiE%*-jTQzi3|bhppoq*QFf>f@owsHRgZ#{{BT&+^1FSFx(B*cCC^>FZae*Ku{;YjD49P@rszl{A9}*6aaB00)0eCyM6q= z&gR)42XLH;3*U3*ppvNO$|!9(dHr*lM&z!@FpbE8i;p!f;*#$BJfD%~6ypl*N|L(A zWR@r_=3E7n&#MJ;xA{6)PP6$>KmAl`opSOEcbfb6lo?9ZR>t%&;hgaC`?u*Wko^Zm z_HUlp148Q`d)%;=>Fhl$mg{U8tS8js7LIwb%D@6Zb&)`kI~KiD71m7QT=F4HBi8)X zII*eF$R@|>{+e?g?q` z0P*XvA^sk6c9J0VW=4JEPElYa!4ix4Ku_LNWaq~n0Ed`~|4!2ce8dQllI!xoKU`bDY2 zrQ%sUs)Zl6q+fK=xENe4E)JInml&4>7eq8e&Va`qm$ynv+>=D$x2*yZ1tJPW6o@Dg zQ6Qo~M1hDBB6^F6ewqm4h}9sXK}3Uy1`!P+8bmaRXb{mt#B32UPZL4(u?9p8h!_wt zAYwqofQSJR10qI<*exRVX(EW6)`Exy5ep&~L@bC{5V0U)LBt9Xw?)J~O$0I2BDb{2 zEiJ;SMQ&-4TUz9n7P+N$AmW5bv_&L(ng}AljX)#AN+Jqv)d_g| zHwm)8Jj@oW$L~K0xT}Pr+>&hWf_r?wiEqv)8DrOGi>LkIV;LwPmWY1yX|@!1NG;m=F%^EyE)h}O{Qh}!^A%F!1s95_H&$S3osv)% z-xdh98%eHizD|~3NSQXleEN-WNz=MyX%t9JA63wbnUD}E$Nk4Uf-R? z&1Nlm55u>kiFeukSx58#%0HiXOegNxP7)Rq^@f9pN(T|EEdwAGhd92kdGT_VO)*p% zd5k~2$xrWOh~pN0n`|gOM&9^8z(8$pms#Gi*idmr}x=<2Fo-+Oh} zTDu2L8f*C1>-y?P+NDo@(u|oOI*s(@yuj&Mx6c%$Ph#4z@1cabN=H1oYZ~g;+wp=! zUx}@;{zM3~k*;m<$(|1xcjBZSol#l6O(tTQm){pKCHzSk$s}OM&Z4gFRrx`RgIiQ@ zwo|;$yKzUG=N8QOD^$5G4jlN)X-pw}GI^n|StOz)7S(bVv3`4R26^O$_1e_&emRm6QYH}u*n_KXY(`ls9uxr z`a!JyWdkj?p4^G_F$2Dw6;*qsc2cN^bhj9V9L_SG1nz^upJ-p-Bi;oiAc<_l{Kq?)_ioCAK4%`vL0FVvK-7N?~LH|;iwfaK)3dMHf{Vh;|#V4)8qAt=^ zlD@eBo2qF_b!hj!fL8_1ME+qi%iLJ5U%C-{$v@pxNz$6-ufCkL`r7sn=bEKa2GkAR zD>$FnsK$u*@w+32@g&PQPCyZHhiqX^rlwFI%wj6qk1-CGK8GxCFI1{)snglWp`D>b z3rbX6zMUXA?-6~2C_hHc*hoHXONpJLER34AfQr(gP~ysUCY%^rfJm^3S5-vUz^7p|Z!3|ZI9kRD-qeoAQi4^Yo@3D9X zY3l~Im%sa9VQmoRX|j>h;oS*LWJfoq2E^wzoBK>7y(ZmMl^@)lRzaN0f!tEoYBMvk z7Fo68$5wjDdfbm(%-4L+KDx#22IRgub5%^x^0%hC@M7x~JOM)LI_m2pYf-b!J@O&= zdJc?p&J0%K1_P?_$sN=zP!XgekluY1^Qg~g=odpV<%X8s9*QNyNvBVOMl$sq8?5p8 zh9m4bLxhdE<6UIM6L@9OknDYl_mI}n(Vs`RpLJI8`7Lb<3#dN+XxDx`xy)=4`ifup ze{WC;yv#zGhqV|S-1Jm&FDzdT4Mo;{x$WU7Ocj7{7(c2M?SM|UV?=!NJ;a?H!`d3W zQoT5Mg>`Ew2-cgz5pbMw{889ZSXB}lknQBXJ7*S9Gex*{&-LzA9CEmelXTrSILbn|@jqGbEtTb+$BCp5b z1*XhU9_?d3g$^^0?=TbjxZ&HyZ_fL)k%!5^=3c3(L(4c%csNoc$KsH@1N>$NMV8p- z)1j~UUzCXP4EEan*T|Ae@XJibcI`kNu$rIN-QQArYPU~6fng6MW}+);-ma!YI0>(y ze7nY=f#~4`b@YTs;GfuJ$X5yq`fYzSaK9LKUDl(KH{)Lu#+XPVsZW8e2gvBfBq5=F1nZ5^b zgHicTRmTF$*cf$Yo1ZzkPhhc7P39DnPv0L}DP4Tau6xq1v+;=2K0XH8r13~8RB46v zr8B2qM~ZiQeW3*{VR2%KTP~?(fI!3wG<}%)SncmQdffRyui#xb!-Th~zca!P-4T>-^ z@Jylv#zQ-3)m1X{N<2JA1?m3MfMn*qESN)dX|)R})eGU%_RB?KvHL#16Gpk`l{KFc z4|$1$b;==cHiPE-B^s+pr~Z{yj_Y?qH#H$s3X>8Dh3dENcEoj47WYH%{zDJDkI?EY zz&Fdv)T_*od{<{Hf|-Ef32wzjXb{!8+mdCU6?0b^7W{MzD!0g}ft$UPhK4bqRBk?4 zgEEdj*)++-&Y%bpsfyh^m3TCvjiR@hTmhzTGv7HF zs@YB`<`y3o6ryvh4SimQN~~&H0ui>SA2RN1{va03XHOuIsf^b;kJm8G z7G393+R|CC%-UZ1Be9gz?lbV};nM346(eT|%juwJeInV<_|s@Esmq{Coi!kL+Gd@{ z?>!vCpwPxrpF%~%0w;bwCEI`)h*zpspD&L=4%dZW9hvY%^fGppSo(PCN3-g;?;B@t7J`9yy1&A+t}Al2^l1jLO6cWtOWKXgor%?+Tf0lKTGenT+w(XJcRq!qB%_iwq`3Jk-3`Iy~Dv&wT7Tr9ps^ zS`C;?1Sid9O^Q(*f*U@GQ5dQ)0mF>S;GaG~^UFqf%}V9E34YWC&8^S57bqolpc}C% zQ(+DmPH@9u0g3hE!QcL0$t$UGs}}~#UWBiT+Mrx79?h+J!M}P;7SR8Z=pthGNlEqa zYXkZc+#Z-g^F4Sn*XB&4y>mbIn1*-P#|L8UlNB~szGNBPDve>%fb9uh@h)Ioe4X<0 zBo8-Yo*s=u@L^~o=5OBA?H2<>Nk{nQrZH-w%1!iMQrAQcddDVBT(Bo}1-gM>LkO<15AH*(2ANVLw+0Dk&&?Sz=McK9e`J zSU2FTM{_RGrgZUN6-&*!bwh%{gbU4?j@@cl+qhd*sT!18dF|qhT(;7QKZT?`IC3Y0 z%R;qNq);u{BqV!evL#z`kc+CqX`FZD@W_M1tMh+gISL}x@G{My57C}?s>8{7?|mzX zBfq*dr|V2ZGO#1cM8YQz3TMLi51BE$Tvt%Ys4)wVS5l4Yp?XS!`ulJ%-9Cxfyr8wr z$~*$9SaP0zP=}6qUd%MD!^^hE%QoLvf4c_2Yc&x>amC#7T@mOvtOYM==zpZte|KO} z95kFaU7j-?(JuSr{AGr^7+#b3vZm5xoq56#^MSQ@b%Q7=~=<@JTQgxOiw z4S{NxlYS!h8iT)CA*Z=3irK?h6kbNn;gbd#pc@EpC0f+%?gfk27DQoop;Z>De%TJy zapq^X_eA~kBla%;l~T>bky6p60)M@KD+-Y?%D;n#9zXB9dVPI#i4cL$Ud0`Jw8bz? z`Vnw_iyyH@CYG&p|00K)EP@gofPKXB0U63b??Cg?7#31{@9T>R=I=aW-+Y;a#N`hp z+^rv6LEfgL(;=J9kLcTiSzK3`2scjp^n1|XG6z!hYT}Tl5-E5WSg3(d&FBMnHdfvhOq@0=ISEr|s>!ETFpjDknyv{v$nXHNq5OV@Q3-iTV1!!Uu^bPHzf=A2>L}RV+Z|e`Y?8JB znNR;NOvxpPT}pB*tLf5rqUtW(epYNfp0_J*>uQ^4Q_!fvz@f*y}xO|&`8#k^+LeoW;`VEOj*4()wG)doV zo&h3I|0fpX$}fJh25Ce!IyN(UN%b06a~Z{%tfxUHxqZ}u976q41wXB-S0IC@_MYXi7d2Gc~w&4l5;CN1zgiUz>RYdkLLT3 z>a$%|?>3~t=G?=OZni?xYx>(LrTZQ??_w^Qec-x5e0GNM?_!r zJ-+f+U%s&KE%_^}l`vvUcA3&{$ps|URK@pcWMuNri^nYEU|-ASb0^p&2Ztg zDZv#Y2sGdfKSBv&8_g{<55JF=6429Vf$r_g<3UxXNGhi>e}PN$YpKVhybQl4TRZ#c z@t120NWr`7OKJDo6Sxf%=NLtZfmEg9?8vDOu? zDVpR41y=-*p=Z4*;5d{H1dUadiCZLB0Y8FA(t*jc$*0#kVl;*2cL%hsn$EEFBN&S$ zBKSd)e=9`%)G+yQ6HOPnKfO+4!V$&P9Eb8JV zkSZaCDgnJzh&b2P8HQq?&Y2)(lv@yX5UqVx$1VJzHB3Ic_W(_yHh<-Yq%&4`n|uBO z)3Yjm-*);Hodks6c0o35`MA@I1^L$$_c%94hR&7EWi+s|IY zvvbLV!wBk$Y7FV>f@PtqcD4`1l?9&CkiDZWp18lPu6$jvw*RbIi%T-C#F6t|(Q>6Z zk+{XjM#2oNvoFPz@a`1Qym=a=hp`;&8xoW8Moa&^O8nfP- z=k!8E*+xlo5wb6_z+9WAdroEoEQnI++J6pysMtUlsGq@GDL2dAc%_6=xD>4DY-(Xb za6e|sCh%cHzhfUl{Ba%#bl+2X1KsXO3JX`SsR~jrWobnekyiC{eZ;*su85=}E@(W6 zWiZ{bA#uGQe@$8Q1&ofL;Q8B?YBM*hWy}2>U(_%Zgp5Ns(7c*Mv6nB3l4xL|So5sH zJd5&JdC>YLjk@a^VD?Mr3rQ6m2^%ipxX}-i6bKmx5=NtIZf4iOw_$`m>02!O zX8IY~TZm7)oSc~Qyelme{ibr~^^{{zR4!La`-gsUFY{gbE`JOjPp0dcZR*bmj3l~e z_Jh$Goy83W)zDRqVET+?7MmKT|G%$<{?4Humb#=Ql82OanWB?SmX-f_hDx{^!%25n zuV5^)QeVF3Gf`Kr!BlyWWN!$@OH&*h8BBeY@TH!>mi=c>)QF8NE#??6(pM*<|Cl3GmloEH=agU zj!cdr<1+|mz3ZL*2;&L4Tjv~>TEP3Dce#)3J>~^tW7j}c-dzV889)2ySZRbguj7`Q zFTThdf3yiiu^I@4cIV7c>l*e<_cLcP4Ae5(@K{9{Rf7-BK92xMhPPp&QwHE;8-IM& zTeuIUC(@W>>t&aUn;BO9m#Cr`EAQmOq|t#1Z`PUq!+;HNKQMH(DD;?~cj(<`Nm_Z+ zoQC%tW?&y8Kj!)5@GnAG-=Kisi}G&dw)jrVfPx=Kl0N0`%9F2KFyZ&je#=^MJVaqp z5DD|$Hb_0Vh2!QLb3$gtx4@R1cqb~eHiS^2`pJRZGg*%!KEB>&gycjGyq@kXa#EwL zJ9sO4tjewdZIRolHk^VqrXZovJ#0vfwK^VmHm*u?ReP!`gO{B$d ziWq*xA4S{^`Z%~&iKBked)Aj|jBWy1A)$nH4q=vxsmI@KB}C9{*tmkV;7yKS-X)2; zywyI3hKOQ5^LHCo5x*JAFVKOGVUUbk?uMK)?uPG<=R{)obkZ*WN?hKELHa2oF&0%6 z_L)_2213!x5P7{6ga=N`8IHeP*pkjRoZbGI0lpwBn*DA273^jmTI1Q-);Qy`%LUxW zDyK7HVI8sIU*ELjQyCF%@c%|FQl|A+@L1-fWXa&ue(yQ~_0?A|tn%okv#3rqndPP@ zCG#ZV{EKuJ1UWkE9mIVf_`NNT6{Dr+aVsmqAtv3Iqbh*N5JeamgG*k(2}pc<_4!U2 z>CMtDb7!QP!FQe0hFM3i8D#-l=Sq^DOiHp;>wR8$9bY3{EENm#b5$k;T zZKM(WEqueLTg})!{;10)xkIo=#^6E&oEEadVURkR>S`w0_Qmgf2roOJ@bZ$qjU#3Vi{fKHKNSh=tjc7T}-72AXZpKZpLF7v9~(4JyBA zgp!quu*?aB_kBIz5>41)z@wHf|2J{l80dqTsX(mQRYj4tijKStHG0;sNqkct|9Ou6rJvB zzrpB`EB%Hb$1JVk6{sdxg77lO0T+u;Is^Id5ut?mvMmiO8aId-Y5{Q!>8NYo2xZCu z@$&fz`Jb{Cxa>#u54>OXQ3wza7&s6Rxc@0zado%yuyXb^^R#nu{tx|1q3*f!#>AHo zm!H?Hq-X?$s)ojr>I-2Za|`mjh*Hgz75t&0;i))2!fktF5Jf} zSm5mrC3`P;wr8ehW~L^>Bbgwf;1pOA!7$bgIZ}&>^_aSib0!t8!Pf3`obe)5AA1sT zVi_+Q#jtdVj0g?Rx?>CXEo3tFdTDQJ2b$-OpYa zMkA759)N@8J|+JY_<gP|fSS*n#QH=*?<$7zoNDB{=<&~7h(CCR&&7tv6QfCD> zop{3TjAAxjnUh&wGdg6Bte=sR06O+Jz0^`*doJ{d^I`_3n;%&J==m8IFuA$9Nwz&? zB<7$Ah(}^hydCSNjMr9MO#8NF^x-<8(z7qdyd`1$tC#U=YzA3h471HmZT`!uG!7p^ zUgQP${cRg6-Q*e+=t#6BM?mM3vGSbu>;x4gp7=2l!^&-<#SRSpBi}$8m9%9Ww6Rv} z1Yz2;yA2lEbm=ApugJ~>YoUcIM1;2E-paUxNM<@x7ajTK*otpu?!B5P5)G#U`3g%y zs8@1nmRj}s@IUc_(?nwt724zy((RqP&6JX7=@8>E-^X+KDV)JauY~lL}GVqbfdop9$LBppG;o!cpt)9_&p<{Da4p z3>U)rc=ScuSH?IulFRLdUSGKG_R4 zd34ho-cRp}xH$Ny5wKwc*R_}gD4vvkCH&EnvNru<#pqC#b zNnpCzCYltell=aT8NNpd*Bu6|U|d`x`8@++YyXU_c^J8SEYt#(I&8YA|9Mmc_Pe>s z;I$Xq{F3XOuV=Ix`@Z>80vTi3E=p}R2~2J1m$5Uq{Y3O%5R4@;PHM^!wa&j%@r05F zV!kpx&0U3O))W&UIOA4L-@%g$J3Ksae;Quj8|h&%L}w%tN__$RoTlACi%+CQ!RHA( zhu*^qV0$8xjF4)PDsxhZGo@=+js0@Md6?CSLV_r#H+M25&8=|G`}zFna3n>U7&GEO^*od{{f*N~xg)rD{CEpWi*UQ$b?DRX-F@wZy);5$bV}GY)vA`1Z&mf zV``5{f_>)$gy+J29_{{hvb@#1yUqy>PAWlCUVGx~$DHD8(wyfVA#ZA;#-Bv1)pcW0 z*qS4yzk@(`lT_3Flwt`(*!Nq}ooCpA6J<-aJkILtPxwZ)kQLKUFOjvMz z`^Zq7by$y&Aa&=`O>SP*bP({p`d7Xa&`AQQ)sGq6_`a4xfJ>~+75&94K;?5#7%Ct_ zB1uT7$2O0w%Zn#3jtydkzsX#D`LBu3bUCPXjx~UgzP`KMrC#(*b7n| zDA_44O<2v+Z2HncrHC5>J`PQZW+k;YK0<|$j@xiEMQ5bMzmW;{x@8(&Cu+do!A&S1 z#=1_UBKqEhAXHwvA2 zA-524cW|s|Mn|C$IW9GIK{pQ{MhMbMd!NH=(ElF5uxG?Kv@;?(yrYPPNqT`{{`7_^ zccc0Hl_D-O"":GOTO 40000 +33 CLS:PRINT:PRINT"Vous voici arrive dans le manoir du Dr Genius..." +34 WAIT350:PRINT:PRINT"Pour converser avec l'ordinateur,il faut rentrer les ordres" +35 WAIT300:PRINT:PRINT"en 1 ou 2 mots tels que:":PRINT:WAIT200:PRINT" NORD" +36 WAIT200:PRINT:PRINT" PRENDS PILLULE" +37 WAIT200:PRINT:PRINT"ou pour commencer:";:WAIT150:PRINT"ENTRE" +38 WAIT300:PRINT:PRINT:PRINT"Si vous voulez faire durer la phrase decrivant"; +39 PRINT" la salle taper une touche":WAIT400 +40 PRINT:PRINT:PRINT:PRINT:PRINT" pressez une touche":GETX$ +41 CLS:PRINT:PRINT" Un dernier conseil:";:WAIT200:PRINT"Il peut parfois":PRINT +42 PRINT"y avoir une porte derriere vous.":WAIT400 +45 CLS:HIRES:PRINT:PRINT" VEUILLEZ PATIENTER" +50 GOSUB 8000 'CHARGEMENT VARIABLES +55 HIRES:DIM P(12):P(11)=0:P(12)=0 +60 SALLE=1 +70 FOR N=1 TO 10 +80 P(N)=0:C(N)=0 +85 NEXT +90 C(3)=14:C(7)=12:C(1)=80:C(9)=12 +100 IFSALLE<>14ANDSALLE<>16ANDSALLE<>17ANDSALLE<>19 THEN P(2)=0 +105 IF P(2)=0 THEN 200 +106 IF O(22)=SA AND P(7)=1 THEN 200 +107 IF O(05)=SA AND P(3)=1 THEN 200 +110 IF C(9)>1 THEN C(9)=C(9)-1 +130 HIRES +140 PRINT"Il fait noir comme dans un four,il faudrait peut etre allumer" +145 IF KEY$<>"" THEN WAIT500 ELSE WAIT300 +150 GOTO 500 +200 REM DESCRIPTION SALLE +210 PRINT +220 GOSUB(7000+SALLE*10)-10 +300 H=0:N=1 +310 IF O(N)<>SALLE THEN 400 +320 IF H=1 THEN GOTO 350 +330 PRINT"Il y a dans la salle:":WAIT 100 +340 H=1 +350 PRINT" ";O$(N); +360 WAIT 150 +400 N=N+1 +410 IF N<=O THEN 310 +420 PRINT"" +500 REM ACCEPTATION COMMANDE +510 T=1:Y$(1) ="":Y$(2)="":N=0 +520 GOTO 1000 +530 IF C(7)>1 AND P(7)=1 THEN C(7)=C(7)-1 +540 IF C(3)>1 AND P(3)=1 THEN C(3)=C(3)-1 +545 IF C(4)>1 AND P(4)=1 THEN C(4)=C(4)-1 +547 IF C(5)>1 THEN C(5)=C(5)-1 +550 INPUT"Que faites vous";X$ +560 CLS:PRINTX$ +570 GOSUB 6000 +580 IF MO$(1)="00" THEN PRINT"Je ne comprends pas...":WAIT 200:GOTO100 +900 REM CONTROLE Mvt +910 Z=1 +920 T$=MID$(M$(SALLE),Z,2) +930 IF T$="00" THEN 980 +940 IF T$<>MO$(1) THEN 970 +950 SALLE=VAL(MID$(M$(SALLE),Z+2,2)) +960 GOTO 100 +970 Z=Z+4:GOTO920 +980 T=0 +990 A1=0 +1000 REM CONTROLE +1010 NL=0 +1100 NL=NL+1 +1110 IF T=0 THEN GOTO 1150 +1120 E$=C$(NL) +1130 GOTO 1400 +1150 IF NL<=A THEN 1200 +1159 PY=23:CO=12 +1160 IF A1=1 THEN GOTO 500 +1170 PRINT"Impossible "; +1180 IF VAL(MO$(1))<10 THEN PRINT"de prendre ce chemin"; +1190 PRINT"!":GOTO 100 +1200 IF MID$(A$(NL),1,2)<>MO$(1) THEN 1100 +1210 Y$=MID$(A$(NL),3,2) +1220 IF Y$<>"00" AND Y$<>MO$(2) THEN 1100 +1230 E$=MID$(A$(NL),5) +1400 REM CONDITIONS +1410 E=1 +1420 IF MID$(E$,E,1)="." THEN 1700 +1430 LI=ASC(MID$(E$,E,1))-65 +1440 N=VAL(MID$(E$,E+1,2)) +1450 GOSUB 1500+LI*10 +1460 IF OK=0 THEN 1100 +1470 E=E+3:GOTO1420 +1500 IF N=SALLE THEN OK=1 ELSE OK=0 +1505 RETURN +1510 IF O(N)=-1 OR O(N)=SALLE THEN OK=1 ELSE OK=0 +1515 RETURN +1520 IF O(N)<>SALLE AND O(N)<>-1 THEN OK=1 ELSE OK=0 +1525 RETURN +1530 IF O(N)=-1 THEN OK=1 ELSE OK=0 +1535 RETURN +1540 IF P(N)=1 THEN OK=1 ELSE OK=0 +1545 RETURN +1550 IF P(N)=0 THEN OK=1 ELSE OK=0 +1555 RETURN +1560 IF C(N)=1 THEN OK=1 ELSE OK=0 +1565 RETURN +1570 IF INT(RND(1)*99+1)SALLE THEN OK=1 ELSE OK=0 +1585 RETURN +1700 REM ACTIONS +1705 E=E+1:A1=1 +1710 IF MID$(E$,E,1)="." THEN 1100 +1720 LI=ASC(MID$(E$,E,1))-65 +1730 IF MID$(E$,E+1,1)<>"." THEN N=VAL(MID$(E$,E+1,2)) +1740 BREAK=0 +1750 GOSUB 1800+LI*100 +1760 IF BREAK<>0 THEN GOTO BREAK +1780 E=E+3 +1790 GOTO 1710 +1800 G=0:HH=0 +1810 G=G+1 +1820 IF O(G)=-1 THEN GOTO 1840 +1830 IF G-1 THEN 1960 +1935 REM CE PROGRAMMEEST LA PROPRIETE DE L.WEILL LORICIELS +1940 PRINT"Vous l'avez deja,vous etes etourdit etdans cette maison ce n'est pas" +1945 WAIT400 +1950 PRINT"tres conseille...":GOTO1920 +1960 O(N)=-1:S(1)=S(1)+1:RETURN +2000 IF O(N)=-1 THEN 2030 +2010 PRINT"Comment voulez vous poser ce que vous n'avez pas" +2020 GOTO 1920 +2030 O(N)=SALLE:S(1)=S(1)-1:RETURN +2100 CLS:GOSUB 4000+N*10 +2110 RETURN +2200 P(N)=1:RETURN +2300 P(N)=0:RETURN +2400 C(N)=VAL(MID$(A$(N),E+3,2)):E=E+2:RETURN +2500 IF O(N)=-1 THEN S(1)=S(1)-1 +2510 O(N)=0 :RETURN +2600 SALLE=N:RETURN +2700 PRINT"D'accord..." +2710 WAIT150:BREAK=300:RETURN +2800 BREAK=500 +2810 RETURN +2900 BREAK=530:RETURN +3000 BREAK=100:RETURN +3100 POP:GOTO20000 +3200 O(N)=SALLE:RETURN +3300 X$=O$(N):O$(N)=O$(N+1):O$(N+1)=X$:RETURN +4000 HIRES:FORN=1TO20:EXPLODE:WAIT4:NEXT +4001 PRINT"Vous avez gardez la lampe trop longtemps allumee,elle a explose" +4005 WAIT400:RETURN +4010 HIRES +4011 PRINT"Vous avez oubliez de fermer le robinetvous mourez sous des tonnes d'eau" +4015 WAIT500:RETURN +4020 HIRES +4022 PRINT"Lapporte vient de se refermer derrierevous,vous voila prisonnier..." +4025 WAIT500:RETURN +4030 HIRES +4031 PRINT"Vous avez trebuche dans l'escalier,vous vous empallez sur le couteau!" +4035 WAIT500:RETURN +4040 HIRES +4041 PRINT"Vous renversez l'eau dans l'escalier, ce qui provoque une decharge"; +4042 PRINT" de la":WAIT300:PRINT"prise electrique" +4045 WAIT300:RETURN +4050 HIRES +4051 PRINT"Vous etes sauf grace a la combinaison que vous avez enfile..!" +4055 WAIT500:RETURN +4060 PRINT"Vous mourrez electrocute..." +4065 WAIT300:RETURN +4070 HIRES:FOR N=1 TO 20:MUSIC2,2,2,10:PLAY3,7,4,80:WAIT1:EXPLODE:WAIT6:NEXT +4071 PRINT"La piece etait pleine de gaz explosif,vous auriez du eteindre..." +4072 WAIT500:CLS:PRINT"On ramassera vos morceaux un autre jour..!" +4075 WAIT300:RETURN +4080 HIRES +4081 PRINT"Vous mourez empalle sur des lances sorties du mur...!" +4085 WAIT400:RETURN +4090 REM +4091 PRINT"La porte ne s'ouvre pas de cette piece":WAIT300:RETURN +4100 HIRES +4101 PRINT"La lampe et le briquet refusent de marcher dans cette piece" +4105 WAIT400:RETURN +4110 HIRES +4111 PRINT"Vous tombez dans une trappe,vous vous disloquez en arrivant au sol.." +4115 WAIT500:RETURN +4120 REM +4121 PRINT"Vous avez raison de passer,car ce monstre n'etait qu'une projection" +4124 WAIT400:PRINT"en 3 dimentions sur un ecran de fumee" +4125 WAIT250:RETURN +4130 REM +4131 PRINT"Vous avez raison,la curiosite est un vilain defaut!!!" +4132 WAIT400 +4133 POP:TEXT:PRINT:PRINT:PRINTSPC(12)"AU REVOIR" +4135 WAIT200:GOTO20100 +4140 PRINT"Vous avez raison d'attendre,mais cela ne pourra pas durer"; +4141 PRINT" eternellement.." +4142 WAIT450:RETURN +4150 :HIRES:PRINT"Vous avez de la chance car ce coffre etait ouvert.":WAIT400 +4152 PRINT"Un message a l'interieur dit:":WAIT250:PRINT"Ne respectez pas les "; +4154 PRINT"couleurs du":PRINT"code de la route...?":WAIT500 +4156 PRINT"Tiens le coffre se referme":WAIT200:RETURN +4160 PRINT"Maintenant,vous avez une lampe pleine de petrole" +4165 WAIT400:RETURN +4170 PRINT"Vous n'avez rien pour transporter le petrole":WAIT400:RETURN +4180 HIRES:PRINT"Le briquet que vous aviez laisse allume vient d'exploser" +4181 FOR N=1 TO 10:EXPLODE:WAIT6:NEXT +4185 WAIT300:PRINT"Ca tue l'etourderie.....":WAIT200:RETURN +4190 HIRES:PRINT"A force de marcher en long et en large dans cette maison," +4195 WAIT300:PRINT"vous sombrez dans un coma des plus mortel...":WAIT300:RETURN +4200 PRINT"L'eau coule...":RETURN +4210 HIRES:PRINT"Vous avez les pieds trempes,et cela vous rend tres malade..." +4215 WAIT400:PRINT"Vous mourez d'une triple pneumonie...!":WAIT300:RETURN +4220 PRINT"Le titre est:":WAIT200:PRINT"La mort a la premiere page.":WAIT300:RETURN +4230 HIRES:FOR N=1 TO 20:EXPLODE:NEXT +4233 PRINT"Le livre a explose lorsque vous l'avezouvert...":WAIT400:RETURN +4240 PRINT"Le papier indique: Cherchez la clef.":WAIT300:RETURN +4250 PRINT"La clef vous permettera de trouver le code de la porte d'entree." +4255 WAIT400:RETURN +4260 HIRES:PRINT"Il y a , a cote de la porte,un claviernumerique permettant "; +4265 PRINT"d'entrer un code":WAIT400:RETURN +4270 PRINT"Pour faire quoi..?":WAIT200:RETURN +4280 PRINT"Il y a une odeur de gaz.":WAIT300:RETURN +4290 PRINT"Apparement,il n'y a occune odeur mais...":WAIT300:RETURN +4300 PRINT"C'est deja fait,espece de rigolo":WAIT300:RETURN +4310 PRINT"Il faudrait peut etre du feu":WAIT300:RETURN +4320 PRINT"La lampe ne contient pas de petrole":WAIT300:RETURN +4330 PRINT"Vous ne l'avez pas":WAIT200:RETURN +4340 PRINT"Le briquet est encore allume et il eclaire la piece."WAIT300:RETURN +4350 FOR N=1 TO 15:EXPLODE:WAIT4:NEXT +4355 PRINT"La torche etait piegee,elle vous explose dans les mains.." +4357 WAIT400:RETURN +4360 PRINT"La lampe est encore allumee,et elle vous eclaire":WAIT300:RETURN +4370 HIRES:PRINT"Un nain vient de vous lancer un poignard en plein coeur.." +4375 WAIT300:RETURN +4380 PRINT"Un nain vient de se precipiter sur vous,il s'empalle sur votre"; +4385 PRINT" ciseau":WAIT400:RETURN +4390 PRINT"Un nain vient de se precipiter sur vous,il s'empalle sur votre"; +4395 PRINT" couteau":WAIT400:RETURN +4400 HIRES:PRINT"Vous venez de renverser le pot":WAIT150:RETURN +4410 HIRES:PRINT"La foudre vient de tomber sur la maison":WAIT200 +4412 PRINT"La maison n'existe plus,vous non plus":WAIT200:RETURN +4420 HIRES:PRINT"A force de marcher dans le noir,vous avez trebuche":WAIT200 +4425 PRINT"Vous mourez d'une fracture du crane...":WAIT200:RETURN +4430 PRINT"Vous ne pouvez pas travailler dans le noir...":WAIT300:RETURN +4440 PRINT"La lumiere du briquet ne suffit pas pour travaillez...":WAIT400:RETURN +4450 PRINT"Impossible !":WAIT100:RETURN +4460 PRINT"Vous n'avez aucun outil..":WAIT250:RETURN +4470 PRINT"Le teleporteur est en panne,donc les boutons ne fonctionnent pas." +4475 WAIT400:RETURN +4480 FOR N=1 TO 25:EXPLODE:WAIT5:NEXT +4484 PRINT"Le teleporteur vient d'exploser,vous etes decompose..!":WAIT400:RETURN +4490 PRINT"Le teleporteur se met en marche,vous disparaissez" +4491 MUSIC2,1,5,0:PLAY2,1,3,1000 +4492 FOR N=1 TO 12 +4493 PAPER4:WAIT8:PAPER1:WAIT8:PAPER3:WAIT8:PAPER4:WAIT8:PAPER1:WAIT8 +4494 NEXT:PAPER0:PLAY0,0,0,0 +4495 FOR N=500 TO 30 STEP-5 +4497 SOUND2,N,12:PLAY2,0,0,100:NEXT +4498 PLAY0,0,0,0 :HIRES:RETURN +4500 HIRES:PRINT"Vous prenez du 30000 Volts dans les doigts,":WAIT300:RETURN +4510 PRINT"Le placard est ferme a clef":WAIT150:RETURN +4520 HIRES:PRINT"L'horrible monstre sorti du placard vient de vous devorer" +4525 WAIT400:RETURN +4530 PRINT"Il ne fallait pas fuir":WAIT200:RETURN +4540 HIRES:PRINT"Vous avez raison d'utiliser le ciseau,le monstre est mort" +4545 WAIT400:RETURN +4550 PRINT"A l'interieur du placard,le No "PL" est inscrit":WAIT300 +4555 PRINT"Le placard se referme.":WAIT150:RETURN +4560 HIRES:FOR N=1 TO 30:EXPLODE:WAIT5:NEXT:PRINT"le pistolet a explose":WAIT200 +4565 RETURN +4570 HIRES:FOR N=1 TO 25:EXPLODE:WAIT7:NEXT: +4575 PRINT"le clavier numerique a explose":WAIT250:RETURN +4580 HIRES:PRINT"Le clavier numerique prends feu, heureusement,vous aviez "; +4582 WAIT300:PRINT"un pot plein":WAIT100 +4585 PRINT"d'eau qui vous a permis d'eteindre ce feu" +4586 WAIT400:RETURN +4590 HIRES:INPUT"No DE CODE";ZC +4595 IF ZC<>PL THEN GOTO 4570 +4600 WAIT200:PRINT"Le code est exact...":POP:PRINT"La porte s'ouvre..." +4603 WAIT400 +4605 GOSUB10000:PRINT"Vous voila en dehors de la maison..." +4608 GOSUB 32000:GOTO20100 +4610 HIRES:PRINT"A l'interieur du placard,il y a un motqui parle d'un teleporteur" +4615 WAIT400:PRINT"Tiens le placard se ferme tout seul...":WAIT150:RETURN +4620 PRINT"Avant de la poser par terre,il faudrait peut etre l'enlever." +4625 WAIT350:RETURN +4630 HIRES:PRINT"Il y a un horrible monstre devant vousqui est sortie du placart." +4635 WAIT400:RETURN +4640 HIRES:PRINT"Le placard etait piege,vous n'auriez pas du l'ouvrir" +4645 FOR N=1 TO 30:EXPLODE:WAIT7:NEXT +4647 WAIT150:RETURN +6000 REM ANALYSE DU MOT +6010 N=0:GN=0 +6020 REPEAT:N=N+1 +6030 UNTIL MID$(X$,N,1)<>" " +6040 REPEAT:GN=GN+1 +6050 UNTIL MID$(X$,N+GN,1)=" "OR MID$(X$,N+GN,1)="" OR GN=20 +6060 IF GN>4 THEN GN=4 +6070 X$(1)=MID$(X$,N,GN) +6080 REPEAT:N=N+1 +6090 UNTIL MID$(X$,N,1)=" "OR MID$(X$,N,1)="" +6100 REPEAT:N=N+1 +6110 UNTIL MID$(X$,N,1)<>" " +6115 GN=0 +6120 REPEAT:GN=GN+1 +6130 UNTIL MID$(X$,N+GN,1)=" "OR MID$(X$,N+GN,1)="" OR GN=20 +6140 IF GN>4 THEN GN=4 +6150 X$(2)=MID$(X$,N,GN) +6160 FOR W=1 TO 2:N=0:MO$(W)="00" +6170 N=N+1 +6180 IF N>V THEN W=3:GOTO 6300 +6190 IF MID$(V$(N),3,4)=X$(W) THEN GOTO 6250 +6200 GOTO 6170 +6250 MO$(W)=MID$(V$(N),1,2) +6300 NEXT W +6310 RETURN +7000 GOSUB10000 +7005 PRINT"Vous etes devant le manoir du defunt":PRINT:WAIT250 +7006 PRINTSPC(12)"Dr GENIUS" +7007 IF KEY$<>"" THEN WAIT400 ELSE WAIT100 +7008 RETURN +7010 GOSUB10100 +7015 PRINT"Vous etes dans le hall d'entree." +7016 IF KEY$<>"" THEN WAIT400 ELSE WAIT100 +7017 RETURN +7020 GOSUB10200 +7024 PRINT"Vous etes en bas de l'escalier menant au 2eme etage" +7025 IF KEY$<>"" THEN WAIT400 ELSE WAIT100 +7026 RETURN +7030 F1=0:GOSUB10300 +7034 PRINT"Vous etes dans la salle a manger." +7035 IF KEY$<>"" THEN WAIT400 ELSE WAIT100 +7036 RETURN +7040 F1=1:GOSUB10300 +7043 PRINT"Vous etes dans une biblioteque sans livre...!" +7045 IF KEY$<>"" THEN WAIT400 ELSE WAIT100 +7046 RETURN +7050 GOSUB 10500 +7053 PRINT"Vous etes dans une buanderie" +7055 IF KEY$<>"" THEN WAIT400 ELSE WAIT100 +7056 RETURN +7060 GOSUB 10600 7th +7063 PRINT"Vous etes dans le salon" +7065 IF KEY$<>"" THEN WAIT400 ELSE WAIT100 +7066 RETURN +7070 LX=0:GOSUB 10700 8th +7073 PRINT"Vous etes dans une chambre." +7075 IF KEY$<>"" THEN WAIT400 ELSE WAIT100 +7076 RETURN +7080 GOSUB10800 9th +7083 PRINT"Vous etes dans un corridor" +7085 IF KEY$<>"" THEN WAIT400 ELSE WAIT100 +7086 RETURN +7090 LX=0:GOSUB10900 10th +7093 PRINT"Vous etes dans une salle d'attente." +7095 IF KEY$<>"" THEN WAIT400 ELSE WAIT100 +7096 RETURN +7100 LX=0:GOSUB11000 11th +7103 PRINT"Vous etes dans le vestibules" +7105 IF KEY$<>"" THEN WAIT400 ELSE WAIT100 +7106 RETURN +7110 LX=2:GOSUB10700 12th +7113 PRINT"Vous etes dans la chambre d'amis." +7115 IF KEY$<>"" THEN WAIT400 ELSE WAIT100 +7116 RETURN +7120 LX=1:GOSUB 10700 13th +7123 PRINT"Vous etes dans une chambre." +7125 IF KEY$<>"" THEN WAIT400 ELSE WAIT100 +7126 RETURN +7140 LX=2:GOSUB12200 14th +7143 PRINT"Vous etes dans une petite salle" +7145 IF KEY$<>"" THEN WAIT400 ELSE WAIT100 +7146 RETURN +7150 GOSUB11500 15th +7153 PRINT"Vous etes dans le laboratoire du Dr GENIUS" +7155 IF KEY$<>"" THEN WAIT400 ELSE WAIT100 +7156 RETURN +7160 LX=1:GOSUB10900 16th +7163 PRINT"Vous etes dans une petite piece vide." +7165 IF KEY$<>"" THEN WAIT400 ELSE WAIT100 +7166 RETURN +7170 GOSUB 11700 17th +7173 PRINT"Vous etes...":WAIT300:PRINT"Justement,vous ne savez pas ou vous etes" +7175 IF KEY$<>"" THEN WAIT400 ELSE WAIT100 +7176 RETURN +7180 GOSUB 11800 18th +7183 PRINT"Vous etes en haut de l'escalier" +7185 IF KEY$<>"" THEN WAIT400 ELSE WAIT100 +7186 RETURN +7190 LX=2:GOSUB10900 19th +7193 PRINT"Vous etes dans la salle bain" +7195 IF KEY$<>"" THEN WAIT400 ELSE WAIT100 +7196 RETURN +7200 LX=1:GOSUB12200 20th +7203 PRINT"Vous etes dans le living room" +7205 IF KEY$<>"" THEN WAIT400 ELSE WAIT100 +7206 RETURN +7210 LX=1:GOSUB11000 21th +7213 PRINT"Vous etes dans une piece enfumee...!" +7215 IF KEY$<>"" THEN WAIT400 ELSE WAIT100 +7216 RETURN +7220 LX=0:GOSUB12200 22th +7223 PRINT"Vous etes dans une grande piece" +7225 IF KEY$<>"" THEN WAIT400 ELSE WAIT100 +7226 RETURN +7230 GOSUB 12300 23th +7233 PRINT"Vous etes dans une piece de rangement" +7235 IF KEY$<>"" THEN WAIT400 ELSE WAIT100 +7236 RETURN +7240 GOSUB12400 24th +7243 PRINT"Vous etes dans le dressing" +7245 IF KEY$<>"" THEN WAIT400 ELSE WAIT100 +7246 RETURN +8000 REM CHARGEMENT VARIABLES +8001 RESTORE +8010 V=70:DIM V$(V) +8020 FOR N=1 TO V +8030 READ KO$ +8040 V$(N)=KO$ +8050 NEXT +8060 DATA 01N,01NORD,02S,02SUD,03E,03EST,04O,04OUEST,05MONT,05GRIM,06DESC +8070 DATA 10PREN,10RAMA,11POSE,12OUVR,13FERM,14ENTR,14AVAN,15ALLU,16ETEI +8080 DATA 17REPA,17DEPA,18LIS,19REGA,20RETO,21RENI,21SENS,22REMP,23VIDE +8090 DATA 24INVE,24LIST,25RIEN,25ATTE,26POIG,27COUT,28TOUR,29LAMP,30CODE +8100 DATA 31ESCA,32PIST,33PLAC,34TORC,35TELE,36MONS,37PETR,38POT,18LIT +8110 DATA 39CLEF,40PAPI,41LIVR,42BRIQ,43COMB,44COFF,45ROUG,46BLEU,47VERT +8120 DATA 48TITR,49ROBI,50CISE,51PORT +8124 DATA 52ACTI,53JETE,53LANCE,54EAU,55ENFI,55PASS,56APPU,56ENFO,57ENLE +8126 DATA 58RENT +8130 O=25:DIM O(O):DIM O$(O) +8140 FOR N=1 TO O +8150 READ KO +8160 O(N)=KO +8170 NEXT +8180 DATA 06,05,05,08,08,00,00,11,11 +8190 DATA 13,20,18,16,16,16,16,00,21 +8200 DATA 00,22,25,12,00,25,00 +8210 FOR N=1 TO O +8220 READ KO$ +8230 O$(N)=KO$ +8240 NEXT +8250 DATA UNE TORCHE ELECTRIQUE,UN ROBINET,UN CISEAU,UN TOURNEVIS +8260 DATA UNE LAMPE A PETROLE,UNE LAMPE PLEINE,UNE LAMPE ALLUME,UN COUTEAU +8270 DATA UN PAPIER,UN LIVRE,DU PETROLE DANS UN LAVABO BOUCHE +8280 DATA UNE CLEF,UN BOUTON ROUGE,UN BOUTON BLEU +8290 DATA UN BOUTON VERT,UN TELEPORTEUR,UN TELEPORTEUR REPARE +8300 DATA UNE COMBINAISON ARGENTEE,UNE COMBINAISON ENFILEE,UN MONSTRE ALL'EST +8310 DATA UN PISTOLET,UN BRIQUET,UN BRIQUET ALLUME,UN POT,UN POT PLEIN D'EAU +8320 M=25:DIM M$(M) +8330 FOR N=1 TO M +8340 READ KO$ +8350 M$(N)=KO$ +8360 NEXT +8370 DATA 00,0403030400,030200,04020305010600,04040107032000,020400 +8380 DATA 04080109020500,030700,04130207031000 +8390 DATA 0409021100,0110031200,041100,030900,0209031500,00,00 +8400 DATA00,00,0122032100,040500,0125022200,012100 +8410 DATA 0124042200,022300,022100 +8430 A=128:DIM A$(A) +8440 FOR N=1 TO A +8450 READ KO$ +8460 A$(N)=KO$ +8470 NEXT +8480 DATA 1400A01.I02D02M.,0500A03D08.D03N.,0500A03E08E09D24.D04D05I19E02M. +8485 DATA 0500A03E08D24.D04D06N. +8490 DATA 0500A03E07.I19M.,0500A03E03.I19M.,0500A03.I19E02M.,0600A19D08.D03N. +8500 DATA0600A19E08E09D24.D04D05I03M.,0600A19E08D24.D04D06N.,0600A19.I03M. +8505 DATA 0100A09E07B22.D07N. +8510 DATA 0100A09E03B05.D07N.,0100A09.I14E02M.,0100A14.I16E02M. +8515 DATA 0200A16E07B22.D07N.,0200A16E03B05.D07N. +8520 DATA 0200A16.I14E02M.,0400A15E03B05.D07N.,0400A15E07B22.D07N. +8522 DATA 0400A15.I14E02M.,0100A15E03.I17M.,0100A15E07.I17M.,0100A15.I17E02M. +8525 DATA 0200A17.F01I15M. +8530 DATA 0300A17.D08N.,0400A17.D09K.,0300A18.D10F03E01E02I17M. +8531 DATA 0400A21E03.I19M. +8535 DATA 0400A21E07.I19M.,0400A21.I19E02M.,0200A22E03.I19M.,0200A22E07.I19M. +8540 DATA 0200A22.I19E02M.,0200A19.D11N.,0400A19.D11N.,0300A22.D12I23M. +8541 DATA 2500A01.D13.,2500I01.D14K.,1244A03.D15M.,1034B01.B01J.,1027B08.B08J. +8545 DATA 1028B04.B04J.,1029B05.B05J.,1032B21.B21J.,1038B24.B24J. +8548 DATA 1039B12.B12J.,1040B09.B09J.,1041B10.B10J.,1043B18.B18J. +8550 DATA 1050B03.B03J.,1042B22.B22J.,1037A20B05.H11P05E05D16K.,1037A20.D17K. +8553 DATA 1134.C01J.,1127.C08J.,1128.C04J.,1129.C05J.,1132.C21J.,1138.C24J. +8555 DATA 1143E09.D62K. +8556 DATA 1139.C12J.,1140.C09J.,1141.C10J.,1143.C18J.,1150.C03J.,1142.C22J. +8560 DATA 2400.A00L.,1249A05.E04D20G0405J.,1349A05.F04J.,2238A05E04.P24E08J. +8563 DATA 2338A05E08.F08P24J.,2338E08.D21N.,1848B10.D22L.,1841B10.D23N. +8566 DATA1840B09.D24K.,2040B09.D25K.,1951A02.D26M.,1951.D27K.,2100A14.D28K. +8570 DATA 2100.D29K.,1542C22.D33K.,1542E07.D30K.,1542A14.D07N. +8575 DATA 1542A17E01.D10K.,1542E02.F02E07E06P22M.,1542.E07P22J. +8580 DATA 1529C05.D33K.,1529E03.D30K.,1529F07.D31L.,1529F05.D32L. +8590 DATA 1529E02.F02E03E06P06P05M.,1529.E03P06P05J. +8595 DATA 1642C22.D33K.,1642F07.D30K.,1642E06E03.D36F07P22M. +8597 DATA 1642E06.E02F07F06P22M. +8600 DATA 1642.F07P22M.,1629C05.D33K.,1629F03.D30K.,1629E07E06.D34F03P05M. +8605 DATA 1629E06.E02F06F03P05M.,1629.F03P05M.,1534B01.D35N. +8610 DATA 1735I16.D45K.,1735E02.D43K.,1735F03.D44K.,1735C04.D46K. +8615 DATA 1735.P16E10J.,5600A16F10.D47K.,5646A16.D48N.,5647A16.D48N. +8620 DATA 5645A16F09.D50D06N.,5645A16.D49I18M.,5543D18E09.D30K. +8625 DATA 5543D18.P18E09J.,574EXPLODEAND18F09.D30K.,5743D18.P18F09J. +8630 DATA 1233A24C12.D51K.,1233A24C03.D52N.,1233A24.G0503E11D63K. +8635 DATA 2636E11.D54F11D55K.,5350E11.D54F11D55K.,5232B21.D56N. +8640 DATA 5830F08.D57.,5830.D58D59.,1233A06.D61M. +8650 DATA 1233A25.D64N. +8700 PL=INT(RND(1)*9000+1000) +8800 C=14:DIMC$(C) +8810 FOR N=1 TO C +8820 READ KO$ +8830 C$(N)=KO$ +8840 NEXT N +8850 DATA G03E03.D00N.,G04E04.D01N.,I14I16I17I19.F02.,G07E07.D18N.,GO1.D19N. +8860 DATA H06C03C08.D37N.,H08D08.D39L.,H06D03.D38L.,G08E08B24.D40D21N. +8870 DATA H02.D41N.,G09E02.D42N.,G05E11.D52N.,I24E11.D53D52N.,.L. +8900 RETURN +9000 TEXT +9005 N=48000:POKEN,96:POKEN+2,76:POKEN+3,79:POKEN+4,82:POKEN+5,73:POKEN+6,67 +9010 POKEN+7,73:POKEN+8,69:POKEN+9,76:POKEN+10,83:POKEN+11,32 +9015 POKEN+12,32:POKEN+13,56:POKEN+14,51:RETURN +10000 HIRES:INK0:CURSET100,190,1 +10005 DRAW0,-60,1:DRAW97,0,1:DRAW7,10,1:DRAW-97,0,1:DRAW-7,-10,1:DRAW15,-20,1 +10010 DRAW-30,-50,1:DRAW-15,20,1:DRAW30,50,1:CURSET100,190,1:DRAW-30,-50,1 +10015 DRAW0,-60,1:CURSET100,190,1:DRAW22,0,1:DRAW0,-30,1:DRAW15,0,1:DRAW0,30,1 +10020 DRAW60,0,1:DRAW0,-50,1:CURMOV0,-10,1:DRAW0,-30,1:DRAW-67,-40,1 +10025 DRAW-23,30,1:DRAW-30,-50,1:DRAW23,-30,1: DRAW30,50,1:CURSET197,100,1 +10030 DRAW-45,-60,1:DRAW-52,-30,1:CURSET85,60,1:DRAW0,-6,1:CURSET115,110,1 +10035 DRAW0,-30,1:CURMOV7,0,1:DRAW7,-10,1:DRAW7,10,1:DRAW0,20,1:DRAW-15,0,1 +10040 DRAW0,-20,1:CURMOV7,-10,1:DRAW0,30,1:CURSET182,100,1:DRAW-30,0,1 +10045 DRAW0,20,1:DRAW30,0,1:DRAW0,-20,1:CURMOV-7,0,1:DRAW0,20,1:CURMOV-16,0,1 +10050 DRAW0,-20,1:CURSET122,190,1:DRAW13,7,1:DRAW0,-30,1:DRAW-13,-7,1 +10055 CURSET133,182,1:CURSET182,150,1:DRAW-30,0,1:DRAW0,20,1:DRAW30,0,1 +10060 DRAW0,-20,1:CURMOV-7,0,1:DRAW0,20,1:CURMOV-16,0,1:DRAW0,-20,1 +10065 CURSET78,130,1:DRAW15,25,1:DRAW0,-20,1:DRAW-15,-25,1:DRAW0,20,1 +10070 CURMOV3,5,1:DRAW0,-20,1:CURMOV9,15,1:DRAW0,20,1:INK3:RETURN +10100 HIRES:INK0:CURSET15,190,1:DRAW0,-160,1:DRAW75,-20,1:DRAW0,40,1 +10110 DRAW0,-40,1:DRAW60,0,1:DRAW0,20,1:DRAW10,10,1:DRAW-40,0,1:DRAW40,0,1 +10120 DRAW0,3,1:DRAW-40,0,1:DRAW0,-3,1:DRAW0,-10,1:DRAW30,0,1:DRAW0,-20,1 +10130 DRAW82,20,1:DRAW0,160,1:DRAW-73,-126,1:DRAW73,126,3:DRAW-30,-50,3 +10140 DRAW0,-80,1:DRAW-22,-16,1:DRAW0,58,1:CURMOV19,-9,1:CIRCLE1,1 +10145 CURSET15,190,1:DRAW37,-68,1:DRAW0,-70,1:DRAW18,-13,1:DRAW0,50,1 +10150 DRAW-18,33,3:DRAW38,-71,1:DRAW31,0,1:DRAW0,-8,3:DRAW0,23,1:DRAW3,0,1 +10155 DRAW0,-23,1:DRAW0,8,1:DRAW21,0,1:DRAW0,-8,1:DRAW0,8,1:DRAW1,2,1 +10157 DRAW0,-10,1:DRAW0,10,1 +10160 DRAW2,0,1:DRAW0,-10,1:DRAW0,8,1:DRAW2,0,1:DRAW0,-8,1:DRAW0,8,1 +10165 DRAW3,5,1:DRAW0,-12,1:DRAW0,20,1:DRAW2,3,1:DRAW0,-23,1:DRAW0,23,1 +10170 DRAW3,0,1:DRAW0,-23,1:CURSET67,68,1:CIRCLE1,1:INK3:RETURN +10200 HIRES:INK0:CURSET15,190,1:DRAW0,-120,1:DRAW105,-50,1:DRAW60,0,1 +10205 DRAW45,50,1:DRAW0,110,1:DRAW-45,-100,1:CURMOV0,-60,1:DRAW0,60,1 +10210 DRAW-60,0,1:CURMOV0,-60,1:DRAW0,60,1:DRAW-52,54,1:CURSET15,190,1 +10215 DRAW24,-26,1:DRAW0,-104,1:DRAW0,60,1:DRAW27,14,1:DRAW0,-10,1 +10220 DRAW53,-50,1:DRAW-6,-2,1:DRAW-54,47,1:CURMOV7,3,1:DRAW-7,-3,1 +10225 DRAW0,-10,1:DRAW53,-44,1:DRAW0,8,1:DRAW0,-8,1:DRAW-5,-2,1:DRAW-56,40,1 +10230 DRAW9,4,1:DRAW-9,-4,1:DRAW0,-10,1:DRAW55,-36,1:DRAW0,7,1:DRAW0,-7,1 +10235 DRAW-5,-2,1:DRAW-56,33,1:DRAW7,3,1:DRAW-7,-3,1:DRAW0,-10,1 +10240 DRAW-5,-2,1:DRAW5,2,1:DRAW57,-30,1:DRAW0,8,1:DRAW0,-8,1:DRAW-5,-2,1 +10245 DRAW-57,25,1:DRAW57,-25,1:DRAW0,-7,1:DRAW-57,24,1:DRAW57,-24,1 +10250 DRAW-5,-2,1:DRAW-16,5,1:DRAW16,-5,1:DRAW0,-4,1 +10255 CURSET211,146,1:DRAW0,-64,1:DRAW-15,-20,1:DRAW0,52,1:CURSET207,108,1 +10260 CIRCLE1,1:CURSET156,80,1:DRAW24,0,0:DRAW6,12,0:DRAW-6,-12,0:DRAW0,-40,0 +10265 DRAW-26,0,1:DRAW0,40,1:DRAW5,12,1:DRAW27,0,1:DRAW0,-42,1:DRAW-6,-10,1 +10270 DRAW6,10,1:DRAW-27,0,1:DRAW-4,-10,1:DRAW4,10,1:DRAW0,42,1 +10275 CURSET169,70,0:CIRCLE4,1:CURSET169,66,1:DRAW0,-3,1:CURSET169,74,1 +10280 DRAW0,2,1:CURSET165,70,1:DRAW-2,0,1:CURSET173,70,1:DRAW2,0,1 +10285 CURSET165,58,1:CIRCLE1,1:CURSET170,58,1:CIRCLE1,1:CURSET175,58,1 +10290 CIRCLE1,1:INK3:RETURN +10300 HIRES:INK0:CURSET15,190,1:DRAW67,-110,1:DRAW68,0,1:DRAW82,110,1 +10305 DRAW0,-140,1:DRAW-82,-40,1:DRAW0,70,0:DRAW0,-70,1:DRAW-68,0,1 +10310 DRAW0,70,0:DRAW0,-70,1:DRAW-67,40,1:DRAW0,140,1:CURSET90,80,1 +10315 DRAW0,-50,1:DRAW24,0,1:DRAW0,50,1:DRAW-24,0,0:DRAW18,10,1:DRAW0,-50,1 +10320 DRAW-18,-10,1:CURSET105,64,1 +10325 CURSET210,160,1:DRAW0,-90,1:DRAW-23,-14,1:DRAW0,74,1:CURSET205,110,1 +10330 CURSET45,140,1:DRAW0,-74,1:DRAW18,-14,1:DRAW0,60,1:CURSET60,86,1 +10335 IF F1=0 THEN INK3:RETURN +10400 INK0:CURSET124,80,1:DRAW26,0,0:DRAW0,-70,0:DRAW0,70,0 +10401 CURSET149,80,0:DRAW12,14,0 +10402 CURSET150,80,0:DRAW10,14,0 +10405 CURSET168,18,1:DRAW0,86,1:DRAW-38,0,1:DRAW0,-86,1:DRAW38,0,1 +10410 DRAW-38,0,1:DRAW-6,-8,1:DRAW0,70,1:DRAW6,24,1 +10415 CURSET168,94,1:DRAW-38,0,1:CURSET168,94,1:DRAW-8,-10,1:CURSET168,84,1 +10420 DRAW-38,0,1:CURSET168,84,1:DRAW-8,-10,1:CURSET168,74,1:DRAW-38,0,1 +10430 CURSET168,74,1:DRAW-9,-10,1:CURSET168,64,1:DRAW-38,0,1:CURSET168,64,1 +10435 DRAW-9,-10,1:CURSET168,54,1:DRAW-38,0,1:CURSET168,54,1:DRAW-18,-18,1 +10440 DRAW-18,0,1:DRAW18,0,1:DRAW0,-16,1 +10445 INK3:RETURN +10500 HIRES:INK0:CURSET13,180,1:DRAW0,-132,1:DRAW63,-28,1:DRAW83,0,1 +10505 DRAW67,30,1:DRAW0,130,1:DRAW-11,-14,1:DRAW-4,-4,0:DRAW-17,-25,1 +10510 DRAW-24,-36,0:DRAW-12,-20,1:DRAW0,-61,1:DRAW0,61,1:DRAW-83,0,1 +10515 DRAW0,-60,1:DRAW0,60,1:DRAW-63,100,1:CURSET22,90,1:DRAW19,0,1 +10520 DRAW0,-30,3:DRAW-19,0,1:DRAW0,30,1:DRAW0,-30,1:DRAW33,-20,1 +10525 DRAW13,0,1:DRAW0,20,1:DRAW-28,30,1:DRAW0,-30,1:DRAW27,-20,1 +10530 DRAW-11,9,1:DRAW0,23,1:CURSET52,64,1:CURSET60,58,1:CURSET157,100,1 +10535 DRAW30,0,1:DRAW29,34,1:DRAW-40,0,1:DRAW0,2,1:DRAW40,0,1:DRAW0,-2,1 +10540 DRAW0,2,3:DRAW-2,0,3:DRAW0,34,1:DRAW-3,0,1:DRAW0,-34,1:DRAW-30,0,1 +10545 DRAW0,34,1:DRAW-3,0,1:DRAW0,-34,1:DRAW-2,0,3:DRAW-20,-34,1:DRAW0,-2,1 +10550 DRAW20,34,1:CURSET159,104,1:DRAW0,24,1:DRAW3,0,1:DRAW0,-18,1 +10555 INK3:RETURN +10600 HIRES:INK0:CURSET15,190,1:DRAW0,-130,1:DRAW75,-50,1 +10605 DRAW52,0,1:DRAW90,50,1:DRAW0,130,1:DRAW-22,-32,1:DRAW0,-52,1 +10610 DRAW-3,-5,1:DRAW-42,-43,1:DRAW-6,0,1:DRAW-2,4,1:DRAW0,10,1:DRAW-12,0,1 +10613 DRAW5,0,1:DRAW-7,-10,1:DRAW0,-50,1:DRAW0,50,1 +10615 DRAW-22,0,1:DRAW0,-30,1:DRAW-15,0,1:DRAW13,3,1:DRAW0,30,1 +10620 DRAW-13,-3,1:DRAW0,-30,1:DRAW0,30,1:DRAW-15,0,1:DRAW0,-50,1:DRAW0,50,1 +10625 DRAW-23,40,1:DRAW-22,0,1:DRAW22,0,1:DRAW0,-52,1:DRAW-22,22,1:DRAW0,70,1 +10630 DRAW-30,50,1:CURSET116,49,1:CURSET210,158,1:DRAW-45,0,1:DRAW0,-18,1 +10633 DRAW0,18,1 +10635 DRAW-26,-60,0:DRAW0,-10,1:DRAW6,-16,1:DRAW12,0,3:DRAW4,4,1:DRAW-12,0,1 +10640 DRAW-4,-4,1:DRAW4,4,1:DRAW-6,14,1:DRAW10,-2,1:DRAW9,0,1:DRAW0,-11,1 +10645 DRAW0,11,1:DRAW19,25,1:CURSET165,140,1:DRAW10,-20,1:DRAW21,0,1 +10650 DRAW-5,-7,1:DRAW-21,0,1::DRAW5,7,1:DRAW-5,-7,1:DRAW-7,14,1 +10655 DRAW-20,-37,1:CURSET165,140,1:DRAW-26,-50,1:CURSET165,158,1 +10660 DRAW-26,-59,1:DRAW0,-1,1:CURSET196,120,1:DRAW0,-14,1:DRAW2,-5,1 +10665 DRAW9,0,1:DRAW-9,0,1:DRAW-39,-43,1 +10670 INK3:RETURN +10700 HIRES:INK0:CURSET15,190,1:DRAW57,-106,1:DRAW-57,106,1:DRAW0,-150,1 +10705 DRAW67,-30,1:DRAW0,32,1:DRAW0,-32,1:DRAW75,0,1:DRAW0,50,1:DRAW0,-50,1 +10710 DRAW75,30,1:DRAW0,150,1:DRAW-75,-130,1:CURSET202,138,1:DRAW0,-78,1 +10715 DRAW-22,-18,1:DRAW0,56,1:CURSET157,60,1:DRAW-9,0,1:DRAW2,3,3 +10720 DRAW-78,0,1:DRAW0,8,1:DRAW78,0,2:DRAW0,-8,1:DRAW0,20,1 +10725 DRAW-78,0,1:DRAW0,-38,1:DRAW10,-12,1:CURSET82,42,1:DRAW-10,13,1 +10730 DRAW6,1,1:DRAW9,-13,1:DRAW-4,-1,1:DRAW4,1,1:DRAW0,6,1:DRAW-9,13,1 +10735 DRAW0,1,1:DRAW0,-7,1:DRAW0,6,1:DRAW9,-13,1:DRAW55,0,1:DRAW8,15,1 +10738 IF LX=2 THEN GOTO 10745 +10740 CURSET197,93,1:CIRCLE1,1 +10745 IF LX=0 THEN INK3:RETURN +10750 IF LX=1 THEN GOTO 10780 +10755 CURSET202,137,0:DRAW0,-77,0:DRAW-22,-18,0:DRAW0,55,0 +10760 CURSET30,162,1:DRAW26,-49,0:DRAW0,1,0:DRAW-26,49,0 +10765 CURSET30,162,1:DRAW0,-80,1:DRAW22,-22,1:DRAW0,9,1:DRAW0,-9,1 +10770 DRAW-22,22,1:DRAW27,-15,1:DRAW0,77,1:DRAW-25,18,1:CURSET51,111,1 +10775 CIRCLE1,1:INK3:RETURN +10780 CURSET30,50,1:DRAW0,40,1:DRAW22,-24,1:DRAW0,-29,1:DRAW-22,14,1 +10785 DRAW12,-8,3:DRAW0,33,1 +10790 INK3:RETURN +10800 HIRES:INK0:CURSET15,190,1:DRAW0,-140,1:DRAW82,-40,1:DRAW53,0,1 +10805 DRAW75,40,1:DRAW0,140,1:DRAW-30,-50,1:DRAW0,-80,1:DRAW-26,-22,1 +10810 DRAW0,60,1:DRAW26,0,1:DRAW-26,0,1:DRAW-19,-30,1:DRAW0,-58,1 +10812 DRAW0,58,1:DRAW-22,0,1 +10815 DRAW0,-40,1:DRAW-15,0,1:DRAW13,4,1:DRAW0,40,1:DRAW-13,-4,1:DRAW0,-40,1 +10820 DRAW0,40,1:DRAW-15,0,1:DRAW0,-58,1:DRAW0,58,1:DRAW-30,42,1:DRAW-22,0,1 +10825 DRAW22,0,1:DRAW0,-68,1:DRAW-22,16,1:DRAW0,86,1:DRAW-30,43,1 +10830 CURSET123,52,1:INK3:RETURN +10900 HIRES:INK0:CURSET232,190,1:DRAW0,-150,1:DRAW-82,-30,1:DRAW0,50,1 +10905 DRAW0,-50,1:DRAW-60,0,1:DRAW0,50,1:DRAW0,-50,1:DRAW-75,30,1:DRAW0,150,1 +10910 IFLX=0 THEN DRAW75,-130,1:DRAW-23,40,3:GOTO10920 +10915 DRAW30,-52,1:DRAW-30,52,1:DRAW75,-130,3:DRAW-23,40,1:DRAW-22,0,1 +10918 DRAW22,0,1 +10920 DRAW0,-58,1:DRAW-22,16,1:DRAW0,80,1 +10925 CURSET90,60,1:DRAW60,0,1:DRAW82,130,1 +10930 IF LX=0 THEN CURSET63,78,1:CIRCLE1,1:INK3:RETURN +10935 IF LX=1 THEN INK3:RETURN +10940 CURSET210,100,1:DRAW-15,0,1:DRAW-3,-10,1:DRAW18,0,1:DRAW0,10,1 +10945 DRAW0,-10,1:DRAW-27,-25,1:DRAW0,5,1:DRAW20,20,1:DRAW-20,-20,1 +10950 DRAW-8,0,1:DRAW8,0,1:DRAW0,-5,1:DRAW-12,0,1:DRAW21,25,1:DRAW-21,-25,1 +10955 DRAW-1,0,1:DRAW2,8,1:DRAW21,26,1 +10960 INK3:RETURN +11000 HIRES:INK0:CURSET15,190,1:DRAW0,-150,1:DRAW82,-30,1:DRAW0,40,1 +11005 DRAW0,-40,1:DRAW60,0,1:DRAW0,40,1:DRAW0,-40,1:DRAW75,30,1:DRAW0,150,1 +11010 DRAW-22,-42,1:DRAW0,-75,1:DRAW-23,-21,1:DRAW0,52,1:DRAW23,0,1 +11015 DRAW-23,0,1:DRAW-30,-54,1:DRAW-60,0,1:DRAW-82,140,0:DRAW82,-140,1 +11020 DRAW15,0,1:DRAW0,-24,1:DRAW12,0,1:DRAW0,24,1:CURMOV-3,-12,1 +11025 IF LX=0 THEN INK3:RETURN +11030 CURSET 187,104,1:DRAW22,0,0:CURMOV-22,0,1:DRAW23,44,1:CURMOV-5,-45,1 +11035 CIRCLE1,1:CURSET30,50,1:DRAW0,40,1:DRAW37,-34,1:DRAW0,-25,1:DRAW-37,20,1 +11040 DRAW21,-10,3:DRAW0,31,1:INK3:RETURN +11500 HIRES:INK0:CURSET15,180,1:DRAW0,-140,1:DRAW67,-30,1:DRAW75,0,1 +11505 DRAW67,30,1:DRAW0,150,1:DRAW-42,-70,1:DRAW0,-70,1:DRAW-24,-20,1 +11510 DRAW0,-20,1:DRAW0,20,1:DRAW-45,0,1:DRAW-15,20,1:DRAW85,0,1:DRAW-33,0,1 +11515 DRAW0,70,1:DRAW33,0,1:DRAW-34,0,1:DRAW-14,-40,1:DRAW0,-30,1:DRAW0,30,1 +11520 DRAW-22,0,1:DRAW0,-30,1:DRAW0,30,1:DRAW-15,40,1:DRAW0,-70,1:DRAW0,30,1 +11525 DRAW-15,0,1:DRAW0,-70,1:DRAW0,70,1:DRAW-67,100,1 +11530 CURSET167,60,1:CIRCLE1,1:CURMOV0,10,1:CIRCLE1,1:CURMOV0,10,1:CIRCLE1,1 +11540 CURMOV0,20,1:DRAW6,2,1:DRAW-6,-2,1:CIRCLE8,1 +11545 POKE43346,1:POKE43348,3:POKE43386,1:POKE43388,3 +11550 POKE43746,4:POKE43748,3:POKE43786,4:POKE43788,3 +11555 POKE44146,2:POKE44148,3:POKE44186,2:POKE44188,3 +11560 INK3:RETURN +11700 HIRES:INK0:CURSET15,190,1:DRAW0,-140,1:DRAW60,-40,1:DRAW75,00,1 +11705 DRAW82,40,1:DRAW0,140,1:DRAW-45,-72,3:DRAW0,-54,1:DRAW-15,-14,1 +11710 DRAW0,44,1:CURSET232,190,1:DRAW-82,-130,1:DRAW0,-50,1:DRAW0,50,1 +11715 DRAW-75,0,1:DRAW0,-50,1:DRAW0,50,1:DRAW-4,10,1:DRAW9,0,1:DRAW-23,0,1 +11720 DRAW-34,50,1:DRAW39,0,1:DRAW18,-50,1:DRAW0,4,1:DRAW-18,52,1 +11725 DRAW0,-6,1:DRAW0,6,1:DRAW-39,0,1:DRAW0,-6,1 +11730 CURSET15,190,1:DRAW15,-33,1:DRAW0,-30,1 +11735 DRAW4,0,3:DRAW0,37,1:DRAW-4,0,1:DRAW0,-7,1:DRAW0,7,1:DRAW4,0,1 +11740 :DRAW3,-8,1:DRAW0,-29,1:DRAW15,0,3:DRAW0,37,1:DRAW4,0,1:DRAW0,-37,1 +11745 DRAW0,37,1:DRAW3,-8,1:DRAW0,-29,1:DRAW-14,0,3:DRAW-7,16,1 +11750 CURSET74,93,1:DRAW0,12,1:DRAW3,0,1:DRAW0,-19,1:DRAW0,19,1 +11755 DRAW2,-7,1:DRAW0,-18,1 +11760 CURSET184,86,1:INK3:RETURN +11800 HIRES:INK0:CURSET15,199,1:DRAW0,-160,1:DRAW75,-30,1:DRAW52,0,1 +11805 DRAW90,30,1:DRAW0,160,1:CURSET15,199,1:DRAW75,-140,1:DRAW0,-50,1 +11810 DRAW0,50,1:DRAW15,0,1:DRAW0,-30,1:DRAW12,4,1:DRAW0,30,1:DRAW-12,-4,1 +11815 DRAW0,-30,1:DRAW15,0,1:DRAW0,30,1:DRAW22,0,1:DRAW0,-50,1:DRAW0,50,1 +11820 DRAW36,55,1:DRAW21,0,1:DRAW-21,0,1:DRAW0,-60,1:DRAW21,15,1:DRAW0,74,1 +11825 DRAW6,8,1:DRAW-106,0,1:DRAW-15,46,1:DRAW15,-46,1:DRAW0,10,1:DRAW106,0,1 +11830 DRAW0,-10,1:DRAW0,10,1:DRAW4,5,1:DRAW-112,0,1:DRAW2,-5,1:DRAW-2,5,1 +11835 DRAW0,10,1:DRAW112,0,1:DRAW0,-10,1:DRAW0,10,1:DRAW4,6,1:DRAW-119,0,1 +11840 DRAW3,-6,1:DRAW-3,6,1:DRAW0,10,1:DRAW119,0,1:DRAW0,-10,1:DRAW0,10,1 +11845 DRAW4,6,1:DRAW-126,0,1:DRAW3,-6,1:CURSET115,49,1 +11850 INK3:RETURN +12200 HIRES:INK0:CURSET15,190,1:DRAW0,-150,1:DRAW75,-30,1:DRAW0,50,1 +12205 DRAW0,-50,1:DRAW60,0,1:DRAW0,50,1:DRAW0,-50,1:DRAW82,30,1:DRAW0,150,1 +12210 DRAW-82,-130,1:DRAW-45,0,1:DRAW0,-30,1:DRAW15,0,1:DRAW0,30,1:DRAW-30,0,1 +12215 DRAW-30,53,1:IF LX=2 THEN DRAW-23,0,1:DRAW23,0,1 +12220 DRAW0,-60,1:DRAW-23,17,1:DRAW0,80,1 +12225 IF LX<>2 THEN DRAW23,-37,1:DRAW-23,37,1 +12230 DRAW-22,40,1:IF LX<>2 THEN CURSET57,88,1:CIRCLE1,1 +12235 IF LX<>0 THEN CURSET 117,45,1:CIRCLE1,1:INK3:RETURN +12240 CURSET105,60,1:DRAW15,0,0:CURMOV-15,0,1:DRAW0,-30,1:DRAW12,3,1 +12245 DRAW0,30,1:DRAW-12,-4,1:CURSET115,48,1:INK3:RETURN +12299 GOTO14000 +12300 HIRES:INK0:CURSET15,190,1:DRAW0,-150,1:DRAW67,-30,1:DRAW67,0,1 +12310 DRAW82,30,1:DRAW0,150,1:DRAW-65,-104,1:DRAW0,-54,1:DRAW-16,-10,1 +12315 DRAW0,-10,1:DRAW0,10,1:DRAW-37,0,1:DRAW-3,10,1:DRAW0,54,1:DRAW56,0,1 +12320 DRAW0,-54,1:DRAW-28,0,1:DRAW0,54,1:DRAW0,-54,1:DRAW-28,0,1:DRAW0,30,1 +12325 DRAW-27,0,1:DRAW0,-50,1:DRAW0,50,1:DRAW-67,130,1 +12330 CURSET133,60,1:CIRCLE1,1:CURMOV11,0,1:CIRCLE1,1 +12340 INK3:RETURN +12400 HIRES:INK0:CURSET30,164,1:DRAW-15,26,1:DRAW0,-143,1:DRAW15,-7,1 +12405 DRAW0,124,1:DRAW15,0,1:DRAW0,-124,1:DRAW-15,0,1:DRAW15,0,1:DRAW45,-30,1 +12410 DRAW 0,13,1:DRAW0,-13,1:DRAW60,0,1:DRAW0,50,1:DRAW0,-50,1:DRAW82,30,1 +12415 DRAW0,150,1:DRAW-82,-130,1:DRAW-50,0,1:DRAW-32,104,1:DRAW-22,0,1 +12420 DRAW22,0,1:DRAW0,-92,1:DRAW-22,0,1:DRAW44,-48,1:DRAW10,0,1:DRAW-32,48,1 +12425 DRAW32,-48,1:DRAW0,35,1:DRAW-14,46,3:DRAW0,-61,1 +12430 CURSET81,88,1:CIRCLE1,1:CURMOV11,-21,1:CIRCLE1,1:INK3:RETURN +12499 GOTO14000 +13000 HIRES:INK0:CURSET75,62,1:DRAW-5,0,1:DRAW-55,108,1:DRAW37,-10,1 +13005 DRAW30,-90,1:DRAW-19,5,1:DRAW19,-5,1:DRAW20,5,1:DRAW-12,94,1 +13007 DRAW-38,-10,1:DRAW38,10,1:DRAW0,20,1:DRAW-75,0,1:DRAW0,-20,1 +13010 DRAW0,20,1:DRAW75,0,1:DRAW15,-112,1:DRAW0,-15,1 +13012 DRAW-3,14,1:DRAW3,-14,1:DRAW-13,0,1 +13015 DRAW0,-12,1:DRAW0,12,1:DRAW-4,10,1:DRAW0,-22,1:DRAW12,0,1 +13020 DRAW4,-7,1:DRAW0,-15,1:DRAW-4,6,1:DRAW0,16,1:DRAW0,-16,1:DRAW-12,0,1 +13025 DRAW4,-6,1:DRAW12,0,1:DRAW-12,0,1:DRAW0,-16,1:DRAW-4,6,1:DRAW0,16,1 +13030 DRAW0,-16,1:DRAW-12,0,1:DRAW4,-6,1:DRAW12,0,1:DRAW-12,0,1:DRAW-4,6,1 +13035 DRAW0,16,1:DRAW-12,0,1:DRAW4,-6,1:DRAW7,0,1:DRAW-7,0,1:DRAW-4,6,1 +13040 DRAW0,16,1:DRAW12,0,1:DRAW0,22,1 +13045 INK3:RETURN +20000 GOSUB13000 'TOMBE +20010 GOSUB30000 'SARABANDE +20100 TEXT:PRINT:PRINT:PRINT:PRINT:PRINT"Voulez-vous rejouer ?":GET X$ +20105 IF X$="O" THEN RUN 45 +20110 IF X$="N" THEN GOTO 20200 +20120 GOTO20100 +20200 CLS:PRINT:PRINT:PRINT:PRINT" AU REVOIR" +20210 END +30000 REM SARABANDE +30005 RESTORE +30010 FOR N=1 TO 41:READ Y$,Y$,Y$,Y$,Y$,Y$,Y$:NEXT +30015 FOR N=1 TO 75 +30020 READ A1,A2,A3,A4,A5 +30025 READ A6,A7,A8,A9,A0 +30030 MUSIC1,A1,A2,A3:MUSIC2,A4,A5,A6:MUSIC3,A7,A8,A9:PLAY7,0,0,100:WAITA0 +30032 IF N>70 THEN NEXT:PLAY0,0,0,0:RETURN +30035 PLAY0,0,0,0:NEXT +30040 DATA 3,6,8,3,3,8,2,10,8,80 +30045 DATA 3,6,8,3,3,8,2,10,8,80 +30050 DATA 0,1,1,0,1,1,0,1,1,40 +30055 DATA 3,8,8,3,5,8,0,1,1,40 +30060 DATA 3,5,8,3,2,8,2,10,8,80 +30065 DATA 3,5,8,3,2,8,2,10,8,40 +30070 DATA 1,11,8,0,1,1,0,1,1,40 +30075 DATA 1,10,8,0,1,1,0,1,1,40 +30080 DATA 1,8,8,0,1,1,0,1,1,40 +30085 DATA 3,10,8,3,6,9,3,1,8,80 +30090 DATA 3,10,8,3,6,9,3,1,8,80 +30095 DATA 0,1,1,0,1,1,0,1,1,40 +30100 DATA 3,11,8,3,8,8,0,1,1,40 +30105 DATA 3,8,8,3,5,8,3,1,8,80 +30110 DATA 3,8,8,3,5,8,3,1,8,40 +30115 DATA 2,1,8,0,1,1,0,1,1,40 +30120 DATA 1,11,8,0,1,1,0,1,1,40 +30125 DATA 1,10,8,3,7,8,3,10,8,40 +30130 DATA 3,11,8,3,8,8,3,3,8,80 +30135 DATA 3,11,8,3,8,8,3,3,8,80 +30140 DATA 1,8,8,0,1,1,0,1,1,40 +30145 DATA 1,8,8,3,10,8,4,1,8,40 +30150 DATA 3,10,8,3,6,8,3,3,8,80 +30155 DATA 3,10,8,3,6,8,3,3,8,80 +30160 DATA 0,1,1,0,1,1,0,1,1,40 +30165 DATA 3,10,8,2,1,8,0,1,1,40 +30170 DATA 4,3,8,3,10,8,1,11,8,80 +30175 DATA 4,3,8,3,8,8,2,11,9,80 +30180 DATA 0,1,1,0,1,1,0,1,1,40 +30185 DATA 4,5,8,0,1,1,0,1,1,40 +30190 DATA 4,2,8,3,10,8,3,5,8,80 +30195 DATA 4,2,8,3,10,8,3,5,8,40 +30200 DATA 2,8,8,0,1,1,0,1,1,40 +30202 DATA 2,6,8,0,1,1,0,1,1,40 +30203 DATA 2,5,8,0,1,1,0,1,1,40 +30205 DATA 3,6,8,3,3,8,2,10,8,80 +30210 DATA 3,6,8,3,3,8,2,10,8,80 +30215 DATA 0,1,1,0,1,1,0,1,1,40 +30220 DATA 3,8,8,3,5,8,0,1,1,40 +30225 DATA 3,5,8,3,2,8,2,10,8,80 +30230 DATA 3,5,8,3,2,8,2,10,8,40 +30235 DATA 1,11,8,0,1,1,0,1,1,40 +30240 DATA 1,10,8,0,1,1,0,1,1,40 +30245 DATA 1,8,8,0,1,1,0,1,1,40 +30250 DATA 3,10,8,3,6,9,3,1,8,80 +30255 DATA 3,10,8,3,6,9,3,1,8,80 +30260 DATA 0,1,1,0,1,1,0,1,1,40 +30265 DATA 3,11,8,3,8,8,0,1,1,40 +30270 DATA 3,8,8,3,5,8,3,1,8,80 +30275 DATA 3,8,8,3,5,8,3,1,8,40 +30280 DATA 2,1,8,0,1,1,0,1,1,40 +30285 DATA 1,11,8,0,1,1,0,1,1,40 +30290 DATA 1,10,8,3,7,8,3,10,8,40 +30295 DATA 3,11,8,3,8,8,3,3,8,80 +30300 DATA 2,8,8,0,1,1,0,1,1,40 +30305 DATA 3,11,8,3,8,8,3,1,8,40 +30310 DATA 2,8,8,0,1,1,0,1,1,40 +30315 DATA 2,1,8,0,1,1,0,1,1,40 +30320 DATA 4,1,8,2,5,8,0,1,1,40 +30325 DATA 3,10,8,3,6,8,3,1,8,80 +30330 DATA 3,10,8,2,3,8,0,1,1,40 +30335 DATA 4,3,8,3,6,8,2,11,8,40 +30340 DATA 4,2,8,0,1,1,0,1,1,40 +30345 DATA 4,3,8,3,11,8,2,8,8,40 +30350 DATA 4,5,8,0,1,1,0,1,1,40 +30355 DATA 4,6,8,3,10,8,2,10,8,80 +30360 DATA 4,5,8,3,8,8,1,10,8,40 +30365 DATA 0,1,1,3,8,8,1,10,8,40 +30370 DATA 4,3,8,0,1,1,0,1,1,40 +30375 DATA 4,3,8,3,6,8,2,3,8,80 +30380 DATA 3,3,8,3,10,8,3,6,8,40 +30385 DATA 3,3,7,3,10,7,3,6,7,40 +30390 DATA 3,3,6,3,10,6,3,6,6,40 +30395 DATA 3,3,5,3,10,5,3,6,5,40 +30400 DATA 3,3,4,3,10,4,3,6,5,40 +31000 REM BADINERIE +31005 RESTORE +31010 FOR N=1 TO 148:READ Y$,Y$,Y$,Y$,Y$,Y$,Y$:NEXT +31012 READ Y$ +31015 FOR N=1 TO 97 +31020 READ A1,A2,A3 +31022 MUSIC1,A1,A2,10:PLAY1,0,0,100:WAIT A3 +31025 PLAY 0,0,0,0:NEXT +31030 DATA4,12,20,5,3,10,4,12,10,4,7,20 +31035 DATA4,12,10,4,7,10,4,3,20,4,7,10 +31040 DATA4,3,10,3,12,40,3,7,10,3,12,10 +31045 DATA4,3,10,3,12,10,4,2,10,3,12,10 +31050 DATA4,2,10,3,12,10,3,11,10,4,2,10 +31055 DATA4,5,10,4,2,10,4,3,20,3,12,20 +31060 DATA4,12,20,5,3,10,4,12,10,4,7,20 +31065 DATA4,12,10,4,7,10,4,3,20,4,7,10 +31070 DATA4,3,10,3,12,40,4,3,20,4,3,20 +31075 DATA4,3,20,4,3,20,4,12,20,4,3,20 +31080 DATA4,3,7,4,5,7,4,3,7 +31085 DATA4,2,20,4,7,20,4,7,20,4,7,20 +31090 DATA4,7,20,5,3,20,4,7,20,4,7,7 +31100 DATA4,8,7,4,7,7,4,6,20,4,2,10 +31105 DATA4,7,10,4,10,10,4,7,10,4,9,10 +31115 DATA4,7,10,4,6,10,4,9,10,4,12,10 +31120 DATA4,9,10,4,10,10,4,9,10,4,10,10 +31125 DATA4,9,10,4,7,10,4,10,10,4,7,10 +31130 DATA4,6,10,4,7,10,4,12,10,4,7,10 +31145 DATA4,6,10,4,7,10,5,2,10,4,7,10 +31150 DATA4,6,10,4,7,10,5,3,10,4,7,10 +31155 DATA4,6,10,4,7,10,5,3,10,5,2,10 +31160 DATA4,12,10,5,2,10,4,10,10,4,9,10 +31165 DATA4,7,10,4,10,10,4,9,7,4,10,7,4,9,7,4,7,20 +31170 RETURN +32000 REM TEA FOR TWO +32001 RESTORE +32002 FOR N=1 TO 166:READ Y$,Y$,Y$,Y$,Y$,Y$,Y$,Y$:NEXT +32005 FOR N=1 TO 110 +32010 READ A1,A2,A3 +32015 MUSIC1,A1,A2,10:PLAY1,0,0,100:WAIT A3 +32020 PLAY0,0,0,0 +32022 NEXT +32025 DATA 4,6,45,4,3,15,4,5,45,4,3,15,4,6,45,4,3,15,4,5,45 +32030 DATA 4,1,15,4,5,45,4,1,15,4,3,45,4,1,15,4,5,45,4,1,15 +32035 DATA4,3,45,4,1,15,4,6,45,4,3,15,4,5,45,4,3,15,4,6,45 +32040 DATA4,3,15,4,5,45,4,1,30,4,10,30,4,10,22,4,7,8,4,9,30,4,9,22,4,7,8 +32045 DATA4,10,30,4,10,22,4,7,8,4,9,30,4,9,22,4,5,8,4,9,30,4,7,22,4,5,8 +32050 DATA4,7,30,4,7,22,4,5,8,4,9,30,4,9,22,4,5,8,4,7,30,4,7,22,4,5,8 +32055 DATA4,10,30,4,10,22,4,7,8,4,9,30,4,9,22,4,7,8,4,10,30,4,10,22,4,7,8 +32060 DATA4,9,30,4,9,30,5,2,120,5,1,60,4,6,45,4,3,15,4,5,45,4,3,15,4,6,45 +32065 DATA4,3,15,4,5,45,4,1,15,4,5,45,4,1,15,4,3,45,4,1,15,4,5,45,4,1,15 +32070 DATA4,3,45,4,1,15,4,6,45,4,3,15,4,5,45,4,3,15,4,6,45,4,3,15,4,5,45 +32075 DATA4,1,30,5,3,45,5,3,15,5,1,45,5,1,15,4,11,45,4,11,15,4,10,45,4,10,15 +32080 DATA5,1,45,5,1,15,4,11,45,4,11,15,4,10,45,4,10,15,4,8,45,4,8,15 +32085 DATA4,6,45,4,3,15,4,5,45,4,3,15 +32090 DATA4,6,45,4,3,15,4,5,45,4,10,15,4,6,120 +33000 RESTORE:TEXT:PRINTCHR$(17) +33002 GOSUB50000 +33005 FOR N=1 TO 331:READ Y$,Y$,Y$,Y$,Y$:NEXT:READ Y$,Y$,Y$ +33010 FOR N=46360 TO 46423 +33020 READ GH:POKE N,GH +33030 NEXT +33040 DATA 1,2,4,4,4,2,3,1,48,32,24,16,32,16,32,32 +33050 DATA 2,6,9,8,8,8,4,6,16,16,8,40,26,12,10,16 +33060 DATA 7,8,8,16,16,8,28,0,48,8,8,4,4,2,3,0 +33070 DATA 3,4,4,6,2,2,3,0,48,24,8,4,4,4,6,0 +33100 FOR N=48802 TO 48836 STEP 2 +33110 POKEN,35:POKEN+1,36:POKEN+40,37:POKEN+41,38:POKEN+80,39:POKEN+81,40 +33120 WAIT48836-N +33130 POKEN,32:POKEN+40,32:POKEN+80,32 +33140 POKEN+1,35:POKEN+2,36:POKEN+41,37:POKEN+42,38:POKEN+81,41:POKEN+82,42 +33150 WAIT48836-N +33160 POKEN+1,32:POKEN+41,32:POKEN+81,32 +33170 NEXT +33180 POKEN,32:POKEN+40,32:POKEN+80,32 +33190 CALL#F89B +33200 RETURN +40000 CLS:PRINT:PRINT:PRINT:PRINT +40010 PRINT" La liste des instructions (O/N) ?" +40015 GET V$ +40020 IF V$="O" THEN 33 +40030 IF V$="N" THEN 45 +40040 GOTO 40015 +50000 PRINT:PRINT" Cela est exceptionnel,vous etes le premier a etre sorti vivant"; +50010 PRINT" de cette":PRINT:PRINT"maison , mais je serais vous , je me ":PRINT"mettrais a "; +50020 PRINT"courrir car un nain rode":PRINT:PRINT"peut etre dans les parages" +50030 RETURN +51000 CLS:PAPER3:INK0:PRINT:PRINT:PRINT"ATTENTION ................. +51005 PRINT:PRINT"L'utilisation de ce programme est +51010 PRINT:PRINT"deconseillee aux personnes sensibles +51020 PRINT:PRINT"aux enfants en bas age,ainsi qu'a +51030 PRINT:PRINT"toute personne susceptible d'avoir +51040 PRINT: PRINT"des malaises cardiaques. +51050 PRINT: PRINT"Nous ne pourrions etre tenu responsa-" +51060 PRINT:PRINT"bles,des troubles physiques ou mentaux +51070 PRINT:PRINT"provoques par votre echec dans +51080 PRINT:PRINT"le Manoir du Dr GENIUS ............. +51099 WAIT 400 +51100 RETURN diff --git a/lemanoirdudocteurgenius/presentation.bas b/lemanoirdudocteurgenius/presentation.bas new file mode 100644 index 0000000..f0f9103 --- /dev/null +++ b/lemanoirdudocteurgenius/presentation.bas @@ -0,0 +1,143 @@ +2 REM LE MANOIR DU DOCTEUR GENIUS +3 REM COPYRIGHT LORICIELS 83 L.BENES +4 REM VERSION VG5000 FRED_72 2021 +5 REM VERSION APPLE II BRUTAL DELUXE 2023 +6 REM +10 REM CLEAR 300,-16385 +12 D$=CHR$(4) +20 PRINT "DISKLOAD CODE":REM CALL-16384 +25 REM POKE&"47FD",0 +26 HOME +30 VTAB 3: HTAB 10: PRINT "LORICIELS, FRED_72 &" +31 VTAB 4: HTAB 9: PRINT "BRUTAL DELUXE SOFTWARE" +32 VTAB 5: HTAB 5: PRINT "SONT FIERS DE VOUS PRESENTER :" +40 VTAB 21: PRINT "Programme original de L.Benes (1983)" +45 VTAB 22: PRINT "Adaptation VG5000 par Fred_72 (2021)" +46 VTAB 23: PRINT "et Apple II par Brutal Deluxe (2023)" +50 FOR I = 1 TO 6000 : NEXT I +55 REM SETEG 92,"3E7F7F7F7F7F7F7F3E00" +60 REM SETEG 32,"00000000000000000000" +65 REM & INIT0,0: & EG 3,0,0: PRINT +66 HOME +100 HTAB 2: PRINT "\ \\\ \ \ \\\ \ \ \\\ \ \\\" +105 HTAB 2: PRINT "\ \ \\ \\ \ \ \\ \ \ \ \ \ \" +110 HTAB 2: PRINT "\ \\\ \ \ \ \\\ \\\\ \ \ \ \\\" +115 HTAB 2: PRINT "\ \ \ \ \ \ \ \\ \ \ \ \\" +120 HTAB 2: PRINT "\\\ \\\ \ \ \ \ \ \ \\\ \ \ \" +130 HTAB 5: VTAB 7: PRINT "\\ \ \ \\": HTAB 5: PRINT "\ \ \ \ \ \ \": HTAB 5: PRINT "\ \ \ \" +135 HTAB 17: VTAB 9: PRINT "\ \ \\": HTAB 5: PRINT "\ \ \ \ \ \ \ \": HTAB 5: PRINT "\\\ \\\" +140 HTAB 17: VTAB 11: PRINT "\\\ \": HTAB 2: VTAB 15: PRINT "\\\\ \\\\ \\ \ \ \ \ \\\\" +145 HTAB 2: VTAB 16: PRINT "\ \ \ \\ \ \ \ \ \": HTAB 2: PRINT "\ \ \\\ \ \ \" +150 HTAB 27: VTAB 17: PRINT "\ \": HTAB 2: PRINT "\ \\\ \ \ \ \ \ \ \\\\" +155 HTAB 2: VTAB 19: PRINT "\ \\ \ \ \\\ \ \ \ \": HTAB 2: PRINT "\ \ \ \ \\" +160 HTAB 21: VTAB 20: PRINT "\ \ \ \": HTAB 2: PRINT "\\\\ \\\\ \ \\ \ \\\\ \\\\ \ \" +170 GOSUB 3000 +180 GOSUB 1000 +200 GOSUB 800 +230 PRINT: PRINT: INPUT"La liste des instructions (O/N) ";V$ +240 IF V$ = "O" OR V$ = "o" THEN 500 +245 IF V$ = "N" OR V$ = "n" THEN 300 +255 GOTO 230 + +300 VTAB 23: PRINT SPC(8)"Chargement en cours..." +304 REM ACTIVER FOUDRE (1 pour descativer) +305 POKE 255,0: REM & W,50 +310 PRINT D$"RUN JEU" + +500 REM & INIT 0,0:& TX3,0,0 +501 HOME +510 PRINT: PRINT "Vous voici arrive dans le manoir du" +511 PRINT "Dr Genius..." +515 PRINT: PRINT "Pour converser avec l'ordinateur, il" +516 PRINT "faut rentrer les ordres en 1 ou 2" +520 PRINT: PRINT "mots tels que :": PRINT: PRINT " NORD" +525 PRINT: PRINT " PRENDS PILULE" +530 PRINT: PRINT "ou pour commencer : ENTRE" +540 REM & W,400 +545 GOSUB 800 +550 PRINT: PRINTSPC(8)"Liste du vocabulaire" +555 PRINT: PRINT +560 PRINT " ACTIONNE ENTRE PAPIER" +565 PRINT " ALLUME ESCALIER PASSE" +570 PRINT " APPUIE EST (E) PETROLE" +575 PRINT " ATTENDS ETEINS PISTOLET" +580 PRINT " AVANCE FERME PLACARD" +585 PRINT " BLEU GRIMPE POIGNARDE" +590 PRINT " BRIQUET INVENTAIRE PORTE" +595 PRINT " CISEAU JETTE POSE" +600 PRINT " CLEF LAMPE POT" +605 PRINT " CODE LANCE PRENDS" +610 PRINT " COFFRE LIS RAMASSE" +615 PRINT " COMBINAISON LISTE REGARDE" +620 PRINT " COUTEAU LIT REMPLIS" +625 PRINT " DEPANNE LIVRE RENIFLE" +630 PRINT " DESCENDS MONSTRE RENTRE" +635 PRINT " EAU MONTE REPARE" +640 PRINT " ENFILE NORD (N) RETOURNE" +645 PRINT " ENFONCE OUEST (O) RIEN" +650 PRINT " ENLEVE OUVRE ROBINET" +660 GOSUB 800 +670 PRINT: PRINTSPC(8)"Liste du vocabulaire" +675 PRINT: PRINT +680 PRINT " ROUGE TELEPORTEUR TOURNE" +685 PRINT " SENS TITRE VERT" +690 PRINT " SUD (S) TORCHE VIDE" +700 GOSUB 800 +710 PRINT: PRINT " Un dernier conseil:" +715 REM & W,150 +720 PRINT "Il peut parfois y avoir une porte +725 PRINT "derriere vous." +730 REM & W,200 +735 PRINT: PRINT: PRINT: PRINT "Bonne chance..." +740 REM & W,200 +750 GOTO300 +800 WAIT -16384,128:POKE -16368,0 +830 RETURN + +1000 HOME: PRINT: PRINT: PRINT "ATTENTION ................." +1005 PRINT: PRINT "L'utilisation de ce programme est" +1010 PRINT: PRINT "deconseillee aux personnes sensibles" +1020 PRINT: PRINT "aux enfants en bas age, ainsi qu'a" +1030 PRINT: PRINT "toute personne susceptible d'avoir" +1040 PRINT: PRINT "des malaises cardiaques." +1050 PRINT: PRINT "Nous ne pourrions etre tenus responsa-" +1060 PRINT: PRINT "bles, des troubles physiques ou mentaux" +1070 PRINT: PRINT "provoques par votre echec dans" +1080 PRINT: PRINT "le Manoir du Dr GENIUS ............. " +1099 REM & W,400 +1100 RETURN + +3000 REM BADINERIE +3005 REM RESTORE 3030 +3010 FOR N=1 TO 97 +3015 READ A1,A2,A3 +3020 REM & M,1,A1,A2,10 +3021 REM & P,1,0,0,100 +3023 REM & W,A3 +3025 REM & P,0,0,0,0: +3026 NEXT N +3030 DATA 4,12,20,5,3,10,4,12,10,4,7,20 +3035 DATA 4,12,10,4,7,10,4,3,20,4,7,10 +3040 DATA 4,3,10,3,12,40,3,7,10,3,12,10 +3045 DATA 4,3,10,3,12,10,4,2,10,3,12,10 +3050 DATA 4,2,10,3,12,10,3,11,10,4,2,10 +3055 DATA 4,5,10,4,2,10,4,3,20,3,12,20 +3060 DATA 4,12,20,5,3,10,4,12,10,4,7,20 +3065 DATA 4,12,10,4,7,10,4,3,20,4,7,10 +3070 DATA 4,3,10,3,12,40,4,3,20,4,3,20 +3075 DATA 4,3,20,4,3,20,4,12,20,4,3,20 +3080 DATA 4,3,7,4,5,7,4,3,7 +3085 DATA 4,2,20,4,7,20,4,7,20,4,7,20 +3090 DATA 4,7,20,5,3,20,4,7,20,4,7,7 +3100 DATA 4,8,7,4,7,7,4,6,20,4,2,10 +3105 DATA 4,7,10,4,10,10,4,7,10,4,9,10 +3115 DATA 4,7,10,4,6,10,4,9,10,4,12,10 +3120 DATA 4,9,10,4,10,10,4,9,10,4,10,10 +3125 DATA 4,9,10,4,7,10,4,10,10,4,7,10 +3130 DATA 4,6,10,4,7,10,4,12,10,4,7,10 +3145 DATA 4,6,10,4,7,10,5,2,10,4,7,10 +3150 DATA 4,6,10,4,7,10,5,3,10,4,7,10 +3155 DATA 4,6,10,4,7,10,5,3,10,5,2,10 +3160 DATA 4,12,10,5,2,10,4,10,10,4,9,10 +3165 DATA 4,7,10,4,10,10,4,9,7,4,10,7,4,9,7,4,7,20 +3170 RETURN diff --git a/lemanoirdudocteurgenius/vg5000/vg5000_jeu.bas b/lemanoirdudocteurgenius/vg5000/vg5000_jeu.bas new file mode 100644 index 0000000..95bb1b3 --- /dev/null +++ b/lemanoirdudocteurgenius/vg5000/vg5000_jeu.bas @@ -0,0 +1,721 @@ +20CLEAR300,-16385 +30DISKLOAD"CODE" +35CALL-16384:POKE&"47FD",0 +40GOSUB7600 +45INIT0,0:TX3,0,0:PRINT:PRINTSPC(10)"VEUILLEZ PATIENTER" +50GOSUB8000:REM CHARGEMENT VARIABLES +51GOSUB7500 +55MODEMN:INIT0,0:TX0,0,0 +57DIM P(12):P(11)=0:P(12)=0 +60SALLE=1 +70FORN=1TO10 +80P(N)=0:C(N)=0 +85NEXTN +90C(3)=14:C(7)=12:C(1)=80:C(9)=12 +100IFSALLE<>14ANDSALLE<>16ANDSALLE<>17ANDSALLE<>19 THENP(2)=0 +105IFP(2)=0 THEN 200 +106IFO(22)=SAANDP(7)=1 THEN200 +107IFO(05)=SAANDP(3)=1 THEN200 +110IFC(9)>1 THEN C(9)=C(9)-1 +130MODEMC:MODEMN +140CURSORX1:CURSORY18:PRINT"Il fait noir comme dans un four!" +145PRINT"Il faudrait peut être allumer." +150GOTO500 + +200REM DESCRIPTION SALLE +210MODEMN:MODEMC: REM cadre+zone+dessin +215DEST=SALLE +220GOSUB6900 +230MODEMD +300H=0:N=1 +310IFO(N)<>SALLE THEN400 +320IFH=1 THEN350 +330MODEML:PRINT"Il y a dans la salle:":MODEMW,10 +340H=1 +350MODEML:PRINT" ";O$(N); +360MODEMW,25 +400N=N+1 +410IFN<=O THEN310 +415MODEML:PRINT + +500REM ACCEPTATION COMMANDE +510T=1:Y$(1)="":Y$(2)="":N=0 +520GOTO1000 +530IFC(7)>1ANDP(7)=1 THENC(7)=C(7)-1 +540IFC(3)>1ANDP(3)=1 THENC(3)=C(3)-1 +545IFC(4)>1ANDP(4)=1 THENC(4)=C(4)-1 +547IFC(5)>1 THENC(5)=C(5)-1 +550X$="":INPUT"Que faites vous ";X$ +560MODEMN:PRINT">";X$ +570GOSUB6000 +580MODEML:IFMO(1)=0 THENPRINT"Je ne comprends pas...":MODEMW,50:GOTO500 + +* nouvelle version* +900REM CONTROLE Mvt +905 MODEMI,SALLE +910 IF PEEK(-4)=0 THEN 980 +920 SALLE=PEEK(-4):GOTO100 + +980T=0 +990A1=0 +1000REM CONTROLE +1010NL=0 +1100NL=NL+1 +1110IFT=0 THEN1150 +1120E$=C$(NL) +1130GOTO1400 +1150 MODEMA: NL=PEEK(-33) +1151 IFPEEK(-32)=0 THEN1159 +1152 AD=-32:E$="" +1153 IF PEEK(AD)=255 THEN 1400 +1154 E$=E$+CHR$(PEEK(AD)):AD=AD+1 +1155 GOTO1153 +1159PY=23:CO=12 +1160IFA1=1 THEN500 +1170MODEML:PRINT"Impossible "; +1180IFMO(1)<10 THEN PRINT"de prendre ce chemin"; + +1190PRINT"!":MODEMW,100:GOTO100 + +1400REM CONDITIONS +1410E=1 +1420IFMID$(E$,E,1)="." THEN1700 +1430LI=ASC(MID$(E$,E,1))-65 +1440N=VAL(MID$(E$,E+1,2)) +1450ON(LI+1)GOSUB 1500,1510,1520,1530,1540,1550,1560,1570,1580 +1460IFOK=0 THEN1100 +1470E=E+3:GOTO1420 +1500IFN=SALLE THEN1590 +1505GOTO1585 +1510IFO(N)=-1ORO(N)=SALLE THEN1590 +1515GOTO1585 +1520IFO(N)<>SALLE ANDO(N)<>-1 THEN1590 +1525GOTO1585 +1530IFO(N)=-1 THEN1590 +1535GOTO1585 +1540IFP(N)=1 THEN1590 +1545GOTO1585 +1550IFP(N)=0 THEN1590 +1555GOTO1585 +1560IFC(N)=1 THEN1590 +1565GOTO1585 +1570IFINT(RND(1)*99+1)SALLE THEN1590 +1585OK=0:RETURN +1590OK=1:RETURN + +1700REM ACTIONS +1705E=E+1:A1=1 +1710IF MID$(E$,E,1)="." THEN1100 +1720LI=ASC(MID$(E$,E,1))-65 +1730IF MID$(E$,E+1,1)<>"." THENN=VAL(MID$(E$,E+1,2)) +1740BREAK=0 +1750ON(LI+1)GOSUB 1800,1900,2000,2100,2200,2300,2400,2500,2600,2700,2800,2900,3000,3100,3200,3300 +1760IFBREAK>0 THEN ON BREAK GOTO 100,300,500,530,20000 +1780E=E+3 +1790GOTO1710 +1800G=0:HH=0 +1810G=G+1 +1820IFO(G)=-1 THEN1840 +1830IFG-1 THEN1960 +1935REM +1940MODEML:PRINT"Vous l'avez déjà,vous êtes étourdis et" +1945MODEML:PRINT"dans cette maison ce n'est pas très" +1950MODEML:PRINT"conseillé...":GOTO1920 +1960O(N)=-1:S(1)=S(1)+1:RETURN +2000IFO(N)=-1 THEN 2030 +2010MODEML:PRINT"Comment voulez vous poser ce que vous" +2015MODEML:PRINT"n'avez pas..." +2020GOTO1920 +2030O(N)=SALLE:S(1)=S(1)-1:RETURN + +2100REM +2105DEST=N+1:GOSUB 3900 +2110RETURN +2200P(N)=1:RETURN +2300P(N)=0:RETURN +** +2400C(N)=VAL(MID$(A$(N),E+3,2)):E=E+2:RETURN +** +2500IFO(N)=-1 THENS(1)=S(1)-1 +2510O(N)=0:RETURN +2600SALLE=N:RETURN +2700MODEML:PRINT"D'accord..." +2710MODEMW,20:BREAK=2:RETURN +2800BREAK=3 +2810RETURN +2900BREAK=4:RETURN +3000BREAK=1:RETURN +3100BREAK=5:RETURN +3200O(N)=SALLE:RETURN +3300X$=O$(N):O$(N)=O$(N+1):O$(N+1)=X$:RETURN + +3900IFDEST<11 THEN ON DEST GOTO 4000,4010,4020,4030,4040,4050,4060,4070,4080,4090 +3910DEST=DEST-10 +3915IFDEST<11 THEN ON DEST GOTO 4100,4110,4120,4130,4140,4150,4160,4170,4180,4190 +3920DEST=DEST-10 +3925IFDEST<11 THEN ON DEST GOTO 4200,4210,4220,4230,4240,4250,4260,4270,4280,4290 +3930DEST=DEST-10 +3935IFDEST<11 THEN ON DEST GOTO 4300,4310,4320,4330,4340,4350,4360,4370,4380,4390 +3940DEST=DEST-10 +3945IFDEST<11 THEN ON DEST GOTO 4400,4410,4420,4430,4440,4450,4460,4470,4480,4490 +3950DEST=DEST-10 +3955IFDEST<11 THEN ON DEST GOTO 4500,4510,4520,4530,4540,4550,4560,4570,4580,4590 +3960DEST=DEST-10 +3965IFDEST<11 THEN ON DEST GOTO 4600,4610,4620,4630,4640 + +4000MODEMC:FORN=1TO20:MODEME:MODEMW,4:NEXTN +4001MODEMN:PRINT"Vous avez gardé la lampe allumée trop" +4002MODEML:PRINT"longtemps, elle a explosé!" +4005MODEMW,200:RETURN +4010MODEMC +4011MODEMN:PRINT"Vous avez oublié de fermer le robinet" +4012MODEML:PRINT"vous mourez sous des tonnes d'eau!" +4015MODEMW,200:RETURN +4020MODEMC +4022MODEMN:PRINT"La porte vient de se refermer derrière" +4023MODEML:PRINT"vous. Vous êtes prisonnier..." +4025MODEMW,200:RETURN +4030MODEMC +4031MODEMN:PRINT"Vous avez trébuché dans l'escalier,vous" +4032MODEML:PRINT"vous empallez sur le couteau!" +4035MODEMW,200:RETURN +4040MODEMC +4041MODEMN:PRINT"Vous renversez l'eau dans l'escalier," +4042MODEML:PRINT"ce qui provoque une décharge au niveau" +4043MODEML:PRINT"de la prise électrique." +4045MODEMW,200:RETURN +4050MODEMC +4051MODEMN:PRINT"Vous êtes sauf grace à la combinaison" +4052MODEML:PRINT"que vous avez enfilé..!" +4055MODEMW,200:RETURN +4060MODEML:PRINT"Vous mourez électrocuté..." +4065MODEMW,200:RETURN +4070MODEMC:FORN=1TO20:MODEMM,2,2,2,10:MODEMP,3,7,4,80:MODEMW,1:MODEME:MODEMW,6:NEXTN +4071MODEMN:PRINT"La pièce était pleine de gaz explosif," +4072MODEML:PRINT"vous auriez dû éteindre..." +4073MODEMW,200:PRINT"On ramassera vos morceaux un autre" +4074MODEML:PRINT"jour..!" +4075MODEMW,200:RETURN +4080MODEMC +4081MODEMN:PRINT"Vous mourez empallé sur des lances" +4082MODEML:PRINT"sorties du mur...!" +4085MODEMW,200:RETURN +4090MODEML:PRINT"La porte ne s'ouvre pas de cette pièce":MODEMW,200:RETURN +4100MODEMC +4101MODEML:PRINT"La lampe et le briquet refusent de" +4102MODEML:PRINT"fonctionner dans cette pièce!" +4109MODEMW,200:RETURN +4110MODEMC +4111MODEML:PRINT"Vous tombez dans une trappe,vous vous" +4112MODEML:PRINT"disloquez en arrivant au sol.." +4115MODEMW,200:RETURN +4120MODEML:PRINT"Vous avez raison de passer,car ce" +4122MODEML:PRINT"monstre n'était qu'une projection" +4124MODEML:PRINT"en 3 dimensions sur un écran de fumée" +4125MODEMW,250:RETURN +4130MODEML:PRINT"Vous avez raison,la curiosité est un" +4132MODEML:PRINT"vilain défaut!!!" +4134MODEMW,250 +4135RUN20040 +4140MODEML:PRINT"Vous avez raison d'attendre,mais cela" +4141MODEML:PRINT"ne pourra pas durer éternellement.." +4142MODEMW,200:RETURN +4150MODEML:PRINT"Vous avez de la chance car ce coffre" +4151MODEML:PRINT"était ouvert.":MODEMW,100 +4152MODEML:PRINT"Un message à l'intérieur dit:" +4153MODEML:PRINTCHR$(34)+"Ne respectez pas les couleurs du code" +4154MODEML:PRINT"de la route...?"+CHR$(34):MODEMW,200 +4156MODEML:PRINT"Tiens le coffre se referme!":MODEMW,150:RETURN +4160MODEML:PRINT"Maintenant,vous avez une lampe pleine" +4162MODEML:PRINT"de pétrole." +4165MODEMW,200:RETURN +4170MODEML:PRINT"Vous n'avez rien pour transporter le" +4171MODEML:PRINT"pétrole.":MODEMW,200:RETURN +4180FORN=1TO10:MODEME:MODEMW,6:NEXTN +4181MODEMC:MODEMN:PRINT"Le briquet que vous aviez laissé" +4182MODEML:PRINT"allumé vient d'exploser!" +4185MODEML:MODEMW,200:PRINT"Ca tue l'étourderie.....":MODEMW,150:RETURN +4190MODEMC:MODEMN:PRINT"A force de marcher en long et en large" +4191MODEML:PRINT"dans cette maison, vous sombrez dans" +4194MODEML:PRINT"un coma des plus mortel... +4195MODEMW,300:RETURN +4200PRINT"L'eau coule...":RETURN +4210MODEMC:MODEMN:PRINT"Vous avez les pieds trempés,et cela" +4211MODEML:PRINT"vous rend très malade..." +4215MODEMW,100:MODEML:PRINT"Vous mourez d'une triple pneumonie...!":MODEMW,200:RETURN +4220MODEML:PRINT"Le titre est:" +4225MODEML:PRINTCHR$(34)+"La mort à la 1ère page."+CHR$(34):MODEMW,200:RETURN +4230MODEMC:FOR N=1 TO 20:MODEME:NEXTN +4233MODEMN:PRINT"Le livre a explosé lorsque vous l'avez" +4235MODEML:PRINT"ouvert...":MODEMW,200:RETURN +4240MODEML:PRINT"Le papier indique: "+CHR$(34)+"Cherchez la clef."+CHR$(34) +4242MODEMW,200:RETURN +4250MODEML:PRINT"La clef vous permettra de trouver le" +4252MODEML:PRINT"code de la porte d'entrée." +4255MODEMW,200:RETURN +4260MODEML:PRINT"Il y a un clavier numérique permettant" +4261MODEML:PRINT"d'entrer un code à côté de la porte.":MODEMW,200:RETURN +4270MODEML:PRINT"Pour faire quoi..?":MODEMW,200:RETURN +4280MODEML:PRINT"Il y a une odeur de gaz.":MODEMW,200:RETURN +4290MODEML:PRINT"Apparemment,il n'y a aucune odeur.":MODEMW,200:RETURN +4300MODEML:PRINT"C'est déja fait,espèce de rigolo!":MODEMW,200:RETURN +4310MODEML:PRINT"Il faudrait peut être du feu!":MODEMW,200:RETURN +4320MODEML:PRINT"La lampe ne contient pas de pétrole!":MODEMW,200:RETURN +4330MODEML:PRINT"Vous ne l'avez pas!":MODEMW,200:RETURN +4340MODEML:PRINT"Le briquet est encore allumé et il" +4342MODEML:PRINT"éclaire la pièce.":MODEMW,200:RETURN +4350FORN=1TO15:MODEME:MODEMW,4:NEXTN +4355MODEML:PRINT"La torche était piégée,elle vous" +4356MODEML:PRINT"a explosé dans les mains.." +4357MODEMW,200:RETURN +4360MODEML:PRINT"La lampe est encore allumée,et elle" +4362MODEML:PRINT"vous éclaire.":MODEMW,200:RETURN +4370MODEML:PRINT"Un nain vient de vous lancer un" +4371MODEML:PRINT"poignard en plein coeur.." +4375MODEMW,200:RETURN +4380MODEML:PRINT"Un nain vient de se précipiter sur" +4385MODEML:PRINT"vous, il s'empalle sur votre ciseau.":MODEMW,200:RETURN +4390MODEML:PRINT"Un nain vient de se précipiter sur" +4395MODEML:PRINT"vous, il s'empalle sur votre couteau.":MODEMW,200:RETURN +4400MODEML:PRINT"Vous venez de renverser le pot.":MODEMW,150:RETURN +4410IF PEEK(-1)=1 THEN BREAK=3:RETURN +4411MODEMC:MODEMS,4,4,0:MODEMP,0,1,1,5000 +4412MODEMN:PRINT"La foudre vient de tomber sur la maison":MODEMW,200 +4413MODEML:PRINT"La maison n'existe plus!":MODEMW,100 +4414MODEML:PRINT"Vous non plus!":MODEMW,100:MODEMP,0,0,0,0:RETURN +4420MODEMC:MODEMN:PRINT"A force de marcher dans le noir,vous" +4422MODEML:PRINT"avez trébuché.":MODEMW,100 +4425MODEML:PRINT"Vous mourez d'une fracture du crâne...":MODEMW,200:RETURN +4430MODEML:PRINT"Vous ne pouvez pas travailler dans le" +4433MODEML:PRINT"noir...":MODEMW,200:RETURN +4440MODEML:PRINT"La lumière du briquet ne suffit pas" +4442MODEML:PRINT"pour travailler...":MODEMW,200:RETURN +4450MODEML:PRINT"Impossible !":MODEMW,100:RETURN +4460MODEML:PRINT"Vous n'avez aucun outil...":MODEMW,200:RETURN +4470MODEML:PRINT"Le téléporteur est en panne,donc les" +4472MODEML:PRINT"boutons ne fonctionnent pas." +4475MODEMW,400:RETURN +4480FORN=1TO25:MODEME:MODEMW,5:NEXTN +4484MODEMC:MODEMN:PRINT"Le téléporteur vient d'exploser," +4485MODEML:PRINT"vous êtes décomposé..!":MODEMW,200:RETURN +4490MODEMN:PRINT"Le téléporteur se met en marche" +4491MODEML:PRINT"vous disparaissez...":MODEMW,50 +4492MODEMM,2,1,5,0:MODEMP,2,1,3,1000 +4493MODEMF +4494MODEMP,0,0,0,0 +4495FORN=500TO30STEP-5 +4497MODEMS,2,N,12:MODEMP,2,0,0,100 +4498NEXTN +4499MODEMP,0,0,0,0:RETURN +4500MODEMC:MODEML:PRINT"Vous prenez du 30000 Volts dans les" +4502MODEML:PRINT"doigts!":MODEMW,200:RETURN +4510MODEML:PRINT"Le placard est fermé à clef!":MODEMW,200:RETURN +4520MODEMC:MODEMN:PRINT"L'horrible monstre sorti du placard" +4522MODEML:PRINT"vient de vous dévorer!" +4525MODEMW,200:RETURN +4530MODEML:PRINT"Il ne fallait pas fuir!":MODEMW,200:RETURN +4540MODEMC:MODEML:PRINT"Vous avez raison d'utiliser le ciseau," +4542MODEML:PRINT"le monstre est mort!" +4545MODEMW,200:RETURN +4550MODEMD:MODEMN:PRINT"A l'intérieur du placard,le No "PL +4552MODEML:PRINT"est inscrit":MODEMW,200 +4555MODEML:PRINT"Le placard se referme.":MODEMW,100:RETURN +4560MODEMC:FORN=1TO30:MODEME:MODEMW,5:NEXTN +4562MODEMN:PRINT"le pistolet a explosé!":MODEMW,200 +4565RETURN + +4570IF SALLE=2 THEN RETURN +4571MODEML:PRINT"Impossible!":BREAK=3:RETURN +4575MODEMC:FORN=1TO25:MODEME:MODEMW,7:NEXTN +4576MODEMN:PRINT"le clavier numérique a explosé!":MODEMW,200:BREAK=5:RETURN +4580MODEMN:PRINT"Le clavier numérique prend feu.":MODEMW,200 +4581MODEML:IF O(24)<>-1 THEN 4586 +4582MODEML:PRINT"Heureusement,vous avez un pot plein" +4584MODEML:PRINT"d'eau. Ce qui vous permet d'éteindre" +4585MODEML:PRINT"ce feu.":MODEMW,300:RETURN +4586MODEML:PRINT"Malheureusement vous n'avez pas d'eau" +4587MODEML:PRINT"pour l'éteindre.":MODEMW,200 +4588GOTO4575 + +4590MODEMN:INPUT"No DE CODE ";ZC +4595IFZC<>PL THEN4575 +4600MODEMW,100:MODEML:PRINT"Le code est exact...":MODEML:PRINT"La porte s'ouvre..." +4603MODEMW,150 +4605GOTO11000 +4610MODEML:PRINT"A l'intérieur du placard,il y a un mot" +4611MODEML:PRINT"qui parle d'un téléporteur.":MODEMW,200 +4615MODEML:PRINT"Tiens le placard se ferme tout seul...":MODEMW,100:RETURN +4620MODEML:PRINT"Avant de la poser par terre,il faudrait" +4621MODEML:PRINT"peut être l'enlever." +4625MODEMW,200:RETURN +4630MODEMC:MODEMN:PRINT"Devant vous, il y a un horrible" +4631MODEML:PRINT"monstre qui est sorti du placard." +4635MODEMW,200:RETURN +4640MODEML:PRINT"Le placard était piégé,vous n'auriez" +4641MODEML:PRINT"pas dû l'ouvrir!" +4645FORN=1TO30:MODEME:MODEMW,7:NEXTN +4647MODEMW,200:RETURN + +6000REM ANALYSE DU MOT +6010N=0:GN=0 +6020N=N+1:IFMID$(X$,N,1)<>" " THEN6040 +6030GOTO6020 +6040GN=GN+1:XX$=MID$(X$,N+GN,1):IFXX$=" "ORXX$=""ORGN=20 THEN 6060 +6050GOTO6040 +6060IFGN>4 THENGN=4 +6070X$(1)=MID$(X$,N,GN) +6080N=N+1:XX$=MID$(X$,N,1):IFXX$=" "ORXX$="" THEN6100 +6090GOTO6080 +6100N=N+1:IFMID$(X$,N,1)<>" " THEN6115 +6110GOTO6100 +6115GN=0 +6120GN=GN+1:XX$=MID$(X$,N+GN,1):IFXX$=" "ORXX$=""ORGN=20 THEN 6140 +6130GOTO6120 +6140IFGN>4 THEN GN=4 +6150X$(2)=MID$(X$,N,GN) +6160MODEMU,X$(1):MODEMV,X$(2) +6170MO(1)=PEEK(-3) +6180MO(2)=PEEK(-2) +6190RETURN + +6900REM Chargement image salle +6902MODEMC:MODEMN +6905IF DEST<11 THEN ON DEST GOTO 7000,7010,7020,7030,7040,7050,7060,7070,7080,7090 +6910DEST=DEST-10 +6915IF DEST<11 THEN ON DEST GOTO 7100,7110,7120,7130,7140,7150,7160,7170,7180,7190 +6920DEST=DEST-10 +6925ON DEST GOTO 7200,7210,7220,7230,7240 + +7000DISKLOAD"IMG_01" +7005PRINT"Vous êtes devant le manoir du défunt" +7006PRINTSPC(14)"Dr GENIUS" +7009RETURN +7010DISKLOAD"IMG_02" +7015PRINT"Vous êtes dans le hall d'entrée." +7019RETURN +7020DISKLOAD"IMG_03" +7025PRINT"Vous êtes en bas de l'escalier menant" +7026PRINT"au 2ème étage." +7029RETURN +7030DISKLOAD"IMG_04" +7035PRINT"Vous êtes dans la salle à manger." +7039RETURN +7040DISKLOAD"IMG_05" +7045PRINT"Vous êtes dans une bibliothèque sans" +7046PRINT"livre...!" +7049RETURN +7050DISKLOAD"IMG_06" +7055PRINT"Vous êtes dans une buanderie." +7059RETURN +7060DISKLOAD"IMG_07" +7065PRINT"Vous êtes dans le salon." +7069RETURN +7070DISKLOAD"IMG_08" +7075PRINT"Vous êtes dans une chambre." +7079RETURN +7080DISKLOAD"IMG_09" +7085PRINT"Vous êtes dans un corridor." +7089RETURN +7090DISKLOAD"IMG_10" +7095PRINT"Vous êtes dans une salle d'attente." +7099RETURN +7100DISKLOAD"IMG_11" +7105PRINT"Vous êtes dans le vestibule." +7109RETURN +7110DISKLOAD"IMG_12" +7115PRINT"Vous êtes dans la chambre d'amis." +7119RETURN +7120DISKLOAD"IMG_13" +7125PRINT"Vous êtes dans une chambre." +7129RETURN +7130STOP +7140DISKLOAD"IMG_14" +7145PRINT"Vous êtes dans une petite salle." +7149RETURN +7150DISKLOAD"IMG_15" +7155PRINT"Vous êtes dans le laboratoire du +7156PRINT"Dr GENIUS." +7159RETURN +7160DISKLOAD"IMG_16" +7165PRINT"Vous êtes dans une petite pièce vide." +7169RETURN +7170DISKLOAD"IMG_17" +7175PRINT"Vous ne savez pas où vous êtes." +7179RETURN +7180DISKLOAD"IMG_18" +7185PRINT"Vous êtes en haut de l'escalier." +7189RETURN +7190DISKLOAD"IMG_19" +7195PRINT"Vous êtes dans la salle bain." +7199RETURN +7200DISKLOAD"IMG_20" +7205PRINT"Vous êtes dans le living room." +7209RETURN +7210DISKLOAD"IMG_21" +7215PRINT"Vous êtes dans une pièce enfumée...!" +7219RETURN +7220DISKLOAD"IMG_22" +7225PRINT"Vous êtes dans une grande pièce." +7229RETURN +7230DISKLOAD"IMG_23" +7235PRINT"Vous êtes dans une pièce de rangement." +7239RETURN +7240DISKLOAD"IMG_24" +7245PRINT"Vous êtes dans le dressing." +7249RETURN + +7500TX7,0,0:CURSORY23:PRINTSPC(8)"APPUYEZ SUR UNE TOUCHE" +7510N=RND(1) +7511IFKEY(0)=0 THEN7510 +7515RETURN + +7600REM CONFIG JEU +7602INIT0,0:TX3,0,0 +7605POKE-34,0:POKE-1,0 +7610INPUT "Carte SON (O/N)";X$ +7620IF X$="O" THENPOKE-34,1:GOTO7630 +7625IF X$<>"N"THEN7610 +7630INPUT "Foudre (O/N)";X$ +7640IF X$="O" THENPOKE-1,1:GOTO7650 +7645IF X$<>"N"THEN7630 +7650RETURN + + +8000REM CHARGEMENT VARIABLES +8001RESTORE +8010V=70 +8130O=25:DIMO(25) +8140FORN=1TO25 +8150READO(N) +8170NEXTN +8180DATA 06,05,05,08,08,00,00,11,11 +8190DATA 13,20,18,16,16,16,16,00,21 +8200DATA 00,22,25,12,00,25,00 +8205DIMO$(25) +8210FORN=1TO25 +8220READO$(N) +8240NEXTN +8250DATA UNE TORCHE ELECTRIQUE,UN ROBINET,UN CISEAU,UN TOURNEVIS +8260DATA UNE LAMPE A PETROLE,UNE LAMPE PLEINE,UNE LAMPE ALLUMEE,UN COUTEAU +8270DATA UN PAPIER,UN LIVRE,DU PETROLE DANS UN LAVABO BOUCHE +8280DATA UNE CLEF,UN BOUTON ROUGE,UN BOUTON BLEU +8290DATA UN BOUTON VERT,UN TELEPORTEUR,UN TELEPORTEUR REPARE +8300DATA UNE COMBINAISON ARGENTEE,UNE COMBINAISON ENFILEE,UN MONSTRE A L'EST +8310DATA UN PISTOLET,UN BRIQUET,UN BRIQUET ALLUME,UN POT,UN POT PLEIN D'EAU +8320M=25:DIMM$(25) +8330FORN=1TO25 +8340READM$(N) +8360NEXTN +8370DATA 00,0403030400,030200,04020305010600,04040107032000,020400 +8380DATA 04080109020500,030700,04130207031000 +8390DATA 0409021100,0110031200,041100,030900,0209031500,00,00 +8400DATA 00,00,0122032100,040500,0125022200,012100 +8410DATA 0124042200,022300,022100 +8430A=128:DIMA$(128) +8440FORN=1TO128 +8450READA$(N) +8470NEXTN +8480DATA 1400A01.I02D02M.,0500A03D08.D03N.,0500A03E08E09D24.D04D05I19E02M. +8485DATA 0500A03E08D24.D04D06N. +8490DATA 0500A03E07.I19M.,0500A03E03.I19M.,0500A03.I19E02M.,0600A19D08.D03N. +8500DATA 0600A19E08E09D24.D04D05I03M.,0600A19E08D24.D04D06N.,0600A19.I03M. +8505DATA 0100A09E07B22.D07N. +8510DATA 0100A09E03B05.D07N.,0100A09.I14E02M.,0100A14.I16E02M. +8515DATA 0200A16E07B22.D07N.,0200A16E03B05.D07N. +8520DATA 0200A16.I14E02M.,0400A15E03B05.D07N.,0400A15E07B22.D07N. +8522DATA 0400A15.I14E02M.,0100A15E03.I17M.,0100A15E07.I17M.,0100A15.I17E02M. +8525DATA 0200A17.F01I15M. +8530DATA 0300A17.D08N.,0400A17.D09K.,0300A18.D10F03E01E02I17M. +8531DATA 0400A21E03.I19M. +8535DATA 0400A21E07.I19M.,0400A21.I19E02M.,0200A22E03.I19M.,0200A22E07.I19M. +8540DATA 0200A22.I19E02M.,0200A19.D11N.,0400A19.D11N.,0300A22.D12I23M. +8541DATA 2500A01.D13.,2500I01.D14K.,1244A03.D15M.,1034B01.B01J.,1027B08.B08J. +8545DATA 1028B04.B04J.,1029B05.B05J.,1032B21.B21J.,1038B24.B24J. +8548DATA 1039B12.B12J.,1040B09.B09J.,1041B10.B10J.,1043B18.B18J. +8550DATA 1050B03.B03J.,1042B22.B22J.,1037A20B05.H11P05E05D16K.,1037A20.D17K. +8553DATA 1134.C01J.,1127.C08J.,1128.C04J.,1129.C05J.,1132.C21J.,1138.C24J. +8555DATA 1143E09.D62K. +8556DATA 1139.C12J.,1140.C09J.,1141.C10J.,1143.C18J.,1150.C03J.,1142.C22J. +8560DATA 2400.A00L.,1249A05.E04D20G0405J.,1349A05.F04J.,2238A05E04.P24E08J. +8563DATA 2338A05E08.F08P24J.,2338E08.D21N.,1848B10.D22L.,1841B10.D23N. + +8566DATA 1840B09.D24K.,2040B09.D25K.,1951A02.D26M.,1951.D27K.,2100A14.D28K. +8570DATA 2100.D29K.,1542C22.D33K.,1542E07.D30K.,1542A14.D07N. +8575DATA 1542A17E01.D10K.,1542E02.F02E07E06P22M.,1542.E07P22J. +8580DATA 1529C05.D33K.,1529E03.D30K.,1529F07.D31L.,1529F05.D32L. +8590DATA 1529E02.F02E03E06P06P05M.,1529.E03P06P05J. +8595DATA 1642C22.D33K.,1642F07.D30K.,1642E06E03.D36F07P22M. +8597DATA 1642E06.E02F07F06P22M. +8600DATA 1642.F07P22M.,1629C05.D33K.,1629F03.D30K.,1629E07E06.D34F03P05M. +8605DATA 1629E06.E02F06F03P05M.,1629.F03P05M.,1534B01.D35N. +8610DATA 1735I16.D45K.,1735E02.D43K.,1735F03.D44K.,1735C04.D46K. + +8615DATA 1735.P16E10J.,5600A16F10.D47K.,5646A16.D48N.,5647A16.D48N. +8620DATA 5645A16F09.D50D06N.,5645A16.D49I18M.,5543D18E09.D30K. +8625DATA 5543D18.P18E09J.,5743D18F09.D30K.,5743D18.P18F09J. +8630DATA 1233A24C12.D51K.,1233A24C03.D52N.,1233A24.G0503E11D63K. +8635DATA 2636E11.D54F11D55K.,5350E11.D54F11D55K.,5232B21.D56N. +8640DATA 5830F08.D57.,5830.D58D59.,1233A06.D61M. +8650DATA 1233A25.D64N. +8700PL=INT(RND(1)*9000+1000) +8800C=14:DIMC$(14) +8810FORN=1TO14 +8820READC$(N) +8840NEXTN +8850DATA G03E03.D00N.,G04E04.D01N.,I14I16I17I19.F02.,G07E07.D18N.,GO1.D19N. +8860DATA H06C03C08.D37N.,H08D08.D39L.,H06D03.D38L.,G08E08B24.D40D21N. +8870DATA H02.D41N.,G09E02.D42N.,G05E11.D52N.,I24E11.D53D52N.,.L. +8900RETURN + +9000FORIJ=1TO100:NEXTIJ +9010RETURN + +11000REM SUCCES +11020DISKLOAD"IMG_01" +11030MODEMN:MODEMC:MODEMD +11040PRINT"Vous voila en dehors de la maison..." +11050MODEMW,250 +11055MODEMN +11060PRINT" Cela est exceptionnel,vous êtes le" +11065PRINT"premier à sortir vivant de cette" +11070PRINT"maison. Mais à votre place, je me" +11075PRINT"mettrais à courrir car un nain rode" +11080PRINT"peut être dans les parages..." +11085 GOSUB 11100 +11090GOTO 20040 + +11100REM TEA FOR TWO +11102RESTORE11125 +11105FORN=1TO110 +11110READ A1,A2,A3 +11115MODEMM,1,A1,A2,10:MODEMP,1,0,0,100:MODEMW,A3 +11120MODEMP,0,0,0,0 +11122NEXTN +11123RETURN +11125DATA 4,6,45,4,3,15,4,5,45,4,3,15,4,6,45,4,3,15,4,5,45 +11130DATA 4,1,15,4,5,45,4,1,15,4,3,45,4,1,15,4,5,45,4,1,15 +11135DATA4,3,45,4,1,15,4,6,45,4,3,15,4,5,45,4,3,15,4,6,45 +11140DATA4,3,15,4,5,45,4,1,30,4,10,30,4,10,22,4,7,8,4,9,30,4,9,22,4,7,8 +11145DATA4,10,30,4,10,22,4,7,8,4,9,30,4,9,22,4,5,8,4,9,30,4,7,22,4,5,8 +11150DATA4,7,30,4,7,22,4,5,8,4,9,30,4,9,22,4,5,8,4,7,30,4,7,22,4,5,8 +11155DATA4,10,30,4,10,22,4,7,8,4,9,30,4,9,22,4,7,8,4,10,30,4,10,22,4,7,8 +11160DATA4,9,30,4,9,30,5,2,120,5,1,60,4,6,45,4,3,15,4,5,45,4,3,15,4,6,45 +11165DATA4,3,15,4,5,45,4,1,15,4,5,45,4,1,15,4,3,45,4,1,15,4,5,45,4,1,15 +11170DATA4,3,45,4,1,15,4,6,45,4,3,15,4,5,45,4,3,15,4,6,45,4,3,15,4,5,45 +11175DATA4,1,30,5,3,45,5,3,15,5,1,45,5,1,15,4,11,45,4,11,15,4,10,45,4,10,15 +11180DATA5,1,45,5,1,15,4,11,45,4,11,15,4,10,45,4,10,15,4,8,45,4,8,15 +11185DATA4,6,45,4,3,15,4,5,45,4,3,15 +11190DATA4,6,45,4,3,15,4,5,45,4,10,15,4,6,120 + +20000REM TOMBE +20005DISKLOAD"IMGTMB" +20010MODEMC:MODEMD:MODEMN +20020PRINT"Vous êtes mort !":MODEMW,100 +20030IF PEEK(-34)=1 THENGOSUB21000 +20040MODEML:PRINT:MODEML:X$="":INPUT"Voulez-vous rejouer ";X$ +20050IFX$="O"ORX$="o" THENRUN45 +20060IFX$="N"ORX$="n" THEN20080 +20070GOTO20040 +20080MODEMN:PRINT" AU REVOIR" +20090END + +21000REM SARABANDE +21005RESTORE21040 +21015FORN=1TO75 +21020READA1,A2,A3,A4,A5 +21025READA6,A7,A8,A9,A0 +21030MODEMM,1,A1,A2,A3:MODEMM,2,A4,A5,A6:MODEMM,3,A7,A8,A9:MODEMP,7,0,0,100:MODEMW,A0 +21031IFKEY(0)<>0 THEN MODEMP,0,0,0,0:RETURN +21032IFN>70 THENNEXTN:MODEMP,0,0,0,0:RETURN +21035MODEMP,0,0,0,0:NEXTN +21040DATA 3,6,8,3,3,8,2,10,8,80 +21045DATA 3,6,8,3,3,8,2,10,8,80 +21050DATA 0,1,1,0,1,1,0,1,1,40 +21055DATA 3,8,8,3,5,8,0,1,1,40 +21060DATA 3,5,8,3,2,8,2,10,8,80 +21065DATA 3,5,8,3,2,8,2,10,8,40 +21070DATA 1,11,8,0,1,1,0,1,1,40 +21075DATA 1,10,8,0,1,1,0,1,1,40 +21080DATA 1,8,8,0,1,1,0,1,1,40 +21085DATA 3,10,8,3,6,9,3,1,8,80 +21090DATA 3,10,8,3,6,9,3,1,8,80 +21095DATA 0,1,1,0,1,1,0,1,1,40 +21100DATA 3,11,8,3,8,8,0,1,1,40 +21105DATA 3,8,8,3,5,8,3,1,8,80 +21110DATA 3,8,8,3,5,8,3,1,8,40 +21115DATA 2,1,8,0,1,1,0,1,1,40 +21120DATA 1,11,8,0,1,1,0,1,1,40 +21125DATA 1,10,8,3,7,8,3,10,8,40 +21130DATA 3,11,8,3,8,8,3,3,8,80 +21135DATA 3,11,8,3,8,8,3,3,8,80 +21140DATA 1,8,8,0,1,1,0,1,1,40 +21145DATA 1,8,8,3,10,8,4,1,8,40 +21150DATA 3,10,8,3,6,8,3,3,8,80 +21155DATA 3,10,8,3,6,8,3,3,8,80 +21160DATA 0,1,1,0,1,1,0,1,1,40 +21165DATA 3,10,8,2,1,8,0,1,1,40 +21170DATA 4,3,8,3,10,8,1,11,8,80 +21175DATA 4,3,8,3,8,8,2,11,9,80 +21180DATA 0,1,1,0,1,1,0,1,1,40 +21185DATA 4,5,8,0,1,1,0,1,1,40 +21190DATA 4,2,8,3,10,8,3,5,8,80 +21195DATA 4,2,8,3,10,8,3,5,8,40 +21200DATA 2,8,8,0,1,1,0,1,1,40 +21202DATA 2,6,8,0,1,1,0,1,1,40 +21203DATA 2,5,8,0,1,1,0,1,1,40 +21205DATA 3,6,8,3,3,8,2,10,8,80 +21210DATA 3,6,8,3,3,8,2,10,8,80 +21215DATA 0,1,1,0,1,1,0,1,1,40 +21220DATA 3,8,8,3,5,8,0,1,1,40 +21225DATA 3,5,8,3,2,8,2,10,8,80 +21230DATA 3,5,8,3,2,8,2,10,8,40 +21235DATA 1,11,8,0,1,1,0,1,1,40 +21240DATA 1,10,8,0,1,1,0,1,1,40 +21245DATA 1,8,8,0,1,1,0,1,1,40 +21250DATA 3,10,8,3,6,9,3,1,8,80 +21255DATA 3,10,8,3,6,9,3,1,8,80 +21260DATA 0,1,1,0,1,1,0,1,1,40 +21265DATA 3,11,8,3,8,8,0,1,1,40 +21270DATA 3,8,8,3,5,8,3,1,8,80 +21275DATA 3,8,8,3,5,8,3,1,8,40 +21280DATA 2,1,8,0,1,1,0,1,1,40 +21285DATA 1,11,8,0,1,1,0,1,1,40 +21290DATA 1,10,8,3,7,8,3,10,8,40 +21295DATA 3,11,8,3,8,8,3,3,8,80 +21300DATA 2,8,8,0,1,1,0,1,1,40 +21305DATA 3,11,8,3,8,8,3,1,8,40 +21310DATA 2,8,8,0,1,1,0,1,1,40 +21315DATA 2,1,8,0,1,1,0,1,1,40 +21320DATA 4,1,8,2,5,8,0,1,1,40 +21325DATA 3,10,8,3,6,8,3,1,8,80 +21330DATA 3,10,8,2,3,8,0,1,1,40 +21335DATA 4,3,8,3,6,8,2,11,8,40 +21340DATA 4,2,8,0,1,1,0,1,1,40 +21345DATA 4,3,8,3,11,8,2,8,8,40 +21350DATA 4,5,8,0,1,1,0,1,1,40 +21355DATA 4,6,8,3,10,8,2,10,8,80 +21360DATA 4,5,8,3,8,8,1,10,8,40 +21365DATA 0,1,1,3,8,8,1,10,8,40 +21370DATA 4,3,8,0,1,1,0,1,1,40 +21375DATA 4,3,8,3,6,8,2,3,8,80 +21380DATA 3,3,8,3,10,8,3,6,8,40 +21385DATA 3,3,7,3,10,7,3,6,7,40 +21390DATA 3,3,6,3,10,6,3,6,6,40 +21395DATA 3,3,5,3,10,5,3,6,5,40 +21400DATA 3,3,4,3,10,4,3,6,5,40 + + diff --git a/lemanoirdudocteurgenius/vg5000/vg5000_presentation.bas b/lemanoirdudocteurgenius/vg5000/vg5000_presentation.bas new file mode 100644 index 0000000..c1a8ffc --- /dev/null +++ b/lemanoirdudocteurgenius/vg5000/vg5000_presentation.bas @@ -0,0 +1,141 @@ +3 REM LE MANOIR DU DOCTEUR GENIUS +2 REM COPYRIGHT LORICIELS 83 L.BENES +4 REM VERSION VG5000 FRED_72 2021 +5 REM +10 CLEAR 300,-16385 +20 DISK LOAD"CODE":CALL-16384 +25 POKE&"47FD",0 +30 INIT 0,0:CURSORY5:CURSORX 4: TX 7,1,0: PRINT " LORICIELS et FRED_72 SONT FIERS" +31 CURSORY6:CURSORX4:PRINT " LORICIELS et FRED_72 SONT FIERS" +35 CURSORY7:CURSORX10:PRINT "DE VOUS PRESENTER :" +36 CURSORY8:CURSORX10:PRINT "DE VOUS PRESENTER :" +40 TX2,0,0:CURSORY22:PRINT "Programme original de L.Benes (1983)" +45 CURSORY23:PRINT "Adaptation VG5000 par Fred_72 (2021)" +50 FORI=1TO6000:NEXTI +55 SETEG 92,"3E7F7F7F7F7F7F7F3E00" +60 SETEG 32,"00000000000000000000" +65 INIT0,0:EG 3,0,0:PRINT +100 CURSORX2:PRINT"\ \\\ \ \ \\\ \ \ \\\ \ \\\" +105 CURSORX2:PRINT"\ \ \\ \\ \ \ \\ \ \ \ \ \ \" +110 CURSORX2:PRINT"\ \\\ \ \ \ \\\ \\\\ \ \ \ \\\" +115 CURSORX2:PRINT"\ \ \ \ \ \ \ \\ \ \ \ \\" +120 CURSORX2:PRINT"\\\ \\\ \ \ \ \ \ \ \\\ \ \ \" +130 CURSORX5:CURSORY7:PRINT"\\ \ \ \\":CURSORX5:PRINT"\ \ \ \ \ \ \":CURSORX5:PRINT"\ \ \ \" +135 CURSORX17:CURSORY9:PRINT"\ \ \\":CURSORX5:PRINT"\ \ \ \ \ \ \ \":CURSORX5:PRINT"\\\ \\\" +140 CURSORX17:CURSORY11:PRINT"\\\ \":CURSORX2:CURSORY15:PRINT"\\\\ \\\\ \\ \ \ \ \ \\\\" +145 CURSORX2:CURSORY16:PRINT"\ \ \ \\ \ \ \ \ \":CURSORX2:PRINT"\ \ \\\ \ \ \" +150 CURSORX27:CURSORY17:PRINT"\ \":CURSORX2:PRINT"\ \\\ \ \ \ \ \ \ \\\\" +155 CURSORX2:CURSORY19:PRINT"\ \\ \ \ \\\ \ \ \ \":CURSORX2:PRINT"\ \ \ \ \\" +160 CURSORX21:CURSORY20:PRINT"\ \ \ \":CURSORX2:PRINT"\\\\ \\\\ \ \\ \ \\\\ \\\\ \ \" +170 GOSUB3000 +180 GOSUB1000 +200 GOSUB 800 +230 INIT 0,0: TX2,0,0:PRINT:PRINT:INPUT"La liste des instructions (O/N) ";V$ +240 IF V$="O"ORV$="o" THEN 500 +245 IF V$="N"ORV$="n" THEN 300 +255 GOTO 230 + +300 INIT0,0:TX3,0,0:CURSORY23:PRINTSPC(8)"Chargement en cours..." +304 REM ACTIVER FOUDRE (1 pour déscativer) +305 POKE-1,0: MODEMW,50 +310 DISKRUN"JEU" + +500 INIT 0,0:TX3,0,0 +510PRINT:PRINT"Vous voici arrivé dans le manoir du" +511PRINT"Dr Genius..." +515PRINT:PRINT"Pour converser avec l'ordinateur,il" +516PRINT"faut rentrer les ordres en 1 ou 2" +520PRINT:PRINT"mots tels que:":PRINT:PRINT" NORD" +525PRINT:PRINT" PRENDS PILLULE" +530PRINT:PRINT"ou pour commencer: ENTRE" +540 MODEMW,400 +545 GOSUB 800 +550 INIT0,0:TX7,0,0:PRINTSPC(8)"Liste du vocabulaire" +555 TX3,0,0:PRINT:PRINT +560 PRINT " ACTIONNE ENTRE PAPIER" +565 PRINT " ALLUME ESCALIER PASSE" +570 PRINT " APPUIE EST (E) PETROLE" +575 PRINT " ATTENDS ETEINS PISTOLET" +580 PRINT " AVANCE FERME PLACARD" +585 PRINT " BLEU GRIMPE POIGNARDE" +590 PRINT " BRIQUET INVENTAIRE PORTE" +595 PRINT " CISEAU JETTE POSE" +600 PRINT " CLEF LAMPE POT" +605 PRINT " CODE LANCE PRENDS" +610 PRINT " COFFRE LIS RAMASSE" +615 PRINT " COMBINAISON LISTE REGARDE" +620 PRINT " COUTEAU LIT REMPLIS" +625 PRINT " DEPANNE LIVRE RENIFLE" +630 PRINT " DESCENDS MONSTRE RENTRE" +635 PRINT " EAU MONTE REPARE" +640 PRINT " ENFILE NORD (N) RETOURNE" +645 PRINT " ENFONCE OUEST (O) RIEN" +650 PRINT " ENLEVE OUVRE ROBINET" +660 GOSUB 800 +670 INIT0,0:TX7,0,0:PRINTSPC(8)"Liste du vocabulaire" +675 TX3,0,0:PRINT:PRINT +680 PRINT " ROUGE TELEPORTEUR TOURNE" +685 PRINT " SENS TITRE VERT" +690 PRINT " SUD (S) TORCHE VIDE" +700 GOSUB 800 +710 INIT0,0:TX3,0,0:PRINT:PRINT" Un dernier conseil:" +715 MODEMW,150 +720 PRINT"Il peut parfois y avoir une porte +725 PRINT"derrière vous." +730 MODEMW,200 +735 PRINT:PRINT:PRINT:PRINT"Bonne chance..." +740 MODEMW,200 +750 GOTO300 +800 CURSORX8:CURSORY25:PRINT "Appuyez sur une touche"; +810 A=KEY(0):X=RND(1) +820 IF A=0 THEN810 +830 RETURN + +1000 INIT 3,3:TX0,0,0:PRINT:PRINT:PRINT"ATTENTION ................." +1005 PRINT:PRINT"L'utilisation de ce programme est" +1010 PRINT:PRINT"déconseillée aux personnes sensibles" +1020 PRINT:PRINT"aux enfants en bas âge,ainsi qu'à" +1030 PRINT:PRINT"toute personne susceptible d'avoir" +1040 PRINT:PRINT"des malaises cardiaques." +1050 PRINT:PRINT"Nous ne pourrions être tenu responsa-" +1060 PRINT:PRINT"bles,des troubles physiques ou mentaux" +1070 PRINT:PRINT"provoqués par votre échec dans" +1080 PRINT:PRINT"le Manoir du Dr GENIUS ............. " +1099 MODEMW,400 +1100 RETURN + +3000 REM BADINERIE +3005 RESTORE 3030 +3010 FOR N=1 TO 97 +3015 READ A1,A2,A3 +3020 MODEMM,1,A1,A2,10 +3021 MODEMP,1,0,0,100 +3023 MODEMW,A3 +3025 MODEMP,0,0,0,0:NEXTN +3030 DATA4,12,20,5,3,10,4,12,10,4,7,20 +3035 DATA4,12,10,4,7,10,4,3,20,4,7,10 +3040 DATA4,3,10,3,12,40,3,7,10,3,12,10 +3045 DATA4,3,10,3,12,10,4,2,10,3,12,10 +3050 DATA4,2,10,3,12,10,3,11,10,4,2,10 +3055 DATA4,5,10,4,2,10,4,3,20,3,12,20 +3060 DATA4,12,20,5,3,10,4,12,10,4,7,20 +3065 DATA4,12,10,4,7,10,4,3,20,4,7,10 +3070 DATA4,3,10,3,12,40,4,3,20,4,3,20 +3075 DATA4,3,20,4,3,20,4,12,20,4,3,20 +3080 DATA4,3,7,4,5,7,4,3,7 +3085 DATA4,2,20,4,7,20,4,7,20,4,7,20 +3090 DATA4,7,20,5,3,20,4,7,20,4,7,7 +3100 DATA4,8,7,4,7,7,4,6,20,4,2,10 +3105 DATA4,7,10,4,10,10,4,7,10,4,9,10 +3115 DATA4,7,10,4,6,10,4,9,10,4,12,10 +3120 DATA4,9,10,4,10,10,4,9,10,4,10,10 +3125 DATA4,9,10,4,7,10,4,10,10,4,7,10 +3130 DATA4,6,10,4,7,10,4,12,10,4,7,10 +3145 DATA4,6,10,4,7,10,5,2,10,4,7,10 +3150 DATA4,6,10,4,7,10,5,3,10,4,7,10 +3155 DATA4,6,10,4,7,10,5,3,10,5,2,10 +3160 DATA4,12,10,5,2,10,4,10,10,4,9,10 +3165 DATA4,7,10,4,10,10,4,9,7,4,10,7,4,9,7,4,7,20 +3170 RETURN + +