home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 6 / 06.iso / b / b007 / 2.ddi / AMISG / DBF.PRG < prev    next >
Encoding:
Text File  |  1990-05-29  |  961 b   |  49 lines
  1. ****** ═¿╙├▓Θ╤»╫╙╧╡═│ DBF.PRG ******
  2. ****** DO DBF WITH FN         ******
  3. ****** ╞Σ╓╨: FN:╬─╝■├√.(╚δ┐┌) ******
  4. ****** PARA FN
  5. IF TYPE('FN')='U'.OR.TYPE('FNO')='U'
  6. FN=''
  7. FNO=''
  8. CFN=''
  9. DO SELEF
  10. IF LEN(FN)=0
  11. RETU
  12. ENDIF
  13. ENDIF
  14. STOR '  ' TO EXP,LM,S1,S2,S3,S4,S5
  15. DO CO
  16. DO WHILE .T.
  17. CLOS DATA
  18. CLEAR
  19. DO CO1
  20. @ 0, 0  SAY '╡▒╟░▓┘╫≈╬─╝■╬¬ [ &CFN ]'
  21. @ 1, 0  SAY '╡▒╟░▓Θ╤»╠⌡╝■╬¬ [ '+EXP+' ]'
  22. @ 2, 0  SAY '╡▒╟░▓Θ╤»╫╓╢╬╬¬ [ &LM ]'
  23. @ 5, 20 SAY '            ═¿╙├▓Θ╤»─ú┐Θ               '
  24. DO CO
  25. @ 7, 10 PROM '1 . . . ╔·│╔▓Θ╤»╠⌡╝■'
  26. @ 8, 10 PROM '2 . . . ╤í╘±▓Θ╤»╫╓╢╬'
  27. @ 7 ,40 PROM '3 . . . ╓≡╠⌡╧╘╩╛┬·╫π╠⌡╝■╡─╝╟┬╝'
  28. @ 8 ,40 PROM '4 . . . ┤░┐┌╧╘╩╛┬·╫π╠⌡╝■╡─╝╟┬╝'
  29. @ 9, 10 PROM 'S . . . ╓╪╤í╬─╝■'
  30. @ 9 ,40 PROM '0 . . . ╖╡    ╗╪'
  31. MENU TO GNH
  32. DO CASE
  33. CASE GNH=5
  34. DO SELEF
  35. STOR '  ' TO EXP,EXP1,LM,S1,S2,S3,S4,S5
  36. CASE GNH=6
  37. RETU
  38. CASE GNH=1
  39. DO DBFEXP
  40. CASE GNH=2
  41. DO DBFS
  42. CASE GNH=3
  43. DO DBF0
  44. CASE GNH=4
  45. DO DBF2
  46. ENDCASE
  47. ENDDO
  48. ** END OF DBF.PRG **
  49.