$MDRAGON, ******************************Q * *v * . DON JEAN & Dr ARGON ... * * * ****************************** par Michel BUZON - Sept. 1986  THEORIC AVRIL 87 PAGE 16....< ----------------------------B XK((#D000)169)618,10:IV#E6CA160K:IV:CV#E807313K:P48000:BR#FAB5119KBT#FAFA26K:BC#FB1026K::6:0:F039:PF,22: BR:PR$(16):999:900:F1301:D::C$(126)MXV(0)4:YV(0)2:N18:XV(N)XV(N1)4:YV(N)YV(N1)3::X14(F13:PR$(X)PR$(X)(16)::PR$(X)PR$(X)(22):F13-PR$(X)PR$(X)PR$(X)::PR$(X)(19)(PR$(X),31)(19):X152F131:PR$(X)PR$(X)(22)::PR$(X)(19)PR$(X)(19)C7F133:PR$(16)PR$(16)(19)::PL#26D13K:NL#26F15K<LA$(0)"3);)?)K)4+@+H+3,7,?,C,K,8.D.7/;/C/G/01<1H1;2?2G2K204"=LA$(0)LA$(0)"44@4?5C5K50787D78C8G84:8:H:3;?;G;0=4=<=@=H=;>" >LA$(1)"3)7);)?)C)K)7,;,?,G,K,3/;/C/G/3272?2C2K23575;5?5C5G5K5"@ ?LA$(1)LA$(1)"78;8?8G8K83;;;C;G;K;3>7>?>C>G>K>" @LA$(2)"3+8+<+@+D+H+4.8<.@.D.H.4181<1@1D1H14484<4@4D4H475?5G5" ALA$(2)LA$(2)"3878;8?8C8G8K83;7;;;?;C;G;K;" BLA$(3)";)?)K)4+D+3,7,C,G,<.L.;/?/K/41D13272C2G2<4L4;5?5K547D7"' CLA$(3)LA$(3)"3878C8G8<:L:;;?;K;3>7>C>G>"j DLA$(4)"4+" c HLA$(6)";)G)3,7,?,C,K,4.@.L.7/;/C/G/81D175;5C5G587D73878?8C8K8" ILA$(6)LA$(6)"4:@:L:7;;;C;G;8=D=3>?>K>" JLA$(7)"7)?)G)4+<+D+L+4.<.D.L.3/7/;/C/G/81@1H10484@4H4" KLA$(7)LA$(7)"75;5C5G5K547<7D74:<:D:L:3;7;;;?;C;G;8=@=H="K LLA$(8)"?)K)0+4+<+@+H+3,K,<.@.7/?/G/41D172?2G2K204<4@4L4K5" MLA$(8)LA$(8)"4487@7D778C83;;;K;4=<=;>K>" NLA$(9)"4+<+@+H+3,K,8.D.7/G/32?2K2<4@435?5G578G88:D:3;K;4=<=@=H=" OG$(21):R$(150):V$(18):M$(21):D$(138) PG$(1)R$R$ QG$(2)G$(1)G$(1)4 RG$(3)G$(2)G$(1)J SG$(4)G$(3)G$(1)i TG$(5)G$(4)G$(4)G$(1)R$ UG$(6)G$(1)R$D$V$"mn "G$(2)D$M$"ef "G$(2) VG$(7)G$(2)D$V$"mn "G$(2)D$M$"ef "G$(2)R$WG$(8)G$(2)D$V$"op "G$(2)D$M$"gh "G$(2)R$RXG$(9)G$(1)R$D$V$"op "G$(2)D$M$"gh "G$(2):G$(10)G$(5)YG$(11)G$(2)R$(128)"MERCI"G$(3):G$(12)G$(4)G$(3)R$ZG$(13)G$(2)(128)"MON"G$(2)R$:G$(14)G$(4)G$(1)R$[G$(15)R$(128)"HEROS"G$(1):G$(16)G$(3)R$:G$(17)G$(16) P\G$(18)G$(2)R$:G$(19)G$(18):G$(20)G$(1)R$:G$(21)G$(20)t] -----------------------------^ : DONNEES DE L'INDICATIF :_ -----------------------------`ae3,1,2,5,2,8,24'DOMaj ---f3,1,2,5,2,8,4 'DOg3,1,2,5,2,8,4 'DO -h3,1,2,5,2,8,24'DO Di3,1,2,5,2,8,4 'DO[j3,1,2,5,2,8,4 'DOsk3,1,2,5,2,8,8 'DO l2,8,2,1,2,5,8 'SOLm3,1,2,5,2,8,8 'DOn3,5,2,8,2,1,8 'MIo3,1,2,5,2,8,8 'DO p2,8,2,1,2,5,8 'SOLq3,1,2,5,2,8,8 'DOr3,1,2,5,2,1,8 'MI 6s3,1,2,4,2,8,24'DOmin ---Mt3,1,2,4,2,8,4 'DOdu3,1,2,4,2,8,4 'DO|v3,1,2,4,2,8,24'DO w3,1,2,4,2,8,4 'DOx3,1,2,4,2,8,4 'DO y3,1,2,4,2,8,8 'DO z2,8,2,1,2,4,8 'SOL {3,1,2,4,2,8,8 'DO |3,4,2,8,3,1,8 'MIb#}3,1,2,4,2,8,8 'DO;~2,8,2,1,2,4,8 'SOLS3,1,2,4,2,8,8 'DO k3,4,2,8,3,1,8 'MIb3,3,2,12,2,8,24'SOL 7 --- 3,3,2,12,2,8,4'RE3,3,2,12,2,8,4'RE3,3,2,12,2,8,24'RE 3,3,2,12,2,8,4'RE3,3,2,12,2,8,4'RE3,3,2,12,2,8,8'RE.2,12,2,8,2,3,8'SIF3,3,2,12,2,8,8'RE ]3,6,3,3,2,12,8'FAt3,3,2,12,2,8,8'RE2,12,2,8,2,3,8'SI3,6,2,12,2,8,8'FA4,3,3,6,2,12,8'RE4,1,3,5,3,2,128'DOMaj --- ----------------------------+ :ROUTINE LM.Y A T'IL UN MUR?:O ---------------------------- U[:I053: D$:D("#"D$):#465I,D: A2,29,A9,00,9D,3B,04,CA,10,FA,60,A9,00,8D,00,04,A2,62,CA,30,20 A0,00,AD,02,04,DD,03,04,D0,02,A0,01,CA,30,11,C0,01,D0,EA,AD,01,048DD,03,04,D0,E2,A9,01,8D,00,04,60>DJn ----------------------------- : REDEF. DES MINUSCULES. : -----------------------------F46080("a")846080("q")87: D:F,D:%0,7,13,6,1,31,29,25,0,56,44,24,32,62,46,38,T19,7,14,28,24,24,31,0,34,0,8,30,10,2,62,00,5,7,1,7,13,30,30,0,42,58,34,58,58,58,6230,13,7,3,3,2,6,0,58,58,58,50,50,18,26,00,21,21,31,27,27,15,15,0,20,20,60,60,60,56,567,6,14,15,31,31,31,0,48,48,56,56,60,60,60,0C0,27,11,9,15,7,3,3,0,48,16,0,48,16,16,24t3,7,15,31,31,31,31,0,48,56,56,60,62,62,62,01,1,2,5,10,21,42,53 ---------------------------- : JEU OU INSTRUCTIONS ? : ----------------------------G500:IN$"VOULEZ-VOUS LES INSTRUCTIONS (O/N)":L01o K1,L15,10:K2,L15,IN$: L:310 CV:A$:A$"O"A$"N"A$"S"270A$"S"ɳ IV: A$"O"624870%&' -----------------------------( :EXECUTION INDICATIF ATTENTE:9) -----------------------------?*E+,49081,#0C01:K4,26,"TAPER [ ESPACE ] POUR CONTINUER"6CV::IN143: O1,N1,O2,N2,O3,N3,W@(#208)56ɿ IV:J3,0,0,0:1,O1,N1,15:2,O2,N2,15:3,O3,N3,15:WKW4 T0,0,0,0: IN^310"F -----------------------------j : EFFACEMENT 2X3 CASES (EF) : -----------------------------L01:C02:EFCL40,16:C,L: ---------------------------- : ECRITURE 2X3 CASES (EC) :6 ----------------------------<B|L01:ECL40,PA:C01: EC1CL40,CHC2L:C,L ----------------------------- :VERIF.SI RIEN A -DE 3 CASES: -----------------------------*XI(XC8)4:XIXI(XIZ)(XIZ)OXA(36XC)4:XAXA(XAZ)(XAZ)sYI(YC1)3:YIYI(YIZ)(YIZ)YA(22YC)3:YAYA(YAZ)(YAZ)XXCXI4 XCXA4 4YYCYI3 YCYA3 3(PXY40)CODSDS1:435Y,X / ----------------------------R : DESSIN DE LA CITADELLE :u ----------------------------{ECPT:PA20:CH105:410: ----------------------------- : DESSIN DON JEAN/PRINCESSE : -----------------------------#SECPJ:PA213(FP0):CH1018(FP0):410:Y_ ----------------------------- : SON Dplt D.JEAN ou PRINC. : -----------------------------P0 1300 1350:! ----------------------------D :.......PRESENTATION ......:g ----------------------------msF16:PR$(1)PR$(1)C$" ":PR$(1)PR$(1)(129)"MICHEL BUZON PRESENTE"F111:PR$(2)PR$(2)C$: F125:PR$(2)PR$(2)" "::PR$(2)PR$(2)"q"$ N3:545Y F124:PR$(3)PR$(3)" "::PR$(3)PR$(3)"q"C$f N4:545 PR$(4)PR$(4)(133)(138)"DON JEAN & Dr AGON"(128)(136) PR$(4)PR$(4)" q"C$C$ 560 !F111:F9PR$(N)PR$(N)" ":555 !&PR$(N)PR$(N)C$!+:O!0F19:PR$(5)PR$(5)C$::PR$(5)" "PR$(5)" "(133)!5PR$(5)PR$(5)(138)"DON JEAN & Dr AGON"(128)(136)!:PR$(5)PR$(5)"q"C$C$C$!?F610:PR$(F)" ":R17!DR2F9 PR$(F)PR$(F)" ":590"IPR$(F)PR$(F)C$ "N@"SR126:PR$(F)PR$(F)" "::PR$(F)PR$(F)C$C$:l"XPR$(11)" ":F19:PR$(11)PR$(11)C$:"]F113:PR$(11)PR$(11)" "C$::PR$(11)PR$(11)C$"bF1213:R137:PR$(F)PR$(F)C$:R,F"gF113:PR$(F)::"i"j#k ---------------------------7#l : I N S T R U C T I O N S :Y#m ---------------------------_#ne#o#pPL,4852040K:NL,14:#278,48600:#27C,560#q CV:::999:#r"LA PRINCESSE"(128)"TAIK'ONERY"(132);:EC48247:PA126$vCH109:410:1110:"A ETE ENLEVEE":N${"PAR L'IGNOBLE"(129)"Dr AGON"(132);:EC48266:PA1:CH97u$L01:EC3L40,0: L:410:1810$"QUI LA SEQUESTRE": K1ɺ$"DANS UNE DES 64 PIECES DU CHATEAU."$ K1ɺ %"VOUS,"(133)"DON JEAN HERALD BOLL"(132)", ";:EC48335:PA5:%CH101:L01:EC3L40,0:L:410:1910t%"DEVEZ LA "::"DELIVRER ET LA RAMENER DANS VOTRE":%"INEXPUGNABLE CITADELLE....":EC48393:PA4:CH105:L01%EC3L40,0:L:410:300::999&:"LE"(129)"Dr AGON"(132)"N'EST VISIBLE QUE QUAND"@&950:"IL TUE SES ADVERSAIRES.":950:1510x&"VOUS AVEZ TROIS VIES.";:1610:"LA PREMIERE VOUS"&950:"PERMET DE VOUS DEPLACER DE 8 CASES":950&"A LA FOIS.LA DEUXIEME DE 6 ET LA ":950'"TROISIEME DE 4, COMME"(128)"LA PRINCESSE.":950('300:F13:950:X'"IL VOUS FAUDRA D'ABORD PLACER VOTRE":950'"CITADELLE. PUIS LE"(129)"Dr AGON"(132)"CHOISIRA"'950:"SA CHAMBRE SECRETTE.":950'"LORS DE VOS DEPLACEMENTS A L'AIDE DES":950( "TOUCHES FLECHEES,IL SE PEUT QUE VOUS ":950Y("SOYEZ ARRETE PAR UN MUR INVISIBLE...":49080,#0412:950(300::999::"QUI SE MATERIALISERA AINSI";("("(131)C$C$(132)").":950:1710( "SI VOUS ETES A MOINS DE 3 CASES DE LA ":950$)%"PIECE OU EST ENFERMEE LA"(128)"PRINCESSE"(132)",":950Y)*"VOUS REVEILLEZ LE"(129)"Dr AGON"(132);:1210)/"QUI SE":950:"METTRA ALORS A VOTRE POURSUITE EN":950)4"SAUTANT D'UNE SEULE CASE A LA FOIS.")9950:1410:300)>F17:950:*HF12:(138)" B O N N E C H A N C E !"+*R49080,18:B*\F15:950::300s*fPL,4800040K:#278,48080:NL,27:#27C,1040}*p2000*** ----------------------------* :VEUILLEZ PATIENTER S.V.P :* ----------------------------**-+A$" VEUILLEZ PATIENTER S.V.P "V+L01:K2,L15,14:K3,L15,A$::\+b++ ----------------------------+ : SCROLLING BAS D'ECRAN :+ ----------------------------+++49080,#0412::49080,#0412:BC: , ,-, ----------------------------P, : BAS D'ECRAN VERT :s, ----------------------------y,,,F1427:#BB80F40,#0412::,,, ----------------------------, : DIFFERENTS SONS SPECIAUX :- -----------------------------#-F-H :DESSIN DE LA GRILLE-JEU :h-L ---PRINCESSE DECOUVERTE----n-Mt-N-QK,26,2:K1,26," RAMENER LA PRINCESSE AVEC VOUS..." -VCV:3,0,0,0-`F100010050-eS511.j1,FS,15:2,(FS)1.01,15 .o1K$.t::0,0,0,0:IV:*.0.R. --- Dr AGON S'EVEILLE -----X.^..K,26,1:K1,26," LE Dr AGON SE REVEILLE !.!.!.!.!".CV:F11005.7,2,3,10000F.1,F50,0:5,1000F,0:3,1000F2,0:300F75FK /:0,0,0,0:IV://1?1@ ------- PLUS DE VIES ------1A1B1D49080,182EK,26,1:K1,26," VOUS ETES MORT...... ADIEU !.... "O2JCV:F128204 642T7,0,3,F:1,F,0:2,F,0:3,F,0:F100KF4002^F2h0,0,0,0:IV:222 ---------- UN MUR ---------223K,26,3:K1,26," STOP ! ICI IL Y A UN MUR !......"$3CV:F1511H31,1,1,200:4,1000,0:FKF4:[30,0,0,0:IV:a3g33 ----------- Dr AGON --------3 K,26,1:K1,26,"LE Dr AGON S'ENFUIT AVEC LA PRINCESSE "3CV:N1211:O201:7,0,1,N1041,O,N,0:2,N100,6:3,N101,6:OK2:O,N04&0,0,0,0:IV640<4jB4ke4l ------- DON JEAN -----------k4mq4n4qK,26,5:K1,26,"VOUS ETES A L'ABRI DANS LA CITADELLE.."4vCV:N112:O35:7,0,2,N1041,O,N,N:2,N100,N:3,N101,N:OK:O,N50,0,0,0:IV55!5D5 ----------------------------g5 ----------------------------m5s55:IV:0:P,16:F1382:PF,#1313#303(F7)5:P39,19:F0233:L01:K6,FL,PR$(14):6K6,F2,PR$(15)::K6,23,PR$(16)06F173:EC48002F40:PA21:CH101:410:FO6EC48402:PA20:CH105:410n6 EC48522:PA18:CH109:4106EC48642:PA17:CH97:410666 ---------------------------6 : EMPLACEMENT CITADELLE :6 ---------------------------7 757R$" [RETURN] POUR VALIDER LE CHOIX "d7 A$"....................................."7*A$A$" A L'AIDE DES TOUCHES FLECHEES, PLACEZ VOTRE CITADELLE OU"74A$A$" VOUS VOULEZ PUIS APPUYEZ SUR"R$8>A$A$".....................................": CV: 49080,6J8HF1(A$)39:B$(A$,F,39):K,26,B$: BT:10f8R(#208)56 F:21208\49080,#C06: K1,26," "R$8fEF48402:400::XT20:YT10:22008p CV:10:CL(#208):CL156CL172CL180CL18821808zCL17522102160<9IV:EFPT:400:XTXT4(CL188XT33)4(CL172 XT11)k9YTYT3(CL180 YT20)3(CL156 YT3){92200:21609PTPXTYT40:450:BC:999 ---------------------------9 : CHOIX CHAMBRE SECRETE : : ---------------------------::@::EF48642:400::EF48522:400:1800H:BR:X((1)81):Y((1)81):XCXV(X):YCYV(Y):PCPXCYC40 :DS0:CO20:Z3:420:Z2:DS12220::: ---------------------------; : INITIALISATION DU JEU :"; ---------------------------(;.;I;PDPC:XDXC:YDYC:PM0;VI4:#465:HA((1)10):FP0:DS0:SC0:I1(LA$(HA));D$(LA$(HA),I,1):D(D$)40:#402I,D:;;; *******************; * *< * .... J E U .... *:< * *Y< *******************_<e<` CL(#208):SE0-> SE1(CL156 YJ3) 2(CL172 XJ11)]> SESE3(CL180 YJ20)4(CL188 XJ33)> K,26," "> SE03020> IV> SE 3100,3200,3300,3400> 3500> > > --------------------------- ? : TEST SI IL Y A UN MUR :B? ---------------------------H? N? j? XEXJ:YEYJ1:EE120:? YEYJ:XEXJ1:EE4 :? XEXJ:YEYJ2:EE120:?H YEYJ:XEXJ3:EE4 :? PEPXEYE40? #401,XE:#402,YE:#470@ (#400)140004300 @@<4@F ----------------------------W@P : STOP, IL Y A UN MUR :z@Z ----------------------------@d@n@@XE2(XE2)4100@YYE1YE2@PXEY40,19@Y@4125@XXE1XE3@PXYE40,19AXANC1:1700:3000Ar"A|DA ---------------------------fA : TEST Nlle Pos. DON JEAN :A ---------------------------AAAIV:PEPJEE:TE0ATETE1(PEPD PEPC)ATETE2(PEPD PEPC)BTETE3(PEPD FP0)BTETE4(PEPD FP1):B TE 4400,4500,4600,4700@BFBiB --- PRINCESSE DECOUVERTE ---oBB04401:NCNC(NC4)(NC4):4500B1FPFP1B2VI1 B3VIVI1:2510:4402B5B:BD --------- R . A . S . ------BNBXC450:EFPJ:400/CXJXJ4(SE4)4(SE2)KCYJYJ3(SE3)3(SE1)^C FP0FPFP1wC PEPT FP1 6000CPJPE:460:470:FP2ɛ1100CDS0 PJPT 3000C450:CO21:420:DS1ɛ5080C3000CCD ------- UNE VIE EN MOINS ---DDEDEFPJ:400:ECPE:PA17:CH97:410:VI27000OD1500gDDS0VIVI1:2510DDSDS1:DS1DSDS1DEFPD:400:2500DDD  ----- PRINCESSE MORTE -----DD E\49080,1:K1,26," LA PRINCESSE EST MORTE !.!.!.!.!.!.!"E]EFPJ:4008E^ECPE:PA17:CH97:410]E_CV:F1011::F::: 50:IVlEfPM1:7000EK1,26," VOUS NE POUVEZ LUI SURVIVRE !...."EjEtE~ ----------------------------E : DR AGON JOUE :F ----------------------------F"F(F@F(DS1PJPT)5100XF(DS1PJ PT)5105gFDS05170FCO21:420:DS05170FFF ----- Dr AGON S'EVEILLE ----FFF5080:NC029003000F1200:DSDS1:FFG -- Dr AGON VOUS POURSUIT ---G%G/G1400TGXXXJ:YYYJ:PJPT XXXC:YYYCrGXEXD4(XDXX)4(XDXX)GYEYD3(YDYY)3(YDYY)G PEPXEYE40:PEPT2900GPDPE:XDXE:YDYEGPEPJ FP0 4600G(PEPJ FP14700G22900Hi Hj-Hk ----------------------------PHl : GAGNE :sHm ----------------------------yHnHoHp49080,2:K1,26," BRAVO,VOUS AVEZ GAGNE EN"(SC)" COUPS.."HzPJPT:460:470HEFPT:400HEFPD:400IK17,0,G$(1):K26,0,G$3IK16,1,G$(2):K25,1,G$(2)SIK15,2,G$(3):K24,2,G$(3)sIK14,3,G$(4):K23,3,G$(4)IK13,4,G$(5)IK12,5,G$(6)IK11,6,G$(7IK11,7,G$(8)IK12,8,G$(9)IK13,9,G$(10)IK14,10,G$(11)JK15,11,G$(12)JK16,12,G$(13)/J$K17,13,G$(14)CJ.K18,14,G$(15)WJ8K19,15,G$(16)kJBK19,16,G$(17)JLK20,17,G$(18)JVK20,18,G$(19)J`K21,19,G$(20)JjK21,20,G$(21)JtK22,21,17J~K22,22,17JCV:7,0,0,0JF600T06 K1,F,15:2,F1.1,15:3,F1.3,15*K:IV4K8000:KQ@KRbKS ---------------------------KT : P E R D U :KU ---------------------------KVKWKXPM1ɛ1610ț1600KYCV:7,0,4,200:1,2,1,0:2,2,4,0:3,2,7,0:IV L]PA17:CH97LbY1223&LlX8364;LvECPXY40:410DLX,YJL9PL:sL; ----------------------------L< : VOULEZ-VOUS REJOUER ? :L= ----------------------------L>L@K6,26,"VOULEZ-VOUS REJOUER (O/N) ? ? ? ?"MJ:CV:IN143: O1,N1,O2,N2,O3,N3,W /MT(#208)568100cM^3,0,0,0:1,O1,N1,15:2,O2,N2,15:3,O3,N3,15:WxMhI((1)7)1:IMr0,0,0,0: INM|8010MA$:A$"O" M IV:2000K