home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 6 / 06.iso / b / b007 / 2.ddi / AMISG / USERGEN.PRG < prev    next >
Encoding:
Text File  |  1990-06-29  |  3.3 KB  |  165 lines
  1. ****  USERGEN.PRG ****
  2. SET TALK OFF
  3. SET EXACT ON
  4. SET PROC TO USERCAP
  5. @ 1,0 CLEAR
  6. DD='C'
  7. PP='\USER                           '
  8. DO WHILE .T.
  9.    @ 3,18 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.       @ 5,18 TO 9,62 DOUB
  15.       @ 6,25 SAY '╟δ╘┌╟²╢»╞≈ &DD.: ╓╨▓σ╚δ'
  16.       @ 7,25 SAY '    ╕±╩╜╗»╣²╡─┐╒╚φ┼╠'
  17.       YN=' '
  18.       DO WHILE .NOT.YN$'YN'
  19.          @ 8,20 SAY '╫╝▒╕║├║≤░┤[Y] ! ╖±╘≥░┤[N] ! [Y/N]:' GET YN
  20.          READ
  21.          YN=UPPE(YN)
  22.       ENDDO
  23.       IF YN='N'
  24.          SET EXACT OFF
  25.          SET PROC TO
  26.          RETU
  27.       ENDIF
  28.       SET DEFA TO &DD.:
  29.       SP=DISK()
  30.       SET DEFA TO C:
  31.       IF SP<362000
  32.          @ 9,24 SAY '╟²╢»╞≈ &DD.: ╓╨╡─╚φ┼╠╖╟┐╒┼╠!!!'
  33.          WAIT
  34.          LOOP
  35.       ENDIF
  36.    ENDIF
  37.    EXIT
  38. ENDDO
  39. PATH=DD+':'+TRIM(PP)
  40. RUN MD &PATH >NUL
  41. @ 9,0 CLEAR
  42. @ 9,25 SAY '┐¬╩╝▒╕╖▌! ╟δ╔╘║≥......'
  43. SET CONS OFF
  44. SELE 5
  45. USE IDX INDE IDX
  46. SELE 4
  47. USE DBD INDE DBD
  48. SELE 2
  49. USE PRG INDE PRG
  50. SELE 3
  51. USE FILE INDE FILE
  52. SELE 1
  53. USE MENU
  54. SET FILT TO TYPE='1'
  55. GO TOP
  56. DO WHILE .NOT.EOF()
  57.    PN=TRIM(LTRIM(NAME))
  58.    SELE 2
  59.    DO USERCAP WITH PN
  60.    SELE 1
  61.    SKIP
  62. ENDDO
  63. SELE 2
  64. DO USERCAP WITH 'MENURUN'
  65. SET PROC TO
  66. SELE 3
  67. DELE ALL FOR F_NAME='PRG'.OR.F_NAME='FILE'.OR.F_NAME='IDX'.OR.F_NAME='DBD'.OR.F_NAME='MENU'
  68. SELE 2
  69. SET FILT TO DELE().OR.P_LB='3'
  70. GO TOP
  71. DO WHILE .NOT.EOF()
  72.    PN=TRIM(P_NAME)
  73.    CPN=TRIM(P_DES)
  74.    IF FILE('&PN..PRG')
  75.       RUN COPY &PN..PRG &PATH. >NUL
  76.    ELSE
  77.       SET CONS ON
  78.       ? '│╠╨≥<&PN..PRG>_&CPN_▓╗┤µ╘┌!!!'
  79.       SET CONS OFF
  80.    ENDIF
  81.    SKIP
  82. ENDDO
  83. COPY TO &PATH.\PRG
  84. RECA ALL
  85. SELE 3
  86. SET FILT TO DELE().OR.SYSFILE='3'
  87. GO TOP
  88. COPY TO &PATH.\FILE
  89. RECA ALL
  90. USE &PATH.\FILE
  91. DO WHILE .NOT.EOF()
  92.    FN=TRIM(F_NAME)
  93.    CFN=TRIM(C_FNAME)
  94.    FMT=TRIM(F_FMT)
  95.    IF FILE('&FMT..FMT')
  96.       RUN COPY &FMT..FMT &PATH >NUL
  97.    ENDIF
  98.    IF FN='FILE'.OR.FN='DBD'.OR.FN='IDX'.OR.FN='PRG'
  99.       SKIP
  100.       LOOP
  101.    ENDIF
  102.    FNO=F_NO
  103.    IF FILE('&FN..DBF')
  104.       RUN COPY &FN..DBF &PATH >NUL
  105.    ELSE
  106.       SET CONS ON
  107.       ? '╩²╛▌╬─╝■<&FN..DBF>_&CFN_▓╗┤µ╘┌!!!'
  108.       SET CONS OFF
  109.    ENDIF
  110.    SELE 4
  111.    DELE ALL FOR F_NO=FNO
  112.    SELE 5
  113.    SET FILT TO F_NO=FNO
  114.    GO TOP
  115.    DO WHILE .NOT.EOF()
  116.       DELE
  117.       IDX=TRIM(IDX_NAME)
  118.       CIDX=TRIM(IDX_DES)
  119.       IF FILE('&IDX..IDX')
  120.          RUN COPY &IDX..IDX &PATH >NUL
  121.       ELSE
  122.          SET CONS ON
  123.          ? '╦≈╥²╬─╝■<&IDX..IDX>_&CIDX._▓╗┤µ╘┌!!!'
  124.          SET CONS OFF
  125.       ENDIF
  126.       SKIP
  127.    ENDDO
  128.    SELE 3
  129.    SKIP
  130. ENDDO
  131. SELE 4
  132. COPY TO &PATH.\DBD FOR DELE()
  133. RECA ALL
  134. SELE 5
  135. SET FILT TO
  136. COPY TO &PATH.\IDX FOR DELE().OR.IDX_NAME='FILE'.OR.IDX_NAME='IDX'.OR.IDX_NAME='DBD'.OR.IDX_NAME='PRG'
  137. RECA ALL
  138. SELE 3
  139. RECA ALL
  140. INDE ON F_NAME TO &PATH.\FILE
  141. CLOS DATA
  142. USE &PATH.\IDX
  143. RECA ALL
  144. INDE ON F_NO TO &PATH.\IDX
  145. USE &PATH.\PRG
  146. RECA ALL
  147. INDE ON P_NAME TO &PATH.\PRG
  148. USE &PATH.\DBD
  149. RECA ALL
  150. INDE ON F_NO+FIELD_NO TO &PATH.\DBD
  151. CLOS DATA
  152. IF FILE('YMD.MEM')
  153.    RUN COPY YMD.MEM &PATH.\YMD.PRG >NUL
  154. ENDIF
  155. RUN COPY USER.BAT &PATH >NUL
  156. RUN COPY USERCON.PRG &PATH >NUL
  157. SET CONS ON
  158. SET EXACT OFF
  159. CLEAR
  160. @ 7,25 SAY '╙├╗º╧╡═│╔·│╔═Ω▒╧!'
  161. ?? CHR(7)+CHR(7)
  162. A=INKEY(5)
  163. RETU
  164. **** END OF USERGEN.PRG ****
  165.