Turbo Basic 1.1.


Turbo Basic 1.1. - . 177


.
RESTORE -
DATA. -
READ , ,
4 ( ).

DATA
----------- . (') -
DATA, - -
, -
.:
"","" "' ."
, , :REM:

.堠 READ
RESTORE

𠠠 ' DATA
sub ($,%)
local %,%,i%
%=0
read $
for i%=1 to 10
read %
%=%+%
next i%
%=%\10
end sub
for %=1 to 3
call ($,%)
print using "&'s ###";$,%
next %
end
:
DATA .,78,65,35,79,86,93,79,85,99,96
DATA . ,98,94,70,88,99,100,75,96,100,95
DATA .,65,59,75,82,56,79,82,76,69,89


DATE$
--------------------------

DATE$ .
-------

DATE$=s$ ( s$)