[mirrors/Programs.git] / turbobasic / 1998 / SPOLECNI.BAS

CLS\r
COLOR 14,15\r
LOCATE 2,2\r
SCREEN 0\r
INPUT " AHOJ,JAK SE MÁŠ. DOBRE/SPATNE " ;AAA$\r
IF AAA$= SPATNE THEN GOTO CXY\r
IF AAA$= DOBRE THEN GOTO ASE\r
\r
GOTO SDF\r
ASE:\r
CLS\r
LOCATE 2,2\r
PRINT " !!! SUPER !!! "\r
FOR A=0 TO 2000\r
NEXT A\r
SOUND RND*700+12,13\r
GOTO SDF\r
CXY:\r
CLS\r
LOCATE 2,2\r
PRINT " TO JE ŠKODA. "\r
FOR A=0 TO 2000\r
NEXT A\r
SOUND RND*100+40,40\r
SDF:\r
END\1a
Commit	Line	Data
0f95cc4b H	1	CLS\r
	2	COLOR 14,15\r
	3	LOCATE 2,2\r
	4	SCREEN 0\r
6c1eebfd	5	INPUT " AHOJ,JAK SE MÁŠ. DOBRE/SPATNE " ;AAA$\r
0f95cc4b H	6	IF AAA$= SPATNE THEN GOTO CXY\r
	7	IF AAA$= DOBRE THEN GOTO ASE\r
	8	\r
	9	GOTO SDF\r
	10	ASE:\r
	11	CLS\r
	12	LOCATE 2,2\r
	13	PRINT " !!! SUPER !!! "\r
	14	FOR A=0 TO 2000\r
	15	NEXT A\r
	16	SOUND RND*700+12,13\r
	17	GOTO SDF\r
	18	CXY:\r
	19	CLS\r
	20	LOCATE 2,2\r
6c1eebfd	21	PRINT " TO JE ŠKODA. "\r
0f95cc4b H	22	FOR A=0 TO 2000\r
	23	NEXT A\r
	24	SOUND RND*100+40,40\r
	25	SDF:\r
	26	END\1a