HDTenEightyP/NetNews huggingface dataset:
From:  Andrew Kovalenko <Andrew.Kovalenko@p5.f81.n5020.z2.fidonet.org>
Subject: BP7 using Extended Memory
Date: Mon, 21 Dec 1992 09:26:44 GMT
Reply-To: Andrew.Kovalenko@p5.f81.n5020.z2.fidonet.org
Organization: InfoSoft (Gid:infos.msk.su)

13 Dec 92 04:32, Chris Hafey wrote:

 cce>   I just read in the last issue of Dr Dobbs Journal an article on the new
 cce> BP7.  The author stated that he was only able to get 4 megs of extended
 cce> memory from his machine which had a total of 16 megs of ram.  Is this
 cce> true, and if so can someone explain why?  Also- when a program is in
 cce> protected mode, does it have to switch back to real mode to use msdos
 cce> function calls like file i/o?  In protected mode, is the extended memory
 cce> only available for data/variables or can code exist there as well?  In
 cce> other words, does your code still have the 640K limit, or can you have a
 cce> non-overlayed program with 2 megs of code?  Thanks for your time..

  You can switch to real-mode, using DPMI functions. One of int 2Fh functions
returns a far-pointer to Real/Protected mode switch procedure. A call to it 
turns your application to protected/real mode, and returns new prefix segment 
value. But, I think, You are not needed to do this to perform DOS calls, 
because DPMI sets its own interrupt vectors for all the software & hardware 
interrups. But, I think, You need is to transform the segment parts of pointers 
to their real-mode values to call DOS functions like disk read or write. The 
DPMI survices provides this.

 cce> Chris Hafey

Andrew Kovalenko

--- GoldED 2.40.P0621+
 * Origin:  ********* AGAMA online *********  (FidoNet 2:5020/81.5)
From: vanney.raphael@lill.frmug.fr.mugnet.org (Vanney Raphael)
Newsgroups: comp.lang.pascal
Subject: HOW TO CREATE FONTS FOR B
Date: 23 Dec 92 21:24:00 GMT
Reply-To: vanney.raphael@lill.frmug.fr.mugnet.org (Vanney Raphael)
Organization: Li'LL BBS - Paris, France

JB>I hope this is not a FAQ, but is there anyway to create special fonts
JB>for use with BP's BGI?

Hello !

' should ask Borland for the adequate toolkit.

Alp,                                              Raphael.

 * OLX 2.1 TD * Please stop expanding your (& my) phone bill with tag
lin
--- FMail 0.92
 * Origin: ICEBERG - La Garenne * FRANCE * Tel:(33)-1-47699261 (2:320/1)
From: vanney.raphael@lill.frmug.fr.mugnet.org (Vanney Raphael)
Newsgroups: comp.lang.pascal
Subject: RE: TURBO PASCAL FUNC. ER
Date: 20 Dec 92 19:13:00 GMT
Reply-To: vanney.raphael@lill.frmug.fr.mugnet.org (Vanney Raphael)
Organization: Li'LL BBS - Paris, France


 -=> Quoting Thomas Rose to All <=-

 TR> From: toddy@uni-paderborn.de (Thomas Rose)
 TR> Newsgroups: comp.lang.pascal
 TR> Subject: Turbo Pascal Func. Erease
 TR> Date: 2 Dec 92 15:59:32 GMT
 TR> Organization: Uni-GH Paderborn, Germany

 TR> Hi, I have a problem with Turbo-Pascal 6.0 and the Procedure
Erase(f).
 TR> The following little program shoud demontrate it:

 TR> program test;

 TR> uses dos;

 TR> var f   : file;
 TR> err : word;
 TR> Begin
 TR> assign(f,'test.dat');
 TR> erase(f);

 TR> err := ioresult;

 TR> repeat until keypressed;
 TR> erase(f);
 TR> err := ioresult;
 TR> end.

 TR> When you test it with a write-protected disk, then you'll get first
 TR> the errornumber 150:'Disk is write-protected', but when you try it
 TR> once again, then the next errornumber is 2:'File not found'.

 TR> I need this Function for a program which deletes all files on a
disk.
 TR> But when the disk is write-protected and i ask the User to remove
it,
 TR> i have to try it once again. But then, the file will not be found. 

