home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 5 / 05.iso / a / a013 / 1.ddi / SAMPLES.EXE / T_MMOGET.PRG < prev    next >
Encoding:
Text File  |  1991-01-25  |  971 b   |  40 lines
  1.  
  2. *****************************************************************
  3. * Test program for MEMOFIND -- FILE = T_MMOFND.PRG
  4. *****************************************************************
  5.  
  6. * Copyright(c) 1991 -- James Occhiogrosso
  7.  
  8. # include 'inkey.ch'
  9.  
  10. * Set format for memo. If using AEDBAR, change to .F.
  11. # define MEMOFORMAT  .T.
  12.  
  13. INITGLOBAL()
  14. SETCOLOR(colstd)
  15. CLEAR
  16. SET SCOREBOARD OFF
  17. SET KEY 22 TO CSRINSERT
  18. DEVELOP()
  19.  
  20. partno  = SPACE(10)
  21. descrip = SPACE(20)
  22. trigger = 'N'            // Trigger variable for MEMOGET
  23. comments = ''            // Memo
  24. vendor  = SPACE(30)
  25.  
  26. DO WHILE LASTKEY() != K_ESC
  27.     @ 6, 10 SAY 'Part number ................. ' GET partno
  28.     @ 7, 10 SAY 'Description.................. ' GET descrip
  29.  
  30.     @ 8, 10 SAY 'Enter/View comments (Y/N).... ' GET trigger ;
  31.          VALID MEMOGET(MEMOFORMAT, @comments, 12, 10, 21, 70)
  32.  
  33.     @ 9, 10 SAY 'Vendor Name ................. ' GET vendor
  34.  
  35.     READ
  36. ENDDO
  37.  
  38. RETURN
  39.  
  40.