home *** CD-ROM | disk | FTP | other *** search
/ Vectronix 2 / VECTRONIX2.iso / FILES_07 / ACS_PRO.LZH / ASC / DEMO_PP.PRG / HELLO / HELLOM.PAS < prev    next >
Pascal/Delphi Source File  |  1993-01-09  |  468b  |  34 lines
  1. {
  2.     Hello World for PurePascal - UNIT -
  3.     (c) 1992  Stefan Bachert
  4.     überarbeitet von Michael Schlüter (@SL)
  5.     Letzte Bearbeitung: 07.01.1993
  6. }
  7.  
  8. UNIT HELLOM;
  9.  
  10. {$X+}
  11.  
  12. INTERFACE
  13.  
  14. USES GEM, ACS;
  15.  
  16. {$I HELLO.I}
  17.  
  18. PROCEDURE call_ok;
  19. BEGIN
  20.     A_dialog (@About_me);
  21. END;
  22.  
  23. FUNCTION hello_make (para: POINTER): AwindowPtr;
  24. VAR        wi    : AwindowPtr;
  25. BEGIN
  26.     wi := Awi_create (@HELLO);
  27.     IF wi <> NIL THEN
  28.         wi^. open (wi);
  29.     hello_make := wi;
  30. END;
  31.  
  32. BEGIN
  33. END.
  34.