home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 6 / 06.iso / b / b007 / 2.ddi / AMISG / DBC.PRG < prev    next >
Encoding:
Text File  |  1990-04-17  |  1.1 KB  |  56 lines
  1. ** BEGIN OF DBC.PRG /╩²╛▌═│╝╞ **
  2. CLEAR
  3. IF TYPE('FN')='U'
  4. FN=''
  5. CFN=''
  6. FNO=''
  7. DO SELEF
  8. IF LEN(FN)=0
  9. RETU
  10. ENDIF
  11. ENDIF
  12. IF TYPE('FNO')='U'.OR.TYPE('CFN')='U'
  13. USE FILE INDE FILE
  14. SEEK FN
  15. FNO=F_NO
  16. CFN=TRIM(C_FNAME)
  17. ENDIF
  18. DO WHIL .T.
  19. D=0
  20. CLEAR
  21. DO CO1
  22. @  0,1 SAY '╡▒╟░╬─╝■<<&CFN.>>'
  23. @  1,15 SAY '             ******═¿╙├═│╝╞╧╡═│******              '
  24. @  2,15 SAY '        0-------╖╡╗╪          S-----╓╪╤í╬─╝■       '
  25. @  3,15 SAY '        1-------░┤╠⌡╝■╝╞╩²                         '
  26. @  4,15 SAY '        2-------░┤╠⌡╝■╢╘╓╕╢¿╧ε╟≤║═                 '
  27. @  5,15 SAY '        3-------░┤╠⌡╝■╢╘╓╕╢¿╧ε╟≤╞╜╛∙               '
  28. @  6,15 SAY '        4-------░┤╠⌡╝■╝╞╩²▓ó╢╘╓╕╢¿╧ε╟≤║═╙δ╟≤╞╜╛∙   '
  29. @  7,15 SAY '        5-------░┤╠⌡╝■░┤╓╕╢¿╧ε╖╓╫Θ╢╘╓╕╢¿╧ε╟≤║═     '
  30. DO CO
  31. D=' '
  32. DO WHILE .NOT.D$'S012345'
  33. @  8,22 SAY "╟δ╤í╘± [S,0,1,2,3,4,5].." GET D
  34. READ
  35. D=UPPE(D)
  36. ENDDO
  37. DO CASE
  38. CASE D='S'
  39. DO SELEF
  40. CASE D='0'
  41. CLOSE DATA
  42. RETU
  43. CASE D='1'
  44. DO DBC1
  45. CASE D='2'
  46. DO DBC2
  47. CASE D='3'
  48. DO DBC3
  49. CASE D='4'
  50. DO DBC4
  51. CASE D='5'
  52. DO DBC5
  53. ENDCASE
  54. ENDDO
  55. ** END OF DBC.PRG **
  56.