home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / PASCAL / GET10.ZIP / GETHELP < prev    next >
Encoding:
Text File  |  1988-11-09  |  6.1 KB  |  248 lines
  1. #Help for GET unit
  2. :Main_menu
  3.  
  4. Procedures in GET unit v1.0ß (c) Paul O'Nolan  1 Oct, 1988
  5.  
  6. ~Getboolean     ~Getchar
  7. ~Getresponse    ~Getstr
  8. ~Getdigit       ~Getdatestr
  9. ~Getnumber      ~Gettimestr        ~Qwik41 screen procedures
  10. ~Getbyte
  11. ~Getshortint
  12. ~Getword
  13. ~Getinteger
  14. ~Getlongint
  15.  
  16. ~Getreal
  17.  
  18. :Getboolean
  19.  
  20. procedure getboolean
  21.  
  22.    (char_prompt:   screen_text;
  23.     atr,atc,                 {co-ordinates}
  24.     cursor_attr,
  25.     pattr,dattr:   byte;     {attributes}
  26. var response:      boolean);
  27.  
  28. procedure getbool
  29.  
  30.    (char_prompt:   screen_text;
  31.     atr,atc:       byte;     {co-ordinates}
  32. var response:      boolean);
  33.  
  34. :Getchar
  35.  
  36. procedure getchar
  37.  
  38.    (char_prompt:   screen_text;
  39.     atr,atc,                 {co-ordinates}
  40.     cursor_attr,
  41.     pattr,chattr:  byte;     {attributes}
  42. var response:      char;
  43.     valid_keys:    ok_keys;
  44.     nullok:        boolean;
  45.     default_ch:    char);    {default response}
  46.  
  47. :GetResponse
  48.  
  49. procedure getresponse
  50.  
  51.    (char_prompt: screen_text;
  52.     valid_keys:  ok_keys;
  53.     atr,atc:     byte;    {screen co-ords}
  54.     makesure:    boolean; {confirm with Y/N?}
  55. var response:    char;
  56.     default_ch:  char);   {default response}
  57.  
  58. :Getdigit
  59.  
  60. procedure getdigit
  61.  
  62.    (atr,atc:  byte;
  63.     nattr:    integer);
  64.  
  65. :Getnumber
  66.  
  67. procedure getnumber
  68.  
  69.    (num_prompt:   screen_text;
  70.     atr,atc:      byte;        {screen co-ords}
  71.     low,high:     longint;     {not checked if equal}
  72.     pattr,nattr:  byte;        {attributes}
  73. var number:       longint;
  74.     maxvalue:     longint;     {implied type}
  75.     default:      numstring);
  76.  
  77. :Getreal
  78.  
  79. procedure getreal
  80.  
  81.    (num_prompt:       screen_text;
  82.     atr,atc:          byte;      {screen co-ords}
  83.     low,high:         real;      {not checked if equal}
  84.     decimal_places:   integer;   {or UserFormat no if negative}
  85.     pattr,nattr:      byte;      {attributes}
  86. var number:           real;
  87.     default:          numstring);
  88.  
  89.  
  90. :Getlongint
  91.  
  92. procedure getlongint
  93.  
  94.    (num_prompt:       screen_text;
  95.     atr,atc:          byte;       {screen co-ords}
  96.     low,high:         integer;
  97.     pattr,nattr:      byte;
  98. var number:           longint;
  99.     default:          numstring);
  100.  
  101. :Getinteger
  102.  
  103. procedure getinteger
  104.  
  105.    (num_prompt:       screen_text;
  106.     atr,atc:          byte;       {screen co-ords}
  107.     low,high:         integer;
  108.     pattr,nattr:      byte;
  109. var number:           integer;
  110.     default:          numstring);
  111.  
  112. :Getshortint
  113.  
  114. procedure getshortint
  115.  
  116.    (num_prompt:       screen_text;
  117.     atr,atc:          byte;       {screen co-ords}
  118.     low,high:         integer;
  119.     pattr,nattr:      byte;
  120. var number:           shortint;
  121.     default:          numstring);
  122.  
  123. :Getword
  124.  
  125. procedure getword
  126.  
  127.    (num_prompt:       screen_text;
  128.     atr,atc:          byte;        {screen co-ords}
  129.     low,high:         integer;
  130.     pattr,nattr:      byte;
  131. var number:           word;
  132.     default:          numstring);
  133.  
  134. :Getbyte
  135.  
  136. procedure getbyte
  137.  
  138.    (num_prompt:       screen_text;
  139.     atr,atc:          byte;        {screen co-ords}
  140.     low,high:         integer;
  141.     pattr,nattr:      byte;
  142. var number:           byte;
  143.     default:          numstring);
  144.  
  145. :Getstr
  146.  
  147. procedure getstring
  148.  
  149.    (str_prompt:       string;
  150.     pattr,                      {prompt attribute}
  151.     atr,atc,                    {row,col}
  152.     attr,cursor_attr: byte;     {string & cursor attributes}
  153. var instr:            string;   {string to edit}
  154.     picture:          string;   {input picture/mask}
  155.     maxstrlen:        plusbyte; {maximum length of string}
  156.     status:           byte);
  157. !
  158. Page 2
  159.  
  160. procedure getstr      {getstring with default attributes}
  161.  
  162.    (str_prompt:       string;
  163.     atr,atc:          byte;     {row,col}
  164. var instr:            string;   {string to edit}
  165.     picture:          string;   {input picture/mask}
  166.     maxstrlen:        plusbyte; {max length of string, 1..255}
  167.     status:           byte);
  168.  
  169. :Getdatestr
  170.  
  171. procedure getdatestring
  172.  
  173.    (date_prompt:      screen_text;
  174.     pattr:            byte;        {prompt attribute}
  175.     atr,atc,                       {screen co-ords}
  176.     dattr,                         {attribute}
  177.     cursor_attr,                   {cursor attribute}
  178.     separator_attr:   byte;        {separator attribute}
  179. var datestr:          string;
  180.     status:           byte);
  181. !
  182. Page 2
  183.  
  184. procedure getdatestr
  185.  
  186.    (date_prompt:      screen_text;
  187.     atr,atc:          byte;        {screen co-ords}
  188. var datestr:          string;
  189.     status:           byte);
  190.  
  191. :Gettimestr
  192.  
  193. procedure gettimestring
  194.  
  195.    (time_prompt:      screen_text;
  196.     pattr,                         {prompt attribute}
  197.     atr,atc,                       {screen co-ords}
  198.     tattr,                         {time attribute}
  199.     cursor_attr,                   {date & cursor attributes}
  200.     separator_attr:   byte;        {separator attribute}
  201. var timestr:          string;
  202.     status:           byte);       {bit 2: default = sys time}
  203. !
  204. Page 2
  205.  
  206. procedure gettimestr
  207.  
  208.    (time_prompt:      screen_text;
  209.     atr,atc:          byte;        {screen co-ords}
  210. var timestr:          string;
  211.     status:           byte);       {bit 2: default = sys time}
  212.  
  213.  
  214. :Qwik41
  215.  
  216. Qwrite  (Row,Col: byte; Attr: integer; aStr: string);
  217. QwriteC (Row,ColL,ColR: byte; Attr: integer; aStr: string);
  218. QwriteA (Row,Col: byte; Attr: integer; 
  219.          ArrayLength: word; VAR aStr);
  220. QwriteMore  (Attr: integer; aStr: string);
  221. QwriteMoreA (Attr: integer; ArrayLength: word; VAR aStr);
  222. !
  223. Page 2
  224.  
  225. Qfill  (Row,Col,Rows,Cols: byte; Attr: integer; Ch: char);
  226. Qattr  (Row,Col,Rows,Cols: byte; Attr: integer);
  227. QfillC (Row,ColL,ColR,Rows,Cols: byte; 
  228.         Attr: integer; Ch: char);
  229. QattrC (Row,ColL,ColR,Rows,Cols: byte; Attr: integer);
  230. QfillMore (Rows,Cols: byte; Attr: integer; Ch: char);
  231. QattrMore (Rows,Cols: byte; Attr: integer);
  232.  
  233. QstoreToMem (Row,Col,Rows,Cols: byte; VAR Dest);
  234. QstoreToScr (Row,Col,Rows,Cols: byte; VAR Source);
  235. !
  236. Page 3
  237.  
  238. QviewPage  (PageNum: byte);
  239. QwritePage (PageNum: byte);
  240.  
  241. GotoRC (Row,Col: byte);
  242. CursorChange (New: word; VAR Old: word);
  243. CursorOff;
  244. CursorOn;
  245. WhereR:  byte;
  246. WhereC:  byte;
  247.  
  248.