Turbo Basic 1.1.


Turbo Basic 1.1. - . 143


print " "


- 77 -
print " "
print " 3500 "
print
print " "
print " ,95066"
print "-------------------------------------------------"
$include "CONST.BAS"
input " ",r
print " ="pi*r*r
CONST.BAS
'
pi=ANT(1)*4
%=-1
%=0
%X=319
%Y=199
CALCAREA "
", $INCLUDE .
, -
(. ). -
, CALCAREA ( ).( -
. " " .3)
$INCLUDE 7
CALCAREA , CONST.BAS .
, -
.
$INCLUDE 5;.
$INCLUDE.
' "example.inc"
-------- sub '
print ""
end sub
'
$include "example.inc" '
call
end
$INLINE
---------------------
$INLINE -