$7GOOG& -------------------------------@ JEU DE GOOG [ MICRO SYSTEME a(y2 JUIN 1987< PAGE 177F-------------------------------PZd38650n:x0:3#26A,(#26A)1#F766/:13);(27);"A"(27);"JJEU DU GOOG"W13);(27);"A"(27);"JJEU DU GOOG"w14);(27);"E===========" 2,10;"Veuillez patienter quelques instants.."------------------ SCROLLING EN LM------------------,A3870438849 6B@A,BJA8-----------------------R POSITIONS PERDANTESo-----------------------XD(163):D(0)1bA1163lD(A)vAE(49),F(49)A049E(A),F(A)AA(13),B(13),C(13)--------------------- REGLES DU JEU4---------------------H#26A,(#26A)1aL:(27)"BBONJOUR !"V:"Je m'appelle ORIC et vous (4 lettres)";B$`(B$)41110j:"Voulez-vous consulter les regles ";A$tA$"OUI"ɗ150010000! "Ceci est le plateau de jeu : 49 pions"J "sont disposes sur un losange 7x7."j 20)"Pressez une touche.";r A$ ::#F766 #26A,(#26A)1 "Regles du jeu de GOOG :" "---.-------------------" :" A tour de role, chaque joueur prend"/ ("dans la travee de son choix (de A a N)"Z 2"autant de pions qu'il veut. Ceux-ci" <"sont alors enleves. Puis les pions des" F"perpendiculaires 'descendent'" P"d'une case quand cela est possible." Z:"Celui qui est oblige de prendre le"! n"dernier pion a perdu."P x:"Indiquez vos coups en introduisant la"z "travee choisie, suivi du nombre de" "pions a enlever (ex : A4)." "pour avoir une aide, entrer 'CONSEIL'." :"pour revenir un coup entier en arriere" "entrez 'RETOUR'."; :"Pour arreter, entrez 'ABANDON'."^ ::20)"Presser une touche."f A$z #26A,(#26A)1 ---------------------------  DIFFERENTS CHOIX DU JOUEUR ---------------------------  @:"Desirez-vous jouer contre:" J6)"1) moi"9 T6)"2) un autre adversaire"b ^:"Votre choix entre 1 et 2 SVP ";Ev hE1E21630 rE2ɺ:"Comment s'appelle-t-il (4 lettres ) ";C$ |E2(C$)41650 E21730 C$"ORIC"::"Quel niveau de force m'accordez-vous (de 0 a 9 ) ?";:"Votre choix SVP ";FFF(F)XF0F91700}::"Voulez-vous commencer ";A$G12(A$"OUI")::"Desirez-vous que l'affichage comporte:"4)"1) tous les deplacements de pions"4)"2) seulement les positions finales"9:"Votre choix SVP ";OMO1O21780o:2:::"PATIENCE.....!!!!"{:8000G1D$B$" "C$ D$C$" "B$180,40,3&7800l---------------v INITIALISATION---------------H.5:I1:J0:H150:P0A013)A(A)70ABE1G13000Y-----------------n COUP DU JOUEUR-----------------HH.5:II: PI P0H1H110(H1160)(H(H))4"A vous. ";>GIɺ B$ C$H#26A,(#26A)1R:"Votre coup SVP ";A$+\#26A,(#26A)1EfA$"CONSEIL"ɔ:2500dpA$"ABANDON"II::4500zA$"RETOUR"əH1.5 P0 :2300 2260(A$)22260K((A$,1))65K(K6(K7))L((A$,1))48K0 K13 L1 2260*A(K)L (L1 A(K)L J1) 2900E"Coup impossible...."O2120gAH.5 H1 .5 A(A):H1H110(H1160): 174,H1,3: 8,6,127 A(A) H1H110: 221,H1,2:8,3,127 A$ HH1:PI` Y06j A(Y7)C(Y7)2460t X6C(Y7)~ & XX1:75006 6A(Y7)X= YV A013:A(A)C(A):A` 6900j 2100 "Je cherche...." A06:G(A)A(A):A : 5000 M0ɺ"Conseil : abandonnez!!!!!":2100 :3500 "Conseil : ";((K71)(K7)(65K)(K6));(48L) $ 21000T A013[^ E1 C(A)A(A) C(A)B(A):B(A)A(A)bh Alr 6000}| J2 4500 E2 2000 ------------------ ORIC JOUE ------------------ HH.5:II H1H110(H1160)(H(H)) "A moi.....")0 8(1)F J140006 A0 6D G(A)A(A)K AU 5000d M0 4000n 3500x 6000 J2 4500 2000 K(14(1)):K1K I(1)0  KK114(K0) A(K)0 3660 K6 K13 K114(K13)K1 3560 A(K)A(K1) 36606 L(A(K)(1))1:L1L< Q LL1A(K)(L1)qA06:G(A)A(A7(K7)):AAA(K)L A(K)1G(A)G(A)1$A.50008F9 M0 LI(1) I(0)K:I(1)LB LL1 (M0 F9)L KK1 (M0 F9)V F9 KI(0):LI(1)$`E---------------------------e ORIC JOUE UN COUP PERDANT---------------------------500K(14(1))KK114(K13)" A(K)0,L(A(K)(1))166000@ J2 2000----------------------------6 LA PARTIE EST FINIE X----------------------------l#26A,(#26A)1{GI4650"Bravo ";B$;", vous avez gagne !" 4750*E147004"Bravo ";C$;", vous avez gagne !">4750\"Desole ";B$;", mais j'ai gagne."*"Une revanche ";A$GA$"OUI"ɡ:#F766:1130Mo---------------------------- EVALUATION DES POSITIONS----------------------------D1DD1 C(G(0)D)(G(1)D)(G(2)D)(G(3)D)(G(4)D)(G(5)D)(G(6)D)# CG(D) D66(G(D)C 5300B2 D06P<H(D)G(D)WFDbPD06ZG(D)(H(0)D)(H(1)D)(H(2)D)(H(3)D)(H(4)D)(H(5)D)(H(6)D)dDM1:DG(0)G(1)G(2)G(3)G(4)G(5)G(6)Z1E6G(0)1E5G(1)1E4G(2)1E3G(3)100G(4)10G(5)G(6)*CE(D)0@D(C)ZM0JCC1h ZD(C1) E(D)F(D)Cnp--------------------------z MISE EN OEUVRE DU COUP--------------------------702,64H(H)6160H1160ɿ38704%H10D$" " D$(48(H10))FD$D$(48H10(H10))")"`169,H110(H1160),3j7800D$(65K(62K)(K7))(L48)19223(H(H)),H110(H1160),3$7800.O265008K66350=:"Enlevement de";L;"pions dans la travee ";(71K)BX6K;L YA(K)1 A(K)L 1EV7000L`Y\jA0500:Ao:"Les pions des travees perpendiculaires'descendent'.";t"(quand c'est possible)"yYA(K)L A(K)1~A(Y7)K1 6320A5K 7A(Y7) 1 XA:7000XA1:7500#A*Y46700m:"Enlevement de";L;"pions dans la travee ";(65K)wYK7 X7A(K) 6A(K)L7000XA0 500:A:"Les pions des travees perpendiculaires'descendent'.";"(quand c'est possible)"-X6A(K)L 7A(K) 1E  A(6X)K6 6460[AK6 A(6X)1iYA:7000y(YA1:75002A<XF:6700d K6 6600n YA(K)1 A(K)L 1xX7A(Y7):7000Y6700X7A(K) 6A(K)L YA(6X)1:7000 X* , K6 6800D 6 A7A(K)L A(K)6T @A(A)A(A)1[ JAf TA06 ^A(A)(A(7)A)(A(8)A)(A(9)A)(A(10)A)(A(11)A)(A(12)A)(A(13)A) hA r6860 AA(K)L A(K)1 A(A)A(A)1 A  A06I!A(A7)(A(0)A)(A(1)A)(A(2)A)(A(3)A)(A(4)A)(A(5)A)(A(6)A)P!A]!782,192!J(A(1)0)(A(2)0)(A(3)0)(A(4)0)(A(5)0)(A(6)0)!JJ(A(8)0)(A(9)0)(A(10)0)(A(11)0)(A(12)0)(A(13)0)!:"X----------------------------"b EFFACEMENT PION="l----------------------------N"V329(XY)`"W1019(XY)f"p"WW1" (V,W2)1"V1V:W1W"C112"" W2W1"" V1,W1,1:W1W11"* (V1,W13)1"4V1V1C:W3W1#>W1W2((V1,W21)1)(1((V1C,W21)1)),#HW1W327#RV1V1e#\W1W((V1,W1)1)(1((V11,W1)1)) l#fCr#p#(V1,W1)0#L------------------------#V AFFICHAGE D'UN PION#`------------------------#V329(XY)#W1019(XY)$ $WW1$ (V,W1)0*$V1V:W1W=$ C1 1 2C$M$W2W1S$ h$V1,W1,0:W1W11y$ (V1,W1)0$(V1V1C$2W1W2((V1,W2)0)(1((V1,W21)0)) $< (V1,W1)0$FV1V1$PW1W((V1,W)0)(1((V1,W1)0))$ZC%d#%x-----------------------------F% SS PGME D'AFFICHAGE EN HIRESi%-----------------------------x%D1(D$)%6,0,3% ((D$,D)),0,2%D%%@---------------------------%J PRESENTATION DU JEU&T---------------------------!&^'782,64''&h1&r0:3E&|#26A,(#26A)1m&15,0,0:5,7,1:5,7,2:5,7,4:5,7,5x&A03&70A,4A,0:8900&77A,4A,0:8950&94A,4A,0:8950 &120A,4A,0:8900&A& A41170' 18150(A170)12.6,A,1!' 36150(A170)148,0,1?'& 18150(A170)160.5,A,1E'0 Z'2 0,171,0:19,2,4k': A1711892s'D 85'N 12,A,1:148,0,1'X 170'b 12,A1,0:148,0,1'l 'v 255' 12,170,1:0,20,1' 148,0,1:0,20,1' B22' A0639( A1((A0 A63) B0)26( 86A,1626764AB,0P( A162,A1732A65,0j( 86A,1626764AB,0( 62A1,A1732A65,0( A( B( 86,42,0( A0639(!92A,1626764A,3( !A63ɰ72A9,0,0(!6,1,1( !62,732A65,1)*!76A,1626764A,3-)4!A63ɰ71A9,0,0:)>!10,1,1N)H!62,732A65,1U)R!Ac)\!A112u)f!866A,134,0)p!8630A,128,0)z!8637A,102,0)!8650A,107,0)!A)!86,43,1)!163,10,0:181,5,6)!174,10,0:181,11,127 *!180,26,0:54,0,0 *!180,174,0:54,0,0.*!A112<*!B0644P*!CA(360010B)h*!44989C,(38782B)*!44990C,(38783B)*!44998C,(38784B)*!44999C,(38785B)*"B*"A*":"Patience, j'installe mes pions."*`"Y06+j"X601 +t"7500+~"X+"Y+"++"782,1921+"E+"9,0,1:2,2,1X+"0,10,1:2,2,1k+"6,0,1:2,2,1+"0,5,1:4,0,1+"+"6,0,1:2,2,1+#0,10,1:2,2,1+ #6,0,1:2,2,1+#0,10,1:2,2,1+#+(#---------------------- ,2# SCROLLING EN LM),<#----------------------J,F##A2,#04,#BD,#40,#00,#9D,#2Bk,K##97,#CA,#D0,#F7,#A9,#0C,#85,P##40,#A9,#AB,#85,#41,#A9,#7C,U##85,#42,#A9,#A9,#85,#43,#D8,Z##A2,#64,#A0,#0A,#B1,#40,#91,_##42,#88,#D0,#F9,#18,#A5,#40-d##69,#28,#85,#40,#A5,#41,#691-i##00,#85,#41,#A5,#42,#69,#28R-n##85,#42,#A5,#43,#69,#00,#85s-s##43,#CA,#D0,#DB,#A2,#04,#BD-x##2B,#97,#95,#40,#CA,#D0,#F8-}##60-#------------# GRAPHISME-#------------##40,#5F,#7E,#40,#47,#4F,#7C.##78,#4F,#67,#79,#7C,#58,#772.##7B,#46,#53,#53,#72,#72,#67S.##4B,#74,#79,#68,#6B,#75,#45t.##6A,#6B,#75,#55,#6A,#6B,#75.##55,#6A,#6B,#75,#55,#6B,#6B.##75,#75,#6B,#4B,#74,#75,#68.##53,#72,#45,#67,#77,#7B,#79.##73,#67,#79,#73,#79,#4F,#7C/##67,#7C,#40,#40,#4F0/#-------------------------I/# COEUR DU PROGRAMMEh/$-------------------------/T$1000000,2200000,3110000 /Y$4300000,4111000,5210000/^$3320000,5111100,6211000/c$5500000,4321000,6410000/h$6111110,5331000,53220000m$4440000,4422000,760000040r$7420000,7221100,7111111Q0w$7511000,7311110,6620000n0|$6530000,5422100,63321000$6331110,6322200,55410000$7441000,6422110,55222000$5443000,7721000,76310000$7433000,7333100,73321100$6622100,6542000,76211101$7532100,7422111,663300091$6551100,6522210,7750000V1$7432210,6661000,6443110s1$5543200,7741100,77222001$7553000,7542110,75222111$6651110,6643100,66222201$6544100,6533300,64442001$6443300,5555000,76422002$7551111,7532220,7443111!2$6543210,5553300,7743200>2$7733111,7722221,7633220[2$7555100,6663200,6643220x2$6553310,7773000,77711102$7764000,7753110,77521112$7665000,7663110,76442102$7553211,7544400,75443102$7444410,7443330,7654300 3$7654111,7553320,6655300&3$6653320,6555400,7763300C3$7763210,7762211,7755200`3$6665210,7766100,7743222}3%7664400,7655220,76533213%6663330,7773310,77732203 %7753330,7744420,77444113%7743331,7555411,66662203%6655510,6655420,77762004%7755410,7755221,7754321+4!%7753322,7664330,7663331H4&%7555430,7666410,6666600e4+%6665430,7763332,766632140%7665421,7655521,765544045%7777400,7775420,77752224:%7765511,6666440,77772214?%7776510,7773333,77655304D%7666611,7766422,77764315I%7766441,7777530,777555005N%7775433,7666650,7777720M5S%7777632,7777443,7776552j5X%7766652,7777741,77776605b%7776653,7777654,77777735g%77777555%0,1,1,1,0,0,0,0,2,1,3,1,0,05%4,2,6,2,8,1,9,3,12,2,14,45%18,4,22,5,27,4,31,4,35,7,426%6,48,5,53,13,66,6,0,0,72,846%80,13,93,6,99,5,104,6,110T6%10,120,8,128,3,131,5,136,5u6%141,5,146,1,147,2,149,4,1536%1,0,0,154,4,158,2,160,1,0,06%161,1,0,0,162,2,0,0,0,0,0,06%0,06' PRESENTATION HIRES6'ERSET:LOAD"TT.BIN"6'7$'LOAD"GGO.SCR":(17)7.'A