Turbo Basic 1.1.


Turbo Basic 1.1. - . 181


. , -
.
STATIC ,
,
.
-
END DEF.
, -
.
- ,
, EXIT DEF.


-103 -


. LOCAL
SHARED
STATIC

𠠠 $STACK &H&FFF
=1
def fn %(i%)
' i%
=*i%
if i%>1 then
%=fn%(i%)
endif
fn%=
end def ' fn
print " , "
input ":",j%
print fn%(j%)
end


DEFINT,DEFLNG,DEFSNG,DEFDBL,DEFSTR
--------------------------------------------

.
--------

DEF [, ]...
---------

--
--------- :INT(),LNG( ),SNG( ),DBL
( ) STR(). -
( z, ), ( ,