Turbo Basic 1.1.


Turbo Basic 1.1. - . 208


.
BINARY. GET$
.
GET$,PUT$ SEEK -
,
.

. OPEN
PUT$
SEEK

𠠠 SUB
'GET$ 256
LOCAL I%
OPEN "GET.DTA" FOR BINARY AS #1
FOR I%=0 TO 256
-122 -


PUT$ #1,I%,CHR$(I%)
NEXT I%
END SUB
DEF FN$(%,%)
LOCAL $,$,I%
SEEK 1,%
GET$ #1,%,$
FN$=$
END DEF
CALL
PRINT " [0...255] "
PRINT " [0...255]
PRINT " ",%,%
PRINT FN $(%,%)
END


GOSUB
--------------

GOSUB
-------

GOSUB
---------

GOSUB - ,-
--------- ,
. RETURN -
, GOSUB . -
,
.

. DEF FN
SUB