PROGRAM FARG;
(* Ett program av Magnus Nilsson *)
(* Visar hur man kan f} f{rger i PASCAL 800-program *)
VAR A,B : INTEGER;
BEGIN
 FOR A:=1 TO 30 DO
  BEGIN;
  B :=  A + 128;
  WRITE(CHR(B));
  WRITE('MAGNUS ')
  END;
END.