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