Huh ? Seems like your disk cache has got a problem handling this : I
never
encountered such a problem ;-)

 TR> Then another problem: is it possible to open a file, which has the
 TR> attributes 'read-only' ?? I tryed it with : 
 TR> program test;
 TR> var f : file;
 TR> begin
 TR> assign(f,'io.sys');
 TR> reset(f);
 TR> writeln(ioresult:3);
 TR> end.

 TR> but i got the errornumber 5:'access denied'

Hi !
I have no satisfying answer to your first question, but here is how to
open a file with R/O, Hiden and/or System attributes :

Uses DOS ;
Var  f    : Text ;
Begin
     Assign(f, 'IO.SYS') ;
     SetFAttr(f, 0) ;         { Don't expect this to work with
directories
                                nor volume id }
     { Here, take a look at DOSError }
     ReSet(f) ;
     { Check IOResult }
     .
     .
     .
     Close(f) ;
     { Eventually restore original file attributes... }
End ;

 TR> Please reply to duep@uni-paderborn.de

 TR> thanks and goodby,  Juergen Duepjohann


 TR> -!- GEcho 1.00
 TR>  ! Origin: Li'LL BBS - Paris France - (33-1) 43.07.40.97 (2:320/7)

                                             Raphael.


... Sorry, the Dog ate my Blue Wave packet.
--- FMail 0.92
 * Origin: ICEBERG - La Garenne * FRANCE * Tel:(33)-1-47699261
(2:320/1.0)
From: ts@uwasa.fi (Timo Salmi)
Newsgroups: comp.lang.pascal
Subject: A subjective look back at 1992 in the CBIP newsgroups
Date: 30 Dec 92 14:33:25 GMT
Organization: University of Vaasa, Finland

>Here is my very subjective look back at 1992 from an archive site
>maintainers's, a newsgroup co-moderator's and cbip discussion
>subgroups (and later cam.d) reader's point of view.
:

Thansk to a nice feedback I came to think of comp.lang.pascal
readers.  I posted the look-back to comp.archives.msdos.d, but in
case such comp.lang.pascal readers happen to be interested who
cannot read the said newsgroup, the text is alternatively available
as 6673 Dec 30 09:28 garbo.uwasa.fi:/pc/pd2/hist92.zip

   All the best, Timo

..................................................................
Prof. Timo Salmi      Co-moderator of comp.archives.msdos.announce
Moderating at garbo.uwasa.fi anonymous FTP archives 128.214.87.1
Faculty of Accounting & Industrial Management; University of Vaasa
Internet: ts@uwasa.fi Bitnet: salmi@finfun   ; SF-65101, Finland
Date: Thursday, 31 December 1992 13:29:56 MST
X-Mailer: TMail version 1.15R
From: "D. C. Sessions" <dcs@witsend.tnet.com>
Organization: Nobody but me -- really
Subject: Re: Distributing TPUs
Newsgroups: comp.lang.pascal
Distribution: world

In <1992Dec31.121645.6747@qiclab.scn.rain.com>, leonard@qiclab.scn.rain.com (Leonard Erickson)  wrote:
# 
# trodgers@nmsu.edu (Thomas Rodgers) writes:
# 
# >dmurdoch@mast.queensu.ca writes :
# >> It's a trade-off.  .TPU files contain some optimizations that make
# >> compiling and linking go much faster than ic could with .OBJ files; 
# >> these mean upward compatibility is essentially impossible.
# 
# >Hmmm...Having used Borland's C++ product as well as their pascal
# >product, I think I would rather put up with slightly slower compile times
# >to get the ability to use .OBJ files, for several reasons.  Borland's
# >C++ product is not that slow of a compiler, the biggest slowdown comes
# >from compiling all of those <.h> files, but you can pre-compile the
# >headers (not the greatest solution, but it works).  Borland could go a
# >similar route with the Pascal units.
# 
# Well, TPU files have a *big* advantage over OBJ and LIB files in one
# area. If I only use *one* function or procedure from a TPU, only the
# code required for *that* is incorporated in the final EXE. Ditto for
# constants defined in the TPU. Only the ones that get *used* are incorporated.

  Yes, but smart linkers do this with .OBJ files as well.  'Way back
  in '88 (do I sound like a fogey yet?) Logitech's Modula-2
  compiler and smart linker were doing this trick.  The compiler
  had to put some extra symbols in the image, but that was necessary
  for .DEF timestamping anyway.  So, since Borland didn't add the
  feature until AFTER it was available elsewhere for .OBJ files, they
  still have a lot of NIH to explain away.

