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
/
KILLLP.MOD
< prev
next >
Wrap
Text File
|
1989-01-05
|
600b
|
20 lines
MODULE killlp;
FROM SYSCALL IMPORT Trigger,SpintInfo;
FROM GEMDOS IMPORT Term;
FROM SYSTEM IMPORT ADDRESS,ADR;
FROM Terminal IMPORT WriteString,WriteLn;
VAR ok : BOOLEAN;
spintcmd : POINTER TO ARRAY [0..1] OF LONGCARD;
BEGIN
IF SpintInfo(0,spintcmd) THEN
spintcmd^[0]:=99;
ok:=Trigger(0);
ELSE
WriteLn;
WriteString("Background spooler not running.");
WriteLn;
ok:=Term(-1);
END;
ok:=Term(0);
END killlp.