%Header Record Format:MCS1 Type Number:1 File Name: HUNTER Option Name: Communication SW:0 Capacity:701 Data Type:PG %Data Record Password: BaseN:0 \AxesOff:\LabelOff:\DerivOff:\Cls:\ClrText:\ClrGraph:\ClrList \Locate 1,1,"=====================" \Locate 1,2," HUNTER GALAXIE I " \Locate 1,3,"=====================" \Locate 2,4,"NOUVEAU" \Locate 2,5,"CHARGER" \Locate 2,6,"A PROPOS" \Locate 2,7,"QUITTER" 4\->A 0\->Z \While Z\<>31 \Locate 1,A,"\->" \Do \Getkey\->Z \LpWhile Z\<>31\ And Z\<>28\ And Z\<>37 \Locate 1,A," " Z=28\=>\Dsz A Z=37\=>\Isz A A=3\=>7\->A A=8\=>4\->A \WhileEnd A=4\=>[[0,1,100,0][100,1,1,100][1,0,0,0][0,0,0,0]]\->\Mat X \If A=7 \Then \Locate 1,2," SOLIX ROMAIN " \Locate 12,5,"PRESS:" \Locate 12,6,"[AC\slashON]" \Stop \IfEnd \If A=6 \Then \ClrText "CE JEUX VOUS AI " "PROPOSE PAR SOLIX ET ROMAIN " " " "PROGRAMATION: SOLIX SENARIO: ROMAIN" \Stop \IfEnd \If A=5 \Then \Locate 14,4,"PARTIE 1" \Locate 14,5,"PARTIE 2" 4\->A 0\->Z \While Z\<>31 \Locate 13,A,"\->" \Do \Getkey\->Z \LpWhile Z\<>31\ And Z\<>28\ And Z\<>37 \Locate 13,A," " Z=28\ Or Z=37\=>\Isz A A=6\=>4\->A \WhileEnd A=4\=>\Mat Y\->\Mat X A=5\=>\Mat Z\->\Mat X \IfEnd \Prog "HIST"\@00 %End %Header Record Format:MCS1 Type Number:1 File Name:COMBAT Option Name: Communication SW:0 Capacity:1477 Data Type:PG %Data Record Password: BaseN:0 \Mat X[1,1]*15\->H \Int H\->H 79\->F \Lbl 1 \ClrText \Locate 1,1,"=======COMBAT========" \Locate 1,3,"F1:ARME" \Locate 1,7,"VIE:" \Locate 1,4,"F2:SOIN" \Locate 1,5,"F3:ATAQUER" \Locate 5,7,\Mat X[1,3] \Do \Getkey\->Z \LpWhile Z\<>79\ And Z\<>69\ And Z\<>59 \If Z=79 \Then \ClrText \Mat X[1,4]\->E \Locate 1,1,"======= ARME ======" \Locate 1,3,"F1:POINGT" \If E\>=1 \Then \Locate 1,4,"F2:FUSIL A PHOTON" \IfEnd \If E\>=2 \Then \Locate 1,5,"F3:Z710I" \IfEnd \If E=0 \Then \Do \Getkey\->Z \LpWhile Z\<>79 \Else \If E=1 \Then \Do \Getkey\->Z \LpWhile Z\<>79\ And Z\<>69 \Else \If E=2 \Then \Do \Getkey\->Z \LpWhile Z\<>79\ And Z\<>69\ And Z\<>59 \IfEnd \IfEnd \IfEnd Z\->F 0\->Z \Goto1 \IfEnd \If Z=69 \Then \Mat X[3,1]\->E \ClrText " " " " " " " " " " " " \Locate 1,1,"====== SOINS ======" \If E=0 \Then \Locate 1,3,"VOUS N'AVEZ PLUS DE" \Locate 1,4,"MEDIKIT"\Disp\Goto1 \IfEnd \Locate 1,3,"MEDIKIT RESTANT:" \Locate 17,3,\Mat X[3,1] \Locate 1,7,"UTILISER RETOUR" \Do \Getkey\->Z \LpWhile Z\<>79\ And Z\<>29 Z=29\=>\Goto1 \Mat X[1,3]+30\->\Mat X[1,3] \Mat X[1,3]>\Mat X[2,4]\=>\Mat X[2,4]\->\Mat X[1,3] \Mat X[3,1]-1\->\Mat X[3,1] \Goto1 \IfEnd F=79\=>\Int 10\Ran#+5\->Z F=69\=>\Int 20\Ran#+30\->Z F=59\=>\Int 80\Ran#+50\->Z \Mat X[1,2]*2+Z\->G \ClrText \Locate 1,1,"===== ATAQUE ======" \Locate 1,3,"TU LUI ENLEVE" \Locate 15,3,G \Locate 1,4,"IL LUI RESTE" H-G\->H H<0\=>0\->H \Locate 14,4,H H=0\=>\Goto2 0\->Z \Do \Getkey\->Z \LpWhile Z=0 \Int 20\Ran#+10\->G G-\Mat X[2,2]\->G G<0\=>0\->G \ClrText \Locate 1,1,"===== DEFENCE =====" \Locate 1,3,"IL T'ATAQUE A" \Locate 15,3,G \Locate 1,4,"IL TE RESTE" \Mat X[1,3]-G\->\Mat X[1,3] \Locate 13,4,\Mat X[1,3] \Mat X[1,3]\<=0\=>\Goto3 0\->Z \Do \Getkey\->Z \LpWhile Z=0 \Goto1 \Lbl 2 \Locate 1,7,"L'HYBRID EST MORT..." \Do \Getkey\->Z \LpWhile Z=0 \ClrText \Locate 1,1,"==== EXPERIENCE ====" \Int 3\Ran#+1\->Z \Locate 1,3,"FORCE:+0" \If Z=1\ Or Z=3 \Then \Locate 8,3,1 \Mat X[1,2]+1\->\Mat X[1,2] \IfEnd \Locate 1,4,"DEFENCE:+0" \If Z=2\ Or Z=3 \Then \Locate 10,4,1 \Mat X[2,2]+1\->\Mat X[2,2] \IfEnd \Do \Getkey\->Z \LpWhile Z=0 \Prog "MAPS" \Mat W[B,A+1]=2\=>0\->\Mat W[B,A+1] \Mat W[B,A-1]=2\=>0\->\Mat W[B,A-1] \Prog "MAPS" \Prog "MAPS2" \Return \Lbl 3 \Locate 1,7,"TU EST MORT" \Do \Getkey\->Z \LpWhile Z=0 \ClrText \Prog "PERDU"\@00 %End %Header Record Format:MCS1 Type Number:1 File Name:DIALOGUE Option Name: Communication SW:0 Capacity:1889 Data Type:PG %Data Record Password: BaseN:0 \Mat X[2,3]\->D \If D=1 \Then \ClrText " " \Locate 1,1,"\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash" "VOUS ETES BIANCA," "L'AGENT XY25. LES" "PROJETS EXPERIMENTAUXDE NOTRE BASE" "STELAIRE ONT ECHOUES"\Disp\ClrText " " \Locate 1,1,"\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash" "ET LES CREATURES" "HYBRID SE SONT" "ECHAPES, TOUS LES" "SIENTIFIQUES SONT" "MORT ET VOUS DEVEZ"\Disp\ClrText " " \Locate 1,1,"\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash" "TROUVER LES SURVIVANTSI IL EN RESTE," "AFIN DE VOUS ENFUIR. SACHEZ QUE VOUS ETES COUPES DU MONDE,"\Disp\ClrText " " \Locate 1,1,"\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash" "VOUS POUVEZ CONTACTERVOTRE EQUIPIER ETAN, QUI S'EST REFUGIER" "DANS LE BUREAU DU BOS"\Disp\ClrText " " \Locate 1,1,"\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash" "A VOUS DE JOUER..."\Disp\Return \IfEnd \If D=2 \Then \ClrText " " " " \Locate 1,1,"\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash" \Locate 3,2,"CHAP1:SURVIE" " " "VOUS RECEVEZ UN" "FAIBLE SIGNAL SUR" "VOTRE COMUNICATEUR,"\Disp\ClrText " " \Locate 1,1,"\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash" "QUELQU'UN A SURVECU, L'EMISSION NE VOUS PERMET PAS DE LE" "LOCALISER..."\Disp\Return \IfEnd \If D=3 \Then \ClrText " " \Locate 1,1,"\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash" "CHAP2:PLUS DE COURANT" "REMETTEZ LE COURANT DANS LA STATION POUR RETROUVER ETAN."\Disp\Return \IfEnd \If D=4 \Then \ClrText " " \Locate 1,1,"\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash" "CODE D'ACCET "?\->H H\<>2753\=>"CODE ERONE..."\DispH\<>2753\=>\Return \ClrText " " \Locate 1,1,"\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash" "RECHERCHE DE" "PERIPHERIQUE..." \Locate 1,5,"[ ]" \For 2\->H \To 20 \Step 0.25 \Locate H,5,"\aster" \Next \ClrText " " \Locate 1,1,"\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash" "1 PERIPHERIQUE TROUVE\(-)XX25" "EN MOUVEMENT AU 2\EE" "ETAGE, SALLE B08."\Disp"CONECTION..."\Disp\ClrText " " \Locate 1,1,"\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash" "ETAN, C'EST BIANCA."\Disp"SALUT, ESCUSE MOI DE NE PAS ETRE VENU" "T'AIDER, JE DEVAIS" "SAUVER LE DOCTEUR >"\Disp\ClrText " " \Locate 1,1,"\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash" ">LIEN, SANS SUCCES, LES HYBRIDS L'ON DE\(-) VORE."\Disp"IL FAUT QUE TU METTE EN MARCHE LE >"\Disp\ClrText " " \Locate 1,1,"\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash" ">GENERATEUR"\Disp"IMPOSSIBLE, LA SALLE EST FERMEE"\Disp"J'AI LES CLES DE LA SALLE, COMMENT TE >"\Disp\ClrText " " \Locate 1,1,"\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash" ">LES ENVOYER ?"\Disp"JE NE SAIS PAS JE" "N'AI PAS EXPLORER" "TOUT MON NIVEAUX" "BYE..."\Disp\(-)1\->L \Return \IfEnd\@00 %End %Header Record Format:MCS1 Type Number:1 File Name:HIST Option Name: Communication SW:0 Capacity:3549 Data Type:PG %Data Record Password: BaseN:0 \Lbl 1 \Mat X[1,1]\->I \If I=0 \Then 1\->\Mat X[2,3] \Prog "DIALOGUE" 2\->\Mat X[2,3] \Prog "DIALOGUE" 1\->\Mat X[3,4] \Prog "MAPS" 0\->\Mat X[3,4] 2\->A~B \Do \Prog "MOV" \If J=4 \Then \Prog "ORDI" \Mat X[3,2]+1\->\Mat X[3,2] 0\->\Mat W[B,A] \IfEnd \If J=5 \Then \Prog "MORT" \Mat X[3,3]+1\->\Mat X[3,3] 0\->\Mat W[B,A] \IfEnd \Prog "MAPS" \LpWhile A\<>21 1\->\Mat X[1,1] 2\->\Mat X[3,2] 3\->\Mat X[3,3] 1\->I \IfEnd \If I=1 \Then 1\->\Mat X[3,4] \Prog "MAPS" 0\->\Mat X[3,4] 2\->A 4\->B 0\->L \Do \Prog "MOV" \If A=2\ And B=2\ And \Mat W[2,2]=5 \Then \ClrText " " \Locate 1,1,"\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash" "C'EST UN SCIENTIFIQUEMORT. IL A UN BRAS ARRACHE ET VOUS LE" "PRENEZ."\Disp1\->L 0\->\Mat W[2,2] \IfEnd \If J=4\ And A=8 \Then \ClrText " " \Locate 1,1,"\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash" "JE RECOIS LE SIGNAL D'ETAN, IL EST DE" "PLUS EN PLUS PRES"\Disp0\->\Mat W[2,8] \IfEnd \If J=4\ And A=2 \Then \ClrText " " \Locate 1,1,"\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash" \If L=1 \Then "DIGITAL CORRECT..." "SYSTEME DE PROTECTIONACTIVE"\Disp0\->\Mat W[4,9] 0\->\Mat W[7,2] 2\->L \Else "DIGITAL REFUSER..."\Disp\IfEnd \IfEnd \If J=5\ And A=18 \Then \ClrText " " \Locate 1,1,"\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash" "VOUS TROUVEZ UNE" "LAMPE A FUSION."\Disp\IfEnd \Prog "MAPS" L=2\=>\Locate 9,3," " \LpWhile B\<>8 2\->\Mat X[1,1] 2\->I \IfEnd \If I=2 \Then 1\->\Mat X[3,4] \Prog "MAPS" 0\->\Mat X[3,4] 18\->A 2\->B 0\->L \Do \Prog "MOV" \If J=5 \Then \ClrText " " \Locate 1,1,"\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash" \If A=20 \Then "VOUS TROUVEZ UNE CLEF ET UN PASS" "INFRORMATIQUE"\Disp1\->L 0\->\Mat W[2,20] \IfEnd \If A=14 \Then "VOUS TROUVEZ UN" "MEDIKIT."\Disp\Mat X[3,1]+1\->\Mat X[3,1] \IfEnd \IfEnd \If J=4\ And A=20 \Then \ClrText " " \Locate 1,1,"\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash" \If L=0 \Then "PASS INCORECT..." "ACCES REFUSE."\Disp\IfEnd \If L=1 \Then "VA PARLER AU SUPER" "CALCULATEUR, IL" "POSSEDE DES INFOS" "PRESSIEUSES."\Disp\ClrText " " \Locate 1,1,"\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash" "JE T'OUVRE."\Disp0\->\Mat W[7,15] 2\->L \IfEnd \IfEnd \If J=4\ And A=5 \Then 2\->\Mat X[3,2] \Prog "ORDI" \IfEnd \Prog "MAPS" L=2\=>\Locate 15,6," " \LpWhile L\<>3 3\->I 3\->\Mat X[1,1] 3\->\Mat X[2,3] \Prog "DIALOGUE" \IfEnd \If I=3 \Then 1\->\Mat X[3,4] \Prog "MAPS" 0\->\Mat X[3,4] 3\->A 5\->B \Do \Prog "MOV2" \If A=15\ And B=5 \Then \ClrText " " \Locate 1,1,"\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash" "LA SALLE DES FREGATESEST FERME POUR LE" "MOMENT."\Disp\IfEnd \If A=6\ And B=6 \Then \ClrText " " \Locate 1,1,"\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash" "PLUS DE COURENT," "IMPOSSIBLE DE DEMARREL'ASSENCEUR"\Disp\IfEnd \If A=3\ And B=5 \Then \ClrText " " \Locate 1,1,"\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash" "VOUS AVEZ DEJA" "TERMINE CETTE SALLE."\Disp\IfEnd \Prog "MAPS" \LpWhile \Mat W[B,A]\<>8 \If A=20\ And B=3 \Then 4\->\Mat X[1,1] 4\->I \IfEnd \If A=20\ And B=5 \Then 5\->\Mat X[1,1] 5\->I \IfEnd \If A=14 \Then 6\->\Mat X[1,1] 6\->I \IfEnd \IfEnd \If I=4 \Then 1\->\Mat X[3,4] \Prog "MAPS" 0\->\Mat X[3,4] 2\->A 7\->B \Do \Prog "MOV" 3\->\Mat X[3,2] J=4\=>\Prog "ORDI" \If J=5\ And A=2 \Then \ClrText " " \Locate 1,1,"\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash" "TU TROVE UN GILET" "PAR\(-)BALLES."\Disp\Mat X[2,2]+3\->\Mat X[2,2] \IfEnd \If J=5\ And A=14 \Then \ClrText " " \Locate 1,1,"\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash" "TU TROUVE UN MEDIKIT"\Disp\Mat X[3,1]+1\->\Mat X[3,1] \IfEnd \If J=5\ And A=16 \Then \ClrText " " \Locate 1,1,"\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash" "TU TROUVE UN PASS" "INFORMATIQUE"\Disp1\->\Mat X[2,1] \IfEnd \Prog "MAPS" \Mat W[2,11]=0\=>\Locate 11,1," " \LpWhile A\<>1 3\->\Mat X[1,1] \Goto1 \IfEnd \If I=5 \Then 1\->\Mat X[3,4] \Prog "MAPS" 0\->\Mat X[3,4] 2\->A 7\->B 4\->\Mat X[3,2] \Do \Prog "MOV" \If J=5\ And B=5 \Then \ClrText " " \Locate 1,1,"\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash" "TU TROUVE UNE NOUVELEARME."\Disp"POUR L'UTILISER LORS D'UN COMBAT \=> F1"\Disp1\->\Mat X[1,4] \IfEnd J=4\=>\Prog "ORDI" \If A=2\ And B=3 \Then \ClrText " " \Locate 1,1,"\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash" "C'EST UN BOUT DE" "PAPIER AVEC ECRIT:" "2753"\Disp\IfEnd \If A=12\ And B=3 \Then \ClrText " " \Locate 1,1,"\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash" "SOINS TOTAL..."\Disp\Mat X[2,4]\->\Mat X[1,3] \IfEnd \If J=5\ And B=7 \Then \ClrText " " \Locate 1,1,"\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash" "IL N'Y A RIEN ICI."\Disp\IfEnd \Prog "MAPS" \Mat W[3,6]=0\=>\Locate 6,2," " \LpWhile A\<>1 3\->\Mat X[1,1] \Goto1 \IfEnd \If I=6 \Then 1\->\Mat X[3,4] \Prog "MAPS" 0\->\Mat X[3,4] 20\->A 7\->B 0\->L 4\->\Mat X[2,3] \Do \Prog "MOV" \If J=4 \Then \ClrText " " \Locate 1,1,"\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash" \If L=0 \Then "EREURE SYSTEME..." "FERMETURE DE TOUTES LES PORTES."\Disp1\->\Mat W[2,18] 1\->L \Else "EREUR SYSTEME .." "OUVERTURE DE TOUTES LES PORTES."\Disp0\->\Mat W[2,18] 0\->\Mat W[7,13] \IfEnd \IfEnd \If J=5 \Then \ClrText " " \Locate 1,1,"\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash" "LA CLE DU GENERATEUR"\Disp3\->\Mat X[2,1] \IfEnd A=8\ And B=7\=>\Prog "DIALOGUE" \Prog "MAPS" \Mat W[2,18]=1\=>\Locate 18,1,"]" \Mat W[7,13]=0\=>\Locate 13,6," " \LpWhile L\<>\(-)1\ And A\<>21 \ClrText A=21\=>3\->\Mat X[1,1] \If L=\(-)1 \Then 7\->\Mat X[1,1] \ClrText " " \Locate 1,1,"\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash" "SALLE DES FREGATES DEBLOQUER"\Disp\IfEnd \Goto1 \IfEnd \Prog "HIST2"\@00 %End %Header Record Format:MCS1 Type Number:1 File Name:HIST2 Option Name: Communication SW:0 Capacity:4928 Data Type:PG %Data Record Password: BaseN:0 \Lbl 1 \Mat X[1,1]\->I \If I=7 \Then 1\->\Mat X[3,4] \Prog "MAPS" 0\->\Mat X[3,4] 14\->A 3\->B \Do \Prog "MOV2" \If (A=3\ And B=5)\ Or (A=14\ And B=3)\ Or (A=20\ And B=3)\ Or (A=20\ And B=5) \Then \ClrText " " \Locate 1,1,"\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash" "TU A DEJA TERMINER" "CETTE SALLE"\Disp\IfEnd \If A=15\ And B=5 \Then 8\->\Mat X[1,1] 8\->I \IfEnd \Prog "MAPS" \LpWhile I\<>8 \IfEnd \If I=8 \Then 1\->\Mat X[3,4] \Prog "MAPS" 0\->\Mat X[3,4] 2\->A~B \Do \Prog "MOV" \If A=2\ And B=7 \Then \ClrText " " \Locate 1,1,"\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash" "OUVERTURE DE LA PORTE..."\Disp0\->\Mat W[7,12] \IfEnd \If A=2\ And B=5 \Then \ClrText " " \Locate 1,1,"\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash" "TU TROUVE UN CASQUE DE PROTECTION."\Disp\Mat X[1,3]+1\->\Mat X[1,3] \IfEnd \If A=9\ And B=5 \Then \ClrText " " \Locate 1,1,"\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash" "AUGMENTATION MAXI DE LA VIE."\Disp200\->\Mat X[2,4] 200\->\Mat X[1,3] \IfEnd \Prog "MAPS" \Mat W[7,12]=0\=>\Locate 12,6," " \LpWhile A\<>12 \ClrText " " \Locate 1,1,"\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash" "CECI EST UN MONTE PLAQUI MONTE DANS TOUS LES NIVEAUX DU SPATIOPORT... C'EST UN"\Disp\ClrText " " \Locate 1,1,"\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash" "PETIT CONTENAIR QUI FAIT OFFICE" "D'ASCENSEUR MAIS IL N'Y A PAS ASSEZ DE PLACE POUR TOI."\Disp\ClrText " " \Locate 1,1,"\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash" "TU PEUX JUSTE DEPOSERUN OBJET ET L'ENVOYERA UN AUTRE ETAGE..."\Disp\ClrText " " \Locate 1,1,"\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash" " CHAP3:SAVER ETAN" " " "TU POSE LA CLE DU" "GENERATEUR DANS LE" "MONTE PLAT ET APPUIE"\Disp\ClrText " " \Locate 1,1,"\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash" "SUR LE NIVEAUX 2. TU APPEL ETAN..."\Disp"ETAN, T'ES LA ? J'AI TROUVE LA CLEE DU" "GENERATEUR. JE TE" "L'ENVOI AVEC LE MONTEPLAT."\Disp\ClrText " " \Locate 1,1,"\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash" "NO PROBLEMO MAIS JE" "N'AI PAS TROUVER LE MONTE PLAT DU NIV 2"\Disp"OK... SALUT!"\Disp\Prog "MAPS" \For 6\->A \To 1 \Step \(-)1 \Locate 13,A,"O" \Locate 13,A+1," " \For 1\->B \To 20 \Next \Next \Locate 13,1," " \ClrText " " \Locate 1,1,"\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash" "VOUS ETES MAINTENANT ETAN, VOUS POUVEZ" "SAUTER PLUS HAUT," "PLUS LOINT ET REPARERCERTAINS OBJETS DU"\Disp\ClrText " " \Locate 1,1,"\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash" "JEU. MAIS VOUS NE" "POUREZ PLUS PROGRAMERL'OUVERTURE DE" "CERTAINES PORTE."\Disp\ClrText " " \Locate 1,1,"\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash" "LA PARTIE HACHURER DELA CARTE(\slash\slash) N'EST" "PAS ENCORE EXPLORER"\Disp3.5\->\Mat X[1,1] 3.5\->I 0\->\Mat X[2,1] \IfEnd \If I=3.5 \Then 1\->\Mat X[3,4] \Prog "MAPS2" 0\->\Mat X[3,4] 6\->A 4\->B \Do \Prog "MOV2" \If A=6\ And B=6 \Then \ClrText " " \Locate 1,1,"\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash" "L'ASSECEUR EST" "BLOQUER. PLUS DE" "CORANT."\Disp\IfEnd \If A=2\ And B=5 \Then \ClrText " " \Locate 1,1,"\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash" "LE SAS DE SORTIE EST VEROUILLER..."\Disp\IfEnd \If A=12\ And B=5 \Then \ClrText " " \Locate 1,1,"\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash" "TA N'A PAS ENCORS" "RECUPERE LES CLES."\Disp\IfEnd \If J=8\ And B=2 \Then \ClrText " " \Locate 1,1,"\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash" "LA BANK EST FERMER"\Disp\IfEnd \If J=8 \Then B=3\=>5.5\->\Mat X[1,1] \IfEnd \Prog "MAPS2" \LpWhile J\<>8 \Goto1 \IfEnd \If I=5.5 \Then 1\->\Mat X[3,4] \Prog "MAPS2" 0\->\Mat X[3,4] 2\->A~B \Do \Prog "MOV3" \If A=2\ And B=6\ And J=5 \Then 0\->\Mat W[6,2] 2\Pi\->\Mat X[2,1] \ClrText " " \Locate 1,1,"\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash" "JOURNAL DE BORD 1N."\Disp\IfEnd \If A=7\ And B=6\ And J=5 \Then 0\->\Mat W[6,2] 2\Pi\->L \ClrText " " \Locate 1,1,"\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash" "JOURNAL DE BORD 2N."\Disp\IfEnd \If A=20\ And B=2 \Then \ClrText " " \Locate 1,1,"\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash" "IL N'Y A RIEN ICI."\Disp\IfEnd \If A=20\ And B=6 \Then \ClrText " " \Locate 1,1,"\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash" "SOINS TOTAL..."\Disp\Pi\->\Mat W[8,21] \Mat X[2,4]\->\Mat X[1,3] \IfEnd \If L=2\Pi\ And \Mat X[2,1]=2\Pi \Then \ClrText " " \Locate 1,1,"\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash" "LES DEUX JOURNAUX" "CONCORDENT..."\Disp"EN LE RASSEMBLANT" "VOUS LISEZ :"\Disp\ClrText " " \Locate 1,1,"\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash" "NOUS AVONS CONTACTER LE VAISSEAU AMIRAL, IL ARRIVERA BIENTOT AVEC LES CROISEURS" "STELLAIRES,"\Disp\ClrText " " \Locate 1,1,"\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash" "LES FREGATES DE RECO\(-)NAISSANCE ET LE" "TRANSPORTEUR. CELUI CI A DEJA ACOSTE MAISNOUS NE SAVONS PAS"\Disp\ClrText " " \Locate 1,1,"\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash" "ENCORE OU... LES SEULSURVIVANTS SE SONT" "ECHAPES PAR LE SAS ETONT FUI DANS LES" "CAPSULES..."\Disp\ClrText " " \Locate 1,1,"\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash" "JE CROI QU'IL EN" "RESTE 2 OU 3 AU NIV 4MAIS NOUS N'AVONS" "PLUS LE TEMP DE LES CHERCHER..."\Disp0\->\Mat X[2,1] \IfEnd \Prog "MAPS2" \Mat W[8,21]=\Pi\=>\Locate 15,7,"###" \LpWhile A\<>1\ And A\<>21 3.5\->\Mat X[1,1] A=21\=>7.5\->\Mat X[1,1] \Goto1 \IfEnd \If I=7.5 \Then 1\->\Mat X[3,4] \Prog "MAPS2" 0\->\Mat X[3,4] 2\->A~B \Do \Prog "MOV3" \If A=15\ And B=3 \Then \ClrText " " \Locate 1,1,"\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash" "C'EST LA CARTE DE DU NIVEAU."\Disp\ClrText " " \Locate 1,1,"\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash" " CHAP4: DE L'AUTRE COTE" "VOUS DEVEZ TROUVER LES CLES DE LA SALLE DU GENERATEUR."\Disp10\->\Mat X[1,1] 1\->A \IfEnd \Prog "MAPS2" \LpWhile A\<>1 \Mat X[1,1]\<>10\=>5.5\->\Mat X[1,1] \Goto1 \IfEnd \If I=10 \Then 1\->\Mat X[3,4] \Prog "MAPS2" 0\->\Mat X[3,4] 11\->A 4\->B \Do \Prog "MOV2" \If A=11\ And B=3 \Then \ClrText " " \Locate 1,1,"\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash" "VOUS AVEZ DEJA FINI CETTE SALLE."\Disp\IfEnd \If A=2\ And B=5 \Then \ClrText " " \Locate 1,1,"\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash" "LE SAS EST VEROUILLE."\Disp\IfEnd \If A=6\ And B=6 \Then \ClrText " " \Locate 1,1,"\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash" "L'ASSENCEUR EST" "BLOQUE, IL N'Y A PLUSDE COURANT."\Disp\IfEnd \If A=12\ And B=5 \Then \ClrText " " \Locate 1,1,"\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash" "VOUS N'AVEZ PAS LES CLES DE LA SALLE."\Disp\IfEnd \If J=8 \Then A=4\=>6.5\->\Mat X[1,1] A=19\=>11\->\Mat X[1,1] \IfEnd \Prog "MAPS2" \LpWhile J\<>8 \Goto1 \IfEnd \If I=6.5 \Then \If \Mat X[4,3]=1 \Then \ClrText " " \Locate 1,1,"\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash" "LA BANK EST FERMER POUR LE MOMENT."\Disp10\->\Mat X[1,1] \Goto1 \IfEnd 1\->\Mat X[3,4] \Prog "MAPS2" 0\->\Mat X[3,4] 2\->A 7\->B \While A\<>1 \Prog "MOV3" \If A=15 \Then \ClrText " " \Locate 1,1,"\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash" "IDENTIFIENT:"\Disp" " "DOC.LIEN"\Disp\Locate 1,6,"[ ]" \For 2\->M \To 20 \Step 0.5 \Locate M,6,"\aster" \Next \ClrText " " \Locate 1,1,"\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash" "2000 CREDIT..."\Disp" " "CREDIT RETIRE !"\Disp2000\->\Mat X[4,1] 10\->\Mat X[1,1] 1\->\Mat X[4,3] \Goto1 \IfEnd \Prog "MAPS2" \WhileEnd 10\->\Mat X[1,1] \Goto1 \IfEnd \If I=11 \Then 1\->\Mat X[3,4] \Prog "MAPS2" 0\->\Mat X[3,4] 2\->A 7\->B \Do \Prog "MOV3" \Prog "MAPS2" \LpWhile A\<>1 10\->\Mat X[1,1] \Goto1 \IfEnd\@00 %End %Header Record Format:MCS1 Type Number:1 File Name:MAPS Option Name: Communication SW:0 Capacity:5150 Data Type:PG %Data Record Password: BaseN:0 \Mat X[1,1]\->C \Mat X[3,4]\->K \If C=0 \Then \Locate 1,1,"# --- ## # #" \Locate 1,2,"####\sqrt # \Pi #----#" \Locate 1,3,"# ##~~######=#=" \Locate 1,4,"#. #\Pi . =#= ##" \Locate 1,5,"###=###=#########= #" \Locate 1,6,"# = = \sqrt = .#" \Locate 1,7,"#####################" K=1\=>[[1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1][1,0,0,0,0,3,3,3,0,0,0,1,1,0,0,1,0,0,0,0,1][1,1,1,1,2,0,0,0,0,1,0,0,0,4,0,1,3,3,3,3,1][1,0,0,0,1,1,7,7,1,1,1,1,1,1,6,1,6,0,0,0,0][1,5,0,0,1,4,0,0,0,0,0,0,5,0,6,1,6,0,0,1,1][1,1,1,6,1,1,1,6,1,1,1,1,1,1,1,1,1,6,0,0,1][1,0,0,6,0,0,0,6,0,0,0,2,0,0,0,0,0,6,0,5,1][1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1]]\->\Mat W \Return \IfEnd \If C=1 \Then \Locate 1,1,"#. # \Pi# # #" \Locate 1,2,"###=#-###----##=###=#" \Locate 1,3,"# = [ =#. =#" \Locate 1,4,"#####=#### \sqrt ####=##" \Locate 1,5,"# =#**#~~### =##" \Locate 1,6,"#\Pi # =#**# \sqrt # \sqrt =##" \Locate 1,7,"#######**######=#####" K=1\=>[[1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1][1,5,0,0,1,0,0,4,1,0,0,0,0,1,0,0,0,0,0,0,1][1,1,1,6,1,3,1,1,1,3,3,3,3,1,1,6,1,1,1,6,1][1,0,0,6,0,0,0,0,1,0,0,0,0,0,0,6,1,5,0,6,1][1,1,1,1,1,6,1,1,1,1,0,0,2,0,1,1,1,1,6,1,1][1,0,0,0,0,6,1,1,1,1,7,7,1,1,1,0,0,0,6,1,1][1,4,0,1,0,6,1,1,1,1,0,2,0,0,1,0,2,0,6,1,1][1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,6,1,1,1,1,1]]\->\Mat W \IfEnd \If C=2 \Then \Locate 1,1,"#[\slash]# # .# .#" \Locate 1,2,"#[\slash]#-----#-###=#####" \Locate 1,3,"#[\slash]# \sqrt #= \Pi#" \Locate 1,4,"#[\slash]#~ ~#=#####= =###" \Locate 1,5,"#[\slash] #= ###= #" \Locate 1,6,"#[\slash]\Pi\sqrt \sqrt#= \sqrt ] =\sqrt #" \Locate 1,7,"#####################" K=1\=>[[1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1][1,1,1,1,1,0,0,0,0,0,1,0,0,5,1,0,0,0,0,5,1][1,1,1,1,1,3,3,3,3,3,1,3,1,1,1,6,1,1,1,1,1][1,1,1,1,1,0,0,0,0,0,0,0,2,0,1,6,0,0,0,4,1][1,1,1,1,1,7,0,7,1,6,1,1,1,1,1,6,0,6,1,1,1][1,1,1,1,0,0,0,0,1,6,0,0,0,0,1,1,1,6,0,0,1][1,1,1,1,4,2,0,2,1,6,0,2,0,0,1,0,0,6,2,0,1][1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1]]\->\Mat W \Return \IfEnd \If C=3 \Then \Locate 1,1,"#####\ab/c\ab/c\ab/c\ab/c\ab/c\ab/c\ab/c\ab/c\ab/c###[][]" \Locate 1,2,"\Pi\Pi# #\ab/c\ab/c\ab/c\ab/c\ab/c\ab/c\ab/c\ab/c\ab/c# #[][]" \Locate 1,3,"\Pi # ######### # ### #" \Locate 1,4,"\Pi # #" \Locate 1,6,"\Pi # # # #[=\->> #[] #" \Locate 1,7,"\Pi\Pi###X###[=\->> #[] #" \Locate 1,5," ###### #### #" K=1\=>[[1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1][1,1,1,0,1,1,1,1,1,1,1,1,1,1,1,0,1,1,1,1,1][1,1,1,0,1,1,1,1,1,1,1,1,1,8,1,0,1,1,1,8,1][1,1,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1][1,1,0,0,0,0,0,0,1,1,1,1,1,1,0,1,1,1,1,8,1][1,1,1,0,1,0,1,0,1,1,1,1,1,1,1,1,1,1,1,1,1][1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1]]\->\Mat W \Return \IfEnd \If C=4 \Then \Locate 1,1,"#. # [ .# #" \Locate 1,2,"###=# =###---### #" \Locate 1,3,"# =#\sqrt = #" \Locate 1,4,"#\Pi =#####= . ___ #" \Locate 1,5,"###=# --=#####[===>#" \Locate 1,6," = \sqrt \sqrt=#***# O O #" \Locate 1,7,"#####################" K=1\=>[[1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1][1,5,0,0,1,0,0,0,0,0,1,0,0,0,0,5,1,0,0,0,1][1,1,1,6,1,0,0,6,1,1,1,3,3,3,1,1,1,0,0,0,1][1,0,0,6,1,2,0,6,0,0,0,0,0,0,1,1,1,1,1,1,1][1,4,0,6,1,1,1,1,1,6,0,0,0,5,0,1,1,1,1,1,1][1,1,1,6,1,0,0,3,3,6,1,1,1,1,1,1,1,1,1,1,1][0,0,0,6,0,0,2,0,2,6,1,1,1,1,1,1,1,1,1,1,1][1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1]]\->\Mat W \Return \IfEnd \If C=5 \Then \Locate 1,1,"#XXXX#XXXX#X#XXXXXXX#" \Locate 1,2,"#. ] [.#---- #" \Locate 1,3,"########=#### \<=\>= \Pi#" \Locate 1,4,"#. ####=####=[]##=##" \Locate 1,5,"###-# = =[] = #" \Locate 1,6," = \sqrt =[]. =\sqrt#" \Locate 1,7,"#####################" K=1\=>[[1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1][1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1][1,5,0,0,0,1,0,0,0,0,1,5,1,3,3,3,3,0,0,0,1][1,1,1,1,1,1,1,1,6,1,1,1,1,0,1,1,0,0,0,4,1][1,5,0,0,1,1,1,1,6,1,1,1,1,6,1,1,1,1,6,1,1][1,1,1,3,1,0,0,0,6,0,0,0,0,6,1,1,0,0,6,0,1][0,0,0,0,0,0,0,0,6,0,0,2,0,6,1,1,5,0,6,2,1][1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1]]\->\Mat W \Return \IfEnd \If C=6 \Then \Locate 1,1,"# XXXX .# \sqrt #" \Locate 1,2,"# ##- ---###-####= #" \Locate 1,3,"#\sqrt # \sqrt # #=\Pi#" \Locate 1,4,"##=####~~##=####=####" \Locate 1,5,"# = -- [=]###=####" \Locate 1,6,"# = \sqrt \@5C [=] " \Locate 1,7,"#####################" K=1\=>[[1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1][1,0,0,0,0,0,1,1,1,0,0,5,1,0,0,2,0,0,0,0,1][1,0,1,1,3,0,0,3,3,3,1,1,1,3,1,1,1,1,6,0,1][1,2,0,1,0,2,0,0,0,0,0,0,1,0,0,0,0,1,6,4,1][1,1,6,1,1,1,1,7,7,1,1,6,1,1,1,1,6,1,1,1,1][1,0,6,0,3,3,0,0,0,0,1,6,1,1,1,1,6,1,1,1,1][1,0,6,0,0,2,0,0,1,0,1,6,1,0,0,0,0,0,0,0,0][1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1]]\->\Mat W \Return \IfEnd \If C=7 \Then \Locate 1,1,"#####\ab/c\ab/c\ab/c\ab/c\ab/c\ab/c\ab/c\ab/c\ab/c###[][]" \Locate 1,2,"\Pi\Pi# #\ab/c\ab/c\ab/c\ab/c\ab/c\ab/c\ab/c\ab/c\ab/c# #[][]" \Locate 1,3,"\Pi # ######### # ### #" \Locate 1,4,"\Pi # #" \Locate 1,5,"\Pi ###### #### #" \Locate 1,6,"\Pi # # # #[=\->> #[][]" \Locate 1,7,"\Pi\Pi###X###[=\->> #[][]" K=1\=>[[1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1][1,1,1,0,1,1,1,1,1,1,1,1,1,1,1,0,1,1,1,1,1][1,1,1,0,1,1,1,1,1,1,1,1,1,0,1,0,1,1,1,0,1][1,1,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1][1,1,0,0,0,0,0,0,1,1,1,1,1,1,0,1,1,1,1,0,1][1,1,1,0,1,0,1,0,1,1,1,1,1,1,1,1,1,1,1,1,1][1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1]]\->\Mat W \Return \IfEnd \If C=8 \Then \Locate 1,1," # -- # # " \Locate 1,2,"###=# \sqrt # #FREGATE" \Locate 1,3,"# =#-##~~=# #T08 " \Locate 1,4,"#. = # . =# # _\slash] " \Locate 1,5,"####### #### # \slash\Deg> { " \Locate 1,6,"#\Pi \sqrt [O# \slash___{ " \Locate 1,7,"############ ########" K=1\=>[[1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1][0,0,0,0,1,0,0,0,3,3,0,1,1,1,1,1,1,1,1,1,1][1,1,1,6,1,0,0,2,0,0,0,1,1,1,1,1,1,1,1,1,1][1,0,0,6,1,3,1,1,7,7,6,1,1,1,1,1,1,1,1,1,1][1,5,0,6,0,0,1,0,5,0,6,1,1,1,1,1,1,1,1,1,1][1,1,1,1,1,1,1,0,1,1,1,1,1,1,1,1,1,1,1,1,1][1,4,0,0,2,0,0,0,0,0,0,1,1,1,1,1,1,1,1,1,1][1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1]]\->\Mat W \Return \IfEnd\@00 %End %Header Record Format:MCS1 Type Number:1 File Name:MAPS2 Option Name: Communication SW:0 Capacity:3412 Data Type:PG %Data Record Password: BaseN:0 \Mat X[1,1]\->C \Mat X[3,4]\->K \If C=3.5 \Then \Locate 1,1,"#SSSS### - - -#\slash\slash\slash\slash\slash\slash" \Locate 1,2,"### ## #- - - # \slash\slash\slash\slash\slash" \Locate 1,3,"# ### #### \slash\slash\slash\slash\slash" \Locate 1,4,"# \slash\slash\slash\slash\slash\slash" \Locate 1,5,"# # ## ###\slash\slash\slash\slash\slash\slash" \Locate 1,6,"#O# # # #I~~I##?#\slash\slash\slash" \Locate 1,7,"#####X####I~~I#\slash\slash\slash\slash\slash\slash" K=1\=>[[1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1][1,1,1,8,1,1,0,1,1,1,1,1,1,1,1,0,1,1,1,1,1][1,0,0,0,0,0,0,1,1,1,8,1,1,1,1,1,1,1,1,1,1][1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,1,1,1,1,1][1,0,1,0,0,0,0,0,0,1,1,0,1,1,1,1,1,1,1,1,1][1,1,1,0,1,0,1,0,0,1,1,1,1,1,1,1,1,1,1,1,1][1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1]]\->\Mat W \IfEnd \If C=5.5 \Then \Locate 1,1," - \sqrt - . " \Locate 1,2,"## ### # ### # ####" \Locate 1,3,"#- #- #- # #" \Locate 1,4,"# ### ### ### #" \Locate 1,5,"#. # . # # .#" \Locate 1,6,"## ### ### ####" \Locate 1,7,"#~~~~~#~~~~~#~~~~~#~~" K=1\=>[[1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1][0,0,3,0,0,0,2,0,0,0,0,0,0,0,0,0,3,0,0,5,0][1,1,0,0,0,1,1,1,0,1,0,1,1,1,0,1,0,1,1,1,1][1,3,0,0,0,0,1,3,0,0,0,0,1,3,0,0,0,0,1,0,1][1,0,1,1,1,0,0,0,1,1,1,0,0,0,1,1,1,0,0,0,1][1,5,0,1,0,0,5,0,0,1,0,0,0,0,0,1,0,0,0,5,1][1,1,0,0,0,1,1,1,0,0,0,1,1,1,0,0,0,1,1,1,1][1,7,7,7,7,7,1,7,7,7,7,7,1,1,1,1,1,1,1,1,1]]\->\Mat W \IfEnd \If C=6.5 \Then \Locate 1,1,"#####X X X X X X#####" \Locate 1,2,"##### X X X X X #####" \Locate 1,3,"BANK#X X X X X X#BANK" \Locate 1,4,"##### #####" \Locate 1,5,"##### #####" \Locate 1,6," \Pi #####" \Locate 1,7,"#####################" K=1\=>[[1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1][1,1,1,1,1,1,1,1,0,0,5,0,1,1,1,1,1,1,1,1,1][1,1,1,1,1,1,1,3,1,1,1,0,1,1,1,1,1,1,1,1,1][1,1,1,1,1,1,3,1,1,1,1,0,1,1,1,1,1,1,1,1,1][1,1,1,1,1,3,0,0,0,0,0,0,0,0,0,0,1,1,1,1,1][1,1,1,1,1,0,0,0,0,0,0,0,0,0,0,0,1,1,1,1,1][0,0,0,0,0,0,0,0,0,0,0,0,0,0,4,0,1,1,1,1,1][1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1]]\->\Mat W \IfEnd \If C=7.5 \Then \Locate 1,1," ### #" \Locate 1,2,"###- ### # . \sqrt #" \Locate 1,3," # # - #####=#" \Locate 1,4," ### # =#" \Locate 1,5," ### # =#" \Locate 1,6,"\sqrt\sqrt # ### # =#" \Locate 1,7,"##~~~~~~#~~~~########" K=1\=>[[1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1][0,0,0,0,0,0,0,0,0,0,1,1,1,0,0,0,0,0,0,0,1][1,1,1,3,0,1,1,1,0,0,0,1,0,0,5,0,0,2,0,0,1][1,1,1,0,0,0,1,0,0,3,0,0,0,0,1,1,1,1,1,6,1][1,1,1,0,0,0,0,0,0,0,1,1,1,0,0,0,1,0,0,6,1][1,1,1,1,1,1,0,0,0,0,0,1,0,0,0,0,0,0,0,6,1][1,1,1,1,1,1,0,1,1,1,0,0,0,0,0,0,1,0,0,6,1][1,1,1,1,1,1,7,1,1,1,7,7,7,1,1,1,1,1,1,1,1]]\->\Mat W \IfEnd \If C=10 \Then \Locate 1,1,"#SSSS### - - -###\Pi \Pi " \Locate 1,2,"### ## #- - - # #\Pi \Pi " \Locate 1,3,"# ### #### ## ##" \Locate 1,4,"# #" \Locate 1,5,"# # ## #### # #" \Locate 1,6,"#O# # # #I~~I##U# #" \Locate 1,7,"#####X####I~~I#######" K=1\=>[[1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1][1,1,1,8,1,1,0,1,1,1,1,1,1,1,1,0,1,1,1,1,1][1,0,0,0,0,0,0,1,1,1,0,1,1,1,1,0,1,1,8,1,1][1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1][1,0,1,0,0,0,0,0,0,1,1,0,1,1,1,1,8,1,0,0,1][1,1,1,0,1,0,1,0,0,1,1,1,1,1,1,1,1,1,0,0,1][1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1]]\->\Mat W \IfEnd \If C=11 \Then \Locate 1,1,"#SOIN\-> \Pi########" \Locate 1,2,"###### =####*******" \Locate 1,3,"#ARME\-> = \Pi#*******" \Locate 1,4,"###### =####*******" \Locate 1,5,"#DEF \-> = \Pi#*******" \Locate 1,6," =####*******" \Locate 1,7,"#####################" K=1\=>[[1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1][1,1,1,1,1,1,1,1,0,0,0,0,4,1,1,1,1,1,1,1,1][1,1,1,1,1,1,1,1,0,6,1,1,1,1,1,1,1,1,1,1,1][1,1,1,1,1,1,1,1,0,6,0,0,4,1,1,1,1,1,1,1,1][1,1,1,1,1,1,1,1,0,6,1,1,1,1,1,1,1,1,1,1,1][1,1,1,1,1,1,1,1,0,6,0,0,4,1,1,1,1,1,1,1,1][0,0,0,0,0,0,0,0,0,6,1,1,1,1,1,1,1,1,1,1,1][1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1]]\->\Mat W \IfEnd\@00 %End %Header Record Format:MCS1 Type Number:1 File Name:MENU Option Name: Communication SW:0 Capacity:789 Data Type:PG %Data Record Password: BaseN:0 \Lbl 1 \ClrText \Locate 1,1,"=====================" \Locate 1,3,"=====================" \Locate 1,2," MENU" \Locate 2,5,"SAUVER" \Locate 2,6,"STATS" \Locate 2,7,"RETOUR" 5\->E 0\->Z \While Z\<>31 \Locate 1,E,"\->" \Do \Getkey\->Z \LpWhile Z\<>31\ And Z\<>28\ And Z\<>37 \Locate 1,E," " Z=37\=>\Isz E Z=28\=>\Dsz E E=4\=>7\->E E=8\=>5\->E \WhileEnd \If E=5 \Then \Locate 14,5,"PARTIE 1" \Locate 14,6,"PARTIE 2" \Locate 14,7,"RETOUR" 0\->Z \While Z\<>31 \Locate 13,E,"\->" \Do \Getkey\->Z \LpWhile Z\<>31\ And Z\<>28\ And Z\<>37 \Locate 13,E," " Z=28\=>\Dsz E Z=37\=>\Isz E E=8\=>5\->E E=4\=>7\->E \WhileEnd E=5\=>\Mat X\->\Mat Y E=6\=>\Mat X\->\Mat Z E=7\=>\Goto1 \ClrText " " \Locate 1,1,"\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash" "PARTIE SAUVER..."\Disp\Goto1 \IfEnd \If E=6 \Then \ClrText \Locate 1,1,"====== STATS ======" \Locate 1,2,"VIE:" \Locate 1,3,"FORCE:" \Locate 1,4,"DEFENCE:" \Locate 1,5,"MEDIKIT:" \Locate 1,6,"ARME:" \Locate 1,7,"PROGRESSION:" \Locate 5,2,\Mat X[1,3] \Locate 7,3,\Mat X[1,2] \Locate 9,4,\Mat X[2,2] \Locate 9,5,\Mat X[3,1] \Locate 6,6,"POINT" \Mat X[1,4]=1\=>\Locate 6,6,"FUSIL A PHOTON" \Mat X[1,4]=2\=>\Locate 6,6,"Z710I" \Do \Getkey\->Z \LpWhile Z=0 \IfEnd \If E=7 \Then \Return \IfEnd\@00 %End %Header Record Format:MCS1 Type Number:1 File Name:MORT Option Name: Communication SW:0 Capacity:307 Data Type:PG %Data Record Password: BaseN:0 \Mat X[3,3]\->E \If E=0 \Then \ClrText " " \Locate 1,1,"\slash\slash\slash\slash\slash\slash\slashMESSAGE\slash\slash\slash\slash\slash\slash\slash" "ARG... LES HYBRIDS,ILSONT PARTOUT..." " " "FIN DU MESSAGE"\Disp\Return \IfEnd \If E=1 \Then \ClrText \Locate 1,2,"IL N'Y A RIEN ICI..."\Disp\Return \IfEnd \If E=2 \Then \ClrText " " " " " " " " \Locate 1,1,"\slash\slash\slash\slash\slash\slash\slashMEDIKIT\slash\slash\slash\slash\slash\slash\slash" \Locate 1,3,"VOUS TROUVEZ UN" \Locate 1,4,"MEDIKIT"\Disp\Mat X[3,1]+1\->\Mat X[3,1] \Return \IfEnd\@00 %End %Header Record Format:MCS1 Type Number:1 File Name:MOV Option Name: Communication SW:0 Capacity:647 Data Type:PG %Data Record Password: BaseN:0 \Lbl 1 \Locate A,B-1,"\theta" \Do \Getkey\->Z \LpWhile Z=0 Z=48\=>\Prog "MENU" \Mat W[B,A]\->J J=0\=>\Locate A,B-1," " J=3\=>\Locate A,B-1,"-" J=4\=>\Locate A,B-1,"\Pi" J=5\=>\Locate A,B-1,"." J=6\=>\Locate A,B-1,"=" \If Z=27 \Then \Mat W[B,A+1]\->E E=0\ Or E=3\ Or E=4\ Or E=5\ Or E=6\=>\Isz A \IfEnd \If Z=38 \Then \Mat W[B,A-1]\->E E=0\ Or E=3\ Or E=4\ Or E=5\ Or E=6\=>\Dsz A \IfEnd \If Z=28 \Then \Mat W[B-1,A]\->E E=0\ Or E=3\ Or E=6\=>\Dsz B \IfEnd \If Z=37 \Then \Mat W[B+1,A]\->E E\<>1\=>\Isz B \IfEnd \If Z=29 \Then \Mat W[B-1,A+1]\->E \If E=0\ Or E=3\ Or E=5\ Or E=4 \Then \Isz A \Dsz B \IfEnd \IfEnd \If Z=39 \Then \Mat W[B-1,A-1]\->E \If E=0\ Or E=3\ Or E=4\ Or E=5 \Then \Dsz A \Dsz B \IfEnd \IfEnd A=21\ Or A=1\ Or B=8\=>\Return \Do \Mat W[B,A]\->E \Mat W[B+1,A]\->F (F=0\ Or F=2\ Or F=3\ Or F=4\ Or F=5\ Or F=7)\ And E\<>3\ And E\<>6\=>\Isz B \LpWhile (F=0\ Or F=2\ Or F=3\ Or F=4\ Or F=5\ Or F=7)\ And E\<>3\ And E\<>6 \Mat W[B,A]=2\=>0\->\Mat W[B,A] \Mat W[B,A+1]=2\=>\Prog "COMBAT" \Mat W[B,A-1]=2\=>\Prog "COMBAT" Z\<>31\=>\Goto1\@00 %End %Header Record Format:MCS1 Type Number:1 File Name:MOV2 Option Name: Communication SW:0 Capacity:310 Data Type:PG %Data Record Password: BaseN:0 \Lbl 1 \Locate A,B,"\Deg>" \Do \Getkey\->Z \LpWhile Z\<>31\ And Z\<>38\ And Z\<>37\ And Z\<>28\ And Z\<>27\ And Z\<>48 \Mat W[B,A]\->J Z=48\=>\Prog "MENU" J=0\=>\Locate A,B," " J=4\=>\Locate A,B,"\Pi" J=8\=>\Locate A,B," " \If Z=28 \Then \Mat W[B-1,A]\->E E=0\ Or E=8\ Or E=4\=>\Dsz B \IfEnd \If Z=37 \Then \Mat W[B+1,A]\->E E=0\ Or E=8\ Or E=4\=>\Isz B \IfEnd \If Z=38 \Then \Mat W[B,A-1]\->E E=0\ Or E=8\ Or E=4\=>\Dsz A \IfEnd \If Z=27 \Then \Mat W[B,A+1]\->E E=0\ Or E=8\ Or E=4\=>\Isz A \IfEnd Z\<>31\=>\Goto1\@00 %End %Header Record Format:MCS1 Type Number:1 File Name:MOV3 Option Name: Communication SW:0 Capacity:747 Data Type:PG %Data Record Password: BaseN:0 \Lbl 1 \Locate A,B-1,"\{i}" \Do \Getkey\->Z \LpWhile Z=0 Z=48\=>\Prog "MENU" \Mat W[B,A]\->J J=0\=>\Locate A,B-1," " J=3\=>\Locate A,B-1,"-" J=4\=>\Locate A,B-1,"\Pi" J=5\=>\Locate A,B-1,"." J=6\=>\Locate A,B-1,"=" \If Z=27 \Then \Mat W[B,A+1]\->E E=0\ Or E=3\ Or E=4\ Or E=5\ Or E=6\=>\Isz A \IfEnd \If Z=38 \Then \Mat W[B,A-1]\->E E=0\ Or E=3\ Or E=4\ Or E=5\ Or E=6\=>\Dsz A \IfEnd \If Z=28 \Then \Mat W[B-1,A]\->E E=0\ Or E=3\ Or E=6\=>\Dsz B E=0\ And \Mat W[B-1,A]=3\=>\Dsz B \IfEnd \If Z=37 \Then \Mat W[B+1,A]\->E E\<>1\=>\Isz B \IfEnd \If Z=29 \Then \Mat W[B-1,A+1]\->E \If E=0\ Or E=3\ Or E=5\ Or E=4 \Then \Isz A \Dsz B \Else \Mat W[B,A+1]\->E E=0\ And \Mat W[B,A+2]=0\=>A+2\->A \IfEnd \IfEnd \If Z=39 \Then \Mat W[B-1,A-1]\->E \If E=0\ Or E=3\ Or E=4\ Or E=5 \Then \Dsz A \Dsz B \Else \Mat W[B,A-1]\->E E=0\ And \Mat W[B,A-2]=0\=>A-2\->A \IfEnd \IfEnd A=21\ Or A=1\ Or B=8\=>\Return \Do \Mat W[B,A]\->E \Mat W[B+1,A]\->F (F=0\ Or F=2\ Or F=3\ Or F=4\ Or F=5\ Or F=7)\ And E\<>3\ And E\<>6\=>\Isz B \LpWhile (F=0\ Or F=2\ Or F=3\ Or F=4\ Or F=5\ Or F=7)\ And E\<>3\ And E\<>6 \Mat W[B,A]=2\=>0\->\Mat W[B,A] \Mat W[B,A+1]=2\=>\Prog "COMBAT" \Mat W[B,A-1]=2\=>\Prog "COMBAT" Z\<>31\=>\Goto1\@00 %End %Header Record Format:MCS1 Type Number:1 File Name:ORDI Option Name: Communication SW:0 Capacity:1728 Data Type:PG %Data Record Password: BaseN:0 \Mat X[3,2]\->E \If E=0 \Then \ClrText " " \Locate 1,1,"\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash" "JE SUIS ERINE, SYSTEMDE PROTECTION DE LA BASE STELLAIRE BETA, JE VOUS CONSEILLERAI TOUT LE LONG DE"\Disp\ClrText " " \Locate 1,1,"\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash" "VOTRE MISSION. POUR LE MOMENT ESSAYEZ D' ATTEINDRE LA PASSEREL"\Disp\Return \IfEnd \If E=1 \Then \ClrText " " \Locate 1,1,"\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash" "SUIVEZ LE CONDUIT" "APRES LA PORTE ET" "ENCLANCHEZ LA SEQUENCDE PROTECTION DE" "NIVEAU 2"\Disp\Return \IfEnd \If E=2 \Then \While 1=1 \ClrText " " \Locate 1,1,"\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash" "1\(-)CONSULTER DONNEES 2\(-)PARLER" "3\(-)SORTIR" \Do \Getkey\->Z \LpWhile Z\<>72\ And Z\<>62\ And Z\<>52\ And Z\<>73 \If Z=72 \Then \ClrText " " \Locate 1,1,"\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash" "1 DONNEE SAUVEGARDEE ..."\Disp"ENREGISTREMENT U62."\Disp\ClrText " " \Locate 1,1,"\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash" "NOUS ALLONS TENTER" "D'OUVRIR LA CAGE 02, LES RECHERCHES SUR LEVACCIN SONT SUR LE" "POINT D'ABOUTIR..."\Disp\ClrText " " \Locate 1,1,"\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash" "LES HYBRIDES S'AFFOLE!! AH... ILS NOUS..." " " "FIN DU MESSAGE"\Disp\IfEnd \If Z=62 \Then \ClrText " " \Locate 1,1,"\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash" "TAPEZ VOTRE QUESTION:"\Disp"POURQUOI LE SYSTME DEDEFENCE C'EST IL" "ARRETE ?"\Disp\ClrText " " \Locate 1,1,"\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash" "LE DIRECTEUR A ORDONEL'ARRET."\Disp" " "QUAND CA ?"\Disp\ClrText " " \Locate 1,1,"\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash" "LORS DE L'ATTAQUE."\Disp" " "MAIS QUI EST LE" "DIRECTEUR ?"\Disp\ClrText " " \Locate 1,1,"\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash" "C'EST LE BOSS."\Disp" " "NON QUEL EST SONT NOM?"\Disp\ClrText " " \Locate 1,1,"\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash" "VOTRE QUESTION N'EST PAS APROPRIER..." " " "ARRET DU SYSTEME" "DE DIALOGUE..."\Disp\IfEnd 3\->L Z=52\=>\Return \WhileEnd \IfEnd \If E=3 \Then \ClrText " " \Locate 1,1,"\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash" "ENTREPOT 1" "AUQUNE LIVRAISON" "AUQUNE COMMANDE"\Disp\ClrText " " \Locate 1,1,"\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash" "OUVERTURE DE LA PORTE"\Disp0\->\Mat W[2,11] \IfEnd \If E=4 \Then \ClrText " " \Locate 1,1,"\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash" \If \Mat X[2,1]\<>1 \Then "PASS REFUSE..."\Disp\Return \IfEnd "OUVERTURE DES PORTES TERMINE."\Disp0\->\Mat W[3,6] 0\->\Mat W[3,11] \Return \IfEnd\@00 %End %Header Record Format:MCS1 Type Number:1 File Name:PERDU Option Name: Communication SW:0 Capacity:244 Data Type:PG %Data Record Password: BaseN:0 \ClrText "\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slash\slashLES HYBRIDS PRENENT LE CONTROL DU VESSEAU" "L'HUMANITE EST" "CONDAMNE..."\Disp\ClrText \For 1\->A \To 21 \Step 2 \Locate A,1,"##" \Locate A,7,"##" \Next \For 21\->A \To 1 \Step -2 \Locate A,2,"##" \Locate A,6,"##" \Next \Locate 10,4,"FIN" \Do \Getkey\->Z \LpWhile Z=0 \Locate 4,4,"SOLIX ET ROMAIN" \Stop\@00 %End %Header Record Format:MCS1 Type Number:1 File Name:poid Option Name: Communication SW:0 Capacity:16 Data Type:PG %Data Record Password: BaseN:0 26400\@00 %End