Turbo Basic 1.1.


Turbo Basic 1.1. - . 147



, .
. ERASE
-.
, $STATIC , -
, STATIC, -
. -
-$STATIC.
C.
DIM
$DYNAMIC
/ؠ print " "
x=
for i=1 to 10000
i=i+i-i
next i
y=
print " " y-x
end
:


- 76 -
for j=1 to 1000:j=j+j-j:next j:print
return
$IF/$ELSE/$ENDIF
------------------------------
",fre(-1)
'
erase a
print " ",fre(-1)
' , ,
'
erase b
print " ",fre(-1)
' ,
end
ABS
-----------
ABS
-------
Y=ABS( )
---------
ABS .
--------- X .-
, -3 3; +3 3 .
𠠠 'ABS , .
------- '
'