%Header Record Format:TXT Communication SW:0 Data Type:PG Capacity:1199 File Name:JEZZBALL Group Name: Password: Option1:NL Option2: Option3: Option4: %Data Record "JEZZBALL BY THOMATOS"\Disp{7,21}\->\Dim \Mat A 7\->\Dim \List 1 \ClrText \For 1\->B \To 7 \For 1\->A \To 21 1\->\Mat A[1,A] 1\->\Mat A[7,A] 1\->\Mat A[B,1] 1\->\Mat A[B,21] \Mat A[B,A]=1\=>\Locate A,B,"#" \Next \Next 2\->C~Y 1\->A~B 1\->P 0\->T 0\->Q 21\->W 1\->V 1\->\r 7\->\theta \Do \Locate X,Y,"\theta" P=1\ And Q=0\=>\Locate M,N,"-" P=\(-)1\ And Q=0\=>\Locate M,N,"\@7C" \Getkey\->K K=27\ And MM+1\->M K=38\ And M>V+1\=>M-1\->M K=28\ And N>\r+1\=>N-1\->N K=37\ And N<\theta-1\=>N+1\->N K=78\=>\(-)P\->P K=27\ Or K=28\ Or K=37\ Or K=38\=>1\->E \Locate X,Y,"\theta" X+A\->X Y+B\->Y \Mat A[Y,X]=1\ And Q=1\ And (X=M\ Or Y=N)\=>\GotoE A=1\ And B=1\=>\Locate X-1,Y-1," " A=1\ And B=\(-)1\=>\Locate X-1,Y+1," " A=\(-)1\ And B=1\=>\Locate X+1,Y-1," " A=\(-)1\ And B=\(-)1\=>\Locate X+1,Y+1," " X\>=W-1\=>\(-)1\->A X\<=V+1\=>1\->A Y\<=\r+1\=>1\->B Y\>=\theta-1\=>\(-)1\->B \If E=1 \Then K=27\=>\Locate M-1,N," " K=38\=>\Locate M+1,N," " K=37\=>\Locate M,N-1," " K=28\=>\Locate M,N+1," " \IfEnd K=31\=>1\->Q \If Q=1 \Then \Locate M,N,"#" \If P=\(-)1 \Then T=0\=>\r\->O O<\theta\=>O+1\->O \Locate M,O,"#" 1\->T 1\->\Mat A[O,M] \If O\>=\theta \Then \If MR \To M \For \r+1\->S \To \theta-1 1\->\Mat A[S,R] \Locate R,S,"#" \Next \Next 0\->Q M\->V M+1\->M 0\->T \IfEnd \If M>X \Then \Locate X,Y,"\theta" \For M\->U \To W \For \r+1\->S \To \theta-1 1\->\Mat A[S,U] \Locate U,S,"#" \Next \Next 0\->Q M\->W M-1\->M 0\->T \IfEnd \IfEnd \IfEnd \If P=1 \Then T=0\=>V\->O OO+1\->O \Locate O,N,"#" 1\->T 1\->\Mat A[N,O] \If O\>=W \Then \If NR \To N \For V+1\->S \To W-1 1\->\Mat A[R,S] \Locate S,R,"#" \Next \Next 0\->Q N\->\r N+1\->N 0\->T \IfEnd \If N>Y \Then \Locate X,Y,"\theta" \For N\->U \To \theta \For V+1\->S \To W-1 1\->\Mat A[U,S] \Locate S,U,"#" \Next \Next 0\->Q N\->\theta N-1\->N 0\->T \IfEnd \IfEnd \IfEnd \IfEnd (W-V)*(\theta-\r)<31\=>\GotoF \LpWhile 1 \Lbl E \ClrText "YOU LOOSE"\Disp\Stop \Lbl F \ClrText "LEVEL COMPLETE"\Disp\Stop %End