You might be able to use this, I had to use this a while ago.....you input a number and it writes that amount of asterisks, I know it's not whatyour looking for but sometimes that little bit of a clue can help one all they need, right ?
PROGRAM asterisks (INPUT,OUTPUT);
USES WINCRT
VAR
number, count :integer;
BEGIN
count :=0;
WRITE('enter number 1 - 60');
READ(number);
clrscr;
while count < number do
begin
write ('*');
count := count +1;
end;
end.
I know that is nothing like what your looking for, but maybe a small part of it helps.
Lee
P.S - If you find out how, I wouldn't mind seeing how you did it if you have time
