CLS
SCREEN 0
COLOR 15,0
LOCATE 2,2
PRINT "GRAN TOMET M  GRAN TY(viz hvØzdy)JEN NA JEDEN D VKOV¡ VìSTýEL :*****"
LOCATE 3,2
INPUT " M -LI SE VYSTýELIT STISKNI *ENTER* " ;V
FOR A=2 TO 71
FOR I=0 TO 600
NEXT I
CLS
LOCATE 10,A
PRINT "*"
NEXT A
LOCATE 10,69
PRINT "XO*OX"
FOR K2=0 TO 550
NEXT K2
END