We help IT Professionals succeed at work.

We've partnered with Certified Experts, Carl Webster and Richard Faulkner, to bring you a podcast all about Citrix Workspace, moving to the cloud, and analytics & intelligence. Episode 2 coming soon!Listen Now

x

Help with TSR

noskillz
noskillz asked
on
Medium Priority
224 Views
Last Modified: 2010-04-16
I would like to know the steps required to create a TSR in turbo pascal.  I would like to be able to load a simple screen saver, or that type of program.
Comment
Watch Question

Commented:
Turbo Pascal has a command called "keep"  This loads the program into memory at 33h (I don't remember exactly,  but it loads into the same you would have to if you using assembler]

here is a sample program that would print "K" in random locations.  NOTE:  I dont' think you can do this in a windows enviroment.  It must be dos.  Also the syntax might not be exactly on since I have writen in Pascal in a while.  I have been working on UNIX.

program test;
uses dos,crt;
var
x,y:integer;
begin  {main}
     randomize();
     repeat
        x=random(79)
        x=x+1;
        y=random(24);
        y=y+1;
        gotoxy(x,y);
        write("K"):  
     until (keypressed)

     keep(1);
end.

I hope this helps.  The one being passed to keep is the dos exit code telling dos this is a TSR. [double check this]   Mind you this is not a great example but it should get you going.

Not the solution you were looking for? Getting a personalized solution is easy.

Ask the Experts

Author

Commented:
Thanks for the help.  I had ever heard of that command before.  I hope it works.  
Access more of Experts Exchange with a free account
Thanks for using Experts Exchange.

Create a free account to continue.

Limited access with a free account allows you to:

  • View three pieces of content (articles, solutions, posts, and videos)
  • Ask the experts questions (counted toward content limit)
  • Customize your dashboard and profile

*This site is protected by reCAPTCHA and the Google Privacy Policy and Terms of Service apply.

OR

Please enter a first name

Please enter a last name

8+ characters (letters, numbers, and a symbol)

By clicking, you agree to the Terms of Use and Privacy Policy.