// Effectus auto-generated Mad Pascal source code listing
program rainbowPrg;

uses
  Crt, StringUtils, Graph;

var
  eff_loop_var : byte;
  eff_cnt : byte;
  eff_string : string;
// Effectus example:
// Rainbow graphics demo
// **********************************************************************
// *                                                                    *
// * PhoeniX SoftCrew  ACTION! Programme                                *
// **********************************************************************
// Programmname    :Rainbow
// Filename        :RAINBOW.ACT
// von             :Carsten Strotmann
// letzte Aenderung:12.10.91
// Bemerkung       :fuer M.Heinzig

procedure RAINBOWProc;
var
  vcount : byte absolute $D40B;  // vcount_byte_array
  wsync : byte absolute $D40A;  // wsync_byte_array
  rtclok : byte absolute $14;  // rtclok_byte_array
  getcolor : byte absolute $D018;  // getcolor_byte_array
  u : byte absolute $7;  // u_byte_array
  ch : byte absolute 764;  // ch_byte_array
begin
  ch := $FF;
  repeat
  wsync := u;
  getcolor := vcount+rtclok;
 UNTIL ch<>$FF;
end;

begin
  RAINBOWProc;
end.
