Turbo Basic 1.1.


Turbo Basic 1.1. - . 201


NEXT I
END


FIELD
--------------

FIELD
------- .

FIELD [#], AS .
---------

- , , ,-
--------- , , -
- .
FIELD -
" ". -
RSET LSET.

, FIELD,
----------- .
, -
.
-117 -


. LSET
RSET

OPEN "FIELD.DTA" FOR OUTPUT AS #1 LEN=18
FIELD #1,2 AS $,4 AS $,4 AS -
$,8 AS $
FIELD #1,2 AS A$,4 AS B$,4 AS C$,8 AS D$
%=32767
FOR I%=1 TO 5
LSET ;=MKI$(I%)
LSET $=MKL$(I%+CLNG(%))
LSET $=MKS$(CSNG(I%*CSNG(%)))
LSET $=MKD$(%-I%)
PUT #1,I%
NEXT I%
FOR I% TO 5
GET #1,I%
PRINT CVI(A$),CVL(B$),CVS(C$),CVD(D$)
NEXT I%
CLOSE #1
END


FILES
--------------

FILES ( DIR - DOS).