home *** CD-ROM | disk | FTP | other *** search
/ CP/M / CPM_CDROM.iso / simtel / sigm / vols000 / vol080 / sample-m.pas < prev    next >
Pascal/Delphi Source File  |  1984-04-29  |  732b  |  35 lines
  1. PROGRAM Sample_M ;  { Program in Pascal/M to count to 10,000 }
  2.  
  3. {$D-  (Disable "Debug" option for speed) }
  4.  
  5.   CONST
  6.     Start_number  = 1 ;
  7.     End_number      = 10000 ;
  8.     Interval      = 1000 ;
  9.     Bell      = 7 ;
  10.  
  11.   VAR
  12.     Number  : Integer ;
  13.     Go        : Char ;
  14.  
  15. BEGIN
  16.  
  17.   Writeln ('Counting program in Pascal/M') ;
  18.   Writeln ;
  19.   Write ('Press <RETURN> to start: ') ;
  20.   Readln (Go) ;
  21.   Writeln ;
  22.   Writeln ('Counting ...') ;
  23.   Writeln ;
  24.  
  25.   FOR Number := Start_number TO End_number DO
  26. { (Remove comment brackets from next two lines for version 2 of program) }
  27.   { IF (Number MOD Interval) = 0 THEN
  28.       Writeln (Number) } ;
  29.   Writeln ;
  30.  
  31.   Writeln (Chr (7), 'Finished -- Good-bye') ;
  32.   Writeln ;
  33.  
  34. END .
  35.