home *** CD-ROM | disk | FTP | other *** search
/ Vectronix 2 / VECTRONIX2.iso / FILES_07 / ACS_PRO.LZH / ASC / DEMO_PP.PRG / DEPEND / DEPEND.PAS < prev    next >
Pascal/Delphi Source File  |  1993-01-09  |  897b  |  31 lines
  1. {    Beispielapplikation für ACS
  2.     "Depend" - Abhängige Fenster
  3.     12.02.92 Stefan Bachert (Pure C)
  4.     04.01.93 Michael Schlüter (Pure Pascal)
  5.     Letzte Änderung: 04.01.93
  6. }
  7.  
  8. PROGRAM depend;
  9.  
  10. {$X+}
  11.  
  12. USES ACS, DEPENDM;
  13.  
  14. { ----------------------------------------------------------------- }
  15. { ACS Initialisieren und NEU-Ikon auf den Desktop legen                }
  16. { ----------------------------------------------------------------- }
  17. FUNCTION init_acs: INTEGER;
  18. BEGIN
  19.     slavew := slave_make(NIL);
  20.     IF slavew <> NIL THEN                    { Wenn alles klar }
  21.         init_acs := OK                        { NEU-Ikon angelegt }
  22.     ELSE
  23.       init_acs := FAIL;                        { Das ging daneben }
  24. END;
  25.  
  26. { ----------------------------------------------------------------- }
  27. { Hauptprogramm                                                        }
  28. { ----------------------------------------------------------------- }
  29. BEGIN                                        { ACS }
  30.     start_acs (init_acs, @ACSdescr);        { und los }
  31. END.