Path: utzoo!mnetor!uunet!husc6!m2c!ulowell!masscomp!alang From: alang@masscomp.UUCP (Alan Groupe) Newsgroups: comp.sys.ibm.pc Subject: Re: hercules screen dump Message-ID: <2785@masscomp.UUCP> Date: 20 Jan 88 15:24:28 GMT References: <861@hubcap.UUCP> Reply-To: alang@masscomp.UUCP (Alan Groupe) Organization: MASSCOMP - Westford, Ma Lines: 183 Keywords: hercules,PrtSc,graphics kaires@hubcap.UUCP (Robert G Kaires) writes: >Does anyone know of a public domain program (the equivalent of >GRAPHICS.COM in CGA) to allow use of the PrtSc key to do a screen dump >when using hercules. The following uuencoded arc file contains both the source and executable image for a Hercules PrtSc screen dumper I wrote a short while ago. It works for both graphics and text mode and figures out which mode the board is in using a rather tacky algorithm given to me by Hercules. begin 666 hprtsc.arc M&@A(4%)44T,N05-- 2^[1< !,/H*D/)M,L ,": $.5(D 8L8,V0T4)" M2A(J3 HB@2*%RI0A"Q-,J2*$"L0$1,K,&2,G#1PZ:=ZX6;AP!X@A;^#D*7D& M#1T0*,:D !$C!XX;+$ ("3-FS1DY;^JX(0,""M(Q(N>(;-FR:1DY;=+,F9/2 M#0BM(-!<+2,F#XBC8=S0*<.4SAL08V+F"4I&*YV28NJL#=KF35TS<[^Z&<.F M#IDR+*KFE>,FJ)PP",'!)PT;-B$.5,&!!TT8.>\,4/G3A@YG=-X)1I7 M#IFT4$'<2?/9LU@09MYD?C/;S9FJ9^JD./5VG6S& M-E@X2-&V^3K'\ULQG"B./*5'TF M*.WW=KYU M-F>=3!EXDTI"@D!@>J:9-=I97Z+D&V[CA3FH::@EIAQ]]BT9)IUUV,DF&Z)9 MVEEZ;S+&'PB)1E92&8.1!P(5MX%79:;>'5JK5V"%>.F?G86(6GQ/BCIF;&B2 M5V0",^R415(KCJA59Y)Z!X)F==3$YDV?=58M3FV.6P:<-X7KUEOKN99">4F< MT,:AZ4%!!!0MQ!!#M]J5* >^U7W6+AEOB.3&"3>5N&!:>7QV:XAY)!44G&OP M&Q91:UP%:AJ\,A6&&$FA>UM\?*JUF4A.4O:9E"JE*)B @>D;,*!71DGMIG:36E49[5L='L9<6=K&'A'><"" M16P2<*5E[+N,!37OTSM4%81F7AV!5!V1535444FC! M =H8W8TTGE$)31!,513&-W2%(63=>8,=1)8_I]!A M"F,0S%KDD+.3/*TJ5Q"+5R92D8NXAPYYB(S)5-:9_?4O2ERB@W]N@A8Q=*>" MC'RBZ^HEJX^PL\]BDQ4 MQ"3Y1BC),0S;XFF3" M@N7'':G-*X]D7R33%"WDN:TJIJ%-=_#3O32*BT!W.QU3FI2_-*(,?@B+U@EB M< (TED&-<8P*6TSEDOP9$Y1A J,;[K@Y<^7/#&F00Y6"V3XXO PG0H !) CP M-:'

!.>*6AJ4O\TF,V&!7/<>E4-9E0$.4&0*"2V"D=0] M546KK!)JZ# F-Y1G6U=3)P@"U"PXBDL\92B#'F:U&CL(9S8?0]E%&78*4BI/(H849+W4I3))K/@*25@58G6%8Q"!SF4]M*CT, M=>@U_P@66M&&#EZ231GB2=0B$ 4-EJI8:E:2NOSIM40(,@O71 ('E9#AAF]9 M;DUNHMONT*DD>E )CC(3F-G4YI7C>T.5N'(&N\)3G0/ZSZ;>M:CH@@DUT>25 MI\X0+2^1IB]5TJV3X(LK6=H$<6))4*% < ,9)+2\;"*)?"/XT=OPU:^!B=4[ MXUFE'"2T+&OA8^ILJD]^@BV?,*A!$'8"GY"M%:LCEJ>;!DG-VUB/LS@ISM%X M!"RAZYE@M*H8F2X* M6XJC_E1\R,!&F.5SG^04RJD'$!0AT""GU;8!MH4"@Q@'H=H6EG&UKRUNH6B[ MW#"V-A&98FH86-NVQ8.CFJH3ES%)Q3_="5>2R4@8^3:+7KR!(@B* ?1> 4[ M/*P,? J^U]:JV"4]AA)D1BKHSA#J$2OB->QZ8NZ M8:57-H6#AE]4R2@9J)""XE[HY@_!-Z&O?=F7EOS>I%WYZ,UQ?3D8.9TA+&N;*E/-.7;U!,DM:VG*;BS<)X2*50U7 0IFHVY7J(( Y MS]G[QC5*:8Y@OVC^?DS&N[8'*3@:ZI-A4)7#'"6N3EL("#*RD8Y\I AJD8-9 MH/ &$&5$( 1)P J(1[TRG"$!4CE#\W[($#C-@95E2 #U=%#Y_GR7])DGGDN, M=\+;&!HE-COG=@2L>,LT7BWR \$JN01>$)S@]=V\P_2@V[.'WSA:"?=AVO'F MEB67_*(IZUZ)MG+/F,(3*[>2_;C>Y\:J;+WAJ!2D$\'T?2E2423#$7#C,O-! MAJB!2PEX?0)+ M=WN<%Q #41"3IP"WY5;)1<1IW MU"Y]4S7<@A^Q<1&DCJ+^L1.F91GP$BTELV ^MEF\0HH/-8"I$VR.,B*3>#%OP3"R01LV=QMF M4(\*PD() A8&2P3@062!O MD7[I$8[-&"8H 571.(WA:#7>]R(152DW:5PC&1E>$5-+.%3MEQ0ZUB8)4 9Q M4 <)T#MB$ 9QJ "28@=SD >#@2M7F0 XU95L$&!T4)5EJ95B@)8%]R5LB95: MF0-=*97[V(]SF94S( 8TT)6?445TXBI6B94H@%,J( ,.L@(@T(\J\!,I\ (* M08$,T1=VD "%R )2*4641)8-1IF8*"5.:"9B9?\J&<,X9^9J:"B MZ9V%F!'&B9LK^J&7^98 BIT+VJ"EB6CM^7V"=0=1)J"7&:)CDIJ(T MFJ+WR:*CZ:*&"*-YB 8L\);MZ8Z,(9(@QY09>H[+QD89,0;PIX]&08)< 9QEZ,H M(VQB^BAV(H3I QFAR(GQ6('AH1L[>C%S6R'2]E(F>L8F2]&7WV"9>E#I@ 4\$ MM2/($F>^!WRL*AU'TWYT4'^A209BD)7OXH?S%P(@H 1-$(5&$ 12P#LZP'<, M009WD)4LP*T$:'@'J#F**DP#EW@-Z'@, 7D2J'J"EDCPB"OJ:GL<^*J=$5RT MB(F)!$R@B*Z,VGZ *E1UF*>#F(?)F9I-*&Q!THZ6-Z+!C@*=] MF*2"B(=<4;%X6!<>ZX=B 8H)H'I58;F<\WPBPTQZ%7=>S+RZ&YKV6;>G><>:IWY;*KB;XC4X\ (5)@*4&AYQ]5TX400F% 0@ M@ ,!S1 @PAPW@+0#;;Q!< *7;3XB0,CC6@E?9E@6M 'G7,(S7P?XA7D MV!DH0-%#$,09+9J=V]%MBY_'J]%J0=+PFL_MJ!34')A)82ZKFL^WDHH[*C(& M=A.M<33.%Y2WPCG>5T3,Z4J#EHY%,BX# Q:$K*EKPE_0=9T$N14,N;.QA!E, .+DIHH0P=NT08M@'-CZ!5,SO@A/@,,KG P*;W=@W00.%_=!O[!;_FP !17("LJ9K8\R%$@:TNZ>E"0/M&8[_81H1 MY%J,TCWE_ ;5&[=-=@?(2P(K0 /MN2EUH5"%*"I[Y3I?)2ONXANU<:&#Y!:\ M6Q>IW;Z7<&E>6W!/=QX4-QI<-PN89'%$3*S(1676QD6\T?/ MW7/5+5]B$-['R:WC&7KT30,'G@8"7;2E.6W"3=S&G9KEAS?>=>)&W+3%R^)J MX.+U'>,SSM*E:>$8KN$DEV.*#22<[=@,L=T_3KSB':[S7>1.FID@NZ!PG-;T/-VN%N%6 M_I_DG9I;TB6/6"E_DA:%I=95]K7N%WIL4 .'K!(0\WRE!5DL QL2IRLER\UA MHL4!?@8#7AU<%B)QQ\Z2R^4)ZQ+,Y,V5T=X;$W6J\=CX.6OM66]8Q$Q3_5!0 MMS8H0#*REE!]110BD=%L, .N;-+&ZWMC?!LXFR[[(M0]C;1P7NP_S0(NG9I& M%-?6]:_M4V4IW=&H6>TGP 0GT)XX#0)% R(L JI-@@(,4P?,LE>\PA4HM-,; MK=)U*GJI_NFA_M#B4NI3C@9LH.]HFYJ)&29'IUQQ_>[QSDP,GUQ71.\.B==N MBZ?:S)4W'*%X_";S)4L[AU\]"NTDG:-1=)#6R! 7?\4K?9Q]C>W,V<2$K7-] MPW-81&;?GL$[#C0GCWEH(+ERO+?+249STC<# C(-!V?B8HRVWIF^C'FHG<7" MIN>7;<_\B?+MG ;O_/3=[( TZ^EZY>UU30.A*5C?%;9@$K5P8;;D[1)-G![* M_2):^'RF_J0W7+)ZV)Y"4 5'\-IMH%V"-62FRC^=BD6(YI.VR&$@0#0W3_), M@;,[[\QW_YUJFB M\F_O81:!/P7=E!<4S-,CS[<V8H2('2>!'D^_PK.- 4T7P+?4V0_6N61E'PTAKK6*[38<4G[ID MD,&&TW#=,P12P 1&>?OQ)6QP'>SE^!;Y0Q,VH>+N'.8X MS[/OXK,>U8[I^#% PQ:

