Turbo Basic 1.1.


Turbo Basic 1.1. - . 241


.
:
ERROR :
()

. 堠 ERADR
---------- ERL
ERR
ERROR
RESUME

'
-------- ON ERROR GOTO
WHILE I '
-146 -


I =10/0 '
WEND

------------------
PRINT " "
PRINT ERR, " " ERL
END


ON/GOSUB
-------------------

ON/GOSUB
---------------- .

ON n GOSUB [,]....
----------

n - 0 255,
---------- . n
( n=4, -
). n 0 ,
, - .
RETURN
,
ON/GOSUB.

SELECT IF-, , ON/GOSUB.

FOR I% = 1 TO 3
------ ON I% GOSUB , ,