home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 6 / 06.iso / b / b007 / 2.ddi / AMISG / USERLOAD.PRG < prev    next >
Encoding:
Text File  |  1990-06-28  |  2.9 KB  |  149 lines
  1. ****** ╙├╗º╧╡═│╫░╚δ USERLOAD.PRG ******
  2. SET TALK OFF
  3. SET SAFE OFF
  4. CLEAR
  5. DO WHILE .T.
  6. DD=' '
  7. PP='\                                '
  8. DO WHILE .T.
  9.    @ 3,10 SAY '╟δ╓╕├≈╙├╗º╧╡═│╦∙╘┌┼╠╙δ┬╖╛╢ '
  10.    @ 3,COL() GET DD PICT '!' VALID DD$'ABC'
  11.    @ 3,COL() SAY ':' GET PP PICT 'XXXXXXXXXXXXXXXXXXXXXXXX'
  12.    READ
  13.    IF DD$'AB'
  14.       @ 4,20 SAY '╟δ╘┌╟²╢»╞≈ &dd: ╓╨▓σ╚δ╙├╗º╧╡═│┼╠'
  15.       YN=' '
  16.       DO WHILE .NOT.YN$'YN'
  17.         @ 6,20 SAY '╫╝▒╕║├║≤░┤[Y] ! ╖±╘≥░┤[N] ! [Y/N]:' GET YN
  18.         READ
  19.         YN=UPPE(YN)
  20.       ENDDO
  21.       IF YN='N'
  22.         RETU
  23.       ENDIF
  24.    ENDIF
  25.    PATH=DD+':'+TRIM(PP)
  26.    IF FILE('&path.\FILE.DBF').AND.FILE('&path.\IDX.DBF').AND.FILE('&path.\DBD.DBF').AND.FILE('&path.\PRG.DBF')
  27.       EXIT
  28.    ENDIF
  29.    @ 7,20 SAY '╓╕╢¿╡╪╡π &path. ╬▐ú╙ú├ú┼ ╧╡═│▓·╔·╡─╙├╗º╧╡═│!!!'
  30.    @ 8,30 SAY '╙╨╣╪╩²╛▌┤╟╡Σ╬─╝■▓╗┤µ╘┌!!!'
  31. ENDDO
  32. @ 7,20 CLEAR
  33. @ 7,20 SAY '┐¬╩╝╫░╚δ! ╟δ╔╘║≥......'
  34. SELE 1
  35. USE PRG
  36. SET FILT TO P_LB='3'
  37. GO TOP
  38. IF .NOT.EOF()
  39. @ 8,20 SAY '╘¡ú╙ú├ú┼ ╧╡═│╓╨╡─╙├╗º╧╡═││╠╨≥╬┤╟σ│²!!!'
  40. YN=' '
  41. DO WHILE .NOT.YN$'YNT'
  42. @ 9,20 SAY '╨Φ╥¬╟σ│²┬≡?[Y-╟σ│²;N-▓╗╟σ│²;T-═╦│÷]:' GET YN
  43. READ
  44. YN=UPPE(YN)
  45. READ
  46. ENDDO
  47. IF YN='Y'
  48. DO SYSCLS
  49. ENDIF
  50. IF YN='T'
  51. RETU
  52. ENDIF
  53. ENDIF
  54. SELE 3
  55. USE DBD INDE DBD
  56. SELE 2
  57. USE IDX INDE IDX
  58. SELE 1
  59. USE FILE INDE FILE
  60. SET FILT TO SYSFILE='3'
  61. GO TOP
  62. IF .NOT.EOF()
  63. @ 8,20 SAY '╘¡ú╙ú├ú┼ ╧╡═│╓╨╡─╙├╗º╩²╛▌╬─╝■╬┤╟σ│²!!!'
  64. YN=' '
  65. DO WHILE .NOT.YN$'YNT'
  66. @ 9,20 SAY '╨Φ╥¬╟σ│²┬≡?[Y-╟σ│²;N-▓╗╟σ│²;T-═╦│÷]:' GET YN
  67. READ
  68. YN=UPPE(YN)
  69. ENDDO
  70. IF YN='Y'
  71. DO SYSCLS
  72. ENDIF
  73. IF YN='T'
  74. RETU
  75. ENDIF
  76. ENDIF
  77. SET CONS OFF
  78. SET INDE TO
  79. SET FILT TO
  80. COPY TO FILE SDF
  81. ZAP
  82. APPE FROM &path.\FILE FOR SYSFILE='3'
  83. APPE FROM FILE SDF
  84. SET INDE TO FILE
  85. REIN
  86. ERAS FILE.TXT
  87. SET FILT TO SYSFILE='3'
  88. GO TOP
  89. DO WHILE .NOT.EOF()
  90. FN=TRIM(F_NAME)
  91. FNO=F_NO
  92. IF FILE('&path.\&FN..DBF')
  93. RUN COPY &path.\&FN..DBF . >NUL
  94. ENDIF
  95. IF FILE('&path.\&FN..FMT')
  96. RUN COPY &path.\&FN..FMT . >NUL
  97. ENDIF
  98. IF FILE('&path.\&FN..DBT')
  99. RUN COPY &path.\&FN..DBT . >NUL
  100. ENDIF
  101. SELE 2
  102. APPE FROM &path.\IDX FOR F_NO=FNO
  103. SET FILT TO F_NO=FNO
  104. GO TOP
  105. DO WHILE .NOT.EOF()
  106. IN=TRIM(IDX_NAME)
  107. IF FILE('&path.\&IN..IDX')
  108. RUN COPY &path.\&IN..IDX . >NUL
  109. ENDIF
  110. SKIP
  111. ENDDO
  112. SELE 3
  113. APPE FROM &path.\DBD FOR F_NO=FNO
  114. SELE 1
  115. SKIP
  116. ENDDO
  117. SELE 1
  118. USE PRG INDE PRG
  119. APPE FROM &path.\PRG FOR P_LB='3'
  120. SET FILT TO P_LB='3'
  121. GO TOP
  122. DO WHILE .NOT.EOF()
  123. PN=TRIM(P_NAME)+'.PRG'
  124. IF .NOT.FILE('&path.\&PN.')
  125. SET CONS ON
  126. ?'╬─╝■: &path.\',PN,'▓╗┤µ╘┌'
  127. SET CONS OFF
  128. ELSE
  129. RUN COPY &path.\&PN . >NUL
  130. ENDIF
  131. SKIP
  132. ENDDO
  133. CLOS DATA
  134. RUN COPY &path.\ZFT.DBF . >NUL
  135. RUN COPY &path.\ZFTK.DBF . >NUL 
  136. RUN COPY &path.\BTK.DBF . >NUL
  137. RUN COPY &path.\BBTK.DBF . >NUL
  138. RUN COPY &path.\FFBT.DBF . >NUL
  139. RUN COPY &path.\BMZK.DBF . >NUL
  140. RUN COPY &path.\BWZK.DBF . >NUL
  141. RUN COPY &path.\MENU.DBF . >NUL
  142. RUN COPY &path.\MENU.IDX . >NUL
  143. SET CONS ON
  144. CLEAR
  145. @ 5,15 SAY '╙├╗º╧╡═│╫░╚δ═Ω▒╧!!!'+CHR(7)+CHR(7)
  146. A=INKEY(5)
  147. RETU
  148. **** END OF USERLOAD.PRG ****
  149.