home *** CD-ROM | disk | FTP | other *** search
/ Vectronix 2 / VECTRONIX2.iso / FILES_07 / ACS_PRO.LZH / ASC / DEMO_PP.PRG / HELLO / HELLO1.PAS < prev    next >
Pascal/Delphi Source File  |  1993-01-13  |  403b  |  24 lines
  1. Program Hello1;
  2.  
  3. uses GEM, ACS;
  4. {$I HELLO1.I}
  5.  
  6. Function ACSinit: Integer;
  7. Var
  8.     proto: AwindowPtr;
  9.     strng: packed array [0..11] of char;
  10.     di: Integer;
  11. Begin
  12.     proto := get_protocol^. create (NIL);
  13.     If (proto <> NIL) Then Begin
  14.         di := proto^. open (proto);
  15.         strng := 'Hello World'#0;
  16.         wputs (@strng, proto);
  17.     End;
  18.     ACSinit := OK;
  19. End;
  20.  
  21. Begin
  22.     start_acs (ACSinit, @ACSdescr);
  23. End.
  24.