! File: example3.tri
! Author: Judy Franklin and Ex 1.10 of text
! Desc: Use records and a procedure to demonstrate Triangle programming
! Note: Exclamation mark is a comment
let
    type Date ~ record
                   m: Integer, d: Integer
                end;
    proc ChangeMonth (var month : Integer) ~
        begin
            month := month - 1;
            putint(month);
            puteol()
        end;
    var today : Date;
    var J;
    var I := 31 - 3
   
in
  begin

    today.d := 14;
    today.m := 6;

    putint(today.m);
    puteol();
    repeat
        ChangeMonth(var today.m)
    until (today.m = 1);

    for J from 5 to 10 do
        begin
           case I of
              5:  putint(0);
              6:  putint(1);
              else: putint(I)
           puteol();
           I := J
        end
  end