Turbo Basic 1.1.


Turbo Basic 1.1. - . 199


' .
SUB (%,%)
SELECT CASE %
CASE 1
' CASE -
'
SELECT CASE %
CASE<0
PRINT " "
' SELECT CASE
EXIT SELECT
CASE >0
PRINT " "
EXIT SELECT
CASE ELSE
PRINT " "
END SELECT
EXIT SUB
CASE 2
IF %<0 THEN
PRINT " "
EXIT IF
ELSEIF %>0 THEN
PRINT " "
EXIT IF
ELSE
PRINT " "
ENDIF
END SELECT PRINT " 2"
END SUB
DEF FN (%)
' , EXIT -
' . ,
' EXIT
' .
'EXIT .EXIT DEF
' . -
' .
'
FN=-1
SELECT CASE %
CASE 1
' EXIT , , ,
'
FOR I%=1 TO 32767
PRINT RND(%)
EXIT FOR