100  INPUT "JSTE PRIPRAVEN KE HRE?(A,N)";A$
101  RANDOMIZE
102  IF A$ NE "A" THEN 1220
210  K1=12:K2=15
220  DIM A$(12,15)
230  FOR B=2 TO K1-1
240  FOR C=2 TO K2-1
250  X=INT(10*RND)
260  IF X=5 THEN 280
270  A$(B,C)=".":GO TO 290
280  A$(B,C)="X"
290  NEXT C
300  NEXT B
310  FOR D=1 TO K1
320  A$(D,1)="X"
330  NEXT D
340  FOR E=1 TO K1
350  A$(E,15)="X"
360  NEXT E
370  FOR F=1 TO K2
380  A$(1,F)="X"
390  NEXT F
400  FOR G=1 TO K2
410  A$(K1,G)="X"
420  NEXT G
430  GO TO 500
440  H=INT(1+(K1*RND))
450  I=INT(1+(K2*RND))
460  IF A$(H,I)="X" THEN 440
470  IF A$(H,I)="*" THEN 440
480  IF A$(H,I)="#" THEN 440
490  RETURN
500  GOSUB 440
510  A$(H,I)="*":J=H:K=I
520  GOSUB 440
530  A$(H,I)="#":L=H:M=I
540  GOSUB 440
550  A$(H,I)="#":N=H:O=I
560  GOSUB 440
570  A$(H,I)="#":P=H:Q=I
580  GOSUB 440
590  A$(H,I)="#":R=H:S=I
600  GOSUB 440
610  A$(H,I)="#":T=H:U=I
620  PRINT"1 2 3":PRINT "8 * 4":PRINT "7 6 5"
630  FOR D2=1 TO K1
640  FOR B2=1 TO K2
650  PRINT A$(D2,B2);"  ";
660 NEXT B2
670  PRINT
680  NEXT D2
690  INPUT Y
691  IF Y=0 THEN 800
700  V=J:W=K
710  IF Y=1 THEN 720
711  IF Y=2 THEN 730
712  IF Y=3 THEN 740
713  IF Y=4 THEN 750
714  IF Y=5 THEN 760
715  IF Y=6 THEN 770
716  IF Y=7 THEN 780
717  IF Y=8 THEN 790
720  J=J-1:K=K-1:GO TO 800
730  J=J-1:GO TO 800
740  J=J-1:K=K+1:GO TO 800
750  K=K+1:GO TO 800
760  K=K+1:J=J+1:GO TO 800
770  J=J+1:GO TO 800
780  J=J+1:K=K-1:GO TO 800
790  K=K-1
800  IF A$(J,K)="X" THEN 1160
810  A$(V,W)=".":A$(J,K)="*"
820  GO TO 940
830  IF A$(X,Y)="X" THEN 910
840  V=X:W=Y
850  X=SGN(J-X):Y=SGN(K-Y)
860  X=X+V:Y=Y+W
870  IF A$(X,Y)="*" THEN 920
875  IF A$(X,Y)="X" THEN 911
890  A$(X,Y)="#"
900  A$(V,W)="."
910 RETURN
911  A$(V,W)="+":RETURN
920  PRINT "***YOU HAVE BEEN DESTROYD BY A LUCKY COMPUTER***"
930  GO TO 1180
940  X=L:Y=M:GOSUB 830
950  L=X:M=Y
960  X=N:Y=O:GOSUB 830
970  N=X:O=Y
980  X=P:Y=Q:GOSUB 830
990  P=X:Q=Y
1000 X=R:Y=S:GOSUB 830
1010 R=X:S=Y
1020 X=T:Y=U:GOSUB 830
1030 T=X:U=Y
1040 IF A$(L,M)<>"X" THEN 620
1060 IF A$(N,O)<>"X" THEN 620
1080 IF A$(P,Q)<>"X" THEN 620
1100 IF A$(R,S)<>"X" THEN 620
1120 IF A$(T,U)<>"X" THEN 620
1140 PRINT "YOU HAVE DESTROYED ALL YOUR OPPONENTS"
1141 PRINT "THE GAME IS YOURS!"
1150 GO TO 210
1160 PRINT "YOU TOUCHED THE FENCE !!!!!!!!!!!!!!!!"
1170 PRINT "****************ZAP*****YOU'RE DEAD !!!!"
1180 PRINT "ANOTHER GAME?(YES OR NO)"
1190 INPUT N9$
1200 IF N9$="YES" THEN 230
1220 END