Turbo Basic 1.1.


Turbo Basic 1.1. - . 252


END SUB ' " "
SUB
-------------------------
, -
, .
$=FN $(" ")
'
OPEN"OPEN.DTA" FOR INPUT AS#1
' LINE INPUT#
LINE INPUT #1,$
PRINT $
' INPUT$ -

$=" "
WHILE NOT EOF(1) '
$ = $ + INPUT$(1,1)
WEND

PRINT $
CLOSE 1 '
$=FN $(" ")
END SUB '
SUB
' /.
' GET$.
'SEEK -
- .
$ = FN $ ( )
' ,
OPEN "OPEN.DTA" FOR BINARY AS#1
$=" "
GET$
WHILE NOT EOF (1)
GET$ 1,1 $
$ = $ + $
WEND
PRINT $
'
SEEK 1, LOF (1)
'PUT$
FOR I% = 1 TO LEN ($)
PUT$ 1, MID$ ($,I%,1)
NEXT I%
CLOSE 1 '
$ = FN $ (" ")
END SUB '
SUB
' /.
' FIELD , -