[net.micro.amiga] Corrected Print Spooler for the Amiga

andy@amiga.UUCP (Andy Finkel) (02/22/86)

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"

andy@amiga.UUCP (Andy Finkel) (02/23/86)

 
<Line Eater Food>

One last change to the spooler...

A line was lost from startspool... the line that read

copy c:run to ram:c

Put it with the other copies.
The program works without it, however, with the run command copied to
ramdisk, it won't have to go to the disk drive for it.

			andy finkel
			Commodore(Amiga)

"No matter where you grow...there you are.  Buckaroo Bonsai"

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