%%%
  VERSION:1
  LANGUAGE:ENGLISH
%%%

MODULE CALPEND(SYSMODULE)

	! $Revision: 1.5 $

  !
  !CalPendelum
  !
  PROC CalPendelum()
    CalPendelumProc;
  ENDPROC

  PROC CalPendelumProc()
    VAR num TPReadDummy;
    VAR bool bDummy;

    Load \Dynamic, "RELEASE:" \File:="options/calpend/calpend_proc.sys";
    %"PendelumProc"%;
    bDummy:=TRUE;
    WHILE bDummy DO
      %"CalPerformed"%bDummy;
    ENDWHILE
    UnLoad "RELEASE:" \File:="options/calpend/calpend_proc.sys";
    EXIT;

  ENDPROC  
 ENDMODULE


