Turbo Basic 1.1.


Turbo Basic 1.1. - . 255


. 堠 COM
--------- $COM
ON COM
' , DIM -
$ (1)
$COM1 1024 ' 1
OPEN "COM1" AS#1 LEN = 1
PRINT " ...."
WHILE NOT INSTAT '
' -
IF LOF (1) > 0 THEM
' .
$(0) = INPUT$ (1, LOF(1))

PRINT " -:", $(0)
END IF
WEND
END '



OPTION BASE
----------------------
OPTION BASE
-------------------- .
OPTION BASE
---------
0 32767.
---------- OPTION BASE , -
.-
, OPTION BASE 1, x
DIM x(20) 20
(1 20), 21, -
( 0 20).
OPTION BASE
, - -
DIM.
. DIM
--------------
'
------- DIM % (2)
'
OPTION BASE 1
'
DIM % (2)
FOR I% = 0 TO 2
' ; 0
IF I% > 0 THEN