Path: utzoo!mnetor!uunet!husc6!mailrus!ames!pasteur!ucbvax!MTUS5.BITNET!MCCABE
From: MCCABE@MTUS5.BITNET
Newsgroups: comp.sys.atari.st
Subject: Re: Screen Dump in Personal Pascal
Message-ID: <8804192104.AA22927@ucbvax.Berkeley.EDU>
Date: 19 Apr 88 21:26:00 GMT
Sender: daemon@ucbvax.BERKELEY.EDU
Organization: The Internet
Lines: 36

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  |
+-----------------------+-----------------------------+