home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD2.mdf / c / library / dos / tsr / mgabra / mgscreen.c < prev    next >
Encoding:
C/C++ Source or Header  |  1990-09-05  |  7.0 KB  |  145 lines
  1. /*****************************************
  2.                 MGSCREEN
  3. *****************************************/
  4.  
  5. #include "dos.h"
  6. #include "stdlib.h"
  7. #include "mgabra.h"
  8. #define HKEY 0x0439
  9.  
  10. /*****************************************
  11.                 MAKEINFO
  12. *****************************************/
  13.  
  14. void makeinfo(void)
  15. {
  16.    PLANE info;
  17.    initvideo(1);
  18.    info = createplane(22, 78, 113, " MORE INFORMATION ", "");
  19.    evokeplane(info, 1, 1, 78, " PRESS ANY KEY TO CONTINUE ");
  20.    putplane(info, "\n    Mgscreen, a cheat screen program, was written in Turbo C and linked with");
  21.    putplane(info, "\n the ABRACADABRA! Programmers Resident Utility Library. This library allows");
  22.    putplane(info, "\n you to take any normal Turbo C program and with one function turn it into");
  23.    putplane(info, "\n a memory resident program instantly available at the touch of a hotkey.");
  24.    putplane(info, "\n It just as easily allows you to have your program continue running while");
  25.    putplane(info, "\n it is in background. There is also a rich set of supporting functions");
  26.    putplane(info, "\n that implement various facets of multi-tasking, although only ONE main");
  27.    putplane(info, "\n function is all that is really needed.");
  28.    putplane(info, "\n ");
  29.    putplane(info, "\n    If you are just beginning to write TSRs you have a long road ahead");
  30.    putplane(info, "\n of you. If you have tried but are continually stopped by technical ");
  31.    putplane(info, "\n mysteries hidden deep within DOS then ABRACADABRA! will give you in a ");
  32.    putplane(info, "\n matter of hours the knowledge you have been waiting for.");
  33.    putplane(info, "\n ");
  34.    putplane(info, "\n    Years of research and consulting with many an industry guru has gone");
  35.    putplane(info, "\n into the production of ABRACADABRA!. Mention of their names would be");
  36.    putplane(info, "\n embarrassing because many of the secrets contained in ABRACADABRA! are");
  37.    putplane(info, "\n being fiercely guarded by those who have profited for so many years");
  38.    putplane(info, "\n knowing them. This is no hype, you ARE being kept in the dark.");
  39.    putplane(info, "\n ");
  40.    inkey();
  41.    clearplane(info);
  42.    putplane(info, "\n    ABRACADABRA! is NOT just a cheap set of interrupt routines like so ");
  43.    putplane(info, "\n many off the shelf libraries have been palming off to you as TSR libraries.");
  44.    putplane(info, "\n (You know, the kind you buy and they sit putrifying in your disk drawer.)");
  45.    putplane(info, "\n It is ALL you need, in one compact function. No messy assembly language");
  46.    putplane(info, "\n if you don't want it. No searching through shelves of manuals. No feverish");
  47.    putplane(info, "\n hunt through old issues of DOBS. No thousand cycle write, compile, link");
  48.    putplane(info, "\n to debug your interrupt routines.");
  49.    putplane(info, "\n ");
  50.    putplane(info, "\n    ABRACADABRA! handles for you the orchestration of the multiple ");
  51.    putplane(info, "\n interrupt foundation that is required to write multi-tasking programs.");
  52.    putplane(info, "\n It handles screen I/O as applies to TSRs. It handles the complications");
  53.    putplane(info, "\n of compiled language architecture. It handles everything.");
  54.    putplane(info, "\n ");
  55.    putplane(info, "\n    Now that's the pitch. Here's the offer. I'll send you a copy of");
  56.    putplane(info, "\n the ABRACADABRA! OBJ and header files with a manual explaining the");
  57.    putplane(info, "\n intricacies of TSRs for $29.00. That's completely refundable if you");
  58.    putplane(info, "\n don't like it no questions asked. If you want source code that is ");
  59.    putplane(info, "\n more, $49.00 and includes the manual but is not as easily refundable.");
  60.    putplane(info, "\n I will surely want to know why you don't want it.");
  61.    putplane(info, "\n ");
  62.    inkey();
  63.    clearplane(info);
  64.    putplane(info, "\n    Currently all I have is ABRACADABRA! for Turbo C but the source");
  65.    putplane(info, "\n code is easily modifiable for other languages.");
  66.    putplane(info, "\n ");
  67.    putplane(info, "\n    Just call me at (213) 477-4151 after hours (Hey, I work a full time");
  68.    putplane(info, "\n job) if you want to talk or just leave a message on my answering ");
  69.    putplane(info, "\n machine. OR just send the money and I'll ship. ");
  70.    putplane(info, "\n ");
  71.    putplane(info, "\n    Walt Howard ");
  72.    putplane(info, "\n    12021 Wilshire Blvd. Box 689");
  73.    putplane(info, "\n    Los Angeles, California 90025");
  74.    putplane(info, "\n ");
  75.    putplane(info, "\n    So, before you press the next button, you got to ask yourself");
  76.    putplane(info, "\n one question...");
  77.    putplane(info, "\n ");
  78.    putplane(info, "\n    Do you want to write flashy, reliable, bug free TSRs?");
  79.    putplane(info, "\n ");
  80.    putplane(info, "\n    Well, do ya punk?");
  81.    putplane(info, "\n ");
  82.    inkey();
  83.    hideplane(info);
  84.    clearplane(info);
  85. }
  86.  
  87. void far tsrexit(void)
  88. {
  89. }
  90.  
  91. /*****************************************
  92.                 MAIN
  93. *****************************************/
  94.  
  95. main(int argc, char *argv[1])
  96. {                                   
  97.    char vmode;
  98.    if (*argv[1] == '?') 
  99.    {
  100.       makeinfo();
  101.       exit(1);
  102.    }
  103.    intro(9, argv, "Mgscreen", "Control Space", "1.1", "Mgscreen ? For Info\n"
  104.    "Pops Up False Screen So You Can Play Games At Work!", "Walt Howard", 87);
  105.    printf("\nPress Any Key To Continue");
  106.    inkey();
  107.    _AH = 0x0F;        /* Clear Screen */
  108.    geninterrupt(0x10);
  109.    vmode = _AL;
  110.    _AH = 0;
  111.    _AL = vmode;
  112.    geninterrupt(0x10);
  113.    conout("\n\015");
  114.    conout("\n\015 Volume in drive C has no label");
  115.    conout("\n\015 Directory of  C:\\");
  116.    conout("\n\015");
  117.    conout("\n\015BATCH        <DIR>      7-19-87   3:58p");
  118.    conout("\n\015COMM         <DIR>      7-19-87   3:55p");
  119.    conout("\n\015DATAFLEX     <DIR>      7-19-87   3:53p");
  120.    conout("\n\015DOSUTIL      <DIR>      1-01-80  12:00a");
  121.    conout("\n\015DV           <DIR>      1-01-80  12:40a");
  122.    conout("\n\015HTEST        <DIR>      7-19-87   3:52p");
  123.    conout("\n\015FASTBACK     <DIR>      7-23-87   9:44p");
  124.    conout("\n\015AUTOEXEC CC        55   6-15-87   8:39a");
  125.    conout("\n\015COMMAND  COM    23612   7-07-86  12:00p");
  126.    conout("\n\015VDISK    SYS     3307  12-30-85  12:00p");
  127.    conout("\n\015HARDRIVE SYS     8186  12-02-86  12:00p");
  128.    conout("\n\015AUTOEXEC BAT       79   1-01-80  12:40a");
  129.    conout("\n\015TREEINFO NCD      123   1-01-80  12:02a");
  130.    conout("\n\015CBAT               57   8-30-87   4:53p");
  131.    conout("\n\015CONFIG   BAK       34   1-01-80  12:00a");
  132.    conout("\n\015AUTOEXEC BAK       92   8-17-87   8:51p");
  133.    conout("\n\015CONFIG   SYS       51   8-30-87   7:46p");
  134.    conout("\n\015ANSI     SYS     1651  12-30-85  12:00p");
  135.    conout("\n\015       18 File(s)    282624 bytes free");
  136.    conout("\n\015C:\\>");
  137.    tsrset(HKEY, 0, 0, 0, 263, 1);
  138.    while(1){inkey();}
  139. }
  140.  
  141. /*****************************************
  142.                 END OF MGSCREEN
  143. *****************************************/
  144.  
  145.