home *** CD-ROM | disk | FTP | other *** search
/ Vectronix 2 / VECTRONIX2.iso / FILES_07 / ACS_PRO.LZH / ASC / DEMO_PP.PRG / HELLO / HELLO.PAS < prev    next >
Pascal/Delphi Source File  |  1993-01-09  |  584b  |  33 lines
  1. {
  2.     Hello World for PurePascal
  3.     (c) 1992  Stefan Bachert
  4.     überarbeitet von Michael Schlüter (@SL)
  5.     Letzte Bearbeitung: 01.01.1993
  6. }
  7.  
  8. PROGRAM hello_world;
  9.  
  10. {$X+}
  11.  
  12. USES ACS, HELLOM;
  13.  
  14. FUNCTION init_acs: INTEGER;
  15. VAR        wi        : AwindowPtr;
  16. BEGIN
  17.     wi := Awi_root;                            { root window }
  18.     IF wi <> NIL THEN
  19.     BEGIN
  20.         wi^.service (wi, AS_NEWCALL, @@HELLO.create);
  21.         wi := @HELLO;
  22.         wi^.create (NIL);                    { sofort ein Fenster erzeugen }
  23.         init_acs := OK;
  24.     END
  25.     ELSE
  26.     BEGIN
  27.       init_acs := FAIL;
  28.     END;
  29. END;
  30.  
  31. BEGIN                                        { ACS }
  32.     start_acs (init_acs, @ACSdescr);
  33. END.