Michael Preslar wrote:
Back in the DOS Turbo Pascal days I could do the following
type
screentype= array[1..4000] of byte;
screenptr=^screentype;
var
screen1: screenptr;
procedure savescreen(scr:byte);
var
sc1: byte absolute $b000:0;
sc2: byte absolute $b800:0;
begin;
if screenaddress=$b0
> Thanks to all for the pointers. The FPC IDE source is definitly useful.
> Will have to play with that and see what I can come up with..
(note that the IDE is based on FV which is based in turn on units
keyboard,video,mouse)
___
fpc-pascal maillist -
] On Behalf Of Jonas
Maebe
Sent: Tuesday, June 20, 2006 10:01 AM
To: FPC-Pascal users discussions
Subject: Re: [fpc-pascal] Cross Platform Save/Restore Screen
On 20 jun 2006, at 16:45, Michael Preslar wrote:
> Now I'm stuck. How can I do the same for Win32 Console apps, and
> *nix/*
Michael Preslar wrote:
> Back in the DOS Turbo Pascal days I could do the following
.
.
> Now I'm stuck. How can I do the same for Win32 Console apps, and
> *nix/*bsd console apps?
>
> (For anyone wondering.. I'm the Legend of the Red Dragon developer
> [remember that old beast?], and after porti
On 20 jun 2006, at 16:45, Michael Preslar wrote:
Now I'm stuck. How can I do the same for Win32 Console apps, and
*nix/*bsd console apps?
See the user screen unit of the IDE:
http://www.freepascal.org/cgi-bin/viewcvs.cgi/trunk/ide/fpusrscr.pas?
rev=3297
(For anyone wondering.. I'm the Leg
> Back in the DOS Turbo Pascal days I could do the following
>
> type
> screentype= array[1..4000] of byte;
> screenptr=^screentype;
> var
> screen1: screenptr;
>
> procedure savescreen(scr:byte);
> var
> sc1: byte absolute $b000:0;
> sc2: byte absolute $b800:0;
> begin;
> if screenaddress=
On Tue, 20 Jun 2006, Michael Preslar wrote:
Back in the DOS Turbo Pascal days I could do the following
type
screentype= array[1..4000] of byte;
screenptr=^screentype;
var
screen1: screenptr;
procedure savescreen(scr:byte);
var
sc1: byte absolute $b000:0;
sc2: byte absolute $b800:0;
begin;
if
Back in the DOS Turbo Pascal days I could do the following
type
screentype= array[1..4000] of byte;
screenptr=^screentype;
var
screen1: screenptr;
procedure savescreen(scr:byte);
var
sc1: byte absolute $b000:0;
sc2: byte absolute $b800:0;
begin;
if screenaddress=$b000 then move(sc1,screens1