--- D. C. Sessions                            Speaking for myself ---
--- Note new network address:                dcs@witsend.tnet.com ---
--- Author (and everything else!) of TMail  (DOS mail/news shell) ---
Newsgroups: comp.lang.pascal
From: otto@netcom.com (Otto Fung)
Subject: Re: TurboVision and Os/2 2.0
Organization: Netcom - Online Communication Services (408 241-9760 guest)
Date: Wed, 30 Dec 1992 23:52:27 GMT

In article <1992Dec30.202651.15811@news.nd.edu> jonathan@nova.decio.nd.edu (Jonathan Bradshaw) writes:
>Would those people using BP7 under Os/2 let me know the problems and fixes
>they have found? Specifically, the one I just found is TurboVision applications
>will crash the session if you touch the mouse! This is ridiculous.. <Grin>
>Since the actual IDE does not crash I assume this is a fixable problem.
>I have seen some .FIX type files mentioned - - where are these to be found?
>
	In BP, I found that if you compile TV programs as Real mode program under OS/2 and run it inside IDE, it will crash (well, terminate the DOS session). But if you do the same thing but compile (target it to) Protected mode applications, it is just fine. Strange but it works. It is a temporary work around for me, still looking for some better fix thoughd.
 













-- 
===============================================================================
|   Otto Fung                                                                 |
|   CompuServe: 76260,631                     Fidonet: Otto Fung @ 1:204/12   |
|   Internet  : otto@netcom.com                otto@f12.n204.z1.fidonet.org   |
|   Fax        : (415)572-8506   Voice: (415)572-0892   Modem: (415)572-966   |
===============================================================================
From: berend@contrast.wlink.nl (Berend de Boer)
Newsgroups: comp.lang.pascal
Subject: Turbo Vision Keys?
Date: Tue, 22 Dec 1992 13:54:46

Gerald Boersma wrote in a message to All:

>I will *NEVER* follow such a stupid standard if I can avoid it!

 GB> I agree, I agree! Doesn't the problem lie with the standard?
 GB> The point of a standard is to have some sort of similar
 GB> operation between software. But if the standard is counter
 GB> to what a lot of people think, it just confuses the issue,
 GB> and the standard should be changed.

What are a lot of people? And what is the problem with learning a new
UA anyway of you can apply it to all computers and all software? Maybe
it is contrary to what PC people are accustomed to, but what were PC
people accustomed too? Every program had its own UA with its own keys
with its own ....

 GB> And who thought of this standard anyway?

IBM


 GB> Gerald Boersma
 GB> "If you don't like my opinion, come up with your own!"

That's why I wrote! Greetings,


Berend. (-:
fido: 2:281/527.23
email: berend@contrast.wlink.nl
From: vanney.raphael@lill.frmug.fr.mugnet.org (Vanney Raphael)
Newsgroups: comp.lang.pascal
Subject: RE: DATE -> DAY OF WEEK C
Date: 20 Dec 92 19:34:00 GMT
Reply-To: vanney.raphael@lill.frmug.fr.mugnet.org (Vanney Raphael)
Organization: Li'LL BBS - Paris, France


 -=> Quoting Ijaz Rashid Malik to All <=-

 IRM> Newsgroups: comp.lang.c,comp.lang.pascal,comp.lang.c++
 IRM> From: ummalik@ccu.umanitoba.ca (Ijaz Rashid Malik)
 IRM> Subject: Date -> Day of week conversion
 IRM> Followup-To: poster
 IRM> Organization: University of Manitoba, Winnipeg, Canada
 IRM> Date: Fri, 11 Dec 1992 12:48:19 GMT


 IRM> Could someone please forward me algorithm to convert the date (in
 IRM> dd.mm.yy or yy.mm.dd format, but assume individual fields can be
 IRM> obtained as integers) to corresponding day of the week.

 IRM> Thanks very much.

 IRM> Malik


 IRM> -!- GEcho 1.00
 IRM>  ! Origin: Li'LL BBS - Paris France - (33-1) 43.07.40.97 (2:320/7)

Here is an efficient-if-not-clean way of doing this :

Uses DOS ;

Function DayOfWeek(d, m, y : Word) : Word ;
Var  sd,
     sm,
     sy,
     Dum  : Word ;
Begin
     GetDate(sy, sm, sd, Dum) ;
     SetDate(y, m, d) ;
     GetDate(y, m, d, Dum) ;
     DayOfWeek:=Dum ;
     SetDate(sy, sm, sd) ;
End ;

-> why not let the DOS do the job ! :-))

                                             Raphael.


