+OPTION,MAPASM.
+USE,VMS.
*+USE,UNIX.
+USE,P=DIPCO.
+USE,P=DIPSI.
+USE,P=DIINI.
+USE,P=DIOUT.
+USE,P=DIPSIGEN.
+EXE,DIPCO,DIPSI,DIPSIGEN,DIINI,DIOUT.
+PAM,LUN=11,T=ATTACH.   DIPSI.PAM
+QUIT.