2,2:: 15,1,(0,0)(255,191),1  JI0 50: JI ; 1,0: (16);"" ;( 1,5: (16);"" 62 1,178: "" 6< 1,183: "" F A1 7: 5,0,0 $P 1,1: 50,80: (17);"THE HANGING" Z JJ1 75: JJ .d 15,1: 50,80: (17);"THE HANGING": 5,0,10 $n 8,1: 70,120: (16);" 1989" x JJ1 25: JJ: 4,0,0  A  JJ0 200: JJ  180  A$ˀ: A$"" 170   1re PARTIE  2,2:: 1 ,8,(0,0)(255,191),8  60,30:(17);"THE HANGING" 1 15,8: 57,50: (16);"AUTEUR:MARC LE DOUARAIN"  (40,20)(210,70),1,B : " 2,8: 50,100: " 1 : Un joueur"  50,120:" 2 : Deux joueurs" X Z0 1:3,494,10: X0 50: X: 0: D1 3: 3,587,10: X0 50: X: 0:D: 0: Z A$ˀ: A$"" 290  A$"" 340 v" 3,494,10: X0 50: X:0: 3,587,10: X0 50: X: 0: 3,440,10: X0 50: X: 0: 3,587,10: X0 50: X: 0 ,A$ˀ: A$"" 320 6 A$"" 340 Z@ 3,494,10: X0 50: X: 0: 3,392,10: X0 50: X: 0: 3,440,10: X0 100: X: 0 JA$ˀ: A$"" 260 T A$"1" 370 ^ A$"2" 2270 h 260 rC0:B0:N0 | 1,1: 3,6: CC1 Lˀ((1)100)1:  L1 R$"ECUREUIL"  L2 R$"SINGE"  L3 R$"GORILLE"  L4 R$"CROCODILE"  L5 R$"ELEPHANTEAU"  L6 R$"GLACE"  L7 R$"ROCHER"  L8 R$"CIEL"  L9 R$"SABLE"  L10 R$"COQUILLAGES"  L11 R$"POISSONS"  L12 R$"GRENOUILLE"  L13 R$"PECHEUR"  L14 R$"NENUPHAR" & L15 R$"JONCS" 0 L16 R$"TOBOGGAN" : L17 R$"SEAU" D L18 R$"BATEAU" N L19 R$"BALLON" X L20 R$"BALANCOIRE" b L21 R$"ARBITRE" l L22 R$"JOUEUR" v L23 R$"PHOTOGRAPHE"  L24 R$"GARDIEN"  L25 R$"EQUIPE"  L26 R$"BANDEAU"  L27 R$"CACHETTE"  L28 R$"FOULARD"  L29 R$"BONNET"  L30 R$"PLUME"  L31 R$"TRICHEUR"  L32 R$"COURSE"  L33 R$"CHRONOMETRE"  L34 R$"PARCOURS"  L35 R$"JUGE"  L36 R$"NEIGE"  L37 R$"YEUX"   L38 R$"NEZ"  L39 R$"PIPE"   L40 R$"BONHOMME" * L41 R$"ANORAK" 4 L42 R$"CHAUSSURES" > L43 R$"STALACTITES" H L44 R$"HELICOPTERE" R L45 R$"MARCHES" \ L46 R$"PARACHUTE" f L47 R$"MARE" p L48 R$"LUNETTES" z L49 R$"PILOTE"  L50 R$"PLONGEON"  L51 R$"GITANS"  L52 R$"FUMET"  L53 R$"TROU"  L54 R$"AMIES"  L55 R$"MEMBRES"  L56 R$"TABLEAU"  L57 R$"PUPITRES"  L58 R$"ELEVES"  L59 R$"BIBLIOTHEQUE"  L60 R$"PINCEAUX"  L61 R$"DESSINS"  L62 R$"REGLE"  L63 R$"COLLE"  L64 R$"MICROSCOPES"  L65 R$"TREUILS" $ L66 R$"CUVES" . L67 R$"MACHINES" 8 L68 R$"TELEPHONE" B L69 R$"APPRENTIES" L L70 R$"CHEMINEES" V L71 R$"CHAUMIERE" ` L72 R$"TOITS" j L73 R$"EGLISES" t L74 R$"CLOCHER" ~ L75 R$"TROTTOIRS"  L76 R$"EGOUT"  L77 R$"PIETONS"  L78 R$"AGENTS"  L79 R$"CHAUSSEE"  L80 R$"AUTOROUTE"  L81 R$"CHEFS"  L82 R$"GRAISSES"  L83 R$"BOULONS"  L84 R$"MANIVELLE"  L85 R$"TRAIN"  L86 R$"CAISSES"  L87 R$"CHARIOT"  L88 R$"POINCONNEUR"   L89 R$"DISTRIBUTEUR"  L90 R$"SIPHONS"  L91 R$"SOUDURES" ( L92 R$"ROBINET" 2 L93 R$"VENTOUSES" < L94 R$"PISTONS" F L95 R$"BROCHAGES" P L96 R$"FUSIBLES" Z L97 R$"BORNES" d L98 R$"COMMUTATEUR" n L99 R$"JAUGE" x L100 R$"COURROIE" SA$ˀ(130):B$ˀ(128):C$ˀ(144):D$ˀ(229):E$ˀ(144):F$ˀ(230):G$" ":H$ˀ(155) oB$B$G$B$B$G$B$""""""G$""G$G$""G$"-""""-"""""""""" """""""""G$""" " P$"": I1 (R$) P$P$"-"  I P11   30,14:"嚚"  32,13:"": 32,12:""  32,11:"": 32,10:""  32,9:"": 32,8:""  32,7:"": 32,6:""  32,5:"": 32,4:""  32,3:"": 26,2:"" # 18,1:"-----": 18,2:" A B " # 18,3:" C D ": 18,4:" E F " #" 18,5:" G H ": 18,6:" I J " [, 18,7:" K L ": 18,8:" M N ": 18,9:" O P ": 18,10:" Q R ": 18,11:" S T " K6 18,12:" U V ": 18,13:" W X ": 18,14:" Y Z ": 18,15:"-----" -@ 1,17:"" -J 1,19:"" T C1 1700 ^ 1,15: N;" Nul(s)" h 1,14: B;" Bon(s)" r 1,13: C1;" Coup(s)" | 1,12:"----------"  1,16:"----------" # 1,13:"": 1,14:"": 1,15:"" ' 12,13: "": 12,14:"": 12,15:""  1,3: P$  I12 P 1  26,13P: (B$,3(I1)1,3)  I V P$R$ 15,18: "BRAVO": 2: 1: 2: X0 50 : X: 15,18:" ":BB1: 2130  P1 : 2,18: "PERDU ; le mot tait:";R$: 1: 2: 1: 0: X0 200: X::: X0 100: X: 2,18:" ":NN1: 2130 F 1,20 : "Votre lettre:";S$: 1,20:" "  S$"A" 20,2:" "  S$"B" 22,2:" "  S$"C" 20,3:" "  S$"D" 22,3:" "  S$"E" 20,4:" "  S$"F" 22,4:" " & S$"G" 20,5:" " 0 S$"H" 22,5:" " : S$"I" 20,6:" " D S$"J" 22,6:" " N S$"K" 20,7:" " X S$"L" 22,7:" " b S$"M" 20,8:" " l S$"N" 22,8:" " v S$"O" 20,9:" "  S$"P" 22,9:" "  S$"Q" 20,10:" "  S$"R" 22,10:" "  S$"S" 20,11:" "  S$"T" 22,11:" "  S$"U" 20,12:" "  S$"V" 22,12:" "  S$"W" 20,13:" "  S$"X" 22,13:" "  S$"Y" 20,14:" "  S$"Z" 22,14:" " T0  I1 (R$)  (R$,I,1)S$ 2100   I  T 0 1700  PP1 * 1700 4T1 >P$ˀ(P$,I1)S$Ā(P$,(P$)I) H %R 5,18 :"UNE AUTRE PARTIE ( O / N ) \A$ˀ: A$"" 2140 f A$"O" 380 p A$"N" : 2,2:: 1,8,(0,0)(255,191),8: (50,20)(220,140),9,B: (48,18)(222,142),9,B: (46,16)(224,144),9,B: (50,50)(220,50),9: 7,8:65,30: (17);"THE HANGING" z A$"N" 1,8: 70,65:(17);"RESULTATS :": 70,75:"": 11,8: 90,90: (16);C;" COUP(S)": 90,105: B;" BON(S)": 90,120: N;" NUL(S)":V0  A$"M" 190  A$"N" VV1: I1 2: 3,494,10: X0 50: X: 0: C1 3:3,587,10: X0 50: X:0:C: I: 3,494,10: X0 50: X: 0: 3,587,10: X0 50: X: 0  A$"N" 3,440,10: X0 50: X: 0:3,587,10: X0 50: X: 0: 3,494,10: X0 50: X: 0: 3,392,10: X0 50: X: 0: 3,440,10: X0 100: X: 0  A$"N" 0: 2230 L 22,18:" ": 5,0,10: X0 50: X: 0: 22,18:"( O / N )": 2140  V2 180  2190  S$"S" 20,11:" "   2me PARTIE  #C0:H0:B0:G0:N0:J0:V0:I0:X0 K1  1,1: 3,6:  1,8:"1 JOUEUR."  1,10:"2 JOUEUR."  K1 1,9:"" $ K2 1,11:"" . 1,1:"Mot secret : ";R$ 8 KK1 B K2 K1 SL A$ˀ(130):B$ˀ(128):C$ˀ(144):D$ˀ(229):E$ˀ(144):F$ˀ(230):G$" ":H$ˀ(155) V K1 CC1 ` K2 HH1 oj B$B$G$B$B$G$B$""""""G$""G$G$""G$"-""""-"""""""""" """""""""G$""" " t P$"": I1 (R$) ~ P$P$"-"  I  P11   30,14:"嚚"  32,13:"": 32,12:""  32,11:"": 32,10:""  32,9:"": 32,8:""  32,7:"": 32,6:""  32,5:"": 32,4:""  32,3:"": 26,2:"" # 18,1:"-----": 18,2:" A B " # 18,3:" C D ": 18,4:" E F " # 18,5:" G H ": 18,6:" I J " [ 18,7:" K L ": 18,8:" M N ": 18,9:" O P ": 18,10:" Q R ": 18,11:" S T " K 18,12:" U V ": 18,13:" W X ": 18,14:" Y Z ": 18,15:"-----" - 1,17:"" -( 1,19:"" 2 2690 < 1,15: N;" Nul(s)" F 1,14: B;" Bon(s)" P 1,13: C1;" Coup(s)" Z 1,12:"----------" d 1,16:"----------" #n 1,13:"": 1,14:"": 1,15:"" &x 12,13:"": 12,14:"": 12,15:""  1,8:"JOUEUR 1 : ";C  1,10:"JOUEUR 2 : ";H  K1 1,9:""  K2 1,11:"" 0,3: P$  I12 P 1  26,13P: (B$,3(I1)1,3)  I Z P$R$ K1 15,18: "BRAVO": 2: 1: 2: X0 50: X: 15,18:" ":BB1: 3180 Z P$R$ K2 15,18: "BRAVO": 2: 1: 2: X0 50: X: 15,18:" ":GG1: 3180 P1 K1 : 2,18: "PERDU ; le mot tait:";R$: 2: 1: 2: X0 100:X: 2,18:" ":NN1: 3180 P1 K2 : 2,18: "PERDU ; le mot tait:";R$: 2: 1: 2: X0 100:X: 2,18:" ":JJ1: 3180 E 1,20 : "Votre lettre:";S$: 1,20:" "  S$"A" 20,2:" "  S$"B" 22,2:" "  S$"C" 20,3:" " " S$"D" 22,3:" " , S$"E" 20,4:" " 6 S$"F" 22,4:" " @ S$"G" 20,5:" " J S$"H" 22,5:" " T S$"I" 20,6:" " ^ S$"J" 22,6:" " h S$"K" 20,7:" " r S$"L" 22,7:" " | S$"M" 20,8:" "  S$"N" 22,8:" "  S$"O" 20,9:" "  S$"P" 22,9:" "  S$"Q" 20,10:" "  S$"R" 22,10:" "  S$"S" 20,11:" "  S$"T" 22,11:" "  S$"U" 20,12:" "  S$"V" 22,12:" "  S$"W" 20,13:" "  S$"X" 22,13:" "  S$"Y" 20,14:" "  S$"Z" 22,14:" "  T0  I1 (R$)  (R$,I,1)S$ 3150 & I 0 T 0 2730 : PP1 D 2730 N T1 X P$ˀ(P$,I1)S$Ā(P$,(P$)I) b l K2 X 0 50 :X: 2300 %q 5,18 :"UNE AUTRE PARTIE ( O / N ) v A$ˀ: A$"" 3190  A$"O" 2300 A$"N" : 2,2:: 1,8,(0,0)(255,191),8: (50,20)(220,170),9,B: (48,18)(222,172),9,B: (46,16)(224,174),9,B: (50,50)(220,50),9: 7,8:65,30: (17);"THE HANGING" - (130,90)(130,149),11: (70,98)(191,98),11 A$"N" 1,8: 70,65:(17);"RESULTATS :": 70,75:"": 11,8: 70,90: (16);"1 JOUEUR.": 65,105: C;" COUP(S)": 65,120: B;" BON(S)": 65,135: N;" NUL(S)":V0 BG P1 BG P2 5 BG 1,0: 60,160:"Pas de gagnant : galit ." 4 BG 1,0: 70,160: "Le ";P;" joueur a gagn ." { A$"N" 11,0: 140,90: (16);"2 JOUEUR.": 135,105: H;" COUP(S)": 135,120: G;" BON(S)": 135,135: J;" NUL(S)":V0 A$"N" VV1: I1 2: 3,494,10: X0 50: X: 0: C1 3:3,587,10: X0 50: X:0:C: I: 3,494,10: X0 50: X: 0: 3,587,10: X0 50: X: 0 A$"N" 3,440,10: X0 50: X: 0:3,587,10: X0 50: X: 0: 3,494,10: X0 50: X: 0: 3,392,10: X0 50: X: 0: 3,440,10: X0 100: X: 0  A$"N" 0: 2230 L 22,18:" ": 5,0,10: X0 50: X: 0: 22,18:"( O / N )": 3190 V2 180  3250  180   -F I N- 域  JIQAJJ@FOIXFOIX1: 6000 x  CAPITALES  1,1: Gˀ((1)27)1 % 1,1: 8,1: 0,12,1,1:: 8,1  8 ,2: "LE NOMBRE MYSTERIEUX"  8 ,4: "" $ 5,6: "REVU PAR: Marc Le Douarain" . 0,0: "" . 0,8 :"" 10,13,1,0   " Vous devez dcouvrir" ( " le Nombre mystrieux" !2 " avec le moins d'essais" !< " possibles, " F " en recevant seulement" P " comme renseignements:" Z " - TROP GRAND" d " - TROP PETIT" n "x " Ecrivez 0 lors de l'essai"  " pour arrter " A$ˀ A$"" 140 : T0 50: T   "NOMBRE DE CHIFFRES:";N : N7 N1 "Ce doit tre compris entre 1 et 7 .": 160  Xˀ((1)10N1) X0 190 J1 :"ESSAI NO.";J  "VOTRE NOMBRE:";M  M0 :: 410 MX 290  MX "TROP PETIT"  MX "TROP GRAND" JJ1 :  210 " ), "Vous avez trouv";X;" en";J;" essais." $6 0,14: "Voulez-vous recommencez ?" @A$ˀ J A$"O" A$"o" 365 T A$"N" A$"n" 410 ^ A$"" 320 /h 0,14: " "::: 310 mS120 r 1,S,15 |SS50  S 1000 370  0: 10 : " "  " "  " "  " "  " "  : ' " " ' " " ' " " ' " " ' " " S1000  1,S,15 SS50 & S 120 530 0 0,23,1,0 : 0: 570 A TQN XJMS R$"JONCS" 0 L16 R$"TOBOGGAN" : L17 R$"SEAU" D L18 R$"BATEAU" N L19 R$"BALLON" X L20 R$"BALANCOIRE" b L21  OXO  ------------------------------  1,1:3,5: ( " 喔 嘓 " 2 : < " - MENU -": : KF " 1. contre le SEGA ";": O > Joueur":" X > Sega": !P " 2. avec 2 joueurs ":: : : !ZK$ˀ: K$"" 1,312,7:0: 90 d: K$"1" PL1: 130 n K$"2" PL2: 130 x 90  " O. O commence ":  " X. X commence ": "K$ˀ: K$"" 1,902,7:0: 150 : K$"O" J1: 190  K$"X" J2: 190  150 15,15:: I(4),J(4) T0:M0  S#0,"C6C66C386CC6C600"  S#1,"187E66C3C3667E18" ! 2,1:15,15,(0,0)(255,191),15: 3,3,(70,0)(185,30)  (64,0)(192,30),11,B  (90,15),12.5,1,,,,BF  (166,15),12.5,1,,,,BF  (90,15),7.5,,,,,BF " (166,15),7.5,,,,,BF ,9: 115,2: " " 6 115,10: " " @ 115,13: " " J 115,21: " " T1: 100,172: "Player:" ^ 106,182: "Place:" h 2,1: S1 3 r I0 2 '| (70I40,S40)(110I40,40S40),4,B  97I40,30S40:I3S  :: 2,2  J2 550  T9 1400  0,(156,172),1,13  - (151,184)(180,191),,BF:A$ˀ: A$"" 450 Aˀ(A$): A1 A9 2: 450 1: 151,184: A Xˀ(A3.5):YA(X3)  P(X1,Y)0 2: 450  (90X40,20Y40),10,13,,,,BF  (90X40,20Y40),5,1,,,,BF P(X1,Y)1: 1700  I1 5: TT1: (151,184)(180,191),,BF & ----------------------------- 0 JEU DE L'ORDINATEUR : PL2 1440 D 0,(156,172),0,9 N P(2,2)0 X2:Y2: 920 X I,J: I(4),J(4):P1: 1140 b I1 4 l I(I)3 J(I)3 1350 v  I,J: I(4),J(4):P2: 1140  I1 4  I(I)2 J(I)2 690  P1  I,J: I(4),J(4) X0:Y0:M0  1140  I1 4  I(I)3 J(I)3 1350  I(I)M XI:Y0:MI(I)  J(I)M YI:X0:MJ(I)  I  T9 1400   P1 M2 810 PP1: P3 690  P2 * X4 840 4 P(1,1)0 X1:Y1: 920 >X3:Y3: 920 H Y4 870 R P(1,3)0 X1:Y3: 920 \X3:Y1: 920 f X0 Y0 X1 p I1 3 z Y0 P(X,I)0 YI  X0 P(I,Y)0 XI  I P(X,Y)2   151,184: (X1)3Y ' (40X40,10Y40)(45X40,10Y40),9  (50X40,18Y40)  (55X40,10Y40)  (59X40,10Y40)  (53X40,20Y40)  (60X40,30Y40)  (55X40,30Y40)  (50X40,22Y40)  (45X40,30Y40)  (41X40,30Y40)  (47X40,20Y40) $ (40X40,10Y40) . (50X40,20Y40),9 8 I1 50: B (150,184)(180,191),,BF L P2 M2 1350 VTT1: 420 ` ---------------------------- j COMPTE LES CASES tC0:D0 ~ I1 3 A0:B0  J1 3  P(I,J)P I(I)I(I)1  P(I,J)0 AA1  P(J,I)P J(I)J(I)1  P(J,I)0 BB1  J  A3 I(I)3 I(I)0  B3 J(I)3 J(I)0  P(I,I)P I(4)I(4)1  P(I,I)0 CC1  P(I,4I)P J(4)J(4)1  P(I,4I)0 DD1   I  C3 I(4)3 I(4)0  D3 J(4)3 J(4)0 ( 2 ---------------------------- < RESULTATS F 0,,,0 P (0,165)(255,191),,BF %Z P1 90,180:13: "VOUS GAGNEZ." "d P2 106,180:9: "JE GAGNE." n 1420 x (0,165)(255,191),,BF $ 0,,,0: 90,180:5: "PARTIE NULLE" + I 16 0 1:: J1 II10: ::: : 10  T9 1400  0,(156,172),0,9  . (151,184)(180,191),,BF:A$ˀ: A$"" 1470 Aˀ(A$): A1 A9 2: 1470 1: 151,184: A Xˀ(A3.5):YA(X3)  P(X1,Y)0 2: 1470 -XX1: (40X40,10Y40)(45X40,10Y40),9  (50X40,18Y40)  (55X40,10Y40)  (59X40,10Y40)  (53X40,20Y40) " (60X40,30Y40) , (55X40,30Y40) 6 (50X40,22Y40) @ (45X40,30Y40) J (41X40,30Y40) T (47X40,20Y40) ^ (40X40,10Y40) h (50X40,20Y40),9 r (150,184)(180,191),,BF | I1 5: P(X,Y)2: 1700 TT1: (151,184)(180,191),,BF  420  I1 4:A(I)0:B(I)0:  D1 3  E1 3  P(E,D)1 A(1)A(1)1  P(E,D)2 B(1)B(1)1  P(D,E)1 A(2)A(2)1  P(D,E)2 B(2)B(2)1   P(D,D)1 A(3)A(3)1  P(D,D)2 B(3)B(3)1  P(D,4D)1 A(4)A(4)1  P(D,4D)2 B(4)B(4)1  1830:: 1870 & Q1 4 0 A(Q)3 1880 : B(Q)3 1940 !D Q:A(1)0:A(2)0:B(1)0:B(2)0: N X 0,,,0 b (0,165)(255,191),,BF l 88,180:13: "LES O GAGNENT!" v  "" 1920  10  0,,,0  (0,165)(255,191),,BF  88,180:9: "LES X GAGNENT!"   "" 1920  10 K POKER  ------------------------------ 3,4:: :  "  10,14: "cree par J.B.BOLCATO" ! I1 40:K$ˀ: K$"" : 26  30  10,14: "cree par " ! I1 40:K$ˀ: K$"" : 23 : 2020 (12,7 2 J(8,4) <J$"789XVDRA" FG100 P I1 8 ZC(I)0 d K1 4 nJ(I,K)0 x K,I  -----------------------------  MISE DU JOUEUR &: 8,1:: 12,10: "MISE(MAX";G;"f)";  M  M1 MG 200  ----------------------------- " TIRAGE DE 10 CARTES , I1 10 6P(I)0 @Fˀ((1)8)1 JCˀ((1)4)1 T J(F,C)1 320 ^J(F,C)1 hS(I,1)F:S(I,2)C r I  -----------------------------  LE JEU : : (18);"POKER" ' 6,22: "CAPITAL:";G;" f MISE:";M; C0  I1 5 XI74:Y4: 1300 & I 0 I1 5 :: I72,12: "^" DA$ˀ: A$"" 580 N A$"N" 630 X A$"O" 580 b I72,11: "O" l 650 vS(I,1)S(I5,1):S(I,2)S(I5,2)  I72,11: "N"  I72,12: " "  I  I1 5 XI74: 1300  I  I1 8 P(I)0  J1 5  S(J,1)I P(I)P(I)1  J  J2 4  P(I)J C(J)C(J)1  J   I  C(4)1 C7: 930   C(3)1 C(2)1 C5: 890 * C(3)1 C3: 890 4 C(2)2 C2: 890 > C(2)1 C1: 890 H I5 8 R J1 5 \ S(J,1)I S(J,1)I4 880 f J:C4 p I z I2 5 9 (S(I,2)3 S(I1,2)2) (S(I,2)2 S(I1,2)3) 930  I C62(C4)  20ŀ(C$(C))2,19: C$(C)  C2 1110 8 C3 5,20: "DEUX PAIRES CE N'EST PAS ASSEZ": 1120  13,20: "MISE x PAR";C2  C3 1100 0 7,21: "VOULEZ VOUS x PAR";(C2)2;" (O/N)?": A$ˀ: A$"" 990  A$"O" 1100  12,20: "MISE x PAR";(C2)2 3 0,21: " PROCHAINE CARTE (R)OUGE OU (N)OIRE ?";: (A$ˀ: A$"" (A$"N" A$"R") 1030 X17:Y12:I1 )S(1,1)ˀ((1)8)1:S(I,2)ˀ((1)4)1 $ 1300 2. (S(1,2)2 A$"N") (S(1,2)2 A$"R") 1090 8GGM(C2)2: 1120 BGGM(C2)2: 1120 LGGM(C2): 1120 VGGM ` jA$ˀ: A$"" 1130 t G0 80 ~  :: :2 & " AVEC L'ARGENT QUE VOUS AVEZ": $ " PERDU,JE VAIS M'ACHETER": # " UNE EXTENSION MEMOIRE ..." & : : " tapez 'RUN' pour rejouer" ::: ! X1000 110 10: 1,X,15: X  X15 0 .5:1,,X: X   ---------------------------   AFFICHE LES CARTES  JY Y5: X,J: " ";:  J0 5: X,YJ: L$(J1);: (K2004(S(I,2)1) 2Z0: S(I,2)2 Z1 !< X1,Y1: (J$,S(I,1),1);" " !F X1,Y2: " ";(K);(K1);" " #P X1,Y3: " ";(K2);(K3);" " !Z X1,Y4: " ";(J$,S(I,1),1) d  ---------------------------  GRAPHIQUES  C#200,"0004040C1C3C7CFC"  C#201,"00000080C0E0F0F8"  C#202,"7C3C1C0C04040000"  C#203,"F0E0C08000000000"   C#204,"00003078FCFCFCFC"  C#205,"00003078FCFCFCFC"   C#206,"7C3C1C0C04040000" * C#207,"F8F0E0C080800000" 4 C#208,"00000C1C1C0C64E4" > C#209,"000080C0C0803078" H C#210,"FCF464040C1C0000" R C#211,"F878300080C00000" \ C#212,"04040C1C3C7CFCFC" f C#213,"000080C0E0F0F8F8" p C#214,"FC7C34040C1C0000" z C#215,"F8F0600080C00000" 4C$(1)"UNE PAIRE":C$(2)"DEUX PAIRES":C$(3)"BRELAN" +C$(4)"SEQUENCE":C$(5)"FULL":C$(6)"FLUSH" =C$(7)"CARRE":C$(8)"FLUSH ROYAL":C$(0)"MEME PAS UNE PAIRE!" 5L$(1)ˀ(138)Ā(129)Ā(129)Ā(129)Ā(129)Ā(140) L$(2)ˀ(128)" "Ā(128) #L$(3)L$(2):L$(4)L$(2):L$(5)L$(2) 5L$(6)ˀ(139)Ā(129)Ā(129)Ā(129)Ā(129)Ā(141)  XPME PAS UN 3,8:  "  : (" LE DEVIN CHINOIS" 2 < " 四 F " 圜 囚 PK$ˀ: K$"" 3,9:: 100 Z 80 d : n " 四 嗖 圜 x0,10:" POUR APPORTER UNE SOLUTION A VOTRE ":" PROBLEME,FAITES PILE OU FACE 6 FOIS ": " EN VOUS CONCENTRANT SUR LA QUESTION ":" ET INSCRIVEZ VOS RESULTATS A CHAQUE ":" TOUR:": " PILE = 1 FACE = 0  PAUSE1 800: PAUSE   :  " PILE=1 et FACE=0 A20 C$"" N1 6 R$ˀ  R$"1" R$"0" 200  R$"1" A,13: R$  R$"0" A,13: R$ C$C$R$: AA2  A16 280  N: 0,20: 330 } C$"11" 9,15: " GRAND YIN ": :" C'EST L'EMBLEME DE LA MERE,DE LA FEMINITE ACCEUILLANTE,DE LA DOUCEUR." {" C$"01" 9,15: " PETIT YIN ": :" C'EST L'EMBLEME DE LA FILLE,DE LA JEUNESSE FEMININE,DE LA RESERVE." x, C$"00" 9,15: " GRAND YANG ": :" C'EST L'EMBLEME DU PERE,DE LA VITALITE SAGE,DE LA FORCE " {6 C$"10" 9,15: " PETIT YANG ": :" C'EST L'EMBLEME DU FILS,DE LA JEUNESSE VIRILE,DE L'IMPETUOSITE." @ : EJ C$"111111" "** RECEPTIVITE ** ": : "SUCCES PAR L'OBEISSANCE" JT C$"111110" "** DESINTEGRATION ** ": : " NE BOUGEZ SURTOUT PAS!!!" D^ C$"111101" "** UNION ** ": : "ETES VOUS BIEN SUR DE VOUS ?" ?h C$"111100" "** CONTEMPLATION **": : "TACHE INACHEVEE." Cr C$"111011" "** HARMONIE **": : " RESPECT ENGENDRE RESPECT" >| C$"111010" "** PROGRES **": : "EXHIBEZ VOS QUALITES!" C C$"111001" "** ENSEMBLE **": : "LE GRAND AIDE LE PETIT..." E C$"111000" "** STAGNATION **": : " MANQUE DE COMMUNICATION!" A C$"110111" "** MODESTIE **": : " BRILLER SANS EBLOUIR!" E C$"110110" "** LA MONTAGNE **": : " REPOS ET CONCENTRATION!" C C$"110101" "** ARRET RAPIDE **": : " CULTURE D'UN TALENT!" B C$"110100" "** CROISSANCE **": : " FERMETE ET CORRECTION" H C$"110011" "** PETIT EXCES **": : " SUCCES DANS LES BROUTILLES" C C$"110010" "** LE VOYAGEUR **": : " RECHERCHE D'UN ACCORD" @ C$"110001" "** INFLUENCE **": : " SAGACITE DU CONSEIL." A C$"110000" "** RETRAITE **": : " LA DIGNITE AVANT TOUT." F C$"101111" "** COORDINATION **": : " SAGESSE DE L'EXPERIENCE" E C$"101110" "** INEXPERIENCE **": : " INUTILE DE ME REPETER?" E C$"101101" "** L'ABIME **": : " LA SINCERITE EST PREFERABLE" C C$"101100" "** DISPERTION **": : " SUITE DANS LES IDEES.." J C$"101011" "** VOIE LIBRE **": : " REPRENNEZ L'ANCIENNE FAON..." M C$"101010" "** VERS LA FIN **": : " LES ENNUIS NE SONT PAS TERMINES" G& C$"101001" "** OPPRESSION **": : " POURQUOI TANT DE PAROLES!" I0 C$"101000" "** CONFLIT **": : " SAVOIR S'ARRETTER EN CHEMIN..." E: C$"100111" "** ASCENSION **": :" LE SAGE SAISIT L'OCCASION." LD C$"100110" "** PURIFICATION **": :" EXAMINER BIEN LES CONSEQUENCES" DN C$"100101" "** LE PUITS **": :" ENTRAIDE ET COMPREHENSION." HX C$"100100" "** PENETRATON(X)**": :" REPRENDRE PLUSIEURS FOIS!!" Fb C$"100011" "** PERSEVERENCE **": :" TOUTES VOIES OUVERTES !!" Fl C$"100010" "** FERMETE **": :" L'OREILLE ET L'OIEL ATTENTIFS" Fv C$"100001" "** GRAND EXCES **": :" INDIFFERENCE AUX CANCANS!" E C$"100000" "** RENCONTRE **": :" SE MEFIER DU PLUS FORT..." B C$"011111" "** RETOUR **": :" OBSTACLE SANS IMPORTANCE." D C$"011110" "** ALIMENT **": :" LA PENSEE ACCROIT L'ACTION" M C$"011101" "** DEBUT DIFFICILE **": :" TROP D'ESPOIR:LA DECEPTION." F C$"011100" "** AUGMENTATION **": :" AVANCEZ SANS HESITER..." J C$"011011" "** LE TONNERRE **": :" PAS D'APPREHENSIONS,ALLONS!!" C C$"011010" "** REFORME **": :" LA LOI PROTEGE LE SAGE..." M C$"011001" "** DISCIPLINE **": :" UN GRAND PROTEG PAR LES PETITS." J C$"011000" "** INNOCENCE **": :" L'INCORRECTION MENE AU DESATRE" O C$"010111" "** OBSCURCISSEMENT **": :" POURQUOI ATTIRER L'ATTENTION?" N C$"010110" "** DECORATION **": :" FIEZ-VOUS PARFOIS AUX APPARENCES!" J C$"010101" "** ACHEVEMENT **": :" TERMINER EST LE PLUS MALAIS." G C$"010100" "** LA FAMILLE **": :" CHAQUE CHOSE A SA PLACE..." G C$"010011" "** ABONDANCE **": :" INSUFFISANCE DU DEMI-SUCCES" F  C$"010010" "** CLARTE **": :" LE NECESSAIRE DOIT ETRE FAIT!" N C$"010000" "** LES COMPAGNONS **": :" NE MELANGEZ PAS L'IMMISCIBLE!" J  C$"001111" "** APPROCHE **": :" LE SUCCES PEUT ETRE PROVISOIRE!" O* C$"001110" "** DECROISSANCE **": :" L'EQUILIBRE DOIT ETRE RETABLI..." L4 C$"001101" "** RESTRICTION **": :" FREIN A DESSEERR TT OU TARD!" L> C$"100001" "** REVOLUTION **": : " AGIR D'ABORD,PENSER ENSUITE..." HH C$"001100" "** SINCEITE **": : "LE SAGE CROIT CELUI QUI CROIT!" BR C$"001011" "** LA FIANCEE **": : "VERTU DE L'ATTENTION." F\ C$"001010" "** DESUNION **": : "LE MAUVAIS PRESAGE SE TROMPE" Cf C$"001001" "** JOIE **": : "NE PAS NEGLIGER LE PLAISIR!!" Op C$"001000" "** PRUDENCE **": : "MAIS LE TIGRE NE MORD PEUT ETRE PAS!" Lz C$"000111" "** PAIX **": : "FIN DE PETITESSE,DEBUT DE GRANDEUR..." H C$"000110" "** COMPTAGE **": : " S'INSPIRER DES AUTRES..." J C$"000101" "** ATTENTE **": : " NE PAS SE LAISSER CONDUIRE..." Q C$"000100" "** ASSAGISSEMENT **": : " LE NUAGE NE CREVE PEUT ETRE PAS." D C$"000011" "** PUISSANCE **": : " TRIOMPHE DE FERMETE!" S C$"000010" "** POSSESSION **": : "TENEZ VOUS BIEN TOUS LES FILS EN MAIN?" F C$"000001" "** PERCE **": : " REPANDEZ,N'AMASSEZ PAS!!!" K C$"000000" "** CREATION **": : " LE CHANGEMENT EST SALUTAIRE." ) I1 200:Hˀ((1)400): 1,999H,4: :  " 四 嗖 圜  : : " ' " AVEZ VOUS UNE AUTRE QUESTION?";R$  R$"O" R$"OUI" 10  R$"N"R$"NON" 1010 P : " I CHING VOUS DIT: ": : " chang shi,yung ching kang!" ) : "C'EST A DIRE: au revoir,a bientot!" $ I1 999: :2: K AAC : 8,1: ( " " ( " " (( " " (2 " " (< " " (F " " (P " " 'Z" " 'd" " 'n" " 'x" " '" ' " '" " '" " '" " #: " AUTEUR : MARC LE DOUARAIN " $:" DATE : JUILLET / AOUT 1989"  > (1)1 (1)2 " Le joystick 1 est en automatique." ? (2)1 (2)2 " Le joystick 2 est en automatique." G0  550  1,1:  8,15 : ) " L'OR DU GALION "  " "  " " : $ " * PREMIERE ETAPE : ON S'EQUIPE:" %" " " ), "PICSOU a la manette1 et FLAIRSOU la 2" 6::"Chaque joueur a son tour lance le d illustr(en appuyant sur le bouton du joystick)jusqu'a ce qu'il obtienne la bouteille d'air.A ce moment il peut commencer plonger.Il se place automatiquement sur la case 1 ." b@ "Le premier qui aura la bouteille avan-cera de deux cases donc il se trouverasur la troisime ." JA$ˀ:Cˀ(1):Dˀ(2) T A$"" C0 D0 330 ^ 1940 h 2,2: r 1,2: | 8,1 ) " L'OR DU GALION " ) " "  PATTERN(BULLES,BOUTEILLE,...  C#208,"00C0D000581AC0C5"  C#209,"6060F0F0F0F0F0F0"  C#210,"F08888F0888888F0"  C#211,"040C14BCF8C0F860"  (208);" :Les BULLES:dans le combat ton systme d'alimentation a t malmen.Tu ne pourras repartir qu'avec une bouteillede secours.Pour te la procurer,le d illustr sera relanc chaque fois que ce sera ton tour de jouer." j "Ds que tu auras la bouteille de se- cours,le d normal sera relanˬ et tu reprendras ta progression." ) " " m (209);" :La BOUTEILLE est ncessaire pour commmencer jouer.Autrement tout va bien.Joue normalement." (" " k (210);" :Grace au SUPER BONUS ! Tu ajouteras deux points ceux que le d te donne-ra au tour suivant." ) " " l (211);" :Le REQUIN:Ae,ae,ae!Le combat s'est mal termin pour toi.Sauve-toi! Recule de cinq cases."  0,0 ! 2750 & 0 2,1: : 15,4,(0,0)(255,25),1 D 15,5,(0,26)(255,191),1 1N S#0,"787830FE7A78787C": PICSOU ( gauche) 1X S#1,"1E1E0C7F1E1E1E3E": FLAIRSOU ( droite) b PATTERN DU DE ILLUST. (l S#2,"00C0D000581AC0C5": LES BULLES *v S#3,"7E62F2F2F2F2F2F7": LA BOUTEILLE & S#4,"F08888F0888888F0": LE BONUS ' S#5,"0003070B1FF87F3C": LE REQUIN  PATTERN DU DE NORMAL % S#6,"0000001818000000": I POINT & S#7,"0060600000060600": 2 POINTS & S#8,"6060001818000606": 3 POINTS & S#9,"6666000000006666": 4 POINTS & S#10,"6666001818006666": 5 POINTS & S#11,"6666006666006666": 6 POINTS  0,(017,09),0,14  1,(230,09),1,1  14,0: 12,1: (16);"PICSOU" ! 1,0: 205,1: (16);"FLAIRSOU"  14,0: 014,014: ""   (15,22)(15,170),1  8 ,169: ""   14,0: 026,012: "" * 1,0: 217,014: "" 4 (239,22)(239,164),15 > 233,163: "" H 1,0: 223,012: "" R LES 2 DS \ ( 60,7)( 72,19),15,B f (180,7)(192,19),1,B !p 13,0: 85,03: "L'OR DU GALION" z LES CASES RONDES  COTE GAUCHE H17:V28:M1:K15 HH05:VV08  M20 980 MM1: (H,V),3,K ,1,0,1,BF K15 & M5 M9 M12 M15 M17 K1  920  COTE DROIT- H235:V28:M1:K15 HH05:VV08  M20 1070 MM1: (H,V),3,K,1,0,1,BF K15 & M5 M7 M14 M16 M18 K1  1000 $H0:V0:M0:K0 . DESSIN DU COFRE 8 (120,180)(131,180),15 B (131,170),15 L (120,170),15 V (120,180),15 ` (115,175),15 j (115,165),15 t (120,170),15 ~ (115,165)(126,165),15  (131,170),15  (126,165)(128,157),15  (117,157),15  (115,165),15  LE GALION  1,0: 108,140:""  102,132:""  102,124:""  102,116:""  102,108:" "  108,100: " "  108,92: " 吐 "  108,84: " "   108,76: " "  108,69: " "  108,62: " " ( 108,55: " " 2 102,48: " " < 96,41: "" F LES ALGUES P 2,0: 10,138: " " Z 10,144: " " d 10,150: " " n 181,157:" " x 181,164:" "  181,172:" "  4,0: 60,155:""  60,161:"嗖"  60,167:""  60,173:""  60,179:""  200,126: " "  200,132: " "  200,138: " "  200,144: " "  210  CASES ET COORDON.  POUR PICSOU  M1 X20 : Y28  M2 X25 : Y37  M3 X30 : Y45  M4 X35 : Y53 " M5 X40 : Y61 , M6 X45 : Y69 6 M7 X50 : Y77 @ M8 X55 : Y85 J M9 X60 : Y93 T M10 X65 : Y101 ^ M11 X70 : Y109 h M12 X75 : Y117 r M13 X80 : Y125 | M14 X85 : Y133  M15 X90 : Y141  M16 X95 : Y149  M17 X100: Y157  M18 X105: Y165  M19 X110: Y173  M19 X110: Y173   POUR FLAIRSOU  N1 W225 : Z28  N2 W220 : Z36  N3 W215 : Z44  N4 W210 : Z52  N5 W205 : Z60  N6 W200 : Z68  N7 W195 : Z76  N8 W190 : Z84  N9 W185 : Z92  N10 W180 : Z100 & N11 W175 : Z108 0 N12 W170 : Z116 : N13 W165 : Z124 D N14 W160 : Z132 N N15 W155 : Z140 X N16 W150 : Z148 b N17 W145 : Z156 l N18 W140 : Z164 v N19 W135 : Z172 w N19 W135 : Z172   2,2   1re PARTIE   15,0  1 ETAPE PICSOU  A1 2110 : _ G0 5: 4,0: 12,1: (16);"PICSOU": X0 30: X:: 14,0: 12,1: (16);"PICSOU": G Cˀ(1)  C 0 2030 Iˀ((1)4)1   2,(183,08),I1,1  I2 A1  A1 15,0: 85,16: "Bravo"::::: X0 130: X: 4,0: 85,16: "Bravo": 0,(20,28),0,14:M1:X20:Y28: B1 K$"PICSOU": 2250 U* A1 15,0: 145,16: "Rat": 4,3,15: X0 100: X: 0: 4,0: 145,16: "Rat" 4 2110 > 1 ETAPE FLAIRSOU H B1 2230 R: e\ G0 5: 4,0: 205,1: (16);"FLAIRSOU": X0 30: X:: 1 ,0: 205,1: (16);"FLAIRSOU": G fIˀ((1)4)1 pDˀ (2) z D 0 2160  2,(183,08),I1,1  I2 B1  B1 15,0: 85,16: "Bravo"::::: X0 130: X: 4,0: 85,16: "Bravo": 1,(225,28),1,1:N1:W225:Z28: A1 K$"FLAIRSOU": 2250 U B1 15,0: 145,16: "Rat": 4,3,15: X0 100: X: 0: 4,0: 145,16: "Rat"  2230  A1 B1 2260  1980  2,2 ( 15,0: 65,30: K$;" a t le premier." ; K$"PICSOU" 0,(30,44),0,15:M3: 1,(225,28),1,1: N1 ; K$"FLAIRSOU" 1,(215,44),1,1:N3: 0,(20,28),0,14:M1  BOUCLES (RETOUR 1850)  S1  O15 0 5 $ S1 3,523,O . S2 3,784,O 8 S3 3,659,O B S4 3,392,O L S5 3,523,O V S6 3,784,O ` S7 3,659,O j S8 3,392,O t S9 3,698,O ~ S10 3,784,O  S11 3,587,O  S12 3,784,O  O  SS1 S13 2520  2330   P0 30: P  O15 0 0.4 3,523,O P0 4: P  O ' 5,0: 65,30: K$;" a t le premier."    ( 1,1: 2 15,1 < : )F " L'OR DU GALION " )P " " Z : *d " * DEUXIEME ETAPE : LA QUETE DU TRESOR" *n " " )x "PICSOU a la manette1 et FLAIRSOU la 2" ‚ :"Chaque joueur, son tour lance le d normal( gauche)et descend automati- quement d'autant de cases qu'il a de points.Quand un plongeur arrive sur une case fonce,il rencontr'un danger" "Le d illustr est lanc au prochain tour et le personnage subit ce qu'il y a d'crit sur l'cran quand l'on ap-puie sur le deuxime bouton des manet-tes des 2 joueurs. Le premier joueur qui arrive la case 19(mme s'il a " > "trop de points,il s'arrte la case 19) prend le trsor."  Cˀ(1):Dˀ(2):A$ˀ  A$"" C0 D0 2720  370  2,2  JOUEUR PICSOU r 2,2: G0 5: 4,0: 3,440,15: 12,1: (16);"PICSOU": X0 30: X: 14,0: 12,1: (16);"PICSOU": 0: G  Cˀ(1)  C 0 2770  C 2 4000  Iˀ((1)6)1  2,(62,08),I5,15  I56 MM1  I57 MM2  I58 MM3  I59 MM4 " I510 MM5 , I511 MM6 6 1520 @ 0,(X,Y),0,14 J 2,730,15: J0 100: J:::  JOUEUR FLAIRSOU x 2,2: G0 5: 4,0: 3,440,15: 205,1: (16);"FLAIRSOU": X0 30: X: 1 ,0: 205,1: (16);"FLAIRSOU": 0: G  Dˀ(2)  D 0 3020  D 2 4000  Iˀ((1)6)1  2,(62,08),I5,15  I56 NN1  I57 NN2  I58 NN3  I59 NN4  I510 NN5 & I511 NN6 0 1720 : 1,(W,Z),1,1 D J0 100: J: 2750  ON APPUIE SUR BOU.2  1,1  (1) (2)0 4020  2,2: G`HPVM: 5,1  : 5,1  ******** TILT No: 45 ********  ******** TILT No: 45 ******** ( ******** TILT No: 45 ******** 2 ******** TILT No: 45 ******** < ******** TILT No: 45 ******** F ******** TILT No: 45 ******** P ******** TILT No: 45 ******** Z ******** TILT No: 45 ******** $f " " $g " PLANTATION DE CUBA " $h " De Christophe Couasnard " $i " " $j " Adapt sur YENO-SEGA " $k " Par Marc Le Douarain " $l " " m n p 5150 z *** CHOIX DES CAPITAUX *** CE0:PA0:CH0 + " CHOIX DU NIVEAU ":  (6);"- 1:CAPITAUX PREFIXES"  (6);"- 2:CAPITAUX ALEATOIRES" : " VOTRE CHOIX : ";Z  Z2 1010  Z1 890 PO15000:AR50:ES2:GR50:CE1 PA1:Q4317.5: 1120 POˀ(1100(1))10000 ARˀ(101(1)) ESˀ(4(1)) GRˀ(101(1)) CEˀ((1)) $ CE.5 CE1 .PAˀ((1)) 8 PA.5 PA1 BCHˀ((1)) L CH.5 CH1 G1G1BV: G10 "IMPOSSIBLE": 5110: 1870 HO1O1(VBBV): 1880 RPOO1:GRG1: 1290 \ *** ESCLAVES ************* fO1PO:E1ES p: " ESCLAVES": z (5);"PIECES D'OR ";O1  (5);"NBR.D'ESLAVES ";E1  (5);"ESCLAVE VENDU A ";AE  (5);"ESCLAVE RACHETE A ";PV  (5);"1 : ACHAT D'ESCLAVES"  (5);"2 : VENTE D'ESCLAVES"  (5);"3 : LES ESCLAVES"  (5);"4 : MENU":  " VOTRE CHOIX : ";Z  Z1 Z4 2140  Z 2280,2360,2440,2640  --- ACHAT D'ESCLAVES --- : " ACHAT D'ESCLAVES"  " ----- ----------"  (5);"PIECES D'OR ";O1  (5);"NBR.D'ESCLAVES ";E1  (5);"ESCLAVE VENDU A ";AE % " NBR.D'ESCLAVES A ACHETER:";NA D$ O1O1(AENA): O10 "C'EST TROP CHER POUR VOUS !": 5110: 2150 . E1E1NA: 2160 8 --- VENTE D'ESCLAVES --- B : " VENTE D'ESCLAVES" G " ----- ----------" L (5);"PIECES D'OR ";O1 V (5);"NBR.D'ESCLAVES ";E1 ` (5);"ESCLAVE ACHETE A ";PV $j " NBR.D'ESCLAVES A VENDRE:";NV .t E1E1NV: E10 "IMPOSSIBLE": 5110: 2150 ~ O1O1(PVNV): 2160  --- LES ESCLAVES ---  HJ0:O1PO:PN0:Z$""  : " LES ESCLAVES"  " --- --------"  (5);"PIECES D'OR ";O1  (5);"NBR.D'ESCLAVES ";E1 % "UN ESCLAVE TRAVAILLE ENV 14H/JOUR" % "ET A BESOIN DE 500 PIECES D'OR DE"  "NOURRITURE":  " NOURRITURE : ";PN ? O1O1PN: O10 "C'EST TROP CHER POUR VOUS !": 5110: 2450 # : " NBR.D'HEURES/JOURS : ";HJ  HJ 24 2450  : " LES ESCLAVES"  " --- --------"  (5);"PIECES D'OR ";O1  (5);"NBR.D'ESCLAVES ";E1 & (5);PN;" PIECES D'OR DE NOURRITURE" %( (5);HJ;" D'HEURES DE TRAVAIL/JOUR" 2 : (5);"CELA VA (O/N) ?" < "N" 2450 F "O" 2160 K 2620 P POO1:ESE1: 1290 Z *** OUTILS ***************** d O1PO:C1CE:P1PA:CHH1 n : " LES OUTILS": x (5);"PIECES D(OR ";O1  (5);"NBR D'ESCLAVES ";ES * (5);"NBR D'OUTILS/ESCLAVES ";(C1P1H1) ( " IL FAUT UN OUTIL PAR ESCLAVE .":  (5);"1 : ACHAT D'OUTILS"  (5);"2 : VENTE D'OUTILS"  (5);"3 : MENU":  " VOTRE CHOIX : ";Z  Z1 Z3 2650  Z 2780,3180,3570  --- ACHAT D'OUTILS ---  : " ACHAT D'OUTI BOMBE A RETARDEMENT  ------------------------------ % 2,1:13,13,(0,0)(255,191),13: 2,2 ( 1000 213,13::15:1 < I3 31 F I8,0: (144) 7P I23 24,8(I2): (144): 248,8(I2): (144) Z I d 176,88: (229) n I1 9 !xXˀ((1)26)5:Yˀ((1)19)2 ( ((Y256X84&H2000)16)13 120 I: X8,Y8: (48I)  I T1000:P1:C0 6 I0 1000 100: (24I.2,184)(24I.2,186),1: I 15:X22:Y11  ----------------------------- " LE JEU <,TT2: 0,(20T.2,176),DF,9: 8X,8Y:DFDF4: DF8 DF0 6 T0 500 @A$ˀ : A$"" 300 J A$ˀ(29) X4 V1:W0 T A$ˀ(28) X30 V1:W0 ^ A$ˀ(30) Y1 V0:W1 h A$ˀ(31) Y20 V0:W1 r V0 W0 300 @|Aˀ(((YW)256(XV)84&H2000)16): A15 CC1:11: 420  A13 420 ; AP :PP1: I0 7: (YW)256(XV)8I,0: I: 420  500  C1 500 'XXV:YYW: X8,Y8: (230V(W2))  P9 600 V0:W0  300  ----------------------------  PERDU +3:0,(20T.2,160),DF,9: I150 60 5  4,1,15  (I,I50)(280I,240I),9,B  I  0: 50 D ---------------------------- N GAGNE 3X : I1 4: NO: 1,NO,15: TE1 20: TE: I:0 bA$ˀ: A$ƀ(13) 610 l 0,,,0: 50  -----------------------------  GRAPHIQUES  C#228,"183C7EFF18181818"  C#229,"103070FFFF703010"  C#230,"0000000000000000"  C#231,"080C0EFFFF0E0C08"  C#232,"18181818FF7E3C18"  C#144,"AA55AA55AA55AA55"  S#0,"0000000000010107" $ S#1,"3F7FFFFFFFFF7F3F" . S#2,"15023962C58080E0" 8 S#3,"FCFEFFFFFFFFFEFC" 9 S#4,"0000000000010107" : S#5,"3F7FFFFFFFFF7F3F" ; S#6,"00003860C08080E0" < S#7,"FCFEFFFFFFFFFEFC" B1 L  ----------------------------  NOTES  523,659,784,1047 201)  300 0 0,15: " abcdefghabcdef T$"-------------------" AT$"Appuyez sur une touche" #RC$"Il vous reste................" ( 1L d'huile=50 merlans frits 2 1 merlan=2 sandwichs <: ====== tour de jeu ====== F "Nombre de joueurs:";NJ K NJ10 70 P I1 NJ:AR(I)300 Z: "Joueur ";I d "Tapez votre nom :";N$(I) 6n "Nom de la boutique de ";N$(I): " ";NJ$(I): I:I0 #x: "Combien de jours (Max.40):";LJ  150 ! "C'est trop cher pour vous !":  ---------SITUATION----------- TT1: TLJ 1280 TEˀ((1)15)15 PHˀ((1)6)9 PMˀ((1)15)25 !NTTE2.2Ā((1)100):NTˀ(NT) I1 NJ:  350  ------- DECOR --------------- : ------- ENSEIGNE --------  ST1 19: " ";:  ST1 19: " ";: ) "" )  " "  20ŀ(NJ$(I))1.8,3: NJ$(I) ) "" J: T ---------------------------- L^ NJ1 1,15: N$(I);" , c'est vous !":: "Les autres quittez l'cran" h 1,20 : AT$ rA$ˀ: A$"" 370 | 240  -------ETAT DES STOCKS------  QR(I)0 470 $ "Il vous reste ";QR(I);" sanwichs"  "Vous (J)eter ou (G)arder ?"  " ";A$  A$"J" A$"G" : 430  A$"J" "OK":QR(I)0: 240 7SS(I)SS(I)QR(I):IS(I)ˀ(IS(I))(SS(I)(TE30)): 240 B T$;T$: "Jour ";T;" ";TE;" Deg. ";NT;" Touristes.":: T$;T$ ,:"Vous avez en caisse..........";AR(I);"F" * "Kilo de merlans en stock........";SM(I) * "Litres d'huile en stock.........";SH(I) * "Sandwichs de la veille..........";SS(I) ! "Indice de satisfaction=";IS(I)  IS(I)50 : T$;T$: "L'hygine publique vous met une amende pour insalubrit": T$;T$:AR(I)ˀ(AR(I)2):SS(I)0:IS(I)ˀ(IS(I)4) ! "Cours de l'huile:";PH;"/litre" '& "Cours du merlan :";PM;" F/K": T$;T$ 0 ------ACHATS------ : "Achat d'huile (enL): ";NL(I) *DAH(I)PHNL(I): AH(I)AR(I) 140: 570 4NAR(I)AR(I)AH(I): RC$;AR(I);" F":SH(I)SH(I)NL(I) #X "Achat de merlans (en K): ";NM(I) *bAM(I)PMNM(I): AR(I)AM(I) 140: 600 "lAR(I)AR(I)AM(I): RC$;AR(I);" F" vSM(I)SM(I)NM(I): AT$ A$ˀ: A$"" 640  240  RC$;(AR(I));" F" + "Combien faites-vous de sandwichs ";QF(I) > SM(I)QF(I)10 "Votre stock n'est pas suffisant !": 670 < SH(I)QF(I)50 "Vous n'avez pas assez d'huile !": 670 -SH(I)SH(I)(QF(I)50):SM(I)SM(I)(QF(I)10)  SS(I)0 770 , "Il reste ";SS(I);" SAND. DE LA VEILLE..." + "Quantit du stock mise en vente :";ES(I) - ES(I)SS(I) "Quel gestionnaire !": 730 SS(I)SS(I)ES(I) % ES(I)0 QF(I)QF(I)ES(I):ES(I)0 - "Vous mettez en vente ";QF(I);" sandwichs." %  "Les affichettes coutent 1F. pice"  "Combien en posez-vous:";PB(I)   AR(I)PB(I) 140: 790 *AR(I)AR(I)PB(I) 4 RC$;AR(I);" F" 1> "A quel prix vendez-vous vos sandwichs :";PV(I) EH NJ1 "Faites-vous appel l'hygine": "publique ? (O / N )";A$ R A$"O" 920 \ K1 NJ: K;"-";N$(K): K f "Contre lequel :";A zz SS(A)0 NJ$(A);" n'a pas stock de vieux sandwichs !": "Cette calomnie vous coute cher !":AR(I)ˀ(AR(I)2):SS(A)0  SS(A)0 NJ$(A);" a t dcouvert en possession de":SS(A);" vieux sandwichs !": "Ca lui coute cher !":AR(A)ˀ(AR(A)2):SS(A)0 A$ˀ: A$"" 910 : I  -----ANALYSE DEMANDE----- 2 I1 NJ:SMSMIS(I):MPMPPV(I):PGPGPB(I): I SMSMNJ:MPMPNJ:PGPGNJ  -----CALC DEMANDE GLOBALE---- DGˀ(NT10((NTPG)5000)(SM)) DTDG DGˀ(DG(3MP1.2))NJ  ---REPATITION MARCHE-----  I1 NJ CC(I)((PV(I)MP)MP)100 *DR(I)ˀ((DGNJ)((CC(I)100)(DGNJ))3)  DR(I)0 DR(I)0 A$ˀ: A$"" 1050 $ I:MP0:PG0 .MP0:PG0 8-------CONSEQUENCES---- B:MX0: I1 NJ L DR(I)QF(I) DR(I)QF(I) V MXDR(I) MXDR(I) #`CA(I)DR(I)PV(I):QR(I)QF(I)DR(I) jAR(I)AR(I)CA(I) t I: ~ "Tous devant l'cran"::  ST0 200: ST: ' "NOMS PRIX VENTES CA": T$;T$  K1 NJ  (N$(K),6);" ";PV(K)  K  V1 MX 1  K1 NJ * DR(K)V 19,K2: V: 26,K2:VPV(K)  Z1 50: Z  K,V: 1,20: AT$ A$ˀ: A$"" 1260  160 ;: T$;T$: " Rsultats sur ";LJ;" jours."::T$;T$:  I1 NJ ( (N$(I),6);"...........";AR(I);" F":  I (::: 2 V1 NJ 1< AR(V)MEILLEUR MEILLEURAR(V):MEILLEUR$N$(V) F V :P MEILLEUR$;" est le meilleur grant": "Flicitation !!!" l ****************************  ****************************  ** **  ** EXPLICATIONS VARIABLES **  ** **  ****************************  ****************************  DONNEES POUR MERLAN FRITS Q A$=VALS"  " ----- --------":  (5);"PIECES D'OR ";O1  (5);"NBR.D'ESCLAVES ";ES . (5);"NBR.D'OUTILS PAR ESCLAVES ";(C1P1H1) ( " IL FAUT UN OUTIL PAR ESCLAVE .":  (8);"1 : CERPE" " (8);"2 : PIOCHE" , (8);"3 : CHARRUE" 6 (8);"4 : MENU (OUTIL)": @ " VOTRE CHOIX : ";Z J Z1 Z4 2780 T Z 2920,3010,3100,2670 ^ O1PO h : " ACHAT DE PIOCHES" m " " r : (8);"PIECES D'OR ";O1 *| (8);"NBR.D'OUTILS/ESCLAVES ";(C1P1H1)  (8);"NBR.DE SERPES ";C1 ) " UNE CERPE COUTE 100 PIECES D'OR .": ' " NBR.DE CERPES A ACHETER:";NC E O1O1(100NC): O10 "C'EST TROP CHER POUR VOUS !": 5110: 2910  C1C1NC: 2790  O1PO  : " ACHAT DE PIOCHES" " "  : (8);"PIECES D'OR ";O1 * (8);"NBR.D'OUTILS/ESCLAVES ";(C1P1H1)  (8);"NBR.DE PIOCHES ";P1 * " UNE PIOCHE COUTE 250 PIECES D'OR A$(10,3)  CLAVIER & 2,1:: 15,8,(0,0)(255,191),8: 2,2 ( 70,10: (17);"CLAVIER" 2 70,20: "" 8< 1: 30,50: (16);"Une reproduction de votre clavier" $F 30,58: "va apparatre l'cran . gP 30,100: "Un astrix apparaitra en dessous d'un ": 30,108: "caractre,qu'il conviendra de frapper " "Z 30,116: "en un temps dtermin" Vd 30,150: "Vous appuyerez sur 0 pour arrter et ": 30,158: "obtenir les rsultats." nA$ˀ: A$"" 110 x 1,1  3,1:  "0 > RAPIDE" "5 > LENT"  "Vitesse (de 0 a 5):";V  T0:P0:S0 J1:S$"QWERTYUIOP"  440 J2:S$"ASDFGHJKL;"  440 J3:S$"ZXCVBNM,./"  440 J1 3  I1 10  3IJ4,5J: A$(I,J)  I " J ,Xˀ((1)101):Yˀ((1)31) 6 3XY4,25Y: "*": #@ F1 125V20(V1)(1):A$ˀ JTT1: A$"" F T A$A$(X,Y) SS1 ^ A$A$(X,Y) 1,143,15 h A$"0" 400 rPP1 | 3XY4,25Y:" "  300 & 0: 0,20: S;"Justes sur";P;"ESSAIS"  "Votre temps:";T A$ˀ: A$"" 420 ::: 450 # I1 10:A$(I,J)ˀ(S$,I,1): I: ': 2,1:: 8,1,(0,0)(255,191),1: 2,2  70,60: (17);"VOULEZ-VOUS "  60,90:(17);"RECOMMENCEZ ?" " 70,120: (17) ;" ( O / N ) " A$ˀ: A$"" 490  A$"O" 20  A$"N" 530  490 & 2,1:: 15,1,(0,0)(255,191),1: 2,2  70,70: "AU REVOIR" & 550 A^ DE BOUCLE D'AFFI-CHAGE GRAPHIQUE '$ SS(I)=STOCK DE SANDWICHS DU JOUEUR I . T=NBR.DE JOURS 8 TE=TEMPERATURE DU JOUR B T$=LIGNE DE "----------..." L V=VARIABLE DE BOUCLE RIABLE DE SAISIE ALPHANU-MERIQUE OU D'INTERRUPTION MOMENTANEE DU PROGRAMME 7 AH(I)=COUT DE L'ACHAT DE L'HUILE POUR LE JOUEUR I 6 AM(I)=COUT DE L'ACHAT DE MERLAN POUR LE JOUEUR I ' AR(I)=ARGENT EN CAISSE DU JOUEUR I % AT$=PHRASE "Appuyez sur une touche" '  CA(I)=CHIFFRE D'AFFAIRES DU JOUEUR I * CC(I)=COEFFICIENT DE CHERTE DU JOUEUR I /  DG=DEMANDE GLOBALE DES TOURISTES EN SANDWICHS 0* DR(I)=DEMANDE REELLE DE SAND-WICHS AU JOUEUR I @4 ES(I)=QUANTITE DE SANDWICHS EXTRAITS DU STOCK PAR LE JOUEUR I >> IS(I)=INDICE DE SATISFACTION DU PUBLIC VIS-A-VIS DU JOUEUR I H K=VARIABLE DE BOUCLE R LJ=NBR. DE JOURS DE JEU \ MP=MOYENNE DES PRIX PRATIQUES f NJ=NBR. DE JOUEURS p N$(I)=NOM DU JOUEUR I $z NJ$(I)=NOM DU MAGASIN DU JOU-EUR I ( NL(I)=NBR.DE LITRES D'HUILE D'ACHETES ) NM(I)=NBR.DE KILOS DE MERLANS D'ACHETES  NT=NBR.DE TOURISTES ' PB(I)=BUDJET PROMOTIONNEL DU JOUEUR I 8 PG=MOYENNE DEL'INVESTISSEMENT PROMOTIONNEL DU JOUEUR I  PH=PRIX DE L'HUILE  PM=PRIX DU MERLAN 2 PV(I)=PRIX DE VENTE DU SAND- WICHS DU MARCHAND I 8 QF(I)=QUANTITE DE SANDWICHS FABRIQUES PAR LE JOUEUR I ' QR(I)=QUANTITE DE SANDWICHS RESTANTS  RC$=PRASE "Il vous reste..." . RY=VARIABLE DE BOUCLE D'AFFI-CHAGE GRAPHIQUE ! SH(I)=STOCK D'HUILE DU JOUEUR I & SM=INDICE DE SATISFACTION MOYENNE ' SM(I)=STOCK DE MERLANS DU JOUEUR I . ST=VARIABLE DE BOUCLE D'AFFI-CHAGE GRAPHIQUE '$ SS(I)=STOCK DE SANDWICHS DU JOUEUR I . T=NBR.DE JOURS 8 TE=TEMPERATURE DU JOUR B T$=LIGNE DE "----------..." L V=VARIABLE DE BOUCLE  COURSE DE CHEVAUX  ENTRE DES PARIS  1,1: ( "NOM DES 3 JOUEURS :" :F3 2 T0 : < N$(F),N(F),S(F) F J1 F P "JOUEUR ";J;" - VOTRE NOM :"; Z N$(J) 0d "SUR QUEL CHEVAL PARIEZ-VOUS (1 A 3 ) : ";N(J) n "QUEL SOMME :";S(J) x TTS(J)  J  DESSINS DES CHEVAUX  S# 1,"0106077DBE3E5595"  S# 2,"02033F7C7CCCAAA9"  S# 3,"06070606FE7E6666" LA COURSE  2,2:  1 ,2,(0,0)(255,191),1 * 2: 110,10:"COURSE": 110,20: "" M(0,32)(255,32),8:(0,64)(255,64),8:(0,96)(255,96),8:(0,128)(255,128),8  (21,32)(21,128),8 &12,48:"1":12,78: "2":12,108: "3" R0:X25:Y25:Z25 +1,(X,40),1,6:2,(Y,72),2,4 :3,(Z,104),3,1  XYZ720 350  I1 3 "Lˀ((1)51) 2, I1 X240 XXL: X240 X240 : R0 R1 16 I2 Y240 YYL: Y240 Y240: R0 R2 1@ I3 Z240 ZZL: Z240 Z240: R0 R3 J I T 250 ^ AFFFICHAGE DU RESULTAT c 8,0 h12,160:"JOUEURS GAGNANTS :"; rL0 | I1 F  N(I)R N$(I);" ";:LL1  I  L0 420  12,180: "VOTRE GAIN :";TL  "" 420 : 10 NN&.": ( " NBR.DE PIOCHES A ACHETER:";NP E O1O1(250NP): O10 "C'EST TROP CHER POUR VOUS !": 5110: 3000  P1P1NP: 2790  O1PO  : " ACHAT DE CHARRUES" !! " " & : (8);"PIECES D'OR ";O1 *0 (8);"NBR.D'OUTILS/ESCLAVES ";(C1P1H1) : (8);"NBR.D'ESCLAVES ";ES ,D " UNE CHARRUE COUTE 1000 PIECES D'OR .": )N " NBR.DE CHARRUES A ACHETER:";NH FX O1O1(1000NH): O10 "C'EST TROP CHER POUR VOUS !": 5110: 3090 b H1H1NP: 2790 l --- VENTE D'OUTILS --- v : " VENTE D'OUTILS" { " ----- --------"  (8);"PIECES D'OR ";O1  (8);"NBR.D'ESCLAVES ";ES , (8);"NBR.D'OUTILS/ESCLAVES ";(C1P1H1):  (8);"1 : SERPE"  (8);"2 : PIOCHE"  (8);"3 : CHARRUE"  (8);"4 : MENU (OUTIL)":  " VOTRE CHOIX : ";Z  Z1 Z4 3180  Z 3310,3400,3490,2670  C1CE  : " VENTE DE SERPES"  " "  (8);"NBR.D'ESCLAVES ";ES ) (8);"NBR,D'OUTIL/ESCLAVES ";(C1P1H1)  (8);"NBR.DE SERPES ";C1 * "UNE SERPE EST RACHETE 50 PIECES D'OR": & " NBR.DE SERPES A VENDRE:";CV .* C1C1CV: C10 "IMPOSSIBLE": 5110: 3300 4 O1O1(50CV): 3190 > P1PA H : " VENTE DE PIOCHES" M " " R (8);"NBR.D'ESCLAVES ";ES )\ (8);"NBR,D'OUTIL/ESCLAVES ";(C1P1H1) f (8);"NBR.DE PIOCHES ";P1 ,p "UNE PIOCHE EST RACHETE 125 PIECES D'OR": 'z " NBR.DE PIOCHES A VENDRE:";DP . P1P1DP: P10 "IMPOSSIBLE": 5110: 3390  O1O1(125CV): 3190  H1CH  : " VENTE DE CHARRUES"  " "  (8);"NBR.D'ESCLAVES ";ES ) (8);"NBR,D'OUTIL/ESCLAVES ";(C1P1H1)  (8);"NBR.DE CHARRUES ";H1 . "UNE CHARRUE EST RACHETEE 500 PIECES D'OR": ( " NBR.DE CHARRUES A VENDRE:";CV . H1H1CV: H10 "iMPOSSIBLE": 5110: 3480  O1O1(500CV): 3190  POO1:CEC1:PAP1:CHH1  1290  *** EMPLOYES ************** O1PO:DC0:GA0:Z$"" : " EMPLOYES"  " --------": $ (8);"PIECES D'OR ";O1 '. " IL FAUT 750 PIECES D'OR POUR LE " &8 " DOCTEUR ET 500 POUR UN GARDE.": B (8);"DOCTEUR (O/N) ? " L "N" DC0: 3680 V "O" DC1: 3680 [ 3660 ` DC1 O1O1750 6j O10 "C'EST TROP CHER POUR VOUS !": 5110: 3590 #t:: " NBR.DE GARDES : ";NG E~O1O1(500NG): O10 "C'EST TROP CHER POUR VOUS !": 5110: 3600 GANG : " EMPLOYES"  " --------":  (8);"PIECES D'OR ";O1  (8);"NBR.DE GARDES ";GA  DC0 (8);"UN DOCTEUR"  (8);"CELA VA (O/N) ?"  "N" 3600  "O" 3800  3790 POO1: 1290  *** RECAPITULATIF *** ': " VOUS AVEZ ";AR;" ARPENTS DE " , " TERRE DONT ";AC;" SONT CULTIVABLES " ) " VOUS AVEZ ";ES;" ESCLAVE(S) AVEC ";CE % "SERPE(S), ";PA;" PIOCHE(S) ET ";CH   "CHARRUE(S) ." % " VOUS LE(S) FAITES TRAVAILLER ";HJ ' "HEURES/JOURS ET VOUS LES NOURRISSEZ"  "AVEC ";PN;" PIECES D'OR." 8# "IL Y A ";GA;" GARDE(S) ";: DC0 "ET UN DOCTEUR." %< "IL VOUS RESTE ";PO;" PIECES D'OR " F "ET ";GR;" BALLOTS.": P (8);"CELA VA (O/N) ?" Z "N" 1290 ] "O" 3940 _ 3930 d --- PROPOSITION D'UN FERMIER nPFˀ(AC101((1))) xEN1 . ((1))ɀ(1) (1)ɀ(1) POPF 4000  4100 (: " PROPOSITITION D'UN FERMIER VOISIN" ) " ------------- ---- -------- ------":  (5);"PIECES D'OR ";PO ( "LE FERMIER VOUS PROPOSE DE L'ENGRAIS"  "CONTRE ";PF;" PIECES D'OR." ( "L'ENGRAIS PERMET DE BONNES RECOLTES,"  "MAIS NE LE GARANTI PAS.":  " ENGRAIS (O/N) ?"  "O" EN2:POPOPF  "N" 4100  4070  *** BILAN POUR L'ANNEE ***  ES0 HJ19 E2ES (CEPACH)0 AC0 4200 " E2ES 4210 #,OV(((CE.5)PA(CH2))(CEPACH)) 6E3ESOV:E414HJ:E51:E60 @ E40 E5ˀ(E4ES5) J E40 E6E2 $T PN(350ES) PN(2000ES) E2ES 2^E2((E550GA20AR)(PN(1000OV)(E6ES5))).13 /hG2ˀ(AR(2(E2ES)(GAES)2(E67)Ā(1)))EN r E21 E20 | E21 E2ˀ(E21.3)  DC1 E2ˀ(E22)  PN350ES E2ES / PO(GR(10(2(1)))) TM1: --->moisisure 7 ESE23 GA1 (1)ɀ((1)) TE1: --->evasion Z1ˀ(1): Z1.5 Z11 Z2ˀ(1): Z2.5 Z21 ( (1)ʀ(1) Z11 TT1: --->tribut  (1).5 US5 TU1  (1).5 US5 US0 ' US0 USUSĀ(2(1)): ---> usure 5 (1)ɀ(1) (1)Z2 G20 TN1: --->invasion 3 ESE30 GA0 (1)2(1) TV1: --->voleur  ---BILAN DE L'ANNEE---  ESE2 G20 $: " BILAN POUR L'ANNEE ";AN & " ----- ---- -------" :  (8);"NBR.DE MORTS ";E2 & (8);"NBR.DE BALLOTS ";G2 0GRGRG2:ESESE2 1::: "Tapez une touche " 2 "" 4402 : --- TAXES --- D TU1 4650 N TE1 4550 X TM1 4490 b TN1 4710 l TT1 4600 v TV1 4780  1180 MPˀ(GR(1)):GRGRMP : " MOISISURE"  " ---------":: ' " UN MAUVAIS STOCKAGE DES BALLOTS" ' " DU A SON GRAND NOMBRE VOUS FAIT"  "PERDRE ";MP;" BALLOTS."  5110: 1180 EVˀ(ES(12(1))):ESESEV : " EVASION"  " -------":: $ " LE MANQUE DE GARDE FAVORISA" ' " L'EVASION DE ";EV;" ESCLAVE(S)"  5110: 1180 TPˀ(PO(1)):POPOTP : " TRIBUT"  " ------":: '  " POUR UNE RAISON INCONNUE,L'ETAT" * " VOUS IMPOSE DE PAYER ";TP;" PIECES"  5110: 1180 *CE0:PA0:CH0 4: " USURE DES OUTILS" 9" ----- --- ------":: '> " L'UTILISATION QUASI CONTINUELLE" &H " DES OUTILS AMENE A LEUR TOTALE" R " DESTRUCTION." \ 5110: 1180 f G20 4460 p: " INVASION DES RATS" u" -------- --- ----":: 'z " DES MILLIERS DE RATS ENVAHISSENT" ( " VOS TERRES ET MANGE VOTRE RECOLTE"  " SOIT ";G2;" BALLOTS" GRGRG2  5110: 1180  ES1 1180 VPˀ(PO(1)):POPOVP ESES1 : " VOL"  " ---":: ' " UN DE VOS ESCLAVES MAL GARDES'EST" $ " ENFUI AVEC ";VP;" PIECES D'OR."  5110: 1180  ***************************  ******* BILAN FINAL *******  *************************** <Q1((PO10)(AR45)(GR6)(ES125)(CE5)(PA12.5)(CH50) Q2ˀ((((Q1Q)Q)RP)10000) (: " VOTRE TEMPS IMPARTI EST ECOULE" , " SOIT ";RP;" ANS DE PLANTATION ": )$ " VOUS TOTALISEZ UN SCORE DE ";Q2 . " IF Q2>ME THEN ME=Q2 $8 " LE MEILLEUR SCORE EST ";ME B Q2ME 4970 5L " HELAS,VOTRE SCORE N'EST PAS LE MEIL -LEUR ` 5110: 4990 +j " BRAVO,VOUS ETES LE POSSESSEUR DU" t " MEILLEUR SCORE": 5110 ~::: "VOULEZ-VOUS REJOUER ?"  "O" 5030  "N"  5000   *** COULEUR *** ! Z1 10: T1 15: T,1: T,Z Z0:T0: 10  *** SAISIE D'UNE TOUCHE *** :: "Appuyez sur une touche"   "" 5130   ******** MUSIQUE *********** ( 5260 2 V1 40 < FA: FO F 1,FA110,10: 2,FO110,10 P G0 50: G:G0 Z V: 0:  32,219,32,219,34,207,32,219  26,20,39,18,39,18,39,18  34,207,32,219,32,219,34,207  32,219,32,219,34,207,32,219  26,20,39,18,39,18,39,18  34,207,32,219,32,219,34,207  39,18,39,18,39,18,39,18  43,219,43,219,43,219,29,69  32,219,29,69,32,219,29,69, 32  219,29,69,21,237,21,237,21,237 VAFA!FO#pGCEPACHZ`POuARPESGR8Q6x *****************************  *** LA ROUE DE LA FORTUNE ***  *****************************  X(12)  Y(12) -" 1,1:: 0,10: "Appuyez sur une touche ..." # 970 ( --- DATAS DES MOTS SECRETS --- 2 AUSTERLITZ,LIEU 3 DINOSAURE,MOT 4 ATHLETISME,MOT 5 QUENOUILLE,MOT 6 VEHICULE,MOT 7 SCEPTRE,MOT 8 CORSAIRE,MOT 9 AMAZONIE,LIEU : BOUVREUIL,MOT F DUC DE RICHELIEU,PERSONNE P MORT A VENISE,TITRE Z DAVID EISENHOWER,PERSONNE d LE BOLERO DE RAVEL,TITRE n WALT DISNEY,PERSONNE x MER IONIENNE,LIEU AMIANTE,MOT  O VIEILLESSE ENNEMIE,TITRE BAFOUER,MOT  VIOLONCELLE,MOT  LA POLYNESIE,LIEU  LE GROENLAND,LIEU  LA BETE HUMAINE,TITRE  LE CAMEROUN,LIEU  MEILLEURES SALUTATIONS,TITRE  POITOU CHARENTE,LIEU  YOUGOSLAVIE,LIEU  ERNEST HEMINGWAY,PERSONNE  LE PONT D'AVIGNON,TITRE  BISTOURI,MOT  SOUVERAIN,MOT  SUZERAIN,MOT " BARCELONE,LIEU , VIGOUREUX,MOT  *** ERASE + MOT SECRET ***  SO: J P$"":MOT$"" * 50:Iˀ((1)33): G1 I: MOT$,TT$:  (MOT$)22 980 / "" I1ˀ((1)20):I2ˀ((1)22): 980  G1 (MOT$):P$P$"-":  G1 (MOT$) 6 (MOT$,G,1)" " P$ˀ(P$,G1)" "Ā(P$,(P$)G)  G  --- DESSIN --- 1,1:: 2,1:  1,8,(0,0)(255,191),8  (127,108),90,15,1,0,1  (127,108),3,15,1,0,1 X 15: 62,0: (16);"LA ROUE DE LA FORTUNE": 1: 67,10: (16);"Par Marc LE DOUARAIN"  1200:RT1.15 $ G1 12 .THˀ((3G)30) 8Y67(TH)RT4 BX67(TH)3 L I$ V 1: X122,Y100:I$; `  ***DATAS*** = BANQ.,500,3000,2000,1500,500,4000,2500,2000,1500,JOKER,1500  X(1)151:Y(1)46 X(11)107:Y(11)46 X(2)172:Y(2)72  X(10)86:Y(10)72 X(3)180:Y(3)108 X(9)80:Y(9)108 (X(4)172:Y(4)138 2X(8)87:Y(8)138 <X(5)160:Y(5)163 FX(7)100:Y(7)163 PX(6)127:Y(6)173 UX(12)127:Y(12)36 W 2000 Z*** LANCER DE LA ROUE *** 1_ (190,180)(255,191),,BF: 190,180: "Joueur ";I bBˀ((1)20)2 dRO12:PAU10:V(30(1B)) .e G0 B:RORO1:PAUPAU(VG): RO12 RO1 fXX(RO):YY(RO) 4g 1,1000,10: 2,300,7: 3,500,5: (127,108)(X,Y),15 h H0 PAU: 4i GB (127,108)(X,Y): (127,108),3,15,1,0,1: 0 k G n *** GAGNE *** Cs RO 1400 ,1410,1420,1430,1440,1450,1460,1470,1480,1490,1500,1510 (t (127,108)(X,Y): (127,108),3,15,1,0,1 u xSO1500: 10000: SO2000: 10000: SO3000: 10000: SO500: 10000: BANQUE1:SO0: 10000: SO1500: 10000: JOKER1:SO0: 10000: SO1500: 10000: SO2000: 10000: SO2500: 10000: SO4000: 10000: SO500: 10000:  ----------------------  ---- LE JEU ----  ---------------------- % 1,1:: 0,8: "Nombre de joueurs:"; CHOIX$ˀ: CHOIX$"" 2035 = (CHOIX$)0 (CHOIX$)4 CHOIX$:NJˀ(CHOIX$): 2046 : 2035 :: 10055 I1 E 1,2:: G1 NJ: 5((G1)11),8: "Joueur";G: G: 0,10: "F. :"  0,11: "JOK.:" * 0,4: " A B C D E F G H I J K L M " * 0,5: " N O P Q R S T U V W X Y Z "  2,2: 1370   *** EFFACEMEMT TEXTE *** / 1,2: 6,10: " " ) 6,11: " " V 0,14: " " 1 0,19: " " / 0,22: " "  1,1 A  G1 NJ: 5((G1)11),10: SO(G): 5((G1)11),11: J(G): G * 14,1: P$ + 0,1: TT$ 4 *** BANQUEROUTE & JOKER *** > BANQUE1 SO(I)0: G1000 500 20: 1,G,15: 2,G50,10:: 15000: G15 5 .5: 1,,G: 2,,G5: G: 0:BANQUE0 :T0: 8000 ^R JOKER1 2,300,15:J(I)J(I)1: 15000:JOKER0: 8,19: "Vous relancez la roue": 0: 8030 5 5,14: "Joueur ";I;" :": 5,15: "Votre lettre : ";  0,1: TT$:S$ˀ c S$"" FF15 5 2: 1,400,FF:: 0,1: " ": FF4 0 2: 1,400,FF:: 2201  20,15: S$: 5000 3 S$"A" S$"E" S$"I" S$"O" S$"U" 4000 T0  G1 (MOT$)  (MOT$,G,1)S$ : 2300  G  14,1: P$ T 5,10: " ": G1 NJ: 5((G1)11),10: SO(G): G  6000  *** REMPLACEMENT TIRET *** = S$"A" S$"E" S$"I" S$"O" S$"U" SO(I)SO(I)SO $ T1:P$ˀ(P$,G1)S$Ā(P$,(P$)G)   *** ACHAT D'UNE VOYELLE *** - 1,19: "Vous payez 2000F. pour une voyelle"  10055  SO(I)2000 1,19: "Vous n'avez pas assez d'argent !!!": 10055: 1,19:" ": 19,15: " " # SO(I)2000 S$"A" 6,4: "A" $ SO(I)2000 S$"E" 14,4: "E" $ SO(I)2000 S$"I" 22,4: "I" # SO(I)2000 S$"O" 8,5: "O" $ SO(I)2000 S$"U" 20,5: "U"  SO(I)2000 T0: 8000 SO(I)SO(I)2000: 15000  2205  *** EFFACEMENT LETTRE ***  *** DANS LE TABLEAU ***  S$"A" 6,4: "  S$"B" 8,4: " "  S$"C" 10,4: " "  S$"D" 12,4: " "  S$"E" 14,4: " "  S$"F" 16,4: " "  S$"G" 18,4: " "  S$"H" 20,4: " "  S$"I" 22,4: " "  S$"J" 24,4: " "   S$"K" 26,4: " "  S$"L" 28,4: " "  S$"M" 30,4: " " ( S$"N" 06,5: " " 2 S$"O" 08,5: " " < S$"P" 10,5: " " F S$"Q" 12,5: " " P S$"R" 14,5: " " Z S$"S" 16,5: " " d S$"T" 18,5: " " n S$"U" 20,5: " " s S$"V" 22,5: " " x S$"W" 24,5: " "  S$"X" 26,5: " "  S$"Y" 28,5: " "  S$"Z" 30,5: " "  p *** TROUVE MOT (O/N) *** jz P$MOT$ 15,19: "BRAVO.": 2,21: "Le joueur ";I;" a gagn : ";SO(I);" F.": 1,,0: PAU0 50: PAU T P$MOT$ "" 2,21: " ": 1,600,5: 6010 [ P$MOT$ 1,1:: 2,14: "C'EST PARTI POUR UNE AUTRE PARTIE":: PAU0 200: PAU: 40  *** RESTE-T-IL QUE DES ***  *** VOYELLES ? *** HJ0: G1 (MOT$) " (P$,G,1)"-" A$ˀ(MOT$,G,1) 3 A$"A" A$"E" A$"I" A$"O" A$"U" HJ1 $ G . HJ1 7000 8 8000 X ************************** b *** PROPOSER LE MOT *** l ************************** /q 0,15: " " :v 5,14: "Joueur ";I;" :": 5,15: "Proposez le mot : ";S$  S$MOT$ P$MOT$: 6000 II1: INJ I1  7025 @ *** A *** B *** C *** D *** E *** TOUR SUIVANT *** ]G T0 J(I)0 0,19: "Voulez-vous utilisez votre JOKER ?":A$ˀ: A$"O" A$"N" 8007 5H T0 J(I)0 A$"O" J(I)J(I)1:15000:: 8030 jI T0 J(I)0 A$"N" II1: 0,19: " ": 11000: INJ I1: 8030 8J T0 II1: 10,19: "DOMMAGE !": 11000: INJ I1 ^ 10055 (# 2060 ' ----------------------- ' --- MUSIQUE + PAUSE --- $' ----------------------- )' 10080 .' PAU1 10: MUS 8' 1,MUS,15 =' G0 50: G B' PAU: 0: 10060 (G' 0,22: " Appuyez sur une touche" L' "" 10060 (Q' 0,22: " " V' )`' 200,300,400,500,400,500,400,200,400,300 * ----------------------- + --- MUSIQUE 2 ***** ---  + ----------------------- + 11080 + PAU1 3: MUS + 1,MUS,10 %+ G0 20: G *+ PAU: 0: H+ 400,600,400 : ------------------------- : ------------------------- <: BANQUE1 0,10: " " $: G1 NJ: 5((G1)11),10: SO(G) : 5((G1)11),11: J(G) : G : 0,11: "JOK.:" : 0,10: "F. :" : Xn  *** BATAILLE NAVALE ***  -----------------------  J(9,9,4) '(: 2,1: 5,5,(0,0)(255,191),5:: 1,1 &2 " COORDONNEES DE VOS 5 SOUS-MARINS" *7:: "COORDONNEES de A a I et de 1 a 9 :" < I1 5 F 5I,2:: "SOUS-MARIN";I;" "; P A$:A$A$" " ZXˀ(A$)64:Yˀ((A$,2,1)) d X1 X9 Y1 Y9 : 70 n J(X,Y,1)0 : 70 xJ(X,Y,1)1   0,23: I1 5 Xˀ((1)9)1:Yˀ((1)9)1  J(X,Y,3)0 150 J(X,Y,3)1   2,2  ----------------------------- " *** DESSIN DU JEU *** , 6X5:T1: 900 @X19:T2: 900 | -----------------------------  *** TOUR DU JOUEUR ***  (0,100)(255,150),,BF P I0 7: J0 2: 3328(12J)8I,00: J: I: 24,104: 15: "VOTRE CHOIX:"; A$ˀ: A$"" 410 Xˀ(A$)64: I1 30: I: A$;  X1 X9 : 405 A$ˀ: A$"" 440 Yˀ(A$): A$;  Y1 Y9 : 405 = J(X,Y,3)1 2:2:JHANGING .BASMYSTERE .BAS OXO .BASPOKER .BASDEVIN .BASGALION .NOTROUE .BASGBOMBER .BAS1MERLAN .BAS3BATAILLE.BASOCLAVIER .BAS9COURSE .BAS=CHIFFRES.BASVCUBA .BAS*PUISANC4.BASXCUBA 2 .BAS[TIERCE .BASk  !"#$%&'()+,-./0824567;?:<>@ABCDEFHIJKLMNTUWYZ\]^_`abcdefghijl(X,Y,3)0:T1T11: " COULE! ": 490 4 4,1,15: I0 20: I: 0: " DANS L'EAU..... " J(X,Y,2)1 D ----------------------------- N *** TOUR DE L'ORDI *** X 24,120: "MON CHOIX :"; bXˀ((1)9)1:Yˀ((1)9)1 l J(X,Y,4)1 610 v (X64);((Y),1); ` J(X,Y,1)1 I1760 110 30: 1,I,15: I: 0:J(X,Y,1)0:T2T21: " COULE ... ": 660 0 4,1,15: I0 25: I: 0: " DANS L'EAU. " J(X,Y,4)1 -: " JOUEUR:";T1;" ORDINATEUR:";T2 A$ˀ: A$"" 680   -----------------------------  *** FIN DE LA PARTIE ***   T15 T25 300 * 1,2:: 1,1 #4 T15 T25 15,12: "EXAEQUO" 1> T2T1 " MINABLE ........................." 2H T1T2 " VOUS GAGNEZ ! JUSQU'A LA PROCHAINE" R::: \ "UNE AUTRE PARTIE ( O / N ) ?" f "O" : 40 p "N" u 870 w ----------------------------- z *** DESSIN D'UN CADRE ***  15  J8 74 8  (X8,8)(JX8,J8),,B  (72X8,80)(72X8J,80J),,B   1  I1 9  (XI)86,0: (I64)  X87,2I8: (I48)  I  11  I1 9  J1 9  J(I,J,T)0 1050  (IX)86,1J8: "X" : $ 4 . B --- J  *** LE COMPTE EST BON ***  ------------------------------ %: 8,11: 10,0: "LE COMPTE EST BON" ( 10,1: I1 17: (129);: I 2NCˀ((1)4)4:S$"" < I1 NC FN(I)ˀ((1)14)1 P N(I)11 100 ZN(I)(N(I)10)25 d I1 130 nRN(1):S$ˀ(" "Ā(N(1)),4) x 290 Oˀ((1)6)1 S$S$"$"Ā(" "Ā(R),4)  O 160,180,210,240,210,240 (RRN(I):S$S$" +"Ā(" "Ā(N(I)),4)  270 RRN(I): R1 50 S$S$" -"Ā(" "Ā(N(I)),4)  270 N(I)1 40 (RRN(I):S$S$" *"Ā(" "Ā(N(I)),4)  270  (RN(I))RN(I) 40 N(I)1 70 (RRN(I):S$S$" /"Ā(" "Ā(N(I)),4)  R999 40 S$S$" =" (" "Ā(R),4) " I , R101 50 6 NC7 500  *** AUTRES NOMBRES ***  INC1 7 N(I)ˀ((1)14)1  N(I)11 440 N(I)(N(I)10)25  I  *** MELANGE ***  I1 14 Aˀ((1)7)1 Bˀ((1)7)1 CN(A):N(A)N(B):N(B)C  I N *** NBR. PROPOSES *** X 9,5: I1 7 b N(I);" "; l I v:  (14);"-->";R::  *** BOUCLE ***  "00:00:00"  ((,2))50 720 : 800   *** *** *** *** *** *** *** ) " MA SOLUTION...":: (12); * I1 (S$) #4 (S$,I,1)"$" : (12);: 840 > (S$,I,1); H I R "" 850 \: 30 N^ p` ****** PUISSANCE 4 ***********  ------------------------------  P(8,7): 1100 B(: 7,3: (134);: I1 7: (129);(131);:: (29);(136) 2 J1 6 ,< (7);(128);: I1 7: " ";(128);:: FF J6 (7);(133);: I1 7: (129);(146);:: (29);(132) P J @Z (7);(135);: I1 7: (129);(130);:: (29);(137) d 8,1: "1 2 3 4 5 6 7" nE1:T0 xX(1)0:Y(1)1:X(2)1:Y(2)1 X(3)1:Y(3)1:X(4)1:Y(4)0  -----------------------------  ****** LE JEU *************** 2 0,20: " "; E2 400 : 7,20: "No de colonne:"; A$ˀ: A$"" 230 )Aˀ(A$): A1 A7 P(A,1)0 : 230  A$ # 800:JA:C(J)I:ZE: 600:P(A,I)E  J0 I  6A2,2(J1)2: " " " 6A2,2J2: (E227) , K1 100: K 6 J: N2 910 @ 22E4,(T): A:TT.5 J T21 1000 TEE1: E3 E1 ^ 200 | ----------------------------  ****** COUP DE L'ORDI ******  I1 1: I: J1 7 .AJ: 800:C(J)I: I0 C(J)2:G(J)1: 440 Z1: 600:G(J)N:Q(J)0 )Z2: 600:H(J)N:L(J)0: N2 AJ: 260  J:F0 "A1: J1 7: F0 C(J)0 490  F1 C(J)1 490  G(J)G(A) AJ: 490 ) G(J)G(A) L(J)L(A) Q(J)Q(A) AJ  J . 800:P(A,I)E:JA: C(J)10 P(A,I)0: 530 *C(J)C(J)1:Z1: 600:P(A,I)0:C(J)C(J)1  N2 C(J)1:G(J)1: 450  F0 C(J)0 F1: 450  260 D ---------------------------- N ****** NBR.DE BLOCAGE ****** XN0:O0 b K1 4 lM0:V1 vXJ:YC(J) XXVX(K):YYVY(K)  X1 X7 Y1 Y6 680  P(X,Y)Z 680 MM1:OO1: 640  V1 V1: 630  MN NM  M3 WK  K    ----------------------------  ****** POSITION-LIGNE ******  I1 6 * P(A,I)0 830 4 I >II1 H p ---------------------------- z ****** FIN DE PARTIE ******* ) E1 7,20: "Vous avez gagn.": 920 2:2: 9,20: "J'ai gagn." V1 XA:YI  6X2,2Y2: (W229) XXVX(W):YYVY(W)  P(X,Y)E 940  V1 V1: 930  "" 980 : 40  8,20: "Partie nulle."  980 8 ---------------------------- B ****** GRAPHIQUES ********** L C#228,"3048848484844830" V C#229,"3078FCFCFCFC7830" ` C#230,"1010101010101010" j C#231,"8040201008040201" t C#232,"0102040810204080" ~ C#233,"00000000FF000000"  PF: 5,1  : 5,1  ******** TILT No: 45 ********  ******** TILT No: 45 ******** ( ******** TILT No: 45 ******** 2 ******** TILT No: 45 ******** < ******** TILT No: 45 ******** F ******** TILT No: 45 ******** P ******** TILT No: 45 ******** Z ******** TILT No: 45 ******** $f " " $g " PLANTATION DE CUBA " $h " De Christophe Couasnard " $i " " $j " Adapt sur YENO-SEGA " $k " Par Marc Le Douarain " $l " " m n p 5150 z *** CHOIX DES CAPITAUX *** CE0:PA0:CH0 + " CHOIX DU NIVEAU ":  (6);"- 1:CAPITAUX PREFIXES"  (6);"- 2:CAPITAUX ALEATOIRES" : " VOTRE CHOIX : ";Z  Z2 1010  Z1 890 PO15000:AR50:ES2:GR50:CE1 PA1:Q4317.5: 1120 POˀ(1100(1))10000 ARˀ(101(1)) ESˀ(4(1)) GRˀ(101(1)) CEˀ((1)) $ CE.5 CE1 .PAˀ((1)) 8 PA.5 PA1 BCHˀ((1)) L CH.5 CH1 G1G1BV: G10 "IMPOSSIBLE": 5110: 1870 HO1O1(VBBV): 1880 RPOO1:GRG1: 1290 \ *** ESCLAVES ************* fO1PO:E1ES p: " ESCLAVES": z (5);"PIECES D'OR ";O1  (5);"NBR.D'ESLAVES ";E1  (5);"ESCLAVE VENDU A ";AE  (5);"ESCLAVE RACHETE A ";PV  (5);"1 : ACHAT D'ESCLAVES"  (5);"2 : VENTE D'ESCLAVES"  (5);"3 : LES ESCLAVES"  (5);"4 : MENU":  " VOTRE CHOIX : ";Z  Z1 Z4 2140  Z 2280,2360,2440,2640  --- ACHAT D'ESCLAVES --- : " ACHAT D'ESCLAVES"  " ----- ----------"  (5);"PIECES D'OR ";O1  (5);"NBR.D'ESCLAVES ";E1  (5);"ESCLAVE VENDU A ";AE % " NBR.D'ESCLAVES A ACHETER:";NA D$ O1O1(AENA): O10 "C'EST TROP CHER POUR VOUS !": 5110: 2150 . E1E1NA: 2160 8 --- VENTE D'ESCLAVES --- B : " VENTE D'ESCLAVES" G " ----- ----------" L (5);"PIECES D'OR ";O1 V (5);"NBR.D'ESCLAVES ";E1 ` (5);"ESCLAVE ACHETE A ";PV $j " NBR.D'ESCLAVES A VENDRE:";NV .t E1E1NV: E10 "IMPOSSIBLE": 5110: 2150 ~ O1O1(PVNV): 2160  --- LES ESCLAVES ---  HJ0:O1PO:PN0:Z$""  : " LES ESCLAVES"  " --- --------"  (5);"PIECES D'OR ";O1  (5);"NBR.D'ESCLAVES ";E1 % "UN ESCLAVE TRAVAILLE ENV 14H/JOUR" % "ET A BESOIN DE 500 PIECES D'OR DE"  "NOURRITURE":  " NOURRITURE : ";PN ? O1O1PN: O10 "C'EST TROP CHER POUR VOUS !": 5110: 2450 # : " NBR.D'HEURES/JOURS : ";HJ  HJ 24 2450  : " LES ESCLAVES"  " --- --------"  (5);"PIECES D'OR ";O1  (5);"NBR.D'ESCLAVES ";E1 & (5);PN;" PIECES D'OR DE NOURRITURE" %( (5);HJ;" D'HEURES DE TRAVAIL/JOUR" 2 : (5);"CELA VA (O/N) ?" < "N" 2450 F "O" 2160 K 2620 P POO1:ESE1: 1290 Z *** OUTILS ***************** d O1PO:C1CE:P1PA:CHH1 n : " LES OUTILS": x (5);"PIECES D(OR ";O1  (5);"NBR D'ESCLAVES ";ES * (5);"NBR D'OUTILS/ESCLAVES ";(C1P1H1) ( " IL FAUT UN OUTIL PAR ESCLAVE .":  (5);"1 : ACHAT D'OUTILS"  (5);"2 : VENTE D'OUTILS"  (5);"3 : MENU":  " VOTRE CHOIX : ";Z  Z1 Z3 2650  Z 2780,3180,3570  --- ACHAT D'OUTILS ---  : " ACHAT D'OUTILS"  " ----- --------":  (5);"PIECES D'OR ";O1  (5);"NBR.D'ESCLAVES ";ES . (5);"NBR.D'OUTILS PAR ESCLAVES ";(C1P1H1) ( " IL FAUT UN OUTIL PAR ESCLAVE .":  (8);"1 : CERPE" " (8);"2 : PIOCHE" , (8);"3 : CHARRUE" 6 (8);"4 : MENU (OUTIL)": @ " VOTRE CHOIX : ";Z J Z1 Z4 2780 T Z 2920,3010,3100,2670 ^ O1PO h : " ACHAT DE PIOCHES" m " " r : (8);"PIECES D'OR ";O1 *| (8);"NBR.D'OUTILS/ESCLAVES ";(C1P1H1)  (8);"NBR.DE SERPES ";C1 ) " UNE CERPE COUTE 100 PIECES D'OR .": ' " NBR.DE CERPES A ACHETER:";NC E O1O1(100NC): O10 "C'EST TROP CHER POUR VOUS !": 5110: 2910  C1C1NC: 2790  O1PO  : " ACHAT DE PIOCHES" " "  : (8);"PIECES D'OR ";O1 * (8);"NBR.D'OUTILS/ESCLAVES ";(C1P1H1)  (8);"NBR.DE PIOCHES ";P1 * " UNE PIOCHE COUTE 250 PIECES D'OR .": ( " NBR.DE PIOCHES A ACHETER:";NP E O1O1(250NP): O10 "C'EST TROP CHER POUR VOUS !": 5110: 3000  P1P1NP: 2790  O1PO  : " ACHAT DE CHARRUES" !! " " & : (8);"PIECES D'OR ";O1 *0 (8);"NBR.D'OUTILS/ESCLAVES ";(C1P1H1) : (8);"NBR.D'ESCLAVES ";ES ,D " UNE CHARRUE COUTE 1000 PIECES D'OR .": )N " NBR.DE CHARRUES A ACHETER:";NH FX O1O1(1000NH): O10 "C'EST TROP CHER POUR VOUS !": 5110: 3090 b H1H1NP: 2790 l --- VENTE D'OUTILS --- v : " VENTE D'OUTILS" { " ----- --------"  (8);"PIECES D'OR ";O1  (8);"NBR.D'ESCLAVES ";ES , (8);"NBR.D'OUTILS/ESCLAVES ";(C1P1H1):  (8);"1 : SERPE"  (8);"2 : PIOCHE"  (8);"3 : CHARRUE"  (8);"4 : MENU (OUTIL)":  " VOTRE CHOIX : ";Z  Z1 Z4 3180  Z 3310,3400,3490,2670  C1CE  : " VENTE DE SERPES"  " "  (8);"NBR.D'ESCLAVES ";ES ) (8);"NBR,D'OUTIL/ESCLAVES ";(C1P1H1)  (8);"NBR.DE SERPES ";C1 * "UNE SERPE EST RACHETE 50 PIECES D'OR": & " NBR.DE SERPES A VENDRE:";CV .* C1C1CV: C10 "IMPOSSIBLE": 5110: 3300 4 O1O1(50CV): 3190 > P1PA H : " VENTE DE PIOCHES" M " " R (8);"NBR.D'ESCLAVES ";ES )\ (8);"NBR,D'OUTIL/ESCLAVES ";(C1P1H1) f (8);"NBR.DE PIOCHES ";P1 ,p "UNE PIOCHE EST RACHETE 125 PIECES D'OR": 'z " NBR.DE PIOCHES A VENDRE:";DP . P1P1DP: P10 "IMPOSSIBLE": 5110: 3390  O1O1(125CV): 3190  H1CH  : " VENTE DE CHARRUES"  " "  (8);"NBR.D'ESCLAVES ";ES ) (8);"NBR,D'OUTIL/ESCLAVES ";(C1P1H1)  (8);"NBR.DE CHARRUES ";H1 . "UNE CHARRUE EST RACHETEE 500 PIECES D'OR": ( " NBR.DE CHARRUES A VENDRE:";CV . H1H1CV: H10 "iMPOSSIBLE": 5110: 3480  O1O1(500CV): 3190  POO1:CEC1:PAP1:CHH1  1290  *** EMPLOYES ************** O1PO:DC0:GA0:Z$"" : " EMPLOYES"  " --------": $ (8);"PIECES D'OR ";O1 '. " IL FAUT 750 PIECES D'OR POUR LE " &8 " DOCTEUR ET 500 POUR UN GARDE.": B (8);"DOCTEUR (O/N) ? " L "N" DC0: 3680 V "O" DC1: 3680 [ 3660 ` DC1 O1O1750 6j O10 "C'EST TROP CHER POUR VOUS !": 5110: 3590 #t:: " NBR.DE GARDES : ";NG E~O1O1(500NG): O10 "C'EST TROP CHER POUR VOUS !": 5110: 3600 GANG : " EMPLOYES"  " --------":  (8);"PIECES D'OR ";O1  (8);"NBR.DE GARDES ";GA  DC0 (8);"UN DOCTEUR"  (8);"CELA VA (O/N) ?"  "N" 3600  "O" 3800  3790 POO1: 1290  *** RECAPITULATIF *** ': " VOUS AVEZ ";AR;" ARPENTS DE " , " TERRE DONT ";AC;" SONT CULTIVABLES " ) " VOUS AVEZ ";ES;" ESCLAVE(S) AVEC ";CE % "SERPE(S), ";PA;" PIOCHE(S) ET ";CH   "CHARRUE(S) ." % " VOUS LE(S) FAITES TRAVAILLER ";HJ ' "HEURES/JOURS ET VOUS LES NOURRISSEZ"  "AVEC ";PN;" PIECES D'OR." 8# "IL Y A ";GA;" GARDE(S) ";: DC0 "ET UN DOCTEUR." %< "IL VOUS RESTE ";PO;" PIECES D'OR " F "ET ";GR;" BALLOTS.": P (8);"CELA VA (O/N) ?" Z "N" 1290 ] "O" 3940 _ 3930 d --- PROPOSITION D'UN FERMIER nPFˀ(AC101((1))) xEN1 . ((1))ɀ(1) (1)ɀ(1) POPF 4000  4100 (: " PROPOSITITION D'UN FERMIER VOISIN" ) " ------------- ---- -------- ------":  (5);"PIECES D'OR ";PO ( "LE FERMIER VOUS PROPOSE DE L'ENGRAIS"  "CONTRE ";PF;" PIECES D'OR." ( "L'ENGRAIS PERMET DE BONNES RECOLTES,"  "MAIS NE LE GARANTI PAS.":  " ENGRAIS (O/N) ?"  "O" EN2:POPOPF: 4100  "N" 4100  4070  *** BILAN POUR L'ANNEE ***  ES0 HJ19 E2ES (CEPACH)0 AC0 4200 " E2ES 4210 #,OV(((CE.5)PA(CH2))(CEPACH)) 6E3ESOV:E414HJ:E51:E60 @ E40 E5ˀ(E4ES5) J E40 E6E2 $T PN(350ES) PN(2000ES) E2ES 2^E2((E550GA20AR)(PN(1000OV)(E6ES5))).13 /hG2ˀ(AR(2(E2ES)(GAES)2(E67)Ā(1)))EN r E21 E20 | E21 E2ˀ(E21.3)  DC1 E2ˀ(E22)  PN350ES E2ES / PO(GR(10(2(1)))) TM1: --->moisisure 7 ESE23 GA1 (1)ɀ((1)) TE1: --->evasion Z1ˀ(1): Z1.5 Z11 Z2ˀ(1): Z2.5 Z21 ( (1)ʀ(1) Z11 TT1: --->tribut  (1).5 US5 TU1  (1).5 US5 US0 ' US0 USUSĀ(2(1)): ---> usure 5 (1)ɀ(1) (1)Z2 G20 TN1: --->invasion 3 ESE30 GA0 (1)2(1) TV1: --->voleur  ---BILAN DE L'ANNEE---  ESE2 G20 $: " BILAN POUR L'ANNEE ";AN & " ----- ---- -------" :  (8);"NBR.DE MORTS ";E2 & (8);"NBR.DE BALLOTS ";G2 0GRGRG2:ESESE2 1::: "Tapez une touche " 2 "" 4402 : --- TAXES --- D TU1 4650 N TE1 4550 X TM1 4490 b TN1 4710 l TT1 4600 v TV1 4780  1180 MPˀ(GR(1)):GRGRMP : " MOISISURE"  " ---------":: ' " UN MAUVAIS STOCKAGE DES BALLOTS" ' " DU A SON GRAND NOMBRE VOUS FAIT"  "PERDRE ";MP;" BALLOTS."  5110: 1180 EVˀ(ES(12(1))):ESESEV : " EVASION"  " -------":: $ " LE MANQUE DE GARDE FAVORISA" ' " L'EVASION DE ";EV;" ESCLAVE(S)"  5110: 1180 TPˀ(PO(1)):POPOTP : " TRIBUT"  " ------":: '  " POUR UNE RAISON INCONNUE,L'ETAT" * " VOUS IMPOSE DE PAYER ";TP;" PIECES"  5110: 1180 *CE0:PA0:CH0 4: " USURE DES OUTILS" 9" ----- --- ------":: '> " L'UTILISATION QUASI CONTINUELLE" &H " DES OUTILS AMENE A LEUR TOTALE" R " DESTRUCTION." \ 5110: 1180 f G20 4460 p: " INVASION DES RATS" u" -------- --- ----":: 'z " DES MILLIERS DE RATS ENVAHISSENT" ( " VOS TERRES ET MANGE VOTRE RECOLTE"  " SOIT ";G2;" BALLOTS" GRGRG2  5110: 1180  ES1 1180 VPˀ(PO(1)):POPOVP ESES1 : " VOL"  " ---":: ' " UN DE VOS ESCLAVES MAL GARDES'EST" $ " ENFUI AVEC ";VP;" PIECES D'OR."  5110: 1180  ***************************  ******* BILAN FINAL *******  *************************** =Q1((PO10)(AR45)(GR6)(ES125)(CE5)(PA12.5)(CH50)) Q2ˀ((((Q1Q)Q)RP)10000) (: " VOTRE TEMPS IMPARTI EST ECOULE" , " SOIT ";RP;" ANS DE PLANTATION ": )$ " VOUS TOTALISEZ UN SCORE DE ";Q2 . Q2ME MEQ2 $8 " LE MEILLEUR SCORE EST ";ME B Q2ME 4970 5L " HELAS,VOTRE SCORE N'EST PAS LE MEIL -LEUR ` 5110: 4990 +j " BRAVO,VOUS ETES LE POSSESSEUR DU" t " MEILLEUR SCORE": 5110 ~::: "VOULEZ-VOUS REJOUER ?"  "O" 5030  "N"  5000   *** COULEUR *** ! Z1 10: T1 15: T,1: T,Z Z0:T0: 10  *** SAISIE D'UNE TOUCHE *** :: "Appuyez sur une touche"   "" 5130   ******** MUSIQUE *********** ( 5260 2 V1 40 < FA: FO F 1,FA110,10: 2,FO110,10 P G0 50: G:G0 Z V: 0:  32,219,32,219,34,207,32,219  26,20,39,18,39,18,39,18  34,207,32,219,32,219,34,207  32,219,32,219,34,207,32,219  26,20,39,18,39,18,39,18  34,207,32,219,32,219,34,207  39,18,39,18,39,18,39,18  43,219,43,219,43,219,29,69  32,219,29,69,32,219,29,69, 32  219,29,69,21,237,21,237,21,237 VAFA!FO#pGCE0PA CHZ`POFARPES GRQCPRPP *** TIERCE ***  --------------  2000 (: 15,12 2 "Nbr. de parieurs : ";PA < PA0 PA8 40 F: P I1 PA Z "Nom du parieur ";I;" | "; d N$(I) n: I  -----------------------------  *** ENTREE DES PARIS *** CC1 : (6);"COURSE";C I1 PA : J1 3  "CHEVAL ";J;" DE ";N$(I)  C(I,J)  C(I,J)9 250  J,I | -----------------------------  *** LA COURSE *** : (6);"COURSE";C  : I1 34: "";::  I1 9 # I;" ";A$(1);(234);(34);(233)  " ";(234);(34);(233)  I  I1 35: "";:  I1 9:R(I)0:X(I)3:  "" Iˀ(I): 480  I3 20: 6,I: " ": Iˀ((1)9)1  X(I)33 500 # X(I),1I2: A$(1): J1 20: J  X(I),1I2: A$(2) X(I)X(I)1 0 X(I)33 700 : 500  -----------------------------  *** VERIF. ARRIVEE *** X(I)X(I)1 NANA1:R(NA)I  NA2,23: I;:  NA9 500   -----------------------------  *** RESULTATS ***   "" Iˀ(I): 800 *:: (9);"RESULTATS" 4: "PLACE No" > I1 9: I,R(I): I H: "NOM C1 C2 C3 PTS TOT." R I1 PA \NOO:T0:TP0 f J1 3 p K1 3 z R(J)C(I,K) 910 NONO1  JK R(J)C(I,K) 930 TT1  K,J  T3 TPTP5  NO3 TPTP5  NO2 TPTP2 P(I)P(I)TP F (N$(I)" ",6);" ";C(I,1);" ";C(I,2);" ";C(I,3);" ";TP;" ";P(I)  I  "" 1000 NA0  200  ----------------------------  *** GRAPHIQUES ***  C#228,"000000C43C3C50A0"  C#229,"203068C4FCF80404"  C#230,"0080E090C0804020"  C#231,"0000048C7C7CA0A0"  C#232,"80C8BC90F8E82824"  C#233,"A850A850A850A850"   C#234,"8080808080808080" A$(1)ˀ(228)Ā(229)Ā(230)  A$(2)" "Ā(231)Ā(232) 4 A"