home *** CD-ROM | disk | FTP | other *** search
/ Computer Club Elmshorn Atari PD / CCE_PD.iso / pc / 0500 / CCE_0544.ZIP / CCE_0544 / MX2 / MX2SRC.ARC / XA.MOD < prev    next >
Text File  |  1989-01-05  |  545b  |  19 lines
  1. MODULE  xa;
  2. FROM    SYSCALL         IMPORT  SpintInfo,Trigger;
  3. FROM    GEMDOS          IMPORT  Term;
  4. FROM    Terminal        IMPORT  WriteString,WriteLn;
  5. VAR     spintcmd        :       POINTER TO ARRAY [0..2] OF LONGCARD;
  6.         ok              :       BOOLEAN;
  7. BEGIN
  8.         IF SpintInfo(1,spintcmd) THEN
  9.            spintcmd^[0]:=99;
  10.            ok:=Trigger(1);
  11.         ELSE
  12.            WriteLn;
  13.            WriteString("Background xmodem not running");
  14.            WriteLn;
  15.            ok:=Term(-1);
  16.         END;
  17.         ok:=Term(0);
  18. END     xa.
  19.