710 "M"CLEAR :WAIT 0:PRINT "*MINE* Sacekaj":DIM B$(17,17)*1 720 FOR I=1 TO 50 730 X=RND 16:Y=RND 15+1:IF B$(X,Y) GOTO 730 740 B$(X,Y)="1":NEXT I 750 WAIT 0:CLS :X=RND 16:Y=1:Q=-1:H=-1:LINE (0,0)-(1,31),B:LINE (130,0)-(131,31),B 760 GCURSOR (133,23):GPRINT "7C0810087C007C007C0810207C007C5454 770 LINE (132,-1)-(149,16),B:GOSUB 800 780 IF INKEY$ GOSUB 800 790 GOTO 780 800 X=(INKEY$ ="6"AND X<16)-(INKEY$ ="4"AND X>1)+X:Y=(INKEY$ ="8")-(INKEY$ ="2"AND Y>1)+Y 810 IF Y>16 WAIT :PRINT "BRAVO !":END 820 M=VAL B$(X-1,Y)+VAL B$(X+1,Y)+VAL B$(X,Y-1)+VAL B$(X,Y+1) 830 CURSOR 94:PRINT STR$ M 840 GCURSOR (P,Q):GPRINT "00000000000000":PRESET (G,H) 850 P=X*8-6:W=Y-1:Q=31-W*8+INT (W/4)*32:G=132+X:H=16-Y 860 GCURSOR (P,Q):GPRINT "1008FB3FFB0810":PSET (G,H) 870 IF B$(X,Y) GOTO 890 880 RETURN 890 BEEP 1:GCURSOR (P,Q):GPRINT "049124B8C9F094510800007C545428003C40403C007C0810087C" 895 WAIT :GPRINT :END