home *** CD-ROM | disk | FTP | other *** search
/ C!T ROM 2 / ctrom_ii_b.zip / ctrom_ii_b / PROGRAM / CLIPPER / ATEDIT / SAMPLE.PRG < prev   
Text File  |  1993-06-07  |  954b  |  41 lines
  1. //.............................................................................
  2. //
  3. //   Program Name: SAMPLE.PRG        Copyright: Asta Engineering, Inc.                                   
  4. //   Date Created: 06/02/93           Language: Clipper 5.0                                         
  5. //   Time Created: 15:20:52             Author: John C. Burkhard                          
  6. //
  7. //.............................................................................
  8.  
  9. // sample program to demonstrate @...Edit
  10.  
  11.  
  12.  
  13. #include "atedit.ch"
  14.  
  15.  
  16. function main( )
  17.  
  18.    local cFld1, cFld2, cFld3
  19.    local GetList := { }
  20.  
  21.    cFld1 := space(240)
  22.    cFld2 := space(240)
  23.    cFld3 := space(1)
  24.  
  25.    clear screen
  26.  
  27.    @ 0,0 to 5,61
  28.    @ 0,1 say " Field 1 "
  29.    @ 1,1 to 4, 60 edit cFld1
  30.  
  31.    @ 7,0 to 14,41
  32.    @ 7,1 say " Field 2 "
  33.    @ 8,1 to 13,40 edit cFld2
  34.  
  35.    @ 16,0 say "Field 3:" get cFld3 picture "@S40" scroll
  36.  
  37.    read
  38.  
  39. return nil
  40.  
  41.