Turbo Basic 1.1.


Turbo Basic 1.1. - . 169


---------

n- , (1 2)
--------- COM(n) ON -
, ON COM(n).
COM(n) ON - -
- -
. , -
, ON COM(n).
COM(n) OFF, n -
. 堠 ࠠ COM(n)
STOP; ,


- 95 -


COM(n) ON , .
COM $COM.
ON COM(n)

' COM(n).
' , COM1
' COM-
on com(1) gosub
' 5
dim (5*1024)
'
%=0
'
%=0
' COM-
com(1) on
' 1
$com1 1024
' , com1
open
open "com1" as#1
print ' "
'
while not instat
'
if %<>% then