oprava pri volani jako funkce

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

cls

FOR I=1 TO 100
A$=INKEY$
IF LEN(A$)<>0 THEN ANO
PRINT A$
NEXT I

GOTO NE

ANO:
PRINT " ANO "
END

NE:
PRINT " NE "\1a