Help with TSR

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.
noskillzAsked:
Who is Participating?
 
kellyjjConnect With a Mentor 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.
0
 
noskillzAuthor Commented:
Thanks for the help.  I had ever heard of that command before.  I hope it works.  
0
Question has a verified solution.

Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.

Have a better answer? Share it in a comment.

All Courses

From novice to tech pro — start learning today.