Turbo Basic 1.1.


Turbo Basic 1.1. - . 205


DIM DYNAMIC (10000)
(6666)=66
' , ,
s$="abc...z"
PRINT FRE(" "),FRE(-1),FRE(-2)
' , -

PRINT (6666)
END
:
PRINT " "ERR" "ERADR
END


GET ()
--------------------

GET .
-------

GET [#][,]
---------

- , , -
--------- 1 16777215 ---------
-120 -


, (
GET PUT).

OPEN "GET.DTA" 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% TO 5
LSET $=MKI$(I%)
LSET $=MKL$(I%+CLNG(%))
LSET $=MKS$(CSNG(I%*CSNG(%)))
LSET $=MKD$(%^I%)
PUT #1,I%
NEXT I%
FOR I%=1 TO 5
GET #1,I%
PRINT CVI(A$),CVL(B$),CVS(C$),CVD(D$)
NEXT I%
CLOSE #1
END


GET ()
----------------------

GET