1. Re: BASIC PRINT SCREEN
- Posted by Jacques Deschenes <desja at GLOBETROTTER.QC.CA>
Oct 14, 1997
-
Last edited Oct 15, 1997
At 15:55 14-10-97 -0400, you wrote:
>---------------------- Information from the mail header -----------------------
>Sender: Euphoria Programming for MS-DOS <EUPHORIA at
>MIAMIU.ACS.MUOHIO.EDU>
>Poster: Rod Damon <RodDamon at AOL.COM>
>Subject: Re: BASIC PRINT SCREEN
>-------------------------------------------------------------------------------
>
>HELP:
>
> The following is a Qbasic/Basic print sceen routine that can be called
>from
>a program that is the same as pressing the PRINT SCREEN key.
>
> CAN ANYONE HELP ME CONVERT THIS TO EUPHORIA.
>
>I'm sure I am not the only one that could benifit from this.
>
>------ Basic print screen routine
>
>DIM PSCREEN%(2)
>DEF SEG = VARSEG(PSCREEN%(0))
>FOR A = 0 TO 2
>READ J
>POKE (VARPTR(PSCREEN%(0)) + A), J
>NEXT A
>CALL ABSOLUTE(VARPTR(PSCREEN%(0)))
>
>DATA &HCD,&H05,&HCB
>
> Thanks in advance: Rod Damon
>
Hi Rod ,
That qbasic code is simply calling interrupt 5 which is the print screen
interrupt.
In euphoria the following code will do the same. Simpler to code than qbasic
version.
---- send screen data to printer
include machine.e
sequence r
r = repeat(0,10)
r = dos_interrupt(#5,r) -- call interrupt 5 (print screen)
---- end of code.
Jacques Deschenes
Baie-Comeau, Quebec
Canada
desja at globetrotter.qc.ca
