%Header Record Format:TXT Communication SW:0 Data Type:PG Capacity:1300 File Name:FALLDOWN Group Name: Password: Option1:NL Option2: Option3: Option4: %Data Record 0\->A~Z:\ClrText:\Cls \Locate 3,1,"*****************" \Locate 3,2,"* FALL DOWN *" \Locate 3,3,"*****************" \Locate 7,5,"PLAY" \Locate 7,6,"HELP" \Locate 7,7,"HIGHSCORE" 5\->M \Lbl M \Locate 6,M,"\->" \If \Getkey=37 \Then \Isz M M>7\=>7\->M \Locate 6,M-1," " \IfEnd \If \Getkey=28 \Then \Dsz M M<5\=>5\->M \Locate 6,M+1," " \IfEnd \Getkey=31\ And M=5\=>\GotoD \Getkey=31\ And M=6\=>\GotoH \Getkey=31\ And M=7\=>\GotoS \GotoM \Lbl D \ClrText \Locate 8,4,"READY..." \For 1\->Z \To 400 \Next \ClrText 11\->D \For 1\->C \To 6 \Locate D,C,"*" C>1\=>\Locate D,C-1," " \Next \Lbl I 7\->A \Int 21\Ran#+1\->B \If \Abs (B-D)\>=6 \Then \GotoI \IfEnd \Lbl J \Locate 1,A,"=====================" \Locate B,A," " \Locate D,C,"*" \If A=C\ And B\<>D \Then C-1\->C \If C=0 \Then \GotoP \IfEnd \IfEnd A-1\->A \If A=0 \Then \Isz S \GotoI \IfEnd \ClrText \If \Getkey=38 \Then \Dsz D \Isz W \IfEnd \If D<1 \Then 1\->D \IfEnd \If \Getkey=27 \Then \Isz D \Isz W \IfEnd \If D>21 \Then 21\->D \IfEnd \If A\<>C \Then \Isz C \If C>7 \Then 7\->C \IfEnd \IfEnd \If \Getkey=77 \Then \Do \Locate 9,4,"PAUSE" \LpWhile \Getkey\<>78 \Locate 9,4," " \For 1\->Z \To 10 \Locate 10,4,"GO!" \Next \Locate 10,4," " \IfEnd \GotoJ \Lbl P \ClrText "PERDU..." \For 1\->Z \To 200 \Next \Int (100S+W/5)\->S \ClrText \Locate 6,3,"SCORE:" \Locate 13,3,S \If S>\Mat F[1,1] \Then S\->\Mat F[1,1] \Locate 5,5,"HIGHSCORE !!!" \Lbl Z \For 5\->Q \To 17 \Locate Q,5," " Q=6\=>\Locate 5,5,"H" Q=7\=>\Locate 6,5,"I" Q=8\=>\Locate 7,5,"G" Q=9\=>\Locate 8,5,"H" Q=10\=>\Locate 9,5,"S" Q=11\=>\Locate 10,5,"C" Q=12\=>\Locate 11,5,"O" Q=13\=>\Locate 12,5,"R" Q=14\=>\Locate 13,5,"E" Q=16\=>\Locate 15,5,"!" \If Q=17 \Then \Locate 16,5,"!" \GotoZ \IfEnd Q=5\=>\Locate 17,5,"!" \Getkey=31\=>\Break \Next \Prog "FALLDOWN" \IfEnd \If S=\Mat F[1,1] \Then \While \Getkey\<>31 \Locate 7,5,"HIGHSCORE" \Locate 4,7,"ALREADY EXISTS" \Locate 4,7," " \WhileEnd \Prog "FALLDOWN" \IfEnd \Return \Lbl S \ClrText \Locate 4,4,"HIGHSCORE:" \Locate 15,4,\Mat F[1,1] \Return \Lbl H \ClrText \Locate 2,3,"<- LEFT" \Locate 13,3,"RIGHT \->" \Locate 4,6,"[ALPHA] \-> PAUSE" \Locate 4,7,"[SHIFT] \-> PLAY" \Return %End