%Header Record Format:TXT Communication SW:0 Data Type:PG Capacity:2150 File Name:Mouleman Group Name: Password: Option1:NL Option2: Option3: Option4: %Data Record \ViewWindow 0.5,13.5,0,0,20,0 \ClrText \Locate 6,1,"************" \Locate 6,2,"* MOULEMAN *" \Locate 6,3,"************" \Locate 1,5,"[F1]:PLAY" \Locate 1,6,"[F2]:RESET" \Locate 1,7,"[F3]:READ ME!" \Do \Getkey \LpWhile ((\Ans=79)\ Or (\Ans=69)\ Or (\Ans=59))=0 \Ans=69\=>[[0]]\->\Mat Y \If \Ans=59 \Then \ClrText "=======READ ME!======" "[L]\->SELECT" "[G]\->ACTION" "[<-][->]\->MOVE" "[A]\->PASS" \Locate 16,7,"\slashNEXT" \While \Getkey\<>29 \WhileEnd \ClrText "=======READ ME!======" " " " RESET BEFORE FIRST USE!" \Locate 16,7,"\slashNEXT" \While \Getkey\<>29 \WhileEnd \ClrText \Locate 1,1,"CREATER AND EDITOR:" \Locate 1,2,"*********************" \Locate 7,5,"~NEURONIX~" \Locate 17,7,"\slashEND" \While \Getkey\<>29 \WhileEnd \Prog "Mouleman" \IfEnd 0\->A~P 10\->M \Lbl 8 \BG-None \Text 34,35,"CHARGEMENT..." \For 1\->A \To 50 \Next \Cls M=3\=>\GotoH 0.5\->N \While NN \WhileEnd \Text 5,95,"~SCORE~" \Text 35,95,"~BEST~" \Vertical 13.5 \Horizontal 0 \StoPict 1 \BG-Pict 1 \Lbl 9 \Int 10\Ran#\->A \Int 10\Ran#\->B \Int 10\Ran#\->C A>0\=>B>0\=>C>0\=>A\<>B\=>A\<>C\=>B\<>C\=>ABC\Goto0 \Goto9 \Lbl 0 A>0\=>A\->G A=0\=>B>0\=>B\->G B=0\=>C>0\=>C\->G \Lbl 1 \Cls \If A>0 \Then \F-Line A,2,A,5 \F-Line A-0.1,5,A-0.1,4.5 \F-Line A-0.3,3.5,A+0.3,3.5 \F-Line A,3,A-0.3,2 \IfEnd \If B>0 \Then \F-Line B,2,B,5 \F-Line B-0.1,5,B-0.1,4.5 \F-Line B-0.3,3.5,B+0.3,3.5 \F-Line B,3,B-0.3,2 \IfEnd \If C>0 \Then \F-Line C,2,C,5 \F-Line C-0.1,5,C-0.1,4.5 \F-Line C-0.3,3.5,C+0.3,3.5 \F-Line C,3,C-0.3,2 \IfEnd \F-Line G,0,G,1 \Text 20,100,L \Text 50,100,\Mat Y[1,1] \Lbl 2 \Getkey\->H H=25\=>G=C\=>\GotoC H=25\=>G=B\=>\GotoB H=25\=>G=A\=>\GotoA H=75\=>\GotoD H=76\=>\GotoE \Goto2 \Lbl C A>0\=>A\->G G\<>A\=>B>0\=>B\->G \Goto1 \Lbl B C>0\=>C\->G G\<>C\=>A>0\=>A\->G \Goto1 \Lbl A B>0\=>B\->G G\<>B\=>C>0\=>C\->G \Goto1 \Lbl D \Getkey\->H H=27\=>\Goto3 H=38\=>\Goto4 \GotoD \Lbl 3 0\->J~K G+1\->I \Lbl 5 I\<=M-1\=>I\<>A\=>I\<>B\=>I\<>C\=>1\->J G=A\=>J=1\=>I\->A G=B\=>J=1\=>I\->B G=C\=>J=1\=>I\->C J=1\=>\GotoE K+1\->K K=1\=>G+2\->I K=2\=>G+3\->I K=3\=>\GotoD \Goto5 \Lbl 4 0\->J~K G-1\->I \Lbl 6 I>0.5\=>I\<>A\=>I\<>B\=>I\<>C\=>1\->J G=A\=>J=1\=>I\->A G=B\=>J=1\=>I\->B G=C\=>J=1\=>I\->C J=1\=>\GotoE K+1\->K K=1\=>G-2\->I K=2\=>G-3\->I K=3\=>\GotoD \Goto6 \Lbl E \Cls \If A>0 \Then \F-Line A,2,A,5 \F-Line A-0.1,5,A-0.1,4.5 \F-Line A-0.3,3.5,A+0.3,3.5 \F-Line A,3,A-0.3,2 \IfEnd \If B>0 \Then \F-Line B,2,B,5 \F-Line B-0.1,5,B-0.1,4.5 \F-Line B-0.3,3.5,B+0.3,3.5 \F-Line B,3,B-0.3,2 \IfEnd \If C>0 \Then \F-Line C,2,C,5 \F-Line C-0.1,5,C-0.1,4.5 \F-Line C-0.3,3.5,C+0.3,3.5 \F-Line C,3,C-0.3,2 \IfEnd \Text 20,100,L \Text 50,100,\Mat Y[1,1] \Lbl F 0\->D~E \Int 10\Ran#\->D \Int 10\Ran#\->E D>0\=>E>0\=>D\<>E\=>DE\GotoG \GotoF \Lbl G D-0.5\->X E-0.5\->Y 05\->Z \While Z>0 Z-1\->Z \Vertical X \Vertical Y X+0.2\->X Y+0.2\->Y \WhileEnd D=A\=>0\->A D=B\=>0\->B D=C\=>0\->C E=A\=>0\->A E=B\=>0\->B E=C\=>0\->C A=0\=>B=0\=>C=0\=>\GotoH 0\->O B>0\=>O+1000\->O C>0\=>O+1000\->O A>0\=>O+1000\->O P+O\->P L+O\->L \If P\>=10000 \Then M-1\->M:0\->P:\Goto8 \IfEnd \Goto0 \Lbl H \ClrText \Locate 1,1,"******GAME OVER******" L>\Mat Y[1,1]\=>L\->\Mat Y[1,1] \Locate 1,3,"SCORE:" \Locate 9,3,L \Locate 1,5,"BEST:" \Locate 9,5,\Mat Y[1,1] \Locate 1,7,"[F1]:RETRY" \Do \Getkey \LpWhile (\Ans=79)=0 \If \Ans=79 \Then \Prog "Mouleman" \IfEnd \BG-None \Stop %End