$9CHARPENT.TAP' ******************************M * PIERRE BAYLE *s * LE PROBLEME DU CHARPENTIER * * ORIC 1 * ******************************IO3: 0:7:618,2B(9,4)236,25,66,66,108,25,30,30,144,25,66,30 J<108,61,30,30,144,61,66,30,36,97,30,66uF72,97,30,66,144,97,30,66,180,97,30,66~PDM1d *** PRESENTATION ***n26,15,1x196,0,1:0,154,1196,0,1:0,154,1A$"LE PROBLEME DU CHARPENTIER"B40:C180:FD1:900,210,25,3:144,1,7DX36:Y25:L66:H66ZX6,Y,3:H6,1,4gI0H1}X,YI,1:L1,0,1A$"VOUS DEVEZ DEPLACER":B1:C5:FD1:900X36:Y25:A4:L66:H66:2100A$"CE BLOC":B120:C5:FD1:9002100+"A$"COMME CELA":B168:C5:FD1:9005,2100V6I11000::::IO1ɿ#E6CAg7IO3ɿ#E76Ar8618,2;26,15,1@196,0,1:0,154,1J196,0,1:0,154,1T210,25,3:144,1,7^DM A$"MAIS IL N'EST PAS SEUL":B1:C5:FD1:900  cI19:J14 eB(I,J)::) hK19Q rXB(K,1):YB(K,2):LB(K,3):HB(K,4)b wK1A4A1x |X6,Y,3:H6,1,A I0H1:X,YI,1 L1,0,1:: S5500 FD0:B1:C5:900 A$"A VOUS DE JOUER MAINTENANT !":B1:C5:FD1:900 DM0( "FLECHES POUR DEPLACER L'ETOILE"L "SHIFT-FLECHES POUR LES BLOCS"f "A POUR ABANDONNER";w IO1ɿ#E804 IO3ɿ#E93D I48:J37 I,J,3:42,0,2 :D(520):D14392 42,0,2 D145105000 D14508I50II36 D14524I192II36- D14516J145JJ36F &D14492J39JJ36X 0D421561000j :D421722000| DD421644000 ND421403000 S470 X *** RETOUR *** bDMɜ lB(K,1)X:B(K,2)Y nSɜ qDPDP1 sK1X144Y255200 vIO1ɿ#E804:470( wIO3ɿ#E93D:470@  *** DET K ***Q IO1ɿ#E6CAb IO3ɿ#E76Av XXI12:YYJ12 (XX4,YY)XXXX36:720 (XX,YY3)YYYY36:730 O19:XXB(O,1)YYB(O,2)KO:O20 :O10Ɇ:800 XXX:YYY LB(K,3):HB(K,4) , :U1100::D *IO1ɿ#E804:470 \ +IO3ɿ#E93D:470 x  *** AFFICH H.R *** B,C,3:I1(A$) ((A$,I,1)),0,FD 6,0,3:   *** DEPLACEMENT GAUCHE *** 700 X36800(X36,Y)800 H66(X36,Y36)8001K1A4A1ILX42,Y,3:H6,1,A `VX6,Y,3:H6,1,64l`Q136vjXX1tXL,Y,0:0,H1,0~X,Y,1:0,H1,1600 ***DEPLACEMENT DROITE ***700XL6216800(XL10,Y)800H66(XL10,Y36)8000K1A4A1<4Q136P>X,Y,0:0,H1,0fHXL,Y,1:0,H1,1pRXX1v\fX6,Y,3:H6,1,ApX42,Y,3:H6,1,64z600 *** DEPLACEMENT HAUT *** 700 Y25800 (X,Y36)800 (X36,Y36)L66800$ K1A4A1< X6,Y36,3:36,1,AH& Q136R0 YY1h: X,YH,0:L1,0,0|D X,Y,1:L1,0,1N X X6,YH6,3:36,1,64b 600  *** DEPLACEMENT BAS *** 700YH10173800(X,YH10)800(X36,YH10)L66800)K1A4A1BX6,YH6,3:36,1,ANQ136bX,Y,0:L1,0,0x"X,YH,1:L1,0,1,YY1:@X6,Y36,3:36,1,64h600 *** ABANDON ***::"ABANDON APRES ";DP;"DEPLACEMENTS"R$:R$"VOULEZ VOUS ? RECOMMENCER/1"+DP0:R0:S0E"VOIR LA SOLUTION/2"a"A UNE AUTRE FOIS/3";DsD1R1:310D2S1:310D3 :5020P *** REUSSI ***Z::"BRAVO VOUS AVEZ REUSSI"d"EN";DP;"DEPLACEMENTS"nR$:R$ x5020#| *** SOLUTION ***6IO1ɿ#E6CA KIO3ɿ#E76A WO183`K,DXB(K,1):YB(K,2):LB(K,3):HB(K,4)D1050,2050,3050,4050:IO3ɿ#E93D:5020#E804:50204,4,4,4,2,4,2,4,1,2,6,3,6,3,7,1,2,1,2,4,1,4,3,1,3,1,5,3,8,3,9,3[4,2,4,2,2,2,2,2,1,4,3,4,5,1,5,1,8,3,2,3,4,1,9,4,8,2,2,3,2,3,4,3,4,39,1,8,4,8,4,2,2,2,4,5,2,5,2,3,3,4,1,4,1,2,1,2,1,5,4,3,2,4,3,2,15,1,8,3,8,3,9,2,1,2,2,4,2,4,4,4,4,4,6,2,7,3,2,1,4,4,6,4,3,1,3,1*5,3,1,3,4,2,4,2,2,2,2,2,6,4,7,4,3,4,5,1,5,1,1,3,4,3,4,1,9,1,8,478,4,1,2L