home *** CD-ROM | disk | FTP | other *** search
/ On Hand / On_Hand_From_Softbank_1994_Release_2_Disc_2_1994.iso / 00098 / s / disk1 / mscpydis.in_ / mscpydis.bin
Text File  |  1992-10-21  |  4KB  |  167 lines
  1. CONST CDALREADYUSED=7100
  2. CONST CDBADFILE=7200
  3. CONST CDCONFIRMINFO=7300
  4. CONST CDGETNAME=7400
  5. CONST CDGETNAMEORG=7500
  6. CONST HELP_GETNAMEORG=3700
  7. CONST CDGETORG=7600
  8. CONST CDBADNAME=7700
  9. CONST CDBADORG=7800
  10. CONST HELP_LEGAL=3600
  11. CONST HELP_INFOREQUIRED=3800
  12. CONST HELP_CONFIRM_NC=4000
  13. DECLARE FUNCTION FInitSystem1 LIB "mscpydis.dll"(did%, sz$, fNet%) AS INTEGER
  14. DECLARE FUNCTION FInitSystem3 LIB "mscpydis.dll"(did%, sz$, fAlways%) AS INTEGER
  15. DECLARE FUNCTION InitSystemRead(did%, sz$, fNet%) AS INTEGER
  16. DECLARE FUNCTION InitSystemWrite(did%, sz$, fAlways%) AS INTEGER
  17. DECLARE FUNCTION InitSystem(did%, sz$, fNet%) AS INTEGER
  18. DECLARE FUNCTION InitSystemDlgs(fNet%) AS INTEGER
  19. DECLARE SUB BadNameOrg(dlg%)
  20. DECLARE FUNCTION NameOrgOkay(dlg%, szName$, szOrg$) AS INTEGER
  21. FUNCTION InitSystemRead(did%, sz$, fNet%) STATIC AS INTEGER
  22. InitSystemRead=FInitSystem1(did%, sz$, fNet%)
  23. END FUNCTION
  24. FUNCTION InitSystemWrite(did%, sz$, fAlways%) STATIC AS INTEGER
  25. InitSystemWrite=FInitSystem3(did%, sz$, fAlways%)
  26. END FUNCTION
  27. FUNCTION InitSystem(did%, sz$, fNet%) STATIC AS INTEGER
  28. IF InitSystemRead(did%, sz$, fNet%)=0 THEN
  29.     InitSystem=0
  30. ELSEIF InitSystemDlgs(fNet%)=0 THEN
  31.     InitSystem=0
  32. ELSEIF InitSystemWrite(did%, sz$, 0)=0 THEN
  33.     InitSystem=0
  34. ELSE
  35.     InitSystem=1
  36. END IF
  37. END FUNCTION
  38. FUNCTION InitSystemDlgs(fNet%) STATIC AS INTEGER
  39. fOkay%=0
  40. CDDLL$="mscuistf.dll"
  41. szName$=GetSymbolValue("STF_CD_NAME")
  42. szOrg$=GetSymbolValue("STF_CD_ORG")
  43. sz$=MID$(GetSymbolValue("STF_CD_TYPE"), 1, 1)
  44. IF sz$="N" THEN
  45.     IF fNet <> 0 THEN
  46.      GOTO ISDN1
  47.     ELSE
  48.      GOTO ISDN2
  49.     END IF
  50. ELSEIF(sz$="U") OR(sz$="O") THEN
  51.     GOTO ISDU
  52. ELSEIF sz$="W" THEN
  53.     GOTO ISDA
  54. ELSE
  55.     GOTO ISDB
  56. END IF
  57. ISDN1:
  58. SetSymbolValue "EditTextIn", ""
  59. SetSymbolValue "EditFocus", ""
  60. ISDN1L1:
  61. sz$=UIStartDlg(CDDLL$, CDGETORG, "FEditDlgProc", HELP_GETNAMEORG, HELPPROC$)
  62. IF sz$="CONTINUE" THEN
  63.     szOrg$=RTRIM$(LTRIM$(GetSymbolValue("EditTextOut")))
  64.     ' IF szOrg$="" THEN
  65.     ' BadNameOrg CDBADORG
  66.     ' GOTO ISDN1L1
  67.     ' END IF
  68.     IF NameOrgOkay(CDCONFIRMINFO, szOrg$, "")=0 THEN
  69.      GOTO ISDN1L1
  70.     END IF
  71.     SetSymbolValue "STF_CD_ORG", szOrg$
  72.     fOkay%=1
  73. ELSEIF sz$="REACTIVATE" THEN
  74.     GOTO ISDN1L1
  75. ELSE
  76.     SetSymbolValue "STF_CD_TYPE", "ERROR"
  77. END IF
  78. UIPop 1
  79. GOTO ISDEND
  80. ISDN2:
  81. sz$=UIStartDlg(CDDLL$, CDGETNAMEORG, "FNameOrgDlgProc", HELP_GETNAMEORG, HELPPROC$)
  82. IF sz$="CONTINUE" THEN
  83.     szName$=RTRIM$(LTRIM$(GetSymbolValue("NameOut")))
  84.     szOrg$=RTRIM$(LTRIM$(GetSymbolValue("OrgOut")))
  85.     IF szName$="" THEN
  86.      BadNameOrg CDBADNAME
  87.      GOTO ISDN2
  88.     END IF
  89.     IF szOrg$="" THEN
  90.      szOrg$=" "
  91.     END IF
  92.     IF NameOrgOkay(CDCONFIRMINFO, szName$, szOrg$)=0 THEN
  93.      GOTO ISDN2
  94.     END IF
  95.     SetSymbolValue "STF_CD_NAME", szName$
  96.     SetSymbolValue "STF_CD_ORG", szOrg$
  97.     fOkay%=1
  98. ELSE
  99.     SetSymbolValue "STF_CD_TYPE", "ERROR"
  100. END IF
  101. UIPop 1
  102. GOTO ISDEND
  103. ISDU:
  104. fOkay%=NameOrgOkay(CDALREADYUSED, szName$, szOrg$)
  105. GOTO ISDEND
  106. ISDA:
  107. SetSymbolValue "EditTextIn", ""
  108. SetSymbolValue "EditFocus", ""
  109. ISDAL1:
  110. sz$=UIStartDlg(CDDLL$, CDGETNAME, "FEditDlgProc", 0, "")
  111. IF sz$="CONTINUE" THEN
  112.     szName$=RTRIM$(LTRIM$(GetSymbolValue("EditTextOut")))
  113.     IF szName$="" THEN
  114.      BadNameOrg CDBADNAME
  115.      GOTO ISDAL1
  116.     END IF
  117.     IF NameOrgOkay(CDCONFIRMINFO, szName$, "")=0 THEN
  118.      GOTO ISDAL1
  119.     END IF
  120.     SetSymbolValue "STF_CD_NAME", szName$
  121.     fOkay%=1
  122. ELSEIF sz$="REACTIVATE" THEN
  123.     GOTO ISDAL1
  124. ELSE
  125.     SetSymbolValue "STF_CD_TYPE", "ERROR"
  126. END IF
  127. UIPop 1
  128. GOTO ISDEND
  129. ISDB:
  130. sz$=UIStartDlg(CDDLL$, CDBADFILE, "FInfoDlgProc", 0, "")
  131. IF sz$="CONTINUE" THEN
  132.     fOkay%=1
  133. END IF
  134. UIPop 1
  135. GOTO ISDEND
  136. ISDEND:
  137. InitSystemDlgs=fOkay%
  138. CDDLL$=""
  139. szName$=""
  140. szOrg$=""
  141. sz$=""
  142. END FUNCTION
  143. SUB BadNameOrg(dlg%) STATIC
  144. BNOL1:
  145. sz$=UIStartDlg("mscuistf.dll", dlg%, "FInfoDlgProc", HELP_INFOREQUIRED, HELPPROC$)
  146. UIPop 1
  147. sz$=""
  148. END SUB
  149. FUNCTION NameOrgOkay(dlg%, szName$, szOrg$) STATIC AS INTEGER
  150. RemoveSymbol "ConfirmTextIn"
  151. AddListItem "ConfirmTextIn", szName$
  152. AddListItem "ConfirmTextIn", szOrg$
  153. ILOL1:
  154. IF dlg%=CDCONFIRMINFO THEN 
  155.     sz$=UIStartDlg("mscuistf.dll", dlg%, "FConfirmDlgProc", HELP_CONFIRM_NC, HELPPROC$)
  156. ELSE 
  157.     sz$=UIStartDlg("mscuistf.dll", dlg%, "FConfirmDlgProc", HELP_LEGAL, HELPPROC$)
  158. END IF
  159. IF sz$="CONTINUE" THEN
  160.     NameOrgOkay=1
  161. ELSE
  162.     NameOrgOkay=0
  163. END IF
  164. UIPop 1
  165. sz$=""
  166. END FUNCTION
  167.