Solved

Help with TSR

Posted on 1997-08-12
2
201 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.
0
Comment
Question by:noskillz
[X]
Welcome to Experts Exchange

Add your voice to the tech community where 5M+ people just like you are talking about what matters.

  • Help others & share knowledge
  • Earn cash & points
  • Learn & ask questions
2 Comments
 
LVL 2

Accepted Solution

by:
kellyjj earned 100 total points
ID: 1215405
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
 

Author Comment

by:noskillz
ID: 1215406
Thanks for the help.  I had ever heard of that command before.  I hope it works.  
0

Featured Post

Free Tool: Port Scanner

Check which ports are open to the outside world. Helps make sure that your firewall rules are working as intended.

One of a set of tools we are providing to everyone as a way of saying thank you for being a part of the community.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

Suggested Solutions

Title # Comments Views Activity
MAPI Error1: User cancelled request ? 7 1,209
delphi 8 625
Get pixel color of a jpg in a TImage 1 2,747
Pass a string reference from one unit to another 8 125
Although a lot of people devote their energy toward marketing for specific industries, there are some basic principles that can be applied to any sector imaginable. We’ll look at four steps to take and examine how those steps were put into action fo…
In order to fulfill our mission of inspiring learning in the technology community, Experts Exchange is launching a Course of the Month program. Premium and Team Account members will have access to one course per month as a part of their membership, …
Email security requires an ever evolving service that stays up to date with counter-evolving threats. The Email Laundry perform Research and Development to ensure their email security service evolves faster than cyber criminals. We apply our Threat…
A short tutorial showing how to set up an email signature in Outlook on the Web (previously known as OWA). For free email signatures designs, visit https://www.mail-signatures.com/articles/signature-templates/?sts=6651 If you want to manage em…

733 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question