home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / PP002.ZIP / SAMPLE.PRG < prev    next >
Text File  |  1993-04-22  |  279b  |  17 lines
  1. Program Sample1;
  2. {
  3.   Sample program to show off KISS15 - a simple compiler for Pascal/2
  4. }
  5. var
  6.   a,b : integer;
  7. begin
  8.   WriteLn('Sample program to demonstrate Power Pascal');
  9.   Write('Sample ASCII String: ');
  10.  
  11.   for a := 65 to 90 do
  12.     Emit(A);
  13.  
  14.   WriteLn;
  15. end.
  16.  
  17.