home *** CD-ROM | disk | FTP | other *** search
/ Hall of Fame / HallofFameCDROM.cdr / misc1 / db-comm.lzh / TMARC.PRG < prev   
Encoding:
Text File  |  1986-10-15  |  836 b   |  48 lines
  1. SET CONSOLE OFF
  2. nl = chr(13)+chr(10)
  3. LOAD inport
  4. LOAD outport
  5.  
  6. CLOSE PROCEDURE
  7. SET PROCEDURE TO tm_proc
  8.  
  9. menu_ok = .t.
  10. DO WHILE menu_ok
  11.     msg = nl+nl+nl+;
  12.         "               Welcome to the TMARC Database"+nl+nl+;
  13.         "    1 - List Database"+nl+;
  14.         "    2 - Input Records"+nl
  15.     CALL outport WITH msg
  16.     msg =     "    3 - Update Record"+nl+;
  17.         "    0 - Exit"+nl+nl+;
  18.         "Enter your selection: "
  19.     CALL outport with msg
  20.     len = 1
  21.     ans = space(2)
  22.     CALL inport with ans
  23.     DO CASE
  24.  
  25.     CASE ans = "1"
  26.         DO tm_list     WITH "nd_tmarc INDEX nd_tmnum"
  27.  
  28.     CASE ans = "2"
  29.         DO tm_input     WITH "nd_tmarc INDEX nd_tmnum"
  30.  
  31.     CASE ans = "3"
  32.         DO tm_upd     WITH "nd_tmarc INDEX nd_tmnum"        
  33.  
  34.     CASE ans = "0"
  35.         menu_ok = .f.
  36.  
  37.     OTHERWISE
  38.         msg = nl+"Please enter only 0 thru 3"
  39.  
  40.     ENDCASE
  41.         
  42. ENDDO
  43. DISP memory
  44.  
  45. CLOSE PROCEDURE
  46. QUIT
  47.  
  48.