home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / PP002.ZIP / EX4.PRG < prev    next >
Text File  |  1991-10-16  |  297b  |  17 lines
  1. Program EX4;
  2. {
  3.   Same as EX3, but re-written to use a for loop
  4. }
  5. var
  6.   a : byte;
  7. begin
  8.   for a := 65 to 90 do
  9.   begin
  10.     Write(A);                      { Write the value }
  11.     Emit(32,32,32,32,A,13,10);     { Write "   ", the character, then CR/LF }
  12.   end;
  13.   emit(13,10);
  14. end.
  15.  
  16. .
  17.