home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD2.mdf / c / library / mslang / proclc / pcid.c < prev    next >
Encoding:
C/C++ Source or Header  |  1994-03-22  |  4.4 KB  |  105 lines
  1. /********************************************************************
  2.        PopCALC -- INITIALIZATION/DISPOSABLE DATA
  3.        Copyright (c) 1992-94 by Omega Point, Inc.
  4. *********************************************************************/
  5.  
  6. #include "cr.h"
  7.  
  8. /*******************************************************************
  9.    NOTE FOR Microsoft C users: MSC will complain about strings in
  10.    this module being too long. Break up the longer strings into
  11.    3 pieces and place ` as the last character of each inner string
  12.    segment. Function dspf() will display the combined string
  13.    correctly (see CodeRunneR's READ.ME file for more info).
  14. *******************************************************************/
  15.  
  16. /** These disposable messages go thru dspf **/
  17.  
  18. char cmd_ln_err[]="Bad command line switch: X ";
  19. char loaded_msg[]="Loaded";
  20.  
  21.  
  22. char hello_atr[]={0x1b,0x1e,0x1f,0x1c,0x4e,0x1b};
  23. char  mono_atr[]={0x70,0x70,0x70,0x70,0x0f,0x70};
  24.  
  25. char first_msg[]="`2\
  26.  `\xc2`m\
  27. `\x5PopCALC, Ver 1.24 - Programmers Calculator - Shareware `w\
  28. `\x11(C) 1992 by Omega Point, Inc. `w\
  29. `5─`w`0\
  30.   PopCALC is a TSR calculator written entirely in C. The secret `w\
  31.   of its small size (`2TSR ≈ 6.3K`0) and speed is `4 CodeRunneR `0 (tm), `w\
  32.   an amazing new library and runtime support for C and assembler. `w\
  33.   `1CodeRunneR`0 (patent pending) lets you create, with the `1ease of C`0, `w\
  34.   TSRs `1rivaling professional assembler`0 programs in size & speed. `w\
  35. `5─`w\
  36.   `3■`0 CodeRunneR has `1> 300 func's`0, hand-crafted in pure assembler. `w\
  37.   `3■`0 Initialization code and data `1AUTO-RELEASED`0 from TSR memory. `w\
  38.   `3■`0 `1BCD math`0, up to `1248`0 significant digits, exp up to 10^`1±16383`0. `w\
  39.   `3■`0 `1Multitasking`0, dynamic `1hot-keys`0, `1scheduler`0, sw/hdw interrupts. `w\
  40.   `3■`0 TSRs can run in `1LIM`0, `1execute`0 programs, `1overlay`0 foreground prog. `w\
  41.   `3■`0 Transparent `1DOS`0/file acces. `1Auto-sensed`0 video, new keyboards. `w\
  42.   `3■`1 Free source`0 for PopCALC `1+ 5`0 other \"must-have\" TSR utilities. `w\
  43. `5─`w`0\
  44.  `4 Order/Info `2 (508) 877-1819`0  Fax: `2877-0915`0  Public BBS: `2875-8009`0 `w\
  45.    $ `210 `3═`0  Latest PopCALC with source, doc & CodeRunneR brochure. `w\
  46.    $`2195 `3═`0  CodeRunneR w/360 pg. manual, On-Line `1Hypertext`0 Help. `w\
  47.  `r";
  48.  
  49.  
  50. char hello_msg[]="`2\
  51.  `\xb7`m\
  52.   PopCALC 1.24 - (C) 1992 by OP   Author: Ratko Tomic `w\
  53. `5─`w\
  54. `\x4`4 Right-Alt `0: Pop-Up/Clear (also `4 Alt-SPACE `0) `w\
  55. `\x9`1Alt-X `0: Unload from RAM (if loaded last) `w\
  56. `\xb`1\x18 \x19 `0: Move window Up/Down (row 1-25) `w\
  57. `\x5`1Ctl-D H B `0: Result RADIX: `2Dec`0, Hex, Bin `w\
  58. `\x5`1Ctl-L I C `0: WORD SIZE: `24`0,2,1 bytes `w\
  59. `\x7`1Ctl-S U `0: `2Signed`0, Unsigned `w\
  60. `\x9`1=`0,`1─┘ `0: Evaluate up to current statement (`1;`0) `w\
  61. `\x5`1Shift ─┘ `0: Evaluate and Clear line (or `1F10`0) `w\
  62. `\x7`1F5 `0(`1F6`0) : Send result as keys in C (ASM) form `w\
  63. `5─`w\
  64.  `3■ `2NUMBERS: `0Hex start with `10`0, Bin with `1```0, Dec with `11-9`0 `w\
  65.  `3■ `2OPERATORS: `1()`0,`1~ -`0,`1* / % \x5c`0,`1+ -`0,`1<< >> [[ ]]`0,\
  66. `1&`0,`1^`0,`1|`0,`1'`0,`1; `w\
  67.  `3■ `2LEARN: `1'a`0..`1'z`0: Set variable `1a`0..`1z`0 to value so far `w\
  68.  `3■ `2LAST VAL: `1?   `3■ `2CMD LINE: `1D H B L I C S U 1`0-`125`0 (row) `w\
  69.  `3■ `2SYNTAX/C: `0<expr>`1;`0<expr>... `3■ `2EDIT: `0Ins, End, Ctl \x1b\x1a `w\
  70.  `r";
  71.  
  72. /** HOT-KEY FOR CALCULATOR ACTIVATION (disposable in this program) **/
  73.  
  74. word hk_list[]={K_RA,M_LA+57,0}; /* Right Alt, Ctl-SPACE */
  75.  
  76. /** Configuration Record **/
  77.  
  78.  
  79. /**** config_block STORED IN (any) ONE MODULE ONLY ****/
  80.  
  81. struct cfg_rec config_block = {    /* This record stays in only one module */
  82.     sizeof(config_block),    /* Configuration block size */
  83.     'P','C','A','L',    /* Program ID string */
  84.     101            /* Version 1.01 */
  85.     };
  86.  
  87. /** Leave program name (without memory overhead) **/
  88.  
  89. char _tsr_name[]="PopCALC (c) 1992 by OP";
  90.  
  91. /***************************************************************************
  92.    THIS FOLLOWS IMMEDIATELY AFTER THE LAST DISPOSABLE DATA ITEM
  93. ****************************************************************************/
  94.  
  95. /****  1. Store all "install_" type function pointers into install_list ****/
  96.  
  97. fp install_list[]={install_hk,install_tsc};
  98.  
  99. /****  2. Put Marker for the end-of-init-data (must be = NZ) ****/
  100.  
  101. word init_data_end=1;
  102.  
  103. /************************************************************************/
  104.  
  105.