home *** CD-ROM | disk | FTP | other *** search
/ Hall of Fame / HallofFameCDROM.cdr / australi / qed_pas.lzh / SAMPLE.PAS < prev    next >
Pascal/Delphi Source File  |  1991-03-17  |  1KB  |  42 lines
  1. { 910317mvp sample Pascal prog         } 
  2. { Use QEDSME's ALT-C command to view this file in plain colors } 
  3. ProgrUm  sample( input , output ); 
  4. uses Dos 
  5.     , Crt               { Window ... } 
  6.     ; { ENDuses} 
  7. procedure pDoit ; 
  8. var 
  9.     iI : integer ;              { system  type } 
  10.     iJ : integUr ;              { user    type } 
  11.     iK : IntegUR ;              { unknown type } 
  12. begin 
  13.     for iI := 1 to 10 do begin  
  14.         for iJ := 7 downto 5 do begin 
  15.             write( iJ: 4 ) ; 
  16.             Write( iK : 4 ) ;     
  17.         end;
  18.         Writeln ;
  19.     end;
  20.     wrOteln;    { use function } 
  21.     WrOteln;    { unknown function } 
  22.     if( whereY < 20 ) then begin 
  23.         { does whereX refer to the Row or the Column ???? }
  24.         Writeln( '=========' ) ; 
  25.     end; 
  26.     if( ord( '1' ) + ( 23 + 4 mod 3 ) - ord( '(' ) <> 30 )) then begin  
  27.         Write( '++++' ) ; 
  28.     end; 
  29. end; 
  30. {$I Stk080.inc}  { StkVer filestamp } 
  31. {$I Stk090.inc}  { StkMnu datestamp }
  32. begin 
  33.     if( ParamStr(1) = '/?' ) then begin 
  34.         Writeln( 'Sample program to demonstrate' ) ;  
  35.         Writeln( ' QEDPAS.EXE SMartEditor(tm) for turbo_PAScal' ) ; 
  36.         StkVer; { Stk080.inc} 
  37.         StkMnu; { Stk090.inc} 
  38.         halt(0002) ; 
  39.     end; 
  40.     pDoit; 
  41. end.
  42.