FULLDB version 1.3
Submitted By:
Unknown
Rating:
(Not rated) (
Rate It)
program demo;
{ Demo program for FULLDB. Compile normally, then single step into
the assembler routines wordcount and getword! }
{ NB: See the special instructions to recompile PARSE.PAS and reassemble
PARSE.ASM if PARSE.TPU or PARSE.OBJ is missing, or if you're using
other than TP 6.0. }
uses parse;
var
s : string;
w : word;
begin
s := ' This sentence has 5 words';
writeln(wordcount(s));
for w:=0 to 6 do
writeln('w = ',w,' length = ',length(getword(w,s)),' word = ',getword(w,s));
end.
