******************************************************************
*** ***
*** 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: Sat, 25 Oct 1997 01:08:58 -0400

This is "PRTSC.BIN", a C-64 utility that gives you a PRINT SCREEN key (docs included). Tap RESTORE with the CONTROL key down to send the current screen to a 1525 printer (or emulation thereof). Whether you are in text mode or hi-res graphics mode (with a two-color image on the screen), the program will print the screen. Even if data are in the RAM under BASIC, the KERNAL, or I/O. For text mode, the printer's character set is used. But you can also print the screen with the printer in graphics mode; you may have a special character set in computer RAM, or you may want a faithful reproduction of graphic characters that are used. In fact, I wrote the program for use with "LAYRINTH.BIN", which I posted here recently [ well, a while ago, eheheh. -- Moderator ].

begin 644 prtsc.bin M`0@>"`H`ES4V+#$V,#J7-34L+CJ<.DTDLL<H,3,I`%L(%`"7,C4Q+#$P.3J7 M,C4R+#$Q.I<R+"XZF2*3#A'04D534R!0($9/4B!415A4(%1/(%!224Y415(N M(@!_"!X`F2(1T%)%4U,@4R!&3U(@5$585"!43R!30U)%14XN(@"<""@`F2(1 MT%)%4U,@0R!43R!#3TY424Y512XB`+4(+0"9(A'04D534R!8(%1/($58250N M(@#("#(`H4$D.HM!)+(B4"*G.3``V`@\`(M!)+(B4R*G,30P`.L(1@"+022R M(E@BIYDBCB(Z@`#["$L`BT$DLB)#(J<R,C```PE0`(DU,``."5H`GS0L-"PW M`#8)9`"9(I,1R,_,Q"#2Q=35TLX@R\79(,3/U\X@U,\@P<+/TM0N(@!*"6X` MF2(1T-+)SM3)SL<N+BXB`&\)>`">,C@Q-3J@-#J+PB@R*:>9(A$N+B[$S\[% M+B(ZB3$Y,`"."8(`F2(1T-+)SM3)SL<@P<+/TM3%Q"XB.HDQ.3``N`F,`)DB MDQ'3T,'#Q<+!TB#4S\?'S,73(,3)T]#,P=D@S\XOS\;&+B(`UPF6`)DB$=#2 MQ=/3(-+%U-72SB#4SR#3U,'2U"XB`.H)H`"A020ZBT$DLDTDIS$X,`#S":H` MB3$V,``9"K0`F2*3$1$1$1$1$1$1$1$1$1$1$1$1$1$1$1$B.IXR.#0Y`#X* MO@"9(A$1("`@("`@("`@("`@(!+0TL73TR#2Q=35TLXN(@!1"L@`H4$D.HM! M)+)-)*<R,C``6@K2`(DR,#``A@K<`)DBDQ'04D534R#2Q=35TLX@5$\@24Y3 M5$%,3"!!3D0@14Y!0DQ%(@"<"N$`F2(1T-+)SM0@T\/2Q<7.+B(`M@KF`)DB M$1'04D534R!8(%1/($58250N(@#)"O``H4$D.HM!)+)-)*<R-S``W`KZ`(M! M)+(B6"*GF2*.(CJ``.4*!`&),C0P`/T*#@&>,C@X,3J>-3$Q,C0ZF2*.(CJ` M````H@0@R?^@`+'[\!(@TO\@Y/_)#?`*YOO0[.;\T.C&`DS,_Z``L?OP&2#2 M_R#D_\D@T`<@Y/_)(-#YYOO0Y>;\T.%@J2B%_:D8A?ZIM(6;J<>%G*((H`"Q M_9&;R-#YYO[FG,K0\K']D9O(P"30]V`@("`@U$A)4R!04D]'4D%-($=)5D53 M(%E/52!!(-#2R<[4(-/#TL7%SB!+15DN("#7251((%1(12!04D]'4D%-($E. M4U1!3$Q%1"!!3D0-14Y!0DQ%1"P@64]5($-!3B!314Y$(%1(12!)34%'12!/ M3B!93U52($U/3DE43U(@5$\@64]54B!04DE.5$52+B`@U$A%(%!224Y415(- M35535"!"12!!(,-/34U/1$]212`Q-3(U+"!/4B!/3D4@5$A!5"!%355,051% M4R!42$4@,34R-2X@(-1(050@24Y#3%5$15,-(L-/34U/1$]212!214%$62(@ M3U(@(L-/34U/1$]212!#3TU0051)0DQ%(B!04DE.5$524RP@04Y$(%!!4D%, M3$5,(%!224Y415)3($E&#51(12!)3E1%4D9!0T4@041!4%1%4B!)4R!3150@ M5$\@(C$U,C4@14U53$%424].(B!-3T1%+B`@R48@64]5($%212!54TE.1R!! M#=A%5$5#("+355!%4B#'4D%02$E8(B!)3E1%4D9!0T4L(%-%5"!)5"!43R`B MTU5015(@QU)!4$A)6"(@4D%42$52(%1(04X@5$\@(C$U,C4-Q4U53$%412(N M("#42$4@(M-54$52(,=205!(25@@RE(N(B!32$]53$0@0D4@4T54(%1/("+3 M55!%4B#'4D%02$E8(,I2+B(N(`T-("`@(,E&(%E/52!!4D4@24X@4U1!3D1! M4D0@5$585"!-3T1%+"!(3TQ$($5)5$A%4B##S\[4TL_,($]2(,,]($1/5TX@ M04Y$#5!215-3(-+%T]3/TL4@5$\@4%))3E0@5$A%(%-#4D5%3BX@(-E/52!- M05D@455)5"!42$4@4%))3E1)3D<@4%)/0T534R!"60U(3TQ$24Y'(%1(12#1 M($M%62!$3U=.+B`@U$A%(%!224Y424Y'(%=)3$P@0D4@24X@14E42$52($-( M05)!0U1%4B!3150@,2!/4@U#2$%204-415(@4T54(#(L(%=(24-(159%4B!) M4R!$25-03$%9140@3TX@64]54B!30U)%14XN("#)1B!93U4@05)%(%)53DY) M3D<@00U04D]'4D%-(%1(050@4%544R!30U)%14X@345-3U)9($E.5$\@04X@ M54Y54U5!3"!,3T-!5$E/3BP@(M#2U-/#+L+)SB(@5TE,3"!+3D]7#4E4($%. M1"!35$E,3"!'259%(%E/52!!(%!224Y43U54+B`@ST8@0T]54E-%+"`BT-+4 MT\,NPLG.(B!!3D0@64]54B!04D]'4D%-($U54U0-3D]4(%5312!42$4@4T%- M12!314-424].4R!/1B!-14U/4EDN("`BT-+4T\,NPLG.(B!54T53($U%34]2 M62!&4D]-(#4Q,3(T(%1/#34S,C0W("@DPS?"-"!43R`DP\;&QBDN("`-#2`@ M("#42$4@4%))3E1)3D<@25,@1$].12!54TE.1R!42$4@4%))3E1%4B=3($)5 M24Q4+4E.($-(05)!0U1%4B!3150L(%=(24-(($E3#55354%,3%D@4TE-24Q! M4B!43R!42$4@PRTV-"=3($-(05)!0U1%4B!3150N("#"550@5TA%4D5!4R!9 M3U52(%!224Y43U54($A!4R!!#4=!4"!"1517145.($A/4DE:3TY404P@4D]7 M4R!/1B!#2$%204-415(L(%E/55(@34].251/4B!$25-03$%9($1/15,@3D]4 M+B`@TT\@248-64]5($%212!6245724Y'($$@1$5324=.($U!1$4@5TE42"!' M4D%02$E#4R!#2$%204-415)3("C#/2!+15D@0TA!4D%#5$524RP@04Y$#5-( M2494140M2T59($-(05)!0U1%4E,@24X@0TA!4D%#5$52(%-%5"`Q*2P@64]5 M4B!04DE.5$]55"!-05D@3$]/2R!615)9#41)1D9%4D5.5"!&4D]-(%E/55(@ M34].251/4B!$25-03$%9+B`@P4Y$($E&(%E/52!!4D4@55-)3D<@02!34$5# M24%,($-(05)!0U1%4@U3150@24X@64]54B!#3TU0551%4BP@250@5T].)U0@ M4TA/5R!54"!)3B!93U52(%!224Y43U54+B`@(M#2U-/#+L+)SB(@3$544R!9 M3U4-4%))3E0@64]54B!30U)%14X@24X@64]54B!04DE.5$52)U,@1U)!4$A) M0U,@34]$12P@5TA)0T@@4TA/54Q$(%-/3%9%(%1(10U!1D]214U%3E1)3TY% M1"!04D]"3$5-4RX@(,A/3$0@0D]42"!42$4@3$5&5"!32$E&5"!+15D@04Y$ M(,,]($1/5TX@5TA%3B!93U4-4%)%4U,@TL73U,_2Q2X@(-1(050@5TE,3"!' M259%(%E/52!$05)+($-(05)!0U1%4E,@3TX@02!72$E412!"04-+1U)/54Y$ M+B`@U5-%#<//SM32S\P@24Y35$5!1"!/1B##/2!&3U(@5TA)5$4@0TA!4D%# M5$524R!/3B!!($1!4DL@0D%#2T=23U5.1"X@(-E/52!#04X@04Q33PU'150@ M2$%,1BU(14E'2%0@0TA!4D%#5$524R!"62!54TE.1R!42$4@4DE'2%0@4TA) M1E0@2T59($E.(%!,04-%($]&(%1(12!,1494#4].12X@(--)3D-%(%1(12!3 M24U53%1!3D5/55,@4%)%4U-)3D<@3T8@02!32$E&5"!+15D@04Y$(,,](%1/ M1T=,15,@5$A%#4-(05)!0U1%4B!3150@*%5.3$534R!93U4@1$E$($$@P\_. MU-+/S"U(*2P@0TA%0TL@5$A%(%-#4D5%3B!72$5.(%E/52!!4D4@4D5!1%D- M5$\@4%)%4U,@TL73U,_2Q3L@64]5($U!62!(059%(%1/(%!215-3(,,]($%. M1"!!(%-(2494($M%62!!1T%)3BX-#2`@("#)1B!93U4@05)%($E.($A)+5)% M4R!"250M34%04$5$($U/1$4L($%3(%=(14X@5DE%5TE.1R!!(,1/3T1,12P@ MTLS%+"!/4@U/5$A%4B!(22U215,@1U)!4$A)0RP@04Y$($].3%D@5%=/($-/ M3$]24R!!4D4@55-%1"P@(M#2U-/#+L+)SB(@5TE,3"!$151%0U0@5$A%#4U/ M1$4@04Y$(%!224Y4(%1(12!)34%'12X@(,A/3$0@P\_.U-+/S"!$3U=.($%. M1"!04D534R#2Q=/4S]+%($9/4B!.3U)-04P@5DE$14\-*%1(12!$05)+15(@ M4T-2145.($%214%3($-/4E)%4U!/3D0@5$\@5$A%($1!4DL@05)%05,@24X@ M5$A%(%!224Y43U54*2X@(,9/4@U2159%4E-%(%9)1$5/("A$05)+(#T@3$E' M2%0@04Y$($Q)1TA4(#T@1$%22RDL(%5312##/2!)3E-414%$($]&(,//SM32 MS\PN("#93U4-0T%.($A/3$0@5$A%(%))1TA4(%-(2494($M%62!$3U=.("A" M15-)1$53($5)5$A%4B##S\[4TL_,($]2(,,]*2!72$5.(%E/52!04D534PW2 MQ=/4S]+%(%1/($=%5"!(04Q&+4A%24=(5"!04DE.5$E.1RX@(,%.1"!93U4@ M34%9($A/3$0@1$]73B!42$4@T2!+15D@5$\@455)5`U42$4@4%))3E1)3D<@ M3U!%4D%424].+@T-("`@(,E&(%E/52!$3R!!(%=!4DT@4U1!4E0@*-/4S]`O MTL73U,_2Q2D@3U(@0T],1"!35$%25"`H4UE3(#8T-S,X*2P@3U(@4%)%4U,- M64]54B!215-%5"!"55143TXL(%1(12#0TLG.U"#3P]+%Q<X@1E5.0U1)3TX@ M5TE,3"!"12!$25-!0DQ%1"X@(-E/52!-05D-4D4M14Y!0DQ%($E4($)9(%19 M4$E.1R!)3BP@24X@1$E214-4($U/1$4Z#0U365,@-3$Q,C0-#4%.1"!04D53 M4TE.1R#2Q=35TLXN#0T@("`@U$A)4R!04D]'4D%-+"`BT-+4T\,NPLG.(BP@ M25,@2$5214)9($-/3E1224)55$5$(%1/(%1(12!054),24,@1$]-04E.+@T- M("`@("`@("`@("`@("`@("`@("`@("`@("`@("`@("`@("`@("`@("`@RD]( M3B#)04Y.151400T-("`@("`@("`@("`@("`@("`@("`@("`@("`@("`@("`@ M("`@("`@("`@PT]-4%7315)612!54T52(,G$.B`W-C<P,RPT,C0T#0T`J="- M&`.IQXT9`ZFMH,],'JMX:(T.W&B%`4Q,_DB*2)A(I0%(K0[<2*D`C0[<H@.] M`-R5L,H0^*(#O:K.G0#<RA#WK0'<*23)(/`>R03P':(#M;"=`-S*$/BI"B"H M_ZD/(*C_(*[_3,7'J?\LJ0"%G"#,_ZD$(+'_J6@@D_^M`-TI%XT`W4D#"@H* M"@H*A9NM`-TPNZD`A<.%Q(7[A?V%C(66K1'0JBD@\#2M%M`I$-">K1C0*0BJ MI9O*$`7)0-"/+`D@A?RM&-`I\$I*99O)Q)`$R="0V87^(&3-3*/*BBE`T,RM M%M`I$-#%K1C0*?!*2AAEF\G$D`3)T)"SA?RM&-`I#@H*&&6;R<"0!,G0D$^J M*7#)$-`,BBD(T`.BT"RBV,:,AOZI'86+J2B%`DQ;S*``J32%`;'[JJ`HL?N@ M-X0!("O)+`'<4!;F^]`"YOS&`M#=J2B%`J7#T`_&B]`#3`/(QI80RJ('AI8X MI?OI*(7[L+W&_-"Y2(H@S\FDEJ7#\!#(R,C`")`)F.D(J&A((,_)H@"EC/`# MJ3,LJ32%`;&-19R=V,_(I<1)_X7$\`6($`*@!\`(T`=H2"#/R:``Z*6+R0'0 M#J7#\`JI`)W8S^C@!]#XX`?0QVBI-X4!I0+)*-`%J0@@J/^@"*(`O=C/"IW8 MSV:/Z.`'T/)FCZ6/(*C_B-#FI@+*T`NEPTG_A<.I"DRH_Z7$2?^%Q&!(J0"% MCF@*)HX*)HX*)HYE_86-I8YE_H6.8*``J32%`;'[JJ`HL?N@-X0!("S*+`'< M4!+F^]`"YOS&`M#=J2B%`L:+T`-,`\C&EA#.H@>&ECBE^^DHA?NPP<;\T+U( MBB#/R:26H@"EC/`#J3,LJ32%`;&-19R=V,_(P`C0!VA((,_)H`#HI8O)`=`. MX`30XJD`G=C/Z.`'T/C@!]#4:*DWA0&E`LDHT`6I"""H_Z`(H@"]V,\*G=C/ M9H_HX`?0\F:/I8\@J/^(T.:F`LK0!:D*3*C_8*D=A8NI*(4"HG^IOXT`W*T! MW"D0C@#<\`-,<<L@^,HL`=Q0%QBE^VD(A?N0`N;\Q@+0Z:DHA0+&B]`#3`/( MQI80VJ('AI8XI?OI0(7[I?SI`87\L,>E^X7!I?R%PJ26H@"I-(4!L<%%G)W8 MS\C`"-`.I?MI/X7!I?QI`87"H`#HI8O)`=`.X`30VZD`G=C/Z.`'T/C@!]#- MJ3>%`:4"R2C0!:D((*C_H`BB`+W8SPJ=V,]FC^C@!]#R9H^ECR"H_XC0YJ8" MRM`%J0I,J/]@(*[++`'<4!L8I?MI"(7[D`+F_,8"T.FI*(4"I</0#\:+T`-, M`\C&EA#6H@>&ECBE^^E`A?NE_.D!A?RPPZ7[A<&E_(7"I):EP_`7R,C(P`B0 M$)CI"*BE^VD_A<&E_&D!A<*B`*DTA0&QP46<G=C/R*7$2?^%Q/`%B!`"H`?` M"-`.I?MI/X7!I?QI`87"H`#HI8O)`=`.I</P"JD`G=C/Z.`'T/C@!]#`J3>% M`:4"R2C0!:D((*C_H`BB`+W8SPJ=V,]FC^C@!]#R9H^ECR"H_XC0YJ8"RM`+ MI<-)_X7#J0I,J/^EQ$G_A<1@HG^IOXT`W*T!W"D0\!*I_8T`W*T!W"F`C@#< MT`E,Y,B.`-Q,Z<FI&86/(*[_J00@L?^M&-`I`M`#J6`LJ6<@D_^@`*DTA0&Q M^Z(WA@$L`=Q0+9G8S\C`*-#IB+G8S\D@T""($/:I#2"H_QBE^VDHA?N0`N;\ MJ0"%EH7#QH_0PDP#R,B$`J``N=C/R2+0"*JEPTG_A<.*IL,0&J:6,`.J$"8I M(-`ABBE`\`6**;\P'8HI?Q`8II;0'JH0"ZD2(*C_I99)_X66BBE_(#C-(*C_ MR,0"T+/PCZHP[:F2T.#)()`.R4"0#,E@D`-I/RQI@"QI0&!H:*DWA0%,`\B@ M`+']L$2@`+']*0\00*D`A8VI-(4!J1"%BX6,I?Z%`J7\A8Z@!X2/L8WP!LG_ MT`W&CX@0\Z6/,,?)!_#)H`"Q_4@I#R",SFBPK4I*2DH@C,ZPI.;]YL/0!.;^ MYL08I8UI"(6-D`+FCJ7#R>BEQ.D#D+*I`(7#A<2%_:4"A?ZI`(6-I?R%CJ6, M"@H*"@6+A8N%C`H*"@I&BT:+1HM&BP6+A8NJO:W.T`:EC(6+AHRB-Z6+*0^% M`J``L?V@!T@I#\4"T!&EC"GPA0)H*?#%`O`SH`#P.:6+*?"%`FA(*?#%`O`1 ML8U)_Y&-B!#WR*6+D?T8D!FEC"D/A0)H*0_%`M#0J?\LJ0"1C8@0^\@D:.;] MYL/0!.;^YL08I8UI"(6-D`+FCJ7#R>BEQ.D#D`>$PX3$A@%@3`;.IHO@$-`$ MA8L88,6+\/JFC.`0T`2%C/#PQ8SP[#A@?P#_`````````````````````/\` M____________________``````#_``#_````````_P#_`/___P#______P#_ M`/\`_P```/\``/\`_P````#_`/\`_P#_`/__`/__`/\`_P`````````````` M`````/\`______\`______\`____`/\```#_``#_`/\`````_P`````````` M`````````/\`_P#_`/\`__\`__\`_P#_``````#_``#_````````_P#_`/\` M_P#__P#_`````/\`______\`______\`____`/\`_P#_`/__`/\`````_P#_ M`/___P#______P#_``U04DE.5"!30U)%14X@14Y!0DQ%1"I365,U,3$R-"!2
+12U%3D%"3$53#0``
`
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)