Turbo Basic 1.1.


Turbo Basic 1.1. - . 289


NEXT I!
END


-177 -


RSET
----------------
RSET .
RSET =
---------
RSET LSET " -
", FIELD , -
. -
, FIELD, -
RSET . -
,
, RSET LEN ( ) -
, FIELD.
LSET (
)
RSET -
:
a$ = $(20)
RSET a$ = " "
PRINT a$
. LSET
---------
OPEN "RSET.DTA"AS#1 LEN = 18
------- "
FIELD 1,2 AS $, 4AS $, 4 AS
$, 8 AS $
"

FOR %=1 TO 5
RSET $=MKI$( %)
RSET $=MKL$(%^2)
RSET $=MKS$(%^2.1)
RSET $=MKD$(%^4.4)
PUT1, %
NEXT %
CLOSE 1 "