AIFPORTOPEN problem -- I followed the examples in the AIF manual (programming examples) on how to open a port. Something isn't right. Here's the example: $sysintr 'sysintr.pub.sys'$ procedure GETPRIVMODE ; intrinsic; procedure HPGETPROCPLABEL ; intrinsic; procedure GETUSERMODE ; intrinsic; $sysintr 'aifintr.pub.sys'$ procedure AIFPORTOPEN ; intrinsic; PROCEDURE aif_port_open(var overall_status:status_type; var proc_number :shortint); label 999; begin GETPRIVMODE; overall_status.all := 0; portname := 'chatport1'; portpass := 'chatpass'; accessmode := 1; itemnum_ports := init_itemnum_array; item_ports := init_item_array; item_status_ports := init_item_status_array; createoptions := 2; maxmsgsize := 80; itemnum_ports [1] := 11201; item_ports [1] := addr(createoptions); itemnum_ports [2] := 11202; item_ports [2] := addr(maxmsgsize); proc_name := '#PORTHANDLER#'; proc_file := '#ASYNC1#'; user_id := 0; HPGETPROCPLABEL(proc_name, createhandler, overall_status, proc_file, False); if overall_status.all <> 0 then begin proc_number := 1; goto 999; end; itemnum_ports [3] := 11206; item_ports [3] := addr(createhandler); itemnum_ports [4] := 11207; item_ports [3] := addr(createstate); port_id1 := 0; port_id2 := 0; port_id1 := AIFPORTOPEN(overall_status, portname, portpass, accessmode, user_id, itemnum_ports, item_ports, item_status_ports); All parameters are defined in the Pascal program correctly. However, when I compile the program I get this syntax error: pasxl aifports.source,aifports.nmobj,$null PAGE 1 HP PASCAL/iX HP31502A.05.01 COPYRIGHT HEWLETT-PACKARD CO. 1986 SUN, NOV 9, 2003, 5:39 PM FILE: AIFPORTS.SOURCE.E3K 31 97.000 1 port_id1 := AIFPORTOPEN(overall_status, ^ **** ERROR # 1 INVALID USE OF PROCEDURE OR FUNCTION IDENTIFIER (202) NUMBER OF ERRORS = 1 NUMBER OF WARNINGS = 0 PROCESSOR TIME 0: 0: 0 ELAPSED TIME 0: 0: 0 NUMBER OF LINES = 116 LINES/MINUTE = 15398.2 NUMBER OF NOTES = 0 pascalxl.PUB.SYS "",7 Program terminated in an error state. (CIERR 976) ERRORS IN COMPILE setjcw jcw=fatal Unless a CONTINUE is in effect, the remainder of the current UDC will be flushed. (CIWARN 1723) Does anyone have a clue what is wrong? Thanks in advance. * To join/leave the list, search archives, change list settings, * * etc., please visit http://raven.utc.edu/archives/hp3000-l.html *