Turbo Basic 1.1.


Turbo Basic 1.1. - . 175


open "r",#1,"cvsld.dta",18
field #1,2 as $,4 as $,4 as $,8 as
$
%=32767
' ,
'
for i%=1 to 5


- 99 -


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($),cvl($),cvs(-
$),cvd($)
next i%
clise#1
end



CVMD,CVMS
-----------------


CVMD CVMS ,
------- , .

y!=CVMS(4- )
--------- y#=CVMD(8- )

CVMS (Convert Microsoft Singl-precision string) 4--
--------- ,
, 堠 IEEE --
.CVMD(Convert Microsoft Double -precision string) 4-
, IEE --
.
.

𠠠 '
open "cvmd.dta" as#1 len=12