home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 6 / 06.iso / b / b007 / 2.ddi / AMISG / SYSCLS.PRG < prev    next >
Encoding:
Text File  |  1990-06-28  |  1.5 KB  |  97 lines
  1. @ 1,0 CLEAR
  2. TEXT
  3.                                 ╟δ  ╫ó  ╥Γ !!!
  4.     ╧╡═││⌡╩╝╗»╣ñ╫≈╜½╟σ│²ú╙ú├ú┼ ╧╡═│╓╨╙├╗º╫╘╜¿┴ó╡─╦∙╙╨╬─╝■!í░ⁿ└¿╙├╗º╜¿┴ó╡─╩²╛▌
  5. ╬─╝■ú¼╦≈╥²╬─╝■ú¼╞┴─╗╕±╩╜╬─╝■ú¼│╠╨≥╬─╝■║═╩≈╫┤▓╦╡Ñ╜ß╣╣┐Γ!
  6.     │⌡╩╝╗»╣ñ╫≈╥╗░π╘┌┐¬╩╝╜¿┴ó╥╗╕÷╨┬╡─╙├╗º╧╡═│╓«╟░╜°╨╨! ╗≥╒▀╡▒╨Φ╥¬╢╘╥╗╕÷╙├ú╙ú├ú┼
  7. ╧╡═│╜¿┴ó╞≡└┤╡─╙├╗º╧╡═│╜°╨╨╬¼╗ñ║═└⌐│Σ╩▒ú¼╢°╕├╙├╗º╧╡═│╙╓▓╗╘┌╡▒╟░ú╙ú├ú┼╧╡═│╓╨ú¼╘≥
  8. ╨Φ╧╚╜°╨╨│⌡╩╝╗»╣ñ╫≈ú¼╚╗║≤╫░╚δ╙├╗º╧╡═│!
  9.     ╘┌│⌡╩╝╗»╓«╟░ú¼╚⌠╡▒╟░ú╙ú├ú┼ ╧╡═│╓╨╡─╙├╗º╧╡═│╙╨╙├╢°╬┤▒╕╖▌ú¼╘≥╨Φ╧╚╜°╨╨▒╕╖▌(
  10. ▓╦╡Ñ9.9--USERCA.PRG)!!!
  11. ENDTEXT
  12. YN=' '
  13. DO WHILE .NOT.YN$'YN'
  14. @ 9,20 SAY '─·╚╘╥¬╜°╨╨│⌡╩╝╗»╣ñ╫≈┬≡?[Y-╥¬/N-▓╗╥¬]: ' GET YN
  15. READ
  16. YN=UPPE(YN)
  17. ENDDO
  18. IF YN='N'
  19. RETU
  20. ENDIF
  21. CLEAR
  22. SET COLO TO 3/0
  23. @ 2, 20 SAY '│⌡╩╝╗»╣ñ╫≈╒²╘┌╜°╨╨,╟δ╡╚║ε...'
  24. SELE 3
  25. USE DBD INDE DBD
  26. SELE 2
  27. USE IDX INDE IDX
  28. SELE 1
  29. USE FILE INDE FILE
  30. SET FILT TO SYSFILE='3'
  31. GO TOP
  32. DO WHILE .NOT. EOF()
  33. DELE
  34. FNO=F_NO
  35. FN=TRIM(F_NAME)
  36. IF FILE('&FN..DBF')
  37. ERAS &FN..DBF
  38. ENDIF
  39. IF FILE('&FN..FMT')
  40. ERAS &FN..FMT
  41. ENDIF
  42. SELE 2
  43. SET FILT TO F_NO=FNO
  44. GO TOP
  45. DO WHILE .NOT.EOF()
  46. IN=TRIM(IDX_NAME)
  47. IF FILE('&IN..IDX')
  48. ERAS &IN..IDX
  49. ENDIF
  50. DELE
  51. SKIP
  52. ENDDO
  53. SELE 3
  54. DELE ALL FOR F_NO=FNO
  55. SELE 1
  56. SKIP
  57. ENDDO
  58. SELE 1
  59. PACK
  60. SELE 2
  61. PACK
  62. SELE 3
  63. PACK
  64. SELE 1
  65. USE PRG INDE PRG
  66. SET FILT TO P_LB='3'
  67. GO TOP
  68. DO WHILE .NOT.EOF()
  69. PN=TRIM(P_NAME)
  70. IF FILE('&PN..PRG')
  71. ERAS &PN..PRG
  72. ENDIF
  73. DELE
  74. SKIP
  75. ENDDO
  76. PACK
  77. USE MENU INDE MENU
  78. ZAP
  79. USE BTK
  80. ZAP
  81. USE BBTK
  82. ZAP
  83. USE FFBT
  84. ZAP
  85. USE BMZK
  86. ZAP
  87. USE BWZK
  88. ZAP
  89. USE ZFT
  90. ZAP
  91. USE ZFTK
  92. ZAP
  93. CLOS DATA
  94. RETU
  95. ** END OF SYSCLS.PRG **
  96.  
  97.