Turbo Basic 1.1.


Turbo Basic 1.1. - . 278


, 1
16777216.
PUT GET -
. -
. , - -
, PUt GET, 1.

"
OPEN "GET.DTA" AS#1 LEN=18
"
-170 -


FIELD #1, 2AS $, 4AS $,4AS
$, 8AS $
FIELD#1,2AS A$, 4AS B$, 4AS C$, 8AS D$
. % = 32767
FOR I% = 1 5 "
"

LSET $ = MKI$ (I%)
LSET $ = MKI$(I%=CLNG ( %))
LSET $=MKS$ (CSNG(I%*CSNG( %)))
LSET $ = MKD$(% ^ I%)
PUT#1,I%
NEXT I%
FOR I% = ! 5
GET #1,I%
PRINT CVI (A$),CVL(B$), CVS(C$), CVD(D$)
NEXT I%
CLOSE#1
END

PUT ()
-----------------------
PUT -
.
PUT(x,y), [,]
----------
( x,y ) - -
, ; -
, . - -
, .