Calculate Easter's Date

Found this (Pascal?) code to calculate Easter's date. How would this look in 4gl? What is rem? integer year, a, b, c, d, e, x, y, t ; outtext ("Which year (Enter 0 to stop) ? ") ; breakoutimage ; year := inint ; while year <> 0 do begin a := rem (year, 19) ; b := rem (year, 4) ; c := rem (year, 7) ; if year < 1700 then error ("Year too small") else if year < 1800 then begin x := 23 ; y := 3 end else if year < 1900 then begin x := 23 ; y := 4 end else if year < 2100 then begin x := 24 ; y := 5 end else if year < 2200 then begin x := 24 ; y := 6 end else if year < 2300 then begin x := 25 ; y := 0 end else error ("Annee trop grande") ; d := rem (19 * a + x, 30) ; e := rem (2 * b + 4 * c + 6 * d + y, 7) ; t := d + e + 22 ; outtext ("In ") ; outint (year, 0) ; outtext (" Easter is on ") ; if t <= 31 then begin outint (t, 0) ; outtext (" March") end else begin t := t - 31 ; if t = 26 then t := 19 ; if t = 25 and d = 28 and e = 6 and a > 10 then t := 18 ; outint (t, 0) ; outtext (" April") end ; outimage ; outimage ; outtext ("Which year ? ") ; breakoutimage ; year := inint end end Louis DeLongchamp loudelon@ViaNet.on.ca