Turbo Basic 1.1.


Turbo Basic 1.1. - . 293


A$=INKEY$
" 2
SCREEN,,2
PRINT " 2
WHILE NOT INSTAT:WEND
A$=INKEY$
"
SCREEN 2
CIRCLE (320,100),100,1
END


SEEK
---------------
SEEK
GET$ PUT$ .
SEEK [#] ,
--------------
SEEK , GET$ PUT$,
-
. BINARY.
SEEK -
LOG.

. 堠 LOG
---------
SUB
------ "SEEK 256
LOGAL I%
" /
OPEN"SEEK.DTA" FOR BINARY AS#1
"
FOR I% = 1TO 256
PUT$1, CHR$(I%-1)
NEXT I%
END SUB "
DEF FN $ (%,%)
"
LOGAL $,$,I%
"
SEEK 1, %
-180 -


I%=1
$=" "
" --
WHILE (NOT EDF(1) AND (I%<= %)
GET$1, I%, $