govett@avsd.UUCP (David Govett) (04/15/88)
Does anyone know how to print sceen while using the Personal Pascal environment? I though control-alt-help would work, but it doesn't. I wrote a simple PP program that displays a few things on the screen, and would like to dump this screen to the printer. After the program executes, I type ctl-alt-help keys simultaneously, but I just end up back in the PP environment and nothing is printed because PP is waiting for any key input so that it can return. I tried using READLN as my last instruction, but PP still doesn't recognize ctl-alt-help. Is there any way to dump the screen within PP?
euloth@dalcsug.UUCP (George Seto) (04/18/88)
In article <107@avsd.UUCP>, govett@avsd.UUCP (David Govett) writes: > > Is there any way to dump the screen within PP? Have you tried the Xbios call # 20? I believe that does a screen dump. George Seto - Using a friend's account. -- ******************************************************************************* * euloth@dalcsug.uucp || Disclaimer: All opinions are my own unless other- * * /\/\/\/\/\/\/\/\/\/\ || wise noted. * ****AKA: Atari Nut*************************************************************
MCCABE@MTUS5.BITNET (04/20/88)
Date: 19 April 1988, 16:19:03 EST
From: Jim McCabe MCCABE at MTUS5
To: INFO-ATARI16 at SCORE.STANFORD.EDU
Subject: Re: Screen Dump in Personal Pascal
David Govett asks (more or less) how to get a screen dump in Personal
Pascal -- here's how:
I'm not sure if the newest version of the compiler supports a screen
dump instruction but there is an easy way to do this anyway with standard
XBIOS functions.
XBIOS function 20 scrdmp (or at least that's what the Abacus book calls
it -- I've noticed that their GEMDOS function names are severly dain-
bramaged) is all that's needed to do a screen dump. In Personal Pascal,
a simple screen dump program would look like this:
program Screen_Dump;
procedure scrdmp; { The name you pick for this function doesn't matter }
xbios(20);
begin { main }
scrdmp
end.
A lot of seemingly tough things to implement in the older 8-bit machines and
whatnot are easily accomplished with built-in TOS routines.
Good luck with your program!
+-----------------------+-----------------------------+
| Jim McCabe | BITNET: mccabe @ mtus5 |
| G31 ECH MTU | jemccabe @ mtus5 |
| Houghton, MI 49931 | UUCP: mccabe @ m-net |
+-----------------------+-----------------------------+