... The last thing I saw was this Big Blue Wave!
--- FMail 0.92
 * Origin: ICEBERG - La Garenne * FRANCE * Tel:(33)-1-47699261
(2:320/1.0)
From: trodgers@nmsu.edu (Thomas Rodgers)
Newsgroups: comp.lang.pascal
Subject: Re: LARGE Sorts and such...
Date: 4 Jan 93 00:47:31 GMT
Organization: NMSU Computer Science

Your best bet is a Merge sort, which is designed to sort manageable
chunks of a very large input file.  The idea is that the input is
broken up into many small pieces, each of which is sorted, then all of
the sorted pieces are merged back together.  Any good advanced data
structures book will have a discussion of the algorithm.  A commercial
product for TurboPascal that does this is included in Turbo Power
Software's BTREE Filer.  You might look into that if you don't feel
inclined to write the code yourself.  However, with BTREE filer, you
might just as well put all of the records in an ISAM database and
order them on your sort criteria and be done with it.

=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
trodgers@nmsu.edu     In Real Life ???

                     ---------------------------
    "Bob's" promise is to widen the scope and nature of *abnormal 
behavior*, to explore NEW WAYS of going over the edge *and coming
back*.  PLUS to *bring back those who couldn't on their own*...to
help you create the HIGHEST POSSIBLE EARNINGS from the PSYCHODYNAMICS
of ABNORMALITY...to turn Conspiracy-implanted personality disorders
into an ILLUSION OF CREATIVITY that will *fool normals* and GET YOU
SEX!
--
  Excerpted from an online pamphlet for the Church Of The SubGenius

 
Newsgroups: comp.lang.pascal
From: dmurdoch@mast.queensu.ca (Duncan Murdoch)
Subject: Re: Setting Watches
Organization: Queen's University
Date: Tue, 29 Dec 1992 02:49:00 GMT

In article <85895@ut-emx.uucp> baylor@ccwf.cc.utexas.edu (Baylor) writes:
>	I have set it's constant and variables in the procedure.
>When i do, i can't watch any of these variables - the watch 
>windows claims it doesn't know the symbol (below, CurrentPlane,
>Page_1_Offset, ScreenHeight&Width, PlaneWords).

...
>	I also think i'm getting the wrong value for tracing
>registers. While watching/tracing this statement
>	mov di,8000
>I can see di = 65,535. Later (after the movsw which affects di)
>di claims to be 8,000 then 16,000 as the code goes on.

These both sound as though your source code is not in sync with your .EXE.  
Be sure to recompile after any change, and be sure that you only have a 
single version of the .TPU on your disk, or you may link the wrong one (with 
obsolete debug info) into the executable.

Something that I just discovered (but which may well be documented somewhere 
or other) is that you can watch variables in other scopes by prefixing the 
variable name with the scope name; e.g. to watch myvar in myproc even while 
you're in some other procedure (but while myproc is active), watch  
myproc.myvar instead.

This works in the BP 7 IDE; I don't know if it's a new addition or not.

Duncan Murdoch
From: u912078@daimi.aau.dk (S|ren Erland Vest|)
Newsgroups: comp.lang.pascal
Subject: Sprites in TP6.0 ???
Keywords: sprite, seen, where, HEEEEELLP!
Date: 21 Dec 92 09:39:10 GMT
Organization: DAIMI: Computer Science Department, Aarhus University, Denmark

Hi all,
I don't know if I have been dreaming, but I think I saw sprites mentioned on 
this group a while ago. I didn't pay attention then (stupid me) but now I
*REALLY* need them...

P L E A S E, mail or post on this group, if you know where I can find these so
needed things, preferrably on a ftp-site.

Thanks,
Soeren E.

--------------------------------------------------------------------
SnailMail:                                      E-mail:
Soeren Erland       \_\_\_  \_\_\_  \_   \_
Gertrud Rasks vej 1  \_      \_      \_   \_
8200 Aarhus N         \_\_\_  \_\_    \_   \_   u912078@daimi.aau.dk
Denmark                    \_  \_       \_ \_
Sorry, no phone!        \_\_\_  \_\_\_    \_

                            -the one
