Turbo Basic 1.1.


Turbo Basic 1.1. - . 170


'
print "- :";(%)
'
%=%+1
end if
locate 2.1
print time$
wend
end
' -
:
' -
input#1.(%)
'
%=%+1
return
:' -
print " ..."
end


COMMAND$
----------------

COMMAND$ ,
------- DOS

s$=COMMAND$
---------

COMMAND$ , DOS-,
-------- , (-
, "").-
COMMAND$ ,
. ,,DOS-:
FASTSORT cust.dta cust.new
FASTSORT ( ) - .EXE -
. FASTSORT ,COMMAND$ ,
DOS ,.. -


- 96 -


"cust.dta cust.new". (
COMMAND$ 1 2 1
2) FASTSORT.
, COMMAND$ ,