Turbo Basic 1.1.


Turbo Basic 1.1. - . 141


ON (.),
.
, $EVENT OFF (.)
.
$EVENT ,
. - , -
,
, $EVENT OFF
$EVENT ON.
: '
ON TIMER(1) gosub
timer on
print " "
x=
for i=1 to 10000
timer on
print " "
x=
for i=1 to 10000
i=i+i-i
next i
y=
print " " y-x
$event off
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
------------------------------
$IF,$ELSE $ENDIF , -
-------- (
).
$IF
--------- .
.
.
[$else
.
.]
.
$ENDIF
- .
--------- (TRUE), $IF $ELSE