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