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