Turbo Basic 1.1.


Turbo Basic 1.1. - . 193


- , -
--------- , . n- 1
255.ENVIRON$ ENVIRON -
蠠 , ,
SHELL. ,ENVIRON$ ,
. ENVIRON$ -
.
,
-. ,ENVIRON$ ,-
n- , . n- ,-
-.




-111 -


EOF
-----------

EOF .
-------

y=EOF()
---------

- , .
---------- EOF TRUE (-1) ,
; FALSE (0).EF
, -
. EOF (-1) -
, .

𠠠 OPEN "TEXT.DTA" FOR INPUT AS #1
:
IF EOF(1) THEN
PRINT C" () TEXT.DTA"
ENDIF
INPUT#1,$
C=C+1
GOTO
' ,
OPEN "TEXT.DTA" FOR INPUT AS #1
WHILE NOT EOF(1)
INPUT#1 $
INCR c