******************************************************************
*** ***
*** comp.binaries.cbm is a moderated binaries- ***
*** only newsgroup (no discussion or ***
*** crossposting allowed) for Commodore 8-bits ***
*** ***
*** For information on comp.binaries.cbm visit ***
*** http://www.floodgap.com/comp.binaries.cbm/ ***
*** ***
*** This file is available via mailing list at ***
*** http://lists.trikaliotis.net/listinfo/comp-binaries-cbm/ ***
*** to list subscribers ***
*** Allow time for submission to be received ***
*** ***
******************************************************************

* One from the Vault is a collection of frequently requested, useful or just
plain interesting past posts sent to comp.binaries.cbm, as archived by the
moderators. If you have a request, please send it to the address in the
headers. In addition to being selected and reposted by moderation staff,
some of these postings are regularly posted on Mondays and Fridays on a
rotating schedule.

Take care when replying to these messages, as many were posted years ago.

From: John Iannetta <76703.4244@compuserve.com>
Reply-to: John Iannetta <76703.4244@compuserve.com>
X-Original-Posting-Date: Fri, 20 Mar 1998 22:57:40 -0500

This UUencoded file, when UUdecoded, produces"SPOOL.BIN". It is a Commodore-64/128 utility for a CBM 1541/1571/1581 disk drive, and a printer with a device number of 4. You will be able to "spool" a PETASCII text file from a disk in device 8 to the printer, and be running another program during printing. Sys53000 to get a prompt for the name of the text file; chimes will signal end-of-file. The ML routine uses memory from $CF08 to $CFFF, and occupies one disk block. This program was tested with an OKIMATE 20 printer, a 1541, a 1541-II, and a 1581.