CC&0:.#J&IV;@1Z\EVW9X&0A=OD1:M18EJ;4]; ML=LV4+#5?NWVB\<@I7%;613B8@-I*>,BK])SOF_(4AWG#2>&A0-IF08[_=%! M[?GX7L&S+N>2GW4\(0,,'<._%:R+8OT+P3!'<^PLC9]'2[=+BZ?V";5D.[7A MRK=8ZQ[++T%703R*2P<%Z\PBD:;;+6%0):*;?E>\CF^]=GJ=GVK%V M>*8OFJ=G>K'Y3K%V>*9,RZ)CA=T#X+JY_R5E)2["URYP*AMPTG"KK!$%^!' M2!LHHB(+6'N,QX$H, 5?PCD[[:Z25X'R&BWK4DH-I7=.CBX07$R?M!W]:@>$ M)8+FD5&)J!C"82=6.*J>ZN!=U"3MXK([XWO)RDIPT$T,I'NLQ'!>W1F9+_>I MLZJX%(E=#:NS>(FSVJ^U*OP!6W'(XB;W1D9:*]8 M]'U:\7GA!XGC1U=EFCKFY[!6I'XRUWZO5[ ??7HRL"A@6V:1;[^6MWEL0@;, M9LO5P2L^@A1NL'D^&5)G$+$-"J4T8)>'_"Z[P8(U,B8B(A-.PBL^@A1NL'D^ M&5)G$+$;+0/M6^TS$+,UD,%M3P;,)KC,9"!8$7M]>X8C+0/M6^VH@]?1V/AD MFZRL! C-W<;CV&8V-3[;)RDIPL *SUKY1 MFIPNT>%E\.&HB)'4T:%5S[N^KT$UL *S!H?5KI@QEL$U%->KFGR<^3_Z?M09"!<5 8K,&MP:,7A:I?8/0#=W+=I82!<5 ;8+/(RT+Z\Z_N" M01LK,&O ZQ(K6%C:!X!ED%TC7=#NJP!I82!<5 8%RZQ9F?SABO$G,!$)V$_F MNC[M@T%S1@2L! =!805-,QTQX +==@+AFOSA6OW=VJPG !,R(?XWD1,[T1,_ M46T@\VFC\Q3B- C!5JV8+E30!U! @>C2+%RI8H' M [B@ '"$#9 / "&#. - C9$3K#$@W#\ ,8,TLZ ( BT<,.B>VXN(A@PX( M6+;,#<$UHX Y(8J(O2471A$X!@/,A5F13)R_N'K3W1JJS<&!&=)FV,.U 4"S M"[B".(:,8#)CRS(F[^+A(=<5J_\4 0( 1A4/ '0$++HF&@ 0TZA5LQX- G;J MU8H V)8]:)T6<=$&Z4.-0PKB7 H X (Q65R^RX]Q,9F<)5JX1<%DD'NL75&Q MQ]'265'L@I5V*(^Q/!9'SPNN!I:3/S8RR)^6.5/S_(,..7-T!I8)1=12! UP MP ==?.&%%EG(]$PH+ P%#"U)-!,"+@748"$CP(Q220")>#!) +IP$0"&)5BH M"S@"T)* BK4(T,P)#2B !!1RT#'%&""T ,(1G)$3I@V(-&W@L"G3IHP; M.@[#@)@8!@[#,0[GC)%3QB,(,G4R@C 3T6(8@0@5("DC9TR=C0[;O''S9@R: MFF5&4C29!B4(,6_"R"'C D02.B#NA'%X1TX:.G1-'OES'%1N3*5-R#81$7\.*]$BFW\SL&H,8_9/'"2(H$BA=[H4!E?H556:R?$< )CLQ)W@@RW/F@;'6]4 M!AH936F6U!TGH<%8DJW1<0=JE(8)*HH.O=6:DSX!51E44B'&:J>$Y6DG'"!( MF"2KV[EQ E9UE,H7'6&4.EQ#?KE:6:TG[(#D<)J]]$:!ZF*U75:,8O5MO'34 MRY*!("2X8(,GAN%=O*8RJ8!]9LEAVZXGI%#FN8;E56!(;MCF*V./Y1HO"/CB MRC*O+%2FJ8^=LO%I=F602[&2][%$1QURN%%5%B&/L;*H29T%';#!M:3'DCFM M'*^)&7Y9J4/$SJ%1&+^BIMH;B_4KF% L_:B:D?ZIF) 2HF+E:L,Q-L@T34XG M39R<'E5U&@CMTEW&TQU[*7'*M]4$)-D*5=&?#" MA^=E;73T44APY":5GUBUEMT9H+D!VAG+*CE8>&- G=!E7!+