Turbo Basic 1.1.


Turbo Basic 1.1. - . 280


LOOP
-171 -


: "
DIM % (143)
"
SCREEN 1
CIRCLE (16,16),8,2 "
GET(0,0) - (31,31), % "
"
FOR I% = 0 TO 9
PUT (I%*32,100), %
NEXT I%
END

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

OPEN "BASIC.DOC" FOR BINARY AS1
------- PUT$ #1,BASIC - - 99%
PUT$#1, " 1% "
CLOSE#1
END


RANDOMIZE
--------------------
RANDOMIZE .
------------------
RANDOMIZE [ ]
--------------------
,

RANDOMIZE.
RANDOMIZE NUMBER SEED?
( )
.

. RND, -
; RND
- .