CP/M/CPM_CDROM.iso/mbug/mbug022.arc/EFFECT2.I

Text File | 1979-12-31 | 1KB | 41 lines

procedure Effect (OnInt, OffInt, OnInc, OffInc, Duration : Integer);
var
  Ton, Toff : Integer;

begin
  if not (((OnInc <0 ) and (Abs(OnInc) * Duration >= OnInt)) or
  ((OffInc < 0) and (Abs(OffInc) * Duration >= OffInt))) then
    begin
      Ton := OnInt;
      Toff := OffInt;
      Inline($ED/$4B/OnInc/
             $ED/$5B/OffInc/
             $2A/Duration/
             $E5/
             $3E/$F8/
             $2A/Ton/
             $09/
             $22/Ton/
             $D3/$02/
             $2B/
             $7D/
             $B4/
             $20/$FB/
             $3E/$B8/
             $2A/Toff/
             $19/
             $22/Toff/
             $D3/$02/
             $2B/
             $7D/
             $B4/
             $20/$FB/
             $E1/
             $2B/
             $7D/
             $B4/
             $20/$D9)
         end

end;