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

cls\r
\r
FOR I=1 TO 100\r
A$=INKEY$\r
IF LEN(A$)<>0 THEN ANO\r
PRINT A$\r
NEXT I\r
\r
GOTO NE\r
\r
ANO:\r
PRINT " ANO "\r
END\r
\r
NE:\r
PRINT " NE "\1a
Commit	Line	Data
0f95cc4b H	1	cls\r
	2	\r
	3	FOR I=1 TO 100\r
	4	A$=INKEY$\r
	5	IF LEN(A$)<>0 THEN ANO\r
	6	PRINT A$\r
	7	NEXT I\r
	8	\r
	9	GOTO NE\r
	10	\r
	11	ANO:\r
	12	PRINT " ANO "\r
	13	END\r
	14	\r
	15	NE:\r
	16	PRINT " NE "\1a