Relay-Version: version B 2.10 5/3/83; site utzoo.UUCP
Path: utzoo!linus!philabs!cmcl2!seismo!ut-sally!pyramid!amiga!andy
From: andy@amiga.UUCP (Andy Finkel)
Newsgroups: net.micro.amiga
Subject: Corrected Print Spooler for the Amiga
Message-ID: <727@amiga.amiga.UUCP>
Date: Fri, 21-Feb-86 16:56:41 EST
Article-I.D.: amiga.727
Posted: Fri Feb 21 16:56:41 1986
Date-Received: Mon, 24-Feb-86 07:40:56 EST
Reply-To: andy@skipper.UUCP (Andy Finkel)
Distribution: net
Organization: Commodore Business Machines, 1200 Wilson Drive, West Chester, PA 19380
Lines: 119
Keywords: print, spooler, bug

New, improved Print Spooler

The old (yesterday) version had a memory leak.  This one doesn't.
And a few other things are fixed, thanks to BruceB of C/A.

How to use:
Install the 3 parts in the s directory of your Amiga workbench (or CLI)
disk.  
execute startspool once after booting up by typing:

run execute startspool

To spool a file for printing, type

execute print filename

-------------------------------------------
:s/startspool
-------------------------------------------
; Simple Print Spooler
; Program by Andy Finkel
; Copyright (c) 1986 Andy Finkel, Commodore/Amiga
; This is contributed free software.
; Permission to copy and use as long as this notice is included."
; Permission NOT given to sell this program
; (I'd feel guilty if someone paid for this, it was too easy to do!)
;
IF NOT EXISTS ram:spool
makedir ram:spool
ENDIF
IF NOT EXISTS ram:c
makedir ram:c
ENDIF
IF NOT EXISTS ram:t
makedir ram:t
ENDIF
copy c:copy to ram:c
copy c:delete to ram:c
copy c:echo to ram:c
copy c:execute to ram:c
copy c:wait to ram:c
copy c:quit to ram:c
copy c:if to ram:c
copy c:endif to ram:c
copy s:spooler to ram:c
cd ram:c
run > NIL: quit +
execute ram:c/spooler
; end of file

---------------------
:s/spooler
---------------------
; Simple Print Spooler
; Program by Andy Finkel
; Copyright (c) 1986 Andy Finkel, Commodore/Amiga
; This is contributed free software.
; Permission to copy and use as long as this notice is included."
; Permission NOT given to sell this program
; (I'd feel guilty if someone paid for this, it was too easy to do!)
;
IF EXISTS ram:spool/file1
copy > NIL: ram:spool/file1 to prt:
echo > prt: "  "
delete ram:spool/file1
ENDIF
;
IF EXISTS ram:spool/file2
copy > NIL: ram:spool/file2 to prt:
echo > prt: "  "
delete ram:spool/file2
ENDIF
;
IF EXISTS ram:spool/file3
copy > NIL: ram:spool3 to prt:
echo > prt: "  "
delete ram:spool/file3
ENDIF
;
wait 30
run > NIL: quit +
execute ram:c/spooler
;end of file

-----------------------
:s/print
-----------------------
.k file/a
; Simple Print Spooler
; Program by Andy Finkel
; Copyright (c) 1986 Andy Finkel, Commodore/Amiga
; This is contributed free software.
; Permission to copy and use as long as this notice is included."
; Permission NOT given to sell this program
; (I'd feel guilty if someone paid for this, it was too easy to do!)
;
IF NOT EXISTS ram:spool/file1
copy <file> to ram:spool/file1
skip
ENDIF
IF NOT EXISTS ram:spool/file2
copy <file> to ram:spool/file2
skip
ENDIF
IF NOT EXISTS ram:spool/file3
copy <file> to ram:spool/file3
skip
ENDIF
echo "spooler busy, try again later"
LAB
;end of file
----------------------------------


				andy finkel
				Commodore(Amiga)

Disclaimer:
"I disclaim all responsibilities, all sizes, all shapes, all colors"