--------------------------------------------------------------------
(That is NOT a sig, this is:)



-- 
Strapped to the chair at the city's gaschamber,
               why I'm here I can't quite remember

                            -Guns'n'Roses
Newsgroups: comp.lang.pascal
From: dmurdoch@mast.queensu.ca (Duncan Murdoch)
Subject: Re: Using streams
Organization: Queen's University
Date: Thu, 31 Dec 1992 17:44:33 GMT

In article <34848@adm.brl.mil> astoner@mcis.messiah.edu writes:
>1.  Is there a way to tell what type of object is being read from a stream?
>I know the stream has to know because it uses the Object ID to call the
>correct Get method, but I haven't been able to determine if my main program
>can tell.  I thought I had read at one place in the manual that you needed
>to keep track of the order things were put on the stream but haven't been
>able to find it again.

You can read the signature word yourself, and look it up in your own table.
Alternatively, you can load the object, and call some "self-identify" method 
that you've put in all objects.  There isn't any support for either of these 
in TurboVision, but they aren't hard to add.

2.  Is there a way to conditionally uses a different type of stream in a
>different environment?  For example, my machine has about 5 meg of EMS,
>so an EMS streams is nice.  But if I take it down the hall the computer
>may not have any EMS so a disk based stream would be the solution.  Is
>there a way to determine what type of stream to use in these situations?
>Maybe using compiler directives or something.

I did this in my Stream13.zip unit (in garbo.uwasa.fi:/pc/turbovis) by 
creating a function (not an object method) called TempStream, that would 
try to create various streams (EMS, XMS, ram, disk) until it found one that 
worked, and return a pointer to that as a PStream pointer.  It works pretty
well.

The new (as yet incomplete) version of the unit lets you create a single 
stream made up of bits and pieces from different sources.

Duncan Murdoch
dmurdoch@mast.queensu.ca
Newsgroups: comp.lang.pascal
From: wigs@yoyo.cc.monash.edu.au (Aaron Wigley)
Subject: Re: Turbo Vision Keys?
Organization: Monash University General Access Unix
X-Newsreader: TIN [version 1.1 PL8]
Date: Tue, 22 Dec 1992 00:33:17 GMT

Kjell Rilbe (kjell@hertz.e.kth.se) wrote:
: Now, I just feel I have to comment this. 

: So why the heck are they not using ENTER for 'Next Field'?????

: I just *HATE* when TAB moves to next field and ENTER accepts the stuff
: by mistake when you really wanted next field!!!!

: I will *NEVER* follow such a stupid standard if I can avoid it!

Personally, I find it easier to use the Enter key to move to next field
after accepting the entire field. 

Solution - get the run time library, and modify the HandleEvent code in
TDialog so that it does what you want. Better still, have a global
variable in the application whether the program is CUA compliant, and
have the user be able to toggle it.

: Just my opinion, you guys don't have to agree!

: /Kjell

The Wigs of Oz,
Aaron Wigley

Merry Christmas - and Duncan Murdoch, I'll have the stream/filter stuff
done soon :)
Newsgroups: comp.lang.pascal
From: amead@s.psych.uiuc.edu (Alan Mead)
Subject: Ok, why doesn't THIS cause an error?
Organization: UIUC Department of Psychology
Date: Sun, 3 Jan 1993 16:43:50 GMT

I'm was a little amazed when I accidentally wrote the below bug.  I
cannot imagine why you are allowed to alter the counter of a for..do
loop.  I suppose it's too hard for the compiler to check?

BTW, this was Turbo Pascal.  And I suppose its a reason to give your
variables (no matter how trivial) a real name...

-alan mead

program bug;
var i,j,k : integer;

  function whatever;
{  var i,j,k:integer;}  { this was the missing line }
  begin
    i := 2;
    for k := 1 to i*x do
     ...
  end;

begin
  for i := 1 to TheEnd do
    whatever;
end.
From: vanney.raphael@lill.frmug.fr.mugnet.org (Vanney Raphael)
Newsgroups: comp.lang.pascal
Subject: HOW TO GET KEYS
Date: 23 Dec 92 21:48:00 GMT
Reply-To: vanney.raphael@lill.frmug.fr.mugnet.org (Vanney Raphael)
Organization: Li'LL BBS - Paris, France

