home *** CD-ROM | disk | FTP | other *** search
/ CP/M / CPM_CDROM.iso / simtel / sigm / vols000 / vol080 / sample-z.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1984-04-29  |  758 b   |  35 lines
  1. PROGRAM Sample_Z ;  { Program in Pascal/Z to count to 10,000 }
  2.  
  3. {$L-, C-, M-, F-  (Disable all options 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 (Chr (Bell), 'Counting program in Pascal/Z') ;
  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 (Bell), 'Finished -- Good-bye') ;
  32.    Writeln ;
  33.  
  34. END.
  35.