home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / PP002.ZIP / SAMPLE2.PRG < prev   
Text File  |  1993-04-23  |  446b  |  28 lines
  1. Program Sample1;
  2. {
  3.   Sample program to show off KISS15 - a simple compiler for Pascal/2
  4. }
  5.   procedure demo;
  6.   begin
  7.     WriteLn('Inside Demo!');
  8.   end;
  9.  
  10. var
  11.   a,b : integer;
  12. begin
  13.   WriteLn('Sample program to demonstrate Power Pascal');
  14.   Write('Sample ASCII String: ');
  15.  
  16.   for a := 65 to 90 do
  17.     Emit(A);
  18.  
  19.   WriteLn;
  20.  
  21.   WriteLn('We will now call "demo" ');
  22.  
  23.   Demo;
  24.  
  25.   WriteLn('That wasn''t so bad, was it?');
  26. end.
  27.  
  28.