Turbo Basic 1.1.


Turbo Basic 1.1. - . 228


WRITE#, -
INPUT#

𠠠 SUB
OPEN "LINEINP#.DTA" FOR OUTPUT AS #1
$=" -"
-136 -


%=1000
!=30000.1234
PRINT #1,$,%,!
CLOSE #1
END SUB
SUB
'
' LINE INPUT# INPUT$
'
OPEN "LINEINP#.DTA" FOR INPUT AS #1
=""
LINE INPUT#1,$
PRINT $
CLOSE #1
END SUB
CALL
CALL
END


LOC
-----------

LOC .
-------

y=LOC()
---------

- , . LOC
--------- , .
- , LOC -
.
- , LOC
128 , .
,LOC , ,
.
- ,LOC SEEK- .