PROGRAM Sample_Z ;  { Program in Pascal/Z to count to 10,000 }

{$L-, C-, M-, F-  (Disable all options for speed) }

 CONST
   Start_number  = 1 ;
   End_number    = 10000 ;
   Interval      = 1000 ;
   Bell          = 7 ;

 VAR
   Number  : Integer ;
   Go      : Char ;

BEGIN

 Writeln (Chr (Bell), 'Counting program in Pascal/Z') ;
 Writeln ;
 Write ('Press <RETURN> to start: ') ;
 Readln (Go) ;
 Writeln ;
 Writeln ('Counting ...') ;
 Writeln ;

 FOR Number := Start_number TO End_number DO
{ (Remove comment brackets from next two lines for version 2 of program) }
 { IF (Number MOD Interval) = 0 THEN
     Writeln (Number) } ;
  Writeln ;

  Writeln (Chr (Bell), 'Finished -- Good-bye') ;
  Writeln ;

END.

You are viewing proxied material from gopher.floodgap.com. The copyright of proxied material belongs to its original authors. Any comments or complaints in relation to proxied material should be directed to the original authors of the content concerned. Please see the disclaimer for more details.