MuGDUMP COMgʥGDUMP DOCh-+ ͫCopyright (C) 1985 BORLAND IncB Visual 1050 selectedP=  ~7#~=  oͦlԅ!!"~#(}:$= +*!6!*!!:(2!6:(>2!!!:O::O:!*! !45(! +/ 0y0( d!k6!{6``o&  :(͠|(  *"x2y( >28!"9!! og2"">~22!:05+:!Co&ͦͣ} [ (!e|ͧA8Q0G: x@!\w# (̓ ?(*( .( x_. _!h6# (?( *( ̓( w#>?> w#ͧ 8 !ɿ .,;:=?*[]<>{}a{ |͵};Ɛ'@'7||}>2Ͱ*Bک  "og"2>2! ""*B"[Rv*"^#V#^#V#N#FO/o&9O/o&9!9(> (G!9 w#Eͻw}8( RB0 >( RrRR!+ ͱ R!+ ͱ s!+ ͱ s!+ ͱ s!# ͱ s!+ ͱ T]KB!z> S>))0 = | |́́DMgo>jB0 7?= H͓<z5b)b<z {0Gɯgo||}||/g}/o#}o&K[xAJSJDM!b"!6J"DM'd } * W _}8(8J`9{T]=o`9y *  >( ͂ ͭ͘ }>( x‰ }} ˸T}ٕ(0D={ ,= ( ͓ 0%| , 7 ?(8ͭ x ͇ - s 8˸x ͐  ,-xG}s }مN 9s .>#n0͓ | = - nx ͈ ,-(-˸G,-s }ٕ?N 9.> 8ͭ ?= u+-(>͇ 0ͭ ͇ 8 ?x ͈ , 78ƀ8ƀ8ox٨!دoGOW_gɷɷ|لg{ً_zيWyىOxوG|ٔg{ٛ_zٚWyٙOx٘Gxٸyٹzٺ{ٻ|ټx٨ xx( ?}ٽ }ցs <(s 7| = |٤g{٣_z٢Wy١Ox٠G| ͭ ͂ }x>( ͭ}ƀ/ƀo  -͂ }0͏-͂ ͏,}l˸ 8 5 ͘ x( - 8͂ - 8,͂ }l8;*!͘ ! >5ͭ͘ ͘ ͭ--- ͂ ,,,-xGg?+2n*8t z~,->( x( ͙}. ͇͂ , ! >5,ͣ- o&0% ,͘  }gs }؉}颋.:}8c~I$I~L*ͣٷx˸ }0G,<} ,-(-͂ !>J0 ͙͘ o8 ͇ >( m.`1pF,t6|!wS<.z}[|%FXc~ur1}͇ٯx(<˸ 8 !~J 0/O!>t 8 =  o t͘ ͇ /o 0 ͏-͂ OT0 j oD,:j !I}袋.}8c~I$I~L! >ͭ͘ JØ oo ͘ = ͇ nf^VNF!DLT\I!!53!r1!͓!> x #-= o˸x͇(- }(x>8({ ,{ `iÄ!>( |s |́>)=|(DMbo˸88x(0 8> ́x(>-{(ay( z(>. ( {>E>+|(|Dg>-|/ 0:p# ~# +>0w#,-  60#~˸}րogM| .({ = ~> x0w#xG%͈ %͈ ZJDM%͈ = _~65+~hìx-Sx9?+{Η@}|{ { gZJDM0| ,7}o˸@ #yO!@9i&@  #@w#@/w#@w#!9! E9!!9~(+Fͻ!"9!(#>2*"| >"2:( ͷ *w*6 !\$![ (ͧ( #:~CONTRMKBDLSTCAUXUSR>2j:*ˮ~1:*:(@q##p[* :(  ~* < >26"!"""~>2""v>2>"!"ˮ(!~8>~O6~*"w(6(2(-()(6 (8 0 :(* y(~#+ (( 66 #6 #"*: y~o p .##~ͻ(.6w4._~ =*##55= *[R8*~#"= ͣ}== ͯ}͵}*#w+#~+>*~('l!0(ˮ]l!8ˮ!]~-#8~>27lˮw>O%7̄s #r%ͤ7̐ l ( (ˮ ql(ˮ ( l ˮ*O:~ ##~._q4((=ʦ==ʩ=ʬò*:4^q*##~6ͻ>2}*|(̈́|( ̈́6-#[RM8( G> A~#*(C! !TRUEFALSE!9N#Z~#( G~#> >    "~(lѻ(( !0 (ˮ!!>2S{:1:*6##ww#w$w#w:  ##N#F*B>2w#w#[s#r> "~ͯ*-w#ww##> ͯÂ""~>2:[R0 *4#4>2:[R> *4 #4(> >22*f(/˦:G(##~++ :O x yD!ͻ Q*:G(##~._.͛g<]=<͛*##w ͯ +4 #4x>>2:G("ͯ"*nˮ*0 S[ѷR8@* N#F#s#r- 0})jS\*##w+ N#FB ͯr+s>2!T]>)j)0 0= ^R!#^*^#V#N#F#^#V>2ͱ:1:*6 #-Nw#Fwq#p#6#w#w#w"~Â>">!DM!":*B:!>(>2>">!"2"~ʱ*w#wx(9* :O *-4 #4!*4 #4 *-N#Fq#pV+^Bq#pS[ѷR'* s#r$ s#rM <?*M!\  <( !\$>2>2M:>!(* \$\<(!4: [1ð\!(7"~> 2"S"Ns#FrB(Z#\: \<(?*"}K\! !*}#"}! x \* *>* 2""{_!"*nf}(HR0nf" ^VMDnfutqp*s#r*s#r"* vKB!1>( ~#fo{_"*R0RnfR0KqputsrNF( ^VNF^V*SutKqp R*R(~w~wnf ut"6#L*L*!""*NFy(* "*B0Cnf* [R*"*RS[s#r^#V""6#>O"w2x2*"!G"" 'z*"*>2"*"!G"""!\*: Os!~6go(\R*s#r_2x( s x(T]DMx(R0 U(͞O/o&9q# (!>F0#( ~ ( #]( ~ ( (#}(  i&T-a%ã}ͧo*!~6o&|:2!2}:__{ѯ2*|KB " z ^C User break+=  I/O Run-time error {͵, PC=*ͰNot enough memory Program aborted :m'1!e!4B>.@@#COPYWRITE (c) 1988 by Alex Fetesoff!ͻ!#!*#!#!#!# !ͻ!#!*#!#!#!# !Mh"*!|g}o"*!͓Eʖ!""*!!Ϳ*!!Ϳ͜!#!?#!;!ͫ!;#!;!ͫ!R# !Mh"!! i!! i!! i͖!!Mh"!! i!! i!! i͖!***!Eh.!!gz""!*)***!s#r*#Ö"!*+)!!)^#V!|g}o!!!!)^#V!|g}o!!!!)^#V!|g}o!!!!)^#V!|g}o!!!!)^#V!|g}o!! !!)^#V!|g}o!!@!!)^#V!|g}o!!!!)^#V!|g}o!s#r*!"!*+)!!)^#V!@|g}o!!!!)^#V!@|g}o!!!!)^#V!@|g}o!!!!)^#V!@|g}o!!!!)^#V!@|g}o!! !!)^#V!@|g}o!!@!!)^#V!@|g}o!!!!)^#V!@|g}o!s#r*!"!*+)!!)^#V! |g}o!!!!)^#V! |g}o!!!!)^#V! |g}o!!!!)^#V! |g}o!!!!)^#V! |g}o!! !!)^#V! |g}o!!@!!)^#V! |g}o!!!!)^#V! |g}o!s#r*!"!*+)!!)^#V!|g}o!!!!)^#V!|g}o!!!!)^#V!|g}o!!!!)^#V!|g}o!!!!)^#V!|g}o!! !!)^#V!|g}o!!@!!)^#V!|g}o!!!!)^#V!|g}o!s#r*!"!*+)!!)^#V!|g}o!!!!)^#V!|g}o!!!!)^#V!|g}o!!!!)^#V!|g}o!!!!)^#V!|g}o!! !!)^#V!|g}o!!@!!)^#V!|g}o!!!!)^#V!|g}o!s#r*!"!*+)!!)^#V!|g}o!!!!)^#V!|g}o!!!!)^#V!|g}o!!!!)^#V!|g}o!!!!)^#V!|g}o!! !!)^#V!|g}o!!@!!)^#V!|g}o!!!!)^#V!|g}o!s#r*!"!*+)!!)^#V!|g}o!!!!)^#V!|g}o!!!!)^#V!|g}o!!!!)^#V!|g}o!!!!)^#V!|g}o!! !!)^#V!|g}o!!@!!)^#V!|g}o!!!!)^#V!|g}o!s#r*!"!*+)!!)^#V!|g}o!!!!)^#V!|g}o!!!!)^#V!|g}o!!!!)^#V!|g}o!!!!)^#V!|g}o!! !!)^#V!|g}o!!@!!)^#V!|g}o!!!!)^#V!|g}o!s#r*!"*!"{""!*gzʹ."!*+)!*+)^#V!|g}os#r*#|.!E !}2!}2!}2͜!E0͜!#ͻ[A ͜ͻIs this an RLE printout? (y/n) ͺ.*&!! ^P}oEJ/ͺ.)/*&!Ỳ*&!ỳ}oEu/!}2!!gzʪ/"͜!#! #!# *#À/͜ͻReverse black/white? (y/n) ͺ.*&!! ^P}oE/ͺ./*&!Ỳ*&!ỳ}oE0!}2!!gzR0"͜!#! #!# *#(0͜ͻShort vertical spacing? (y/n) ͺ.*&!! ^P}oEʝ0ͺ.|0*&!Ỳ*&!ỳ}oE0!}2!!gz0"͜!#! #!# *#0͜!̀Ew1͜!#ͻ[Aͻ !#!#!#!#!#!#!#!#!#!#!#!# !"!"!"!NLST:p ! !ͻ!#!A#!# *&!̀E1!ͻ!#ͻ~0!# *&!̀EO3*!%Eʌ2!"!"{"*!"*!"n!*&!̀EQ2!i.!!gzʉ2"!ͻ!*+)^#V# *#\21!"!"{"*!"*!"n!*&!̀E2!i.!!gz3"!*+)!*+)^#V!|g}os#r*#2!!gzO3"!ͻ!*+)^#V# *#"3*&!̀E4!"!*!E4!"!"{"*!"*!"!ͻ *&!̀E3!i.F!!!gz3"!ͻ!*+)^#V# *#3g3 {"*!"*!"!ͻ *&!̀Eʀ!i.F!!!gz"!ͻ!*+)^#V# *#3gNotes on GDUMP2 This is a raphics DUMP program which copies your screen to an Epson-FX compatable printer at 80 dot/inch horizontally. Essentially, it prints out dot for dot exactly whatever is on your screen, with an inverse video option, and print a displayed RLE only option. Source code is in Turbo Pascal, and the printing is reasonably fast; about 3.5 min. per screen with a Citizen 120D printer. It is made to run on the Visual 1050 __only__. If you use one of the alternate character sets or a custom made character set, this is one way you can print out those special characters. It's also another way to get a hard copy of the drawings you make with the 1050 CAD and the other drawing program, GRAPH.INT. You will probably use this program from a command line; at the A> prompt you will enter...gdump. In this case the area where the command line is displayed will be overwritten, the best I could do was to make that area blank out. If you write a program whose screen output you want dumped to the printer, you have a choice of where to leave your cursor; near the bottom might be a good choice. Programed this way, you'll be able to get most of the output printed. Not elegant, I know, but useful. There is another way to use the program, and that's with a parameter. Any parameter will do; simply enter something like...gdump x...and you'll be asked three yes/no questions. The first one wants to know if it's an RLE graphic you want printed out. It need not be an actual RLE, the graphics' original source isn't important. What it's really asking you is if you want the 256 dot wide 192 dot long area in the upper left corner _only_ to be printed. This is the area of the screen that receives the picture when you run the program DERLE002, which displays RLE graphics (on the Visual 1050 only). That program leaves the cursor a couple of lines below the picture, allowing you to enter a couple of commands before the graphic scrolls off the top of the screen. Answering no (n) will make the entire screen print. The second question wants to know if you want the foreground and background brightnesses reversed. Normally, as when using the program without a parameter, the printout will look like the graphic on the screen when the screen is in the reverse mode (ESC ; Y), or when your typing appears as black characters on a white background. If you answer yes (y) to this question, your printout will look like the graphic does when the sceen is in the normal mode (ESC ; Q). It's probably best not to assume there is an absolute right or wrong way to display and print a graphic, you get to choose what looks best for you. The third qestion wants to know if you'd like the graphic printed with a shortened vertical dimension. An answer of no (n) will cause the linespace to be 1/9" (or 8/72" or 8 dots), so with each pass of the 8 dot print head the paper moves up 8 dots. Sounds perfect doesn't it? Well, I don't know if it's just my printer or what, but with this setting I often get very thin streaks of white between each set of 8 dots. This doesn't look bad when the graphic is mostly white, but in larger areas of black it become noticable. So, I put in this option to get 15/144" spacing, in effect, covering any the white lines I've been getting with a half dot. You be the judge of whether you need it. You may also want to use this option to change the proportions of the picture slightly, which on the Visual tends to look elongated vertically anyway. If you need to abort a print out, first enter CONTROL-BREAK, __then__ turn the printer off. FOR THE PROGRAMER... Those who like to experiment might want to try the BDOS 47 call which allows you to load and run a program from inside of another program. I've played with this enough to know it works. If you use Turbo Pascal, something like the following code should work for you: var xptr:^char; n:integer; const name:string[13]='GDUMP'; {the program to chain to} begin xptr:=ptr($80); {pointer to file buffer} for x:=1 to length(name) do begin xptr^:=name[x]; xptr:=ptr(ord(xptr)+1); {load file buffer with name} end; xptr^:=^@; {null terminator} bdos(47,1); {call BDOS 47} end. {put the var and const declarations at the top of the host program and the lines between begin and end at the very end of the main body of the host program (just before your END. ).} I've tried the above code but not the following which is much simpler: var x:integer; varname:string[30] absolute $80; begin varname:='GDUMP'; bdos(47,1); end. Of course, you'll have to use GDUMP without a parameter in this case or else the questions will be displayed, thus defeating the purpose of doing it this way. The other thing you'll probably want to do is to turn off the cursor, because it still shows up as GDUMP is loading. Try a write(^[,';A') before the bdos(47,1) to turn it off. COPYWRITE (c) 1988 by Alex Fetesoff. This program is shareware and as such may be distributed freely but not for profit. With such distribution must be included the above documentation and this paragraph. I disclaim any warranties, expressed or implied, including any warranties of merchantability, performance, and suitability for any purpose with respect to this software and documentation. But I hope you like it anyway! If you have questions or comments, send email on GENIE to alex.f or on CompuServe to 72277,1607.