Turbo Basic 1.1.


Turbo Basic 1.1. - . 282


- -
. ,
( 2 ).
,
, ..
.
READ ,
, - 4
, .
RESTORE -
DATA.
.堠 RESTORE
---------
" READ
------- SUB ( $, %)
LOCAL %, %,,I%
% = 0
READ $
FOR I% = 1 TO 10
READ %
% = % + %
NEXT I%
% = %\10
END SUB
FOR % = 1 TO 3
CALL ( $, %)
PRINT USING "& ###";C $, %
NEXT %
END


RFG
------------------------

REG
.
y=REG(), y=REG ,
----------


---------

-173 -


---------------------------------------------------------------------
𠠠