Turbo Basic 1.1.


Turbo Basic 1.1. - . 176


field#1,4 as $,as $
for i=1 to 5 '
'
lset $=mkms$(i)
lset $=mkmd$(i^i)
put #1.1
next i
for i=1 to 5
get #1,1
print cvms($),cvmd($)
next i%
print cvs(x$),cvms(x$)
close #1
end


DATA
-------------

DATA READ.
-------

DATA [,]...
---------

- .
--------- -
.
, ( -


-100 -


) , -
.:
DATA ,.79, ,2.29,.29
DATA -
.
,
READ
DATA , -
. , DATA
READ -
; 2 ( -
).
, ,