Turbo Basic 1.1.


Turbo Basic 1.1. - . 184


def fn %
local %
print " ?"
input "[1 ,2 ]",%
select case %
case 1
fn %=&HB000
case 2
fn %=&HB800
end select
end def
def seg=fn%
for i%=0 to 4000 step 2
poke i%,asc("A")
next i%
end


DELAY
--------------

DELAY
-------


-105 -



DELAY
---------

- , ,-
--------- - -
.:DELAY , -
0.054.
DELAY , ,
, (..
8088 80286, 6 -
8).

print " "
while not instat
locate 10,30
print time$
delay 5
wend
end


DIM
------------

DIM
-------

DIM{static!dynamic}(頠 )[,-
--------- ( )]...
DIM {static!dynamic}(:)[,:]...)[,-
(:)[,:]...)]...