home *** CD-ROM | disk | FTP | other *** search
/ Prima Shareware 3 / DuCom_Prima-Shareware-3_cd1.bin / PROGRAMO / C / TECH89 / TI488.ASC < prev    next >
Encoding:
Text File  |  1991-09-11  |  3.1 KB  |  133 lines
  1.  
  2.  
  3.  
  4.  
  5.  
  6.  
  7.  
  8.   PRODUCT  :  Paradox                               NUMBER  :  488
  9.   VERSION  :  3.0
  10.        OS  :  PC-DOS
  11.      DATE  :  June 12, 1989                            PAGE  :  1/2
  12.  
  13.     TITLE  :  An Example of the ACCEPT Command
  14.  
  15.  
  16.  
  17.  
  18.   The ACCEPT command
  19.  
  20.   The ACCEPT command waits for user to input from the keyboard and
  21.   assigns the keyboard input to a variable which you define. It is
  22.   necessary to define the data type the variable name in the
  23.   command.  Additional options such as Pictures and Lookup Tables
  24.   can also be included.  See the PAL guide, page 261 for a complete
  25.   list of options.
  26.  
  27.   It is important to use a WHILE loop when using the ACCEPT
  28.   command.  Otherwise, if the user presses [ESC] and a variable was
  29.   not previously defined, Retval returns false and it is not
  30.   possible to loop back.  If the variable had been defined, the
  31.   value of the variable would be accepted just as if the user had
  32.   typed it in for the first time.  It is also necessary, as you
  33.   will see in the code below, to trap for bad data (table that
  34.   doesn't exist).
  35.  
  36.       While(true)               ;Start the loop
  37.           Clear                 ;clear the screen
  38.           @ 1,2 ?? "Enter Name of Table to be processed: "
  39.                                 ;Prompt the user
  40.           @ 1,38 Accept "A10"   ;at a position Accept a string
  41.               To ztable         ;to a variable ztable
  42.               Clear             ;clear the screen
  43.               If retval = False ;If the user pressed [Esc] the
  44.                                 ;system varible retval will be
  45.                                 ;set to false.  Trap for this.
  46.                   Then          ;Then
  47.                   Message "You Pressed Escape! Press any key to return."
  48.                                 ;Give the user a message
  49.                   z=Getchar()   ;Wait for a keypress
  50.                   Loop          ;loop back to while(true) and do it
  51.                                 ;over
  52.               Endif             ;End the If loop
  53.               If NOT Istable(ztable)
  54.                                 ;If they made it this far then the
  55.                                 ;variable was assigned properly.
  56.                                 ;Here we need to check to see if
  57.                                 ;input was valid table name
  58.                   Then Message "Not a valid Table Name!"
  59.                                 ;if not Message the user
  60.                   z=Getchar()   ;Wait for a character
  61.  
  62.  
  63.  
  64.  
  65.  
  66.  
  67.  
  68.  
  69.  
  70.  
  71.  
  72.  
  73.  
  74.   PRODUCT  :  Paradox                               NUMBER  :  488
  75.   VERSION  :  3.0
  76.        OS  :  PC-DOS
  77.      DATE  :  June 12, 1989                            PAGE  :  2/2
  78.  
  79.     TITLE  :  An Example of the ACCEPT Command
  80.  
  81.  
  82.  
  83.  
  84.                   Loop          ;Loop back around
  85.               EndIf             ;End the istable if loop
  86.               Quitloop          ;We got a valid table if we made
  87.                                 ;it this far
  88.       EndWhile                  ;Close the While loop
  89.  
  90.     View ztable                 ;View the table the user wanted
  91.  
  92.  
  93.  
  94.  
  95.  
  96.  
  97.  
  98.  
  99.  
  100.  
  101.  
  102.  
  103.  
  104.  
  105.  
  106.  
  107.  
  108.  
  109.  
  110.  
  111.  
  112.  
  113.  
  114.  
  115.  
  116.  
  117.  
  118.  
  119.  
  120.  
  121.  
  122.  
  123.  
  124.  
  125.  
  126.  
  127.  
  128.  
  129.  
  130.  
  131.  
  132.  
  133.