turbobasic/GRANATOM.BAS

   1 CLS
   2 SCREEN 0
   3 COLOR 15,0
   4 LOCATE 2,2
   5 PRINT "GRANáTOMET Má GRANáTY(viz hvězdy)JEN NA JEDEN DáVKOVí VýSTřEL :*****"
   6 LOCATE 3,2
   7 INPUT " Má-LI SE VYSTřELIT STISKNI *ENTER* " ;V
   8 FOR A=2 TO 71
   9 FOR I=0 TO 600
  10 NEXT I
  11 CLS
  12 LOCATE 10,A
  13 PRINT "*"
  14 NEXT A
  15 LOCATE 10,69
  16 PRINT "XO*OX"
  17 FOR K2=0 TO 550
  18 NEXT K2
  19 END\1a