%Header Record Format:TXT Communication SW:0 Data Type:PG Capacity:76 File Name:BEBUG Group Name: Password: Option1: Option2: Option3: Option4: %Data Record \ClrText "NIVEAU"?\->A "MAP"?\->B "VIES"?\->V "PIECES"?\->P \For 1\->K \To 63 \Step 2 \Horizontal K \Next 15\->Y \Return %End %Header Record Format:TXT Communication SW:0 Data Type:PG Capacity:815 File Name:GAME Group Name: Password: Option1: Option2: Option3: Option4: %Data Record \Lbl 9 \Prog "/MATRIX" \Lbl 0 3\->X \If B=1 \Then 15\->Y \IfEnd \Lbl 3 \Text 1,2,V \Text 1,94,P \Lbl 1 \If A=1\ And B=7 \Then \If X\>=57\ And Y=50 \Then \If X=57 \Then P\@2B100\->P \IfEnd \If X>57 \Then P\@2B400\->P \Isz V \IfEnd \Text 1,2,V \Text 1,94,P 127\->X \For 1\->T \To 100 \Next \ClrText:" W1\(-)1":" NIVEAU TERMINE!"\Disp \Isz N N\->A 1\->B \Prog "/MATRIX" 15\->Y \Goto0 \IfEnd \IfEnd \If X>120 \Then \Cls 9\->X \Isz B \Prog "/MATRIX" \Goto3 \IfEnd \If Y>57 \Then \ClrText:"VOUS PERDEZ UNE VIE."\Disp \BG-None V\@2D1\->V \GotoA \IfEnd \If X<9 \Then X\@2B6\->X \IfEnd \Text Y,X,"\theta" \Getkey\->K \If K=58 \Then \Prog "/DEBUG" \Goto9 \IfEnd \If K=27\ And \PxlTest (Y\@2B5),(X\@2B4))=0 \Then X\@2B6\->X:\Goto2 \Else \If K=38\ And \PxlTest (Y\@2B5),(X\@2D2))=0 \Then X\@2D6\->X:\Goto2 \Else \If K=78\ And \theta=0 \Then 0\->K \For 1\->\r \To 3 \If \Getkey=27\ And \PxlTest (Y\@2B5),(X\@2B4))=0 \Then X\@2B6\->X \IfEnd \If \Getkey=38\ And \PxlTest (Y\@2B5),(X\@2D2))=0 \Then X\@2D6\->X \IfEnd \Cls Y\@2D7\->Y \Text Y,X,"\theta" \For 1\->T \To 5 \Next \If Y<7 \Then \Text Y,X\@2B5,"AIE!" \IfEnd \Text Y,X," " \Next 1\->\theta \Cls \Goto1 \IfEnd \Lbl 2 \PxlTest (Y\@2B6),(X\@2B1) \While \Ans=0\ And Y<58 1\->\theta \Cls '\Text Y,X," " Y\@2B7\->Y:\Cls:\Goto1 \WhileEnd 0\->\theta \Cls \Goto1 \Lbl A\Disp \If V\<=0:\Then 1\->A:1\->B:\ClrText \BG-None \Locate 8,3,"G A M E" \Locate 8,5,"O V E R"\Disp 0\->P \Stop \Else 1\->B 3\->X 15\->Y \Prog "/MATRIX" \IfEnd \Goto0 %End %Header Record Format:TXT Communication SW:0 Data Type:PG Capacity:71 File Name:HEAD Group Name: Password: Option1: Option2: Option3: Option4: %Data Record \Text 1,2,V \Text 1,10,"*\theta" \Text 1,94,P \Text 1,110,"PCES" \Text 1,50,"W1\(-)" \Text 1,67,N \Return %End %Header Record Format:TXT Communication SW:0 Data Type:PG Capacity:4100 File Name:MATRIX Group Name: Password: Option1: Option2: Option3: Option4: %Data Record \If \Mat A[A,B]=0 \Then \ViewWindow 1,127,0,1,63,0 \BG-None \Cls \F-Line 1,56,1,22 \F-Line 1,22,37,22 \F-Line 37,22,37,15 \F-Line 37,15,66,15 \F-Line 66,15,66,1 \F-Line 74,1,74,15 \F-Line 74,15,97,15 \F-Line 97,15,97,22 \F-Line 97,22,103,22 \F-Line 103,22,103,29 \F-Line 103,29,127,29 \F-Line 7,56,7,54 \F-Line 13,56,13,54 \F-Line 6,53,14,53 \F-Line 6,53,6,50 \F-Line 6,50,14,50 \F-Line 14,50,14,53 \Prog "/HEAD" \StoPict 20 \BG-Pict 20 \Return \Else \If \Mat A[A,B]=1 \Then \ViewWindow 1,127,0,1,63,0 \BG-None \Cls \F-Line 1,29,13,29 \F-Line 13,29,13,1 \F-Line 25,1,25,15 \F-Line 25,15,43,15 \F-Line 43,15,43,22 \F-Line 43,22,49,22 \F-Line 49,22,49,29 \F-Line 49,29,61,29 \F-Line 61,29,61,15 \F-Line 61,15,85,15 \F-Line 85,15,85,1 \F-Line 91,1,91,15 \F-Line 91,15,103,15 \F-Line 103,15,103,1 \F-Line 109,1,109,22 \F-Line 109,22,127,22 \Prog "/HEAD" \Prog "/HEAD" \StoPict 20 \BG-Pict 20 \Return \Else \If \Mat A[A,B]=2 \Then \ViewWindow 1,127,0,1,63,0 \BG-None \Cls \F-Line 1,22,19,22 \F-Line 19,22,19,1 \F-Line 31,1,31,8 \F-Line 31,8,43,8 \F-Line 43,8,43,1 \F-Line 49,1,49,15 \F-Line 49,15,61,15 \F-Line 61,15,61,1 \F-Line 67,1,67,22 \F-Line 67,22,79,22 \F-Line 79,22,79,1 \F-Line 85,1,85,29 \F-Line 85,29,97,29 \F-Line 97,29,97,1 \F-Line 103,1,103,29 \F-Line 103,29,121,29 \F-Line 122,28,122,37 \F-Line 122,37,125,37 \F-Line 125,37,125,28 \F-Line 125,28,121,28 \F-Line 125,29,127,29 \F-Line 125,36,127,36 \Prog "/HEAD" \StoPict 20 \BG-Pict 20 \Return \Else \If \Mat A[A,B]=3 \Then \ViewWindow 1,127,0,1,63,0 \BG-None \Cls \F-Line 1,36,3,36 \F-Line 1,29,3,29 \F-Line 4,28,4,37 \F-Line 4,37,7,37 \F-Line 7,37,7,28 \F-Line 7,28,4,28 \F-Line 7,1,7,15 \F-Line 7,15,37,15 \F-Line 37,15,37,1 \F-Line 43,1,43,22 \F-Line 43,22,49,22 \F-Line 49,22,49,29 \F-Line 49,29,73,29 \F-Line 55,1,55,29 \F-Line 56,26,56,29 \F-Line 66,26,66,29 \F-Line 56,26,66,26 \F-Line 57,1,57,25 \F-Line 65,1,65,25 \F-Line 67,1,67,29 \F-Line 73,29,73,22 \F-Line 73,22,79,22 \F-Line 79,22,79,15 \F-Line 79,15,97,15 \F-Line 97,15,97,1 \F-Line 103,1,103,22 \F-Line 103,22,126,22 \Prog "/HEAD" \StoPict 20 \BG-Pict 20 \Return \Else \If \Mat A[A,B]=4 \Then \ViewWindow 1,127,0,1,63,0 \BG-None \Cls \F-Line 1,22,19,22 \F-Line 19,22,19,15 \F-Line 19,15,31,15 \F-Line 31,15,31,8 \F-Line 31,8,49,8 \F-Line 49,8,49,1 \F-Line 61,1,61,8 \F-Line 61,8,85,8 \F-Line 85,8,85,15 \F-Line 85,15,97,15 \F-Line 97,15,97,1 \F-Line 103,1,103,22 \F-Line 103,22,109,22 \F-Line 109,22,109,29 \F-Line 109,29,115,29 \F-Line 115,29,115,36 \F-Line 115,36,127,36 \Prog "/HEAD" \StoPict 20 \BG-Pict 20 \Return \Else \If \Mat A[A,B]=5 \Then \ViewWindow 1,127,0,1,63,0 \BG-None \Cls \F-Line 1,36,19,36 \F-Line 19,36,19,29 \F-Line 19,29,31,29 \F-Line 31,29,31,1 \F-Line 43,22,43,29 \F-Line 43,29,49,29 \F-Line 49,29,49,22 \F-Line 49,22,43,22 \F-Line 53,20,55,22 \F-Line 55,22,73,22 \F-Line 73,22,75,20 \F-Line 75,19,53,19 \F-Line 63,18,63,1 \F-Line 65,18,65,1 \F-Line 79,22,79,29 \F-Line 79,29,85,29 \F-Line 85,29,85,22 \F-Line 85,22,79,22 \F-Line 97,1,97,8 \F-Line 97,8,127,8 \Prog "/HEAD" \StoPict 20 \BG-Pict 20 \Return \Else \If \Mat A[A,B]=6 \Then \ViewWindow 1,127,0,1,63,0 \BG-None \Cls \F-Line 1,8,25,8 \F-Line 25,8,25,15 \F-Line 25,15,31,15 \F-Line 31,15,31,22 \F-Line 31,22,37,22 \F-Line 37,22,37,29 \F-Line 37,29,43,29 \F-Line 43,29,43,8 \F-Line 43,8,127,8 \F-Line 61,9,61,43 \F-Line 60,37,56,39 \F-Line 56,40,60,42 \F-Line 79,9,79,36 \F-Line 79,36,76,39 \F-Line 76,39,76,50 \F-Line 76,50,82,50 \F-Line 82,50,82,46 \F-Line 82,46,88,46 \F-Line 88,46,88,50 \F-Line 88,50,94,50 \F-Line 94,50,94,46 \F-Line 94,46,100,46 \F-Line 100,46,100,50 \F-Line 100,50,106,50 \F-Line 106,50,106,39 \F-Line 106,39,103,36 \F-Line 103,36,103,9 \F-Line 104,33,109,33 \F-Line 109,33,109,29 \F-Line 109,29,115,29 \F-Line 115,29,115,33 \F-Line 115,33,121,33 \F-Line 121,33,121,29 \F-Line 121,29,127,29 \F-Line 127,29,127,33 \Prog "/HEAD" \StoPict 20 \BG-Pict 20 \Return \Else \If \Mat A[A,B]=7 \Then \ViewWindow 1,127,0,1,63,0 \BG-None \Cls \F-Line 15,1,15,24 \F-Line 17,1,17,24 \F-Line 7,25,25,25 \F-Line 25,26,22,29 \F-Line 22,29,10,29 \F-Line 10,29,7,26 \F-Line 45,1,45,17 \F-Line 47,1,47,17 \F-Line 31,18,61,18 \F-Line 31,19,34,22 \F-Line 34,22,58,22 \F-Line 58,22,61,19 \F-Line 85,1,85,24 \F-Line 85,24,71,24 \F-Line 67,23,70,23 \F-Line 70,23,70,30 \F-Line 70,30,67,30 \F-Line 67,30,67,23 \F-Line 71,29,85,29 \F-Line 85,29,85,32 \F-Line 84,33,92,33 \F-Line 92,33,92,36 \F-Line 92,36,84,36 \F-Line 84,36,84,33 \F-Line 91,32,91,29 \F-Line 91,29,105,29 \F-Line 106,30,106,23 \F-Line 106,23,109,23 \F-Line 109,23,109,30 \F-Line 109,30,106,30 \F-Line 105,24,91,24 \F-Line 91,24,91,1 \F-Line 115,18,127,18 \F-Line 115,19,118,22 \F-Line 118,22,127,22 \Prog "/HEAD" \StoPict 20 \BG-Pict 20 \Return \Else \If \Mat A[A,B]=8 \Then \ViewWindow 1,127,0,1,63,0 \BG-None \Cls \F-Line 3,1,3,17 \F-Line 5,1,5,17 \F-Line 1,18,19,18 \F-Line 19,19,16,22 \F-Line 15,22,1,22 \F-Line 36,1,36,31 \F-Line 38,1,38,31 \F-Line 25,32,49,32 \F-Line 49,33,46,36 \F-Line 45,36,29,36 \F-Line 28,36,25,33 \F-Line 55,1,55,29 \F-Line 55,29,79,29 \F-Line 79,29,79,22 \F-Line 79,22,91,22 \F-Line 91,22,91,1 \F-Line 123,1,123,17 \F-Line 125,1,125,17 \F-Line 97,18,127,18 \F-Line 97,19,100,22 \F-Line 101,22,127,22 \Prog "/HEAD" \StoPict 20 \BG-Pict 20 \Return \Else \If \Mat A[A,B]=9 \Then \ViewWindow 1,127,0,1,63,0 \BG-None \Cls \F-Line 1,22,22,22 \F-Line 22,22,25,19 \F-Line 25,18,1,18 \F-Line 34,1,34,24 \F-Line 31,25,37,25 \F-Line 31,26,32,28 \F-Line 37,26,36,28 \F-Line 33,29,35,29 \F-Line 51,1,51,17 \F-Line 53,1,53,17 \F-Line 43,18,61,18 \F-Line 43,19,46,22 \F-Line 46,22,58,22 \F-Line 58,22,61,19 \F-Line 68,1,68,8 \F-Line 68,8,79,8 \F-Line 79,8,79,15 \F-Line 79,15,91,15 \F-Line 91,15,91,22 \F-Line 91,22,121,22 \F-Line 122,22,122,30 \F-Line 122,30,125,30 \F-Line 125,30,125,21 \F-Line 125,21,122,21 \F-Line 126,22,127,22 \F-Line 126,29,127,29 \Prog "/HEAD" \StoPict 20 \BG-Pict 20 \Return \Else \If \Mat A[A,B]=10 \Then \ViewWindow 1,127,0,1,63,0 \BG-None \Cls Y\@2D7\->Y \F-Line 1,29,3,29 \F-Line 1,22,3,22 \F-Line 3,30,3,21 \F-Line 3,21,6,21 \F-Line 6,21,6,30 \F-Line 6,30,3,30 \F-Line 7,22,18,22 \F-Line 19,21,19,16 \F-Line 20,15,42,15 \F-Line 43,14,43,1 \Prog "/HEAD" \StoPict 20 \BG-Pict 20 \Return \IfEnd %End %Header Record Format:TXT Communication SW:0 Data Type:PG Capacity:552 File Name:SETUP Group Name: Password: Option1: Option2: Option3: Option4: %Data Record \ViewWindow 1,127,0,1,63,0 \Text 5,1,"\@2D\@2D\@2D\@2D\@2D\@2D\@2D\@2D\@2D\@2D\@2D\@2D\@2D\@2D\@2D\@2D\@2D\@2D\@2D\@2D\@2D\@2D\@2D\@2D\@2D\@2D\@2D\@2D\@2D\@2D\@2D\@2D\@2D\@2D\@2D\@2D" \Text 1,1,"INSTALLATION" \Text 9,37,"ATTENTION!" \Text 16,7,"SI VOUS INSTALLEZ CE JEU SUR" \Text 23,2,"UNE INSTALLATION EXISTANTE," \Text 30,9,"LES ANCIENNES DONNEES" \Text 37,12,"SERONT REINITIALISEES." \Text 50,5,"PRESSEZ [EXE] POUR CONTINUER" \Text 57,18,"OU [ESC] POUR ANNULER" \Lbl 0 \If \Getkey=31 \Then \GotoA \Else \If \Getkey=47 \Then \Cls:\AxesOn:\GridOn:\CoordOn:\Stop \IfEnd \Goto0 \Lbl A {4,10}\->\Dim \Mat A [[0,1,2,3,4,5,6,7,0,0][8,9,10,11,12,13,14,15,0,0][0,0,0,0,0,0,0,0,0,0][0,0,0,0,0,0,0,0,0,0]]\->\Mat A "Installation niveau 1\->terminee." "Installation niveau 2\->terminee."\Disp \Prog "MARIO" %End %Header Record Format:TXT Communication SW:0 Data Type:PG Capacity:377 File Name:START Group Name: Password: Option1: Option2: Option3: Option4: %Data Record \ClrText \Locate 7,1,"COMMANDES" \Locate 2,3,"< > =DEPLACER MARIO" \Locate 1,5,"SHIFT=SAUTER (PUIS" \Locate 1,6,"< OU > POUR DIRIGER)" \For 1\->\r \To 500 \If \Getkey\<>0 \Then \Break \IfEnd \Next \ClrText \ClrGraph \ViewWindow 1,127,0,1,63,0 \For 1\->\r \To 6 \PxlChg 36,60 \PxlChg 37,60 \PxlChg 37,63 \PxlChg 38,62 \PxlChg 40,63 \PxlChg 40,64 \PxlChg 42,62 \PxlChg 43,63 \PxlChg 43,60 \PxlChg 44,60 \PxlChg 42,58 \PxlChg 43,57 \PxlChg 40,56 \PxlChg 40,57 \PxlChg 37,57 \PxlChg 38,58 \Next \For 1\->\r \To 50 \Next \If Z=1234567890 \Then 1\->N 1\->A 1\->B 3\->V 0\->P \Prog "/GAME" \Stop \Else \Prog "/GAME" \Stop \IfEnd %End %Header Record Format:TXT Communication SW:0 Data Type:PG Capacity:1108 File Name:MARIO Group Name: Password: Option1: Option2: Option3: Option4: %Data Record \ClrText \BG-None \Locate 1,4,"*" \For 1\->\r \To 8 \Locate \r,4," *" \Next \Locate 9,4,"G*" \Locate 9,4,"GR*" \Locate 9,4,"GR3*" \Locate 9,4,"GR3G*" \For 13\->\r \To 21 \Locate \r,4," *" \Next \Locate 7,6,"PRESENTE" \For 1\->\r \To 100 \If \Getkey\<>0 \Then \Break \IfEnd \Next \ClrText \ViewWindow 1,127,0,1,63,0 \F-Line 40,57,37,42 \F-Line 37,42,43,41 \F-Line 43,41,43,50 \F-Line 43,50,44,46 \F-Line 44,46,47,49 \F-Line 47,49,49,42 \F-Line 49,42,54,44 \F-Line 54,44,49,57 \F-Line 49,57,47,57 \F-Line 47,57,45,54 \F-Line 45,54,44,58 \F-Line 44,58,41,58 \F-Line 53,48,57,56 \F-Line 57,56,61,55 \F-Line 61,55,65,43 \F-Line 65,43,61,41 \F-Line 61,41,60,45 \F-Line 60,45,57,45 \F-Line 57,45,55,43 \F-Line 58,48,59,51 \F-Line 59,51,59,48 \F-Line 65,44,65,56 \F-Line 65,56,70,56 \F-Line 70,56,74,53 \F-Line 74,53,74,49 \F-Line 74,49,73,47 \F-Line 73,47,76,43 \F-Line 76,43,73,42 \F-Line 73,42,69,47 \F-Line 69,47,68,44 \F-Line 68,44,65,44 \F-Line 69,50,69,53 \F-Line 70,51,70,52 \F-Line 76,43,76,56 \F-Line 76,56,79,56 \F-Line 79,56,80,43 \F-Line 80,43,76,43 \F-Line 88,54,83,54 \F-Line 83,54,80,49 \F-Line 80,49,82,45 \F-Line 83,44,86,43 \F-Line 86,43,91,47 \F-Line 91,47,91,51 \F-Line 91,51,88,54 \F-Line 85,49,85,48 \F-Line 86,50,86,47 \F-Line 87,49,87,48 \Text 24,75,"(MK3.4)" \Text 57,108,"V0.4" \Text 42,23,"[F1] COMMENCER" \Text 49,23,"[F4] QUITTER" \Text 56,23,"[F6] INSTALLER" \F-Line 20,1,20,25 \F-Line 20,25,100,25 \F-Line 100,25,100,1 \F-Line 100,1,20,1 \Lbl 0 \Do \Getkey\->\r \If \r=79 \Then 1234567890\->Z \Prog "/START" \Stop \Else \If \r=49 \Then \Cls:\AxesOn:\GridOn:\CoordOn:\BG-None:\Cls:\Stop \Else \If \r=29 \Then \Prog "/SETUP" \Stop \IfEnd \Goto0 %End