TP3/Resources/TPLESSN1/PROG10.PAS

PROGRAM PROG10;
{$U+      Copyright (C), 1985 by Lyle Faurot.  All rights reserved.

    New Topics: WHILE statement
                CONST declaration
                Delay timing loop

}
CONST
  Wobble_Size = 5;
  Left_Edge   = 10;
  Message     = ', the Great Pascal Programmer!';

VAR
  Index, Count, Delay   : Integer;
  First, Last           : Char;

BEGIN
  Write('Enter your first initial: ');
  ReadLn(First);
  Write('Enter your last initial: ');
  ReadLn(Last);

  Write('Enter a positive number less than 8: ');
  ReadLn(Count);
  If Count > 8
     THEN Count := 8;

  WHILE  Count > 0  DO
    BEGIN
     Count := Count - 1;
       FOR Index := 1 to Wobble_Size DO
         BEGIN
           WriteLn(':  ':Left_Edge, First:Index, Last:2, Message);
           FOR Delay := 1 to 500 DO {Do nothing, except loop};
         END;

       FOR Index := Wobble_Size DownTo 1 DO
           WriteLn(':  ':Left_Edge, First:Index, ' ',Last, Message);
    END; {WHILE}
END.