[mirrors/Programs.git] / turbobasic / GRANATOM.BAS

CLS\r
SCREEN 0\r
COLOR 15,0\r
LOCATE 2,2\r
PRINT "GRANáTOMET Má GRANáTY(viz hvězdy)JEN NA JEDEN DáVKOVí VýSTřEL :*****"\r
LOCATE 3,2\r
INPUT " Má-LI SE VYSTřELIT STISKNI *ENTER* " ;V\r
FOR A=2 TO 71\r
FOR I=0 TO 600\r
NEXT I\r
CLS\r
LOCATE 10,A\r
PRINT "*"\r
NEXT A\r
LOCATE 10,69\r
PRINT "XO*OX"\r
FOR K2=0 TO 550\r
NEXT K2\r
END\1a
Commit	Line	Data
0f95cc4b H	1	CLS\r
	2	SCREEN 0\r
	3	COLOR 15,0\r
	4	LOCATE 2,2\r
6c1eebfd	5	PRINT "GRANáTOMET Má GRANáTY(viz hvězdy)JEN NA JEDEN DáVKOVí VýSTřEL :*****"\r
0f95cc4b	6	LOCATE 3,2\r
6c1eebfd	7	INPUT " Má-LI SE VYSTřELIT STISKNI ENTER " ;V\r
0f95cc4b H	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