home *** CD-ROM | disk | FTP | other *** search
/ Simtel MSDOS 1992 June / SIMTEL_0692.cdr / msdos / modula2 / mod2src.arc / SMALLREC.MOD < prev    next >
Encoding:
Text File  |  1987-02-09  |  1010 b   |  39 lines
  1.                                         (* Chapter 11 - Program 1 *)
  2. MODULE SmallRec;
  3.  
  4. FROM InOut   IMPORT WriteString, WriteCard, WriteLn;
  5.  
  6. TYPE Description = RECORD
  7.        Year   : CARDINAL;
  8.        Model  : ARRAY[0..20] OF CHAR;
  9.        Engine : ARRAY[0..8] OF CHAR
  10.        END;
  11.  
  12. VAR  Cars  : ARRAY[1..10] OF Description;
  13.      Index : CARDINAL;
  14.  
  15. BEGIN   (* Main Program *)
  16.    FOR Index := 1 TO 10 DO
  17.       Cars[Index].Year := 1930 + Index;
  18.       Cars[Index].Model := " Duesenberg";
  19.       Cars[Index].Engine := "V8";
  20.    END;
  21.  
  22.    Cars[2].Model := " Stanley Steamer";
  23.    Cars[2].Engine := "Coal";
  24.    Cars[7].Engine := "V12";
  25.    Cars[9].Model := " Ford";
  26.    Cars[9].Engine := "rusted";
  27.    Cars[9].Year := 1981;
  28.  
  29.    FOR Index := 1 TO 10 DO
  30.       WriteString('My');
  31.       WriteCard(Cars[Index].Year,5);
  32.       WriteString(Cars[Index].Model);
  33.       WriteString(" has a ");
  34.       WriteString(Cars[Index].Engine);
  35.       WriteString(' engine.');
  36.       WriteLn;
  37.    END;
  38. END SmallRec.
  39.