AM>Hi everyone, I have a question. I need to know if there is some
simple
AM>way to do the following. I want to pass as a parameter to a procedure
AM>that will indicate what keypresses are valid. I am doing this already
AM>for regular keys, but I need to be able to list regular keys as well
as
AM>extended key(mostly function keys).

AM>I do like so,

AM>Command_Keys : Set of Char ['Q', 'A', 'K'];
AM>Is there a way to add extended keys to the above.

AM>Andrew.                      Andrew.Makiejewski@canrem.com

Hi !

Well, as long as extended keys are treated by TP as #0 followed by
another
Char, why not using a second set of char to specify the authorised
extended
key codes, that would be checked whenever ReadKey returns a #0 ?

Alp,                                              Raphael.

 * OLX 2.1 TD * Ain't got anything serious to write here ?
--- FMail 0.92
 * Origin: ICEBERG - La Garenne * FRANCE * Tel:(33)-1-47699261 (2:320/1)
From: sweh@spuddy.uucp (Stephen Harris)
Newsgroups: comp.lang.pascal
Subject: Re: Suggestion for BP 7.1
Date: 28 Dec 92 22:14:42 GMT
Organization: Spuddy's Public Usenet Domain

In article <Bzz3v8.FzL@netnews.jhuapl.edu> mfein@netnews.jhuapl.edu (Feinstein Matthew R. F1B x6554 ) writes:
>Here's a modest proposal for BP "7.1" : give us a complete set of
>predefined selectors covering the whole lowest megabyte, like
>Seg0000, Seg1000, Seg2000, ... , SegF000.  This would be real useful
>for those of us with non-standard memory mapped devices.

And a second proposal:
for DPMI and Windows programs allow arrays to break the 64Kb limit.
Heck, maybe even for DOS mode as well....

I just bought BCC++3.1, and the Pharrlap Lite shows a demo program
accessing 1Mb arrays, so why can't Borland add this to Pascal?

I'd probably get the upgrade for this alone!
-- 

                               Stephen Harris
               sweh@spuddy.uucp    ...!uknet!axion!spuddy!sweh

 * Meeeeow ! Call Spud the Cat on > +44 203 638780 < for free Usenet access *
From: washing@hac.com (Walter Washington)
Newsgroups: comp.lang.pascal
Subject: grayscale image representation
Keywords: grayscale image
Date: 21 Dec 92 22:16:30 GMT
Reply-To: washing@hac.com
Organization: Hughes Aircraft Co.

Dear Group,
	I,m a novice user of BP7 and I want to represent a picture in grayscale
instead of color.  How would I do this in BP7? Below is a copy of my program
which reads in binary pixel data and writes it to the CRT.  The picture I get is
color, but I desire for it to be grayscale.

					Thank You,

{*****************************************************************************}
{*                                                                           *}
{*              Image file of binary data                                    *}
{*                                                                           *}
{*                                                                           *}
{*****************************************************************************}
PROGRAM Exec;

USES
  Crt,Graph,Dos,util;
type
  zulu= packed array[0..255] of char;
VAR
  OrigMode: INTEGER;
  imgx: array[0..255,0..239] of byte;
  bline: zulu;
  x,y,drive,l,h: integer;
  infile: file of zulu;



{****************************************************************}
{*              MAIN                                            *}
{****************************************************************}
BEGIN
  OrigMode := LastMode;
  TEXTMODE(C80+FONT8X8);
     assign(infile,'oscal01.img');
     reset(infile);
     for y:=0 to 239 do
       begin
         read(infile,bline);
         for x:= 0 to 255 do
           begin
             imgx[x,y]:=ord(bline[x]);
           end;
       end;
       drive:=6;
       getmoderange(drive,l,h);
       initgraph(drive,h,'e:\walter\pascal7\bgi');
       rectangle(0,0,getmaxx,getmaxy);
       setviewport(0,0,getmaxx,getmaxy,clipoff);
       for y:= 0 to 239 do
         for x:=0 to 255 do
           putpixel(x+20,y+20,imgx[x,y]);
{       putimage(20,20,imgx[x,y],normalput);}
       outtextxy(300,300,'what up doc!!!');
       pause;
       closegraph;
     close(infile);
     pause;


END. { of program Exec }