begin 644 spool.bin M`0@L"`H`ES4U+"XZES4V+#$V,#J<.IXR-S@V.DDDLB(P,"(Z422RQR@S-"D` M50@4`)DBDQ&.4%)%4U,@5R!43R!74DE412!&24Q%(%1/($1)4TLN(@!N"",` MF2(14%)%4U,@6"!43R!%6$E4+B(`AP@H`*%!)#J+022R(E<BIYDBDR(ZB3@P M`)4(,@"+022R(E@BIX``G0@\`(DT,`##"$8`F2*3$D1%5DE#12([1#LBG2!. M3U0@4%)%4T5.5"(ZH#$U`.T(4`"9(D5.5$52($1%5DE#12`C($]&($12259% M("@T(%1/(#,P*2XB``D)6@"9(A$H14Y415(@,"!43R!%6$E4+BD1(@`?"60` MF2(@(#B1(CJ%1#J+1+(NIX``3`EN`(M$LS2P1+$S,*>9(I,224Q,14=!3"!$ M159)0T4@3E5-0D52(CJ).#``A`EX`)\Q-2Q$+#$U.I<Q.#,L,3J7,3@T+#@Z MES$X-2PX.I<Q.#8L1#J7,3@W+#@W.I<Q.#@L.`">"8(`GC8U-#<R.HM35*>@ M,34ZH#@ZB3<P`,D)C`"8,34L(E4Q(CLX.RX[,CD[+CJ8,34L(E4R(CLX.RX[ M,CD[+CJ@.`#="98`C34P,#J+2B2R222G,3<P`.D)H`"@,34ZB3@P``4*J@"9 M(I,114Y415(@02!&24Q%3D%-12X1(@`>"K0`1B2R(B(ZA48D.HM&)+(B(J<V M,#``1`J^`)\X+$0L,2Q&)#J--3`P.HM*)+.Q222GH#$U.J`X.HDX,`!D"L@` MF2(15U))5$E.1R`B.U$D.T8D.U$D.R(N+BXB`)0*T@"=."PB(CLZ@4FR-#DY M.:0U,C0V.IG'*,(H22DI.SJ".I@X+"(B.SJ)-C`P`+$*]`&$,34L2B0L3R0L M2"0L3B0ZBTHDLDDDIXX`U0K^`9DBDQ(B.THD.R(L(CM/)#LB+"([2"0[(BPB M.TXD.HX`X`I8`J`Q-3J@.````*E@A8H@B@`XH`"$D+$MA0*8D2VZBND"JIIH M:;>%_:IH:0"%_JB*:2"JF&D`J(:;A)R*:7:%^YAI`(7\BFD?JIAI`*B*(!ZK M(.3_R0W0^:D$(+'_J6<@D_^I%XT`W:T`W1!`($3EH`&B%['[\!T@%N?F^]`" MYOSDUK#OI?VD_B`>JR#D_\D-T/GPV!BB&*``(/#_I9NDG"`>JR#D_\D-T/GP M$Z``L?OP#2"H_R`6Y\C0\^;\T.^@`*4"D2U,KO\2T%)%4U,@/-+%U-72SCX@ M1D]2($Y%6%0@4$%'12Z2`!+%3D0@3T8@1DE,13L@4%)%4U,@/-+%U-72SCXN MD@"3$0[)1B!04DE.5$52("A$159)0T4@-"D@25,@S\X@5TA%3@T1/-+%U-72 MSCX@25,@4%)%4U-%1"P@3U544%54(%=)3$P@0D4@5$\@(!%04DE.5$52+@"3 M("`@(-1(25,@PRTV-"!55$E,2519($E3($9/4B!!(,/"S2`Q-30Q+S$U-S$O M,34X,2!$25-+($12259%+"!!3D0@02!04DE.5$52#5=)5$@@02!$159)0T4@ M3E5-0D52($]&(#0N("#93U4@5TE,3"!"12!!0DQ%(%1/(")34$]/3"(@02#0 MQ=3!T\/)R2!415A4($9)3$4-1E)/32!!($1)4TL@24X@1$5624-%(#@@5$\@ M5$A%(%!224Y415(N("#$55))3D<@4U!/3TQ)3D<L(%1(12!#3TU0551%4B!) M4R!.3U0-4$%25"!/1B!42$4@3U!%4D%424].+B`@V4]5($-!3B!$25-#3TY. M14-4(%1(12#)Q<,@*%-%4DE!3"D@0T%"3$4@1E)/32!42$4-0T]-4%5415(L M($%.1"!42$5.(%154DX@5$A%(,,M-C0@3T9&+B`@U$A%(%!224Y424Y'(%=) M3$P@0T].5$E.544N("#)1B!93U4@5$A%3@U$25-#3TY.14-4(%1(12!03U=% M4B!355!03%DL($%.1"!#2$]0(%1(12##+38T($E.5$\@02!(54Y$4D5$(%!) M14-%4RP@5$A%#5!224Y424Y'(%-424Q,(%=/3B=4(%-43U`N("#!34%:12!9 M3U52(-##+5194$4@1E))14Y$4SL@5$A%25(@0T]-4%5415)3($-!3B=4#5!% M4D9/4DT@5$A!5"!&14%4+B`@PE54($)%(%!215!!4D5$(%1/($=%5"!35%)! M3D=%($Q/3TM3(%=(14X@64]5(%=!3$L@1$]73B!42$4-4U121454+"!!3D0@ M1D]2(%E/55(@4T]#24%,($Q)1D4@5$\@4U5&1D52+@T-("`@(-1(25,@4%)/ M1U)!32!724Q,(%!23TU05"!93U4@1D]2($$@1$5624-%($Y534)%4B!!3D0@ M02!&24Q%3D%-12X@(,$-3TY%+4),3T-+($1)4TL@1DE,12!724Q,(%1(14X@ M0D4@5U))5%1%3BP@4T%9(%1(050@5$A%($9)3$5.04U%($E3(")34$]/3"(N M#==(14X@64]5(%=!3E0@5$\@4%))3E0@02!415A4($9)3$4L(%194$4@24XZ M#0U,3T%$(E-03T],(BQ.+#$@/-+%U-72SCX-#5=(15)%(").(B!)4R!42$4@ M1$5624-%($Y534)%4B!/1B!42$4@1%))5D4N("#93U4@4%)/0D%"3%D@5T]. M)U0@5T%.5"!43R!0550@00U(051#2$54(%1/(%1(12!#3TU0551%4B!43T\@ M3T9414X[(%E/52!-05D@5T%.5"!43R!"12!254Y.24Y'($$@4%)/1U)!32!$ M55))3D<-4%))3E1)3D<@*$$@4%)/1U)!32!42$%4($1/15-.)U0@04-#15-3 M($%.62!315))04P@1$5624-%4RDN("#/4B!93U4@34%9(%=!3E0-5$\@1$\@ M4T]-12!!4DE42$U%5$E#($E.($1)4D5#5"!-3T1%+B`@24X@5$A%($9/4DU% M4B!#05-%+"!&25)35"!,3T%$(%E/55(-4%)/1U)!32X@(-1(14XL(%194$4@ M24XZ#0U365,U,S`P,"`\TL74U=+./@T-5$\@1T54($$@4%)/35!4($9/4B!4 M2$4@3D%-12!/1B!42$4@1$E32R!415A4($9)3$4N("#04DE.5$E.1R!32$]5 M3$0@5$A%3@U35$%25"P@04Y$(%E/52!-05D@5$A%3B!254X@64]54B!04D]' M4D%-("A/4B!#04Q#54Q!5$4@5$A%($5#0T5.5%))0TE462!/1@W03%543R=3 M($]20DE4*2X@(,%4($5.1"U/1BU&24Q%+"!93U4@5TE,3"!(14%2($-(24U% M4RX@(,E&(%E/52!#04X@0E)%04L@3U54($]&#5E/55(@4%)/1U)!32!.3TXM M1$535%)50U1)5D5,62`H3U(@64]5($%212!.3U0@5$]/($1%15`@24X@5$A% M($]20DE4#4%2251(345424,I+"!93U4@34%9(%=!3E0@5$\@4UE3-3,P,#`@ M04=!24X@5$\@4U!/3TP@04Y/5$A%4B!&24Q%+@T-("`@(-1(12#-S"!23U54 M24Y%(%5315,@345-3U)9($923TT@-3,P,#`@*"3#QC`X*2!43R`U,S(T-R`H M),/&QL8I+B`@U$A)4PU04D]'4D%-(%=!4R!415-4140@5TE42"!!3B#/R\G- MP=3%(#(P(%!224Y415(L($$@,34T,2P@02`Q-30Q+<G)+"!!3D0@02`Q-3@Q M+@W42$E3($9)3$4@25,@0T].5%))0E54140@5$\@5$A%(-!50DQ)0R#$3TU! M24XN#0T@("`@("`@("`@("`@RD](3B#)04Y.151400T@("`@("`@("`@("`@ M-S8W,#,N-#(T-$!#3TU055-%4E9%+D-/30T`",^IVZ#/(!ZKH@"&F"#/_\D- M\`B=Z`?HX!#0\8K0`6"BZ*`'(+W_J0BJJ""Z_R#`_ZD$JJ`'(+K_J0*B_*#/ M(+W_(,#_H@0@R?^B""#&_Z(@RM#]J0>-`-V&F:D#A9IXK10#C?[/K14#C?_/ MJ7Z-%`.ISXT5`UA@HF0L`-T04\K0^*W^SXT4`ZW_SXT5`ZD`HAB=`-3*$/JI M4(T!U*D)C074H!2,#]2I#XT8U*(%A@*BR,B,!-0@L^X@L^[*T/>(C`34HL@@ ML^X@L^[*T/?&`M#>;/[/DQ%%3E1%4B!&24Q%3D%-12`H1$5624-%(#@I+@T-
&/R``&P!)
`
end
--
Cameron Kaiser * ckaiser@floodgap.com * posting with a Commodore 128
Floodgap Systems: http://www.floodgap.com/
personal page: http://www.cameronkaiser.com/

--- SoupGate-Win32 v1.05
* Origin: fsxNet Usenet Gateway (21:1/5)