home *** CD-ROM | disk | FTP | other *** search
/ DOS/V Power Report 1997 July / VPR9707B.ISO / DRIVER / IODATA / B64P101 / DISK.EXE / REMOSERV / 98 / INSP.SUP < prev    next >
Text File  |  1996-12-16  |  21KB  |  757 lines
  1. #
  2. #  MAOIX
  3. #  INS-B64/PCI (PC9821) iｽｸﾘﾌﾟﾄ
  4.  
  5.  
  6. # 宣言子
  7. .title = "INS-B64/PCI  (9821ｼﾘｰｽﾞ)ハードディスクインストール (Ver1.00)";
  8. .maker = "（株）アイ・オー・データ機器";
  9. .sname = "ＩＮＳ－Ｂ６４／ＰＣＩ";
  10. .usedir = "DDEV\\B64P";
  11. .files = 21;
  12. .buffers = 20;
  13. .mount = "DDEV";
  14. .mmspace = 0;
  15. .mpspace = 0;
  16. .mespace = 0;
  17. .mbspace = 0;
  18. .jfepinc = "";
  19. .jfep = "";
  20.  
  21. #
  22. # インストール開始
  23. #
  24.  
  25. START:
  26. #  **************************** デフォルト値 ************************
  27.  
  28.    %max = maxdrive(); $max = drvname(%max); $lim = "(A～"~drvname(%max)~")";
  29.    %sub  = %max; %cunt = 1; %fd=0; %hd=0; %ram=0;
  30.    while(%sub > 0  ) {
  31.       %drv = isdrive(%cunt);
  32.       switch(%drv){
  33.          case 1: ;   if(%fd==1){
  34.                         break;
  35.                      }else{
  36.                         %fd = %fd+1; %fdrv=%cunt; break;
  37.                      }
  38.          case 2: ;   if(%hd==1){
  39.                         break;
  40.                      }else{
  41.                         %hd = %hd+1; %hdrv=%cunt; break;
  42.                      }
  43.          case 3: ;   if(%ram==1){
  44.                         break;
  45.                      }else{
  46.                         %ram = %ram+1; break;
  47.                      }
  48.       }
  49.       %cunt = %cunt + 1; %sub = %sub - 1;
  50.    }
  51.    cls();
  52.    %sdrv = %fdrv; $sdrv = drvname(%sdrv)~":";
  53.    %ddrv = %hdrv; $ddrv = drvname(%ddrv)~":";
  54.    locate(15,2); print("");
  55.    locate(15,3); print(" ＩＮＳ－Ｂ６４／ＰＣＩ ハードディスク・インストール  ");
  56.    locate(15,4); print("");
  57.    locate(1,6);  print("");
  58.    locate(1,7);  print("ＩＮＳ－Ｂ６４／ＰＣＩのマスタディスク"); locate(40,7); print($sdrv);
  59.    locate(1,9);  print("インストール先ハードディスク"); locate(40,9); print($ddrv);
  60.    locate(1,11); print("起動するドライブ名"); locate(40,11); print($ddrv);
  61.    locate(1,12); print("");
  62.  
  63.  
  64. #  *********************** ドライブの種類検索 ***********************
  65.  
  66.    %abc = 18;
  67.    %sub = %max; %cunt = 1; %x = 43; %y = 43; %z = 43;%mhd = 0;
  68.    locate(1,16); print("***************************ドライブインフォメーション***************************");
  69.  
  70.    if(%hd==0){
  71.       locate(%y, %abc); print("接続されていません.");
  72.    }
  73.  
  74.    if(%ram==0){
  75.       locate(%z, %abc+4); print("設定されていません.");
  76.    }
  77.  
  78.    locate(20, %abc+2);print("フロッピィディスクは");
  79.    locate(20, %abc);print("ハードディスクは");
  80.    locate(20, %abc+4);print("仮想ドライブは");
  81.    while(%sub > 0  ) {
  82.       $ddrv = drvname(%cunt)~":";
  83.       %drv  = isdrive(%cunt);
  84.       switch(%drv){
  85.       case 1: ; locate(%x, %abc+2);print($ddrv); 
  86.                 %x = %x + 3; break;
  87.       case 2: ; locate(%y, %abc);print($ddrv);
  88.                 %y = %y + 3; %mhd = %mhd + 1;break;
  89.       case 3: ; locate(%z, %abc+4);print($ddrv);
  90.                 %z = %z + 3; break;
  91.       }
  92.       %cunt = %cunt + 1; %sub = %sub - 1;
  93.    }
  94.  
  95.  
  96. #  ************************ インストール情報の質問 ******************
  97.  
  98. QUES:
  99.    clrline(13); clrline(14);
  100.    locate(1, 14); print("ＩＮＳ－Ｂ６４／ＰＣＩのマスタディスクが入ったドライブを指定してください."~$lim);
  101.    %sdrv = qesdrive(%max,%sdrv); $sdrv = drvname(%sdrv)~":";
  102.    locate(40, 7); print($sdrv);
  103.  
  104.  
  105.    clrline(13); clrline(14);
  106.    locate(5, 14); print("インストール先ハードディスクのドライブを指定してください."~$lim);
  107.    %ddrv = qesdrive(%max,%ddrv); $ddrv = drvname(%ddrv)~":";
  108.    locate(40, 9); print($ddrv); .maoix = %ddrv;
  109.  
  110.    clrline(13); clrline(14);
  111.    locate(17, 14); print("起動するドライブ名を指定してください.");
  112.    locate(55, 14); print("(A～"~drvname(%max)~")");
  113.    %drv_b = qesdrive(%max,%ddrv); $drv_b = drvname(%drv_b)~":";
  114.    locate(40, 11); print($drv_b);
  115.  
  116.    clrline(13); clrline(14); clrline(15);
  117.    locate(15, 14); print("上記の設定でインストールしますか？(Y/N)");
  118.    clrkey();
  119.    %r1 = qesyorn(1);
  120.    if( %r1 != 1 ) goto QUES;
  121.  
  122.  
  123. #  *****************  ﾊｰﾄﾞﾃﾞｨｽｸの容量チェック  **********************
  124. #　ドライブの空きをチェック
  125.  
  126.    %free = diskfree(%ddrv);
  127.    %cls_size = clstsize(%ddrv);
  128.    %free = %cls_size * %free;
  129.    if( %free < 1000000 ){
  130.       $err = "ディスクの空き領域が少ないのでインストールできません.";
  131.       goto ERROR_2;
  132.    }
  133.  
  134. #  ************************ システムの有無 **************************
  135. #    MSDOS.SYS IO.SYS COMMAND.COMの判別
  136.  
  137. CHECK_DOS:
  138.    %ans = isfile($drv_b~"\\MSDOS.SYS");
  139.    if(%ans != 0) {
  140.       %ans = isfile($drv_b~"\\IO.SYS");
  141.    }
  142.    if (%ans != 0) {
  143.       %ans = isfile($drv_b~"\\COMMAND.COM");
  144.    }
  145.    if (%ans == 0) {
  146.       %ans = isfile($drv_b~"\\IBMDOS.COM");
  147.       if (%ans != 0) {
  148.          %ans = isfile($drv_b~"\\IBMBIO.COM");
  149.       }
  150.       if (%ans != 0) {
  151.          %ans = isfile($drv_b~"\\COMMAND.COM");
  152.       }
  153.    }
  154.    if (%ans == 0) {
  155.       cls();
  156.       locate(15, 11);
  157.       print("起動時ドライブ"~$drv_b~"にはシステムが存在しません.\n");
  158.       locate(15, 12);
  159.       print("起動時ドライブを変更してください.");
  160.       locate(25, 14);
  161.       print("変更する[Y/N]？");
  162.       clrkey();
  163.       %ans = qesyorn(1);
  164.       if (%ans == 1) {
  165.          goto START;
  166.       }else{
  167.          $err = "起動時ドライブにシステムを入れてください.";
  168.          goto    ERROR_2;
  169.       }
  170.    }
  171.  
  172. #  ************************* BAT & SYSの有無 ************************
  173. #CHK_BAT&SYS
  174.  
  175.    $a_bat = $drv_b~"\\AUTOEXEC.BAT";
  176.    $c_sys = $drv_b~"\\CONFIG.SYS";
  177.  
  178.    %auto   = isfile($a_bat);
  179.    %config = isfile($c_sys);
  180.  
  181.  
  182. #  ************************* D.H.TOOLﾁｪｯｸ ***************************
  183. #CHK_DHT
  184.  
  185.    while( %mhd > 0 ){
  186.       $HD = drvname(%mhd)~":";
  187.       %ans = isdir($HD~"\\DHT");
  188.       if( %ans == 1){
  189.          %dht = 1;
  190.       }
  191.       %mhd = %mhd - 1;
  192.    }
  193.  
  194. #  ********************* サブディレクトリの作成 *********************
  195.  
  196.    cls();
  197.    locate( 23, 10);print("\n");
  198.    locate( 23, 11);print("サブディレクトリを作成します\n");
  199.    locate( 23, 12);print("\n");
  200.    locate( 28, 15);print($ddrv~"\\DDEV\\B64Pを作成します. ");
  201.    wait(3);
  202.  
  203.    $ddir = $ddrv;
  204.    %cnt = 1;
  205.    while(%cnt < 3){
  206.       switch(%cnt){
  207.          case 1: $fnm = "\\DDEV"; break;
  208.          case 2: $fnm = "\\DDEV\\B64P";    break;
  209.       }
  210.       $mdir = $ddir~$fnm;
  211.       %r1 = isdir( $mdir );
  212.       if( %r1 == 0 ){
  213.          %r2 = mkdir( $mdir );
  214.          if( %r2 != 0 ){
  215.             $err = $mdir~" が作成できません.";
  216.             goto ERROR_1;
  217.          }
  218.       }
  219.       %cnt = %cnt + 1;
  220.    }
  221.    $ddir = $ddrv~"\\DDEV\\B64P";
  222.  
  223. #  ファイルのコピー *************************************************
  224.  
  225.    cls();
  226.    locate(23,10);print("\n");
  227.    locate(23,11);print("ドライバの転送を開始します\n");
  228.    locate(23,12);print("");
  229.    wait(2);
  230.  
  231.    %cnt = 1;
  232.    while(%cnt < 14){
  233.       switch(%cnt){
  234.       case  1: $dnm="\\";    $fnm = "README.TXT "; break;
  235.       case  2: $dnm="\\98\\";    $fnm = "INSPX.SYS  "; break;
  236.       case  3: $dnm="\\98\\";    $fnm = "INSPDL.EXE "; break;
  237.       case  4: $dnm="\\98\\";    $fnm = "INSPDL.ROM "; break;
  238.       case  5: $dnm="\\98\\";    $fnm = "INS64M.SYS "; break;
  239.       case  6: $dnm="\\98\\";    $fnm = "INS64M.CNE "; break;
  240.       case  7: $dnm="\\98\\";    $fnm = "INS64CL.EXE"; break;
  241.       case  8: $dnm="\\98\\";    $fnm = "FDR.EXE    "; break;
  242.       case  9: $dnm="\\98\\";    $fnm = "FDS.EXE    "; break;
  243.       case 10: $dnm="\\98\\";    $fnm = "INS64EL.EXE"; break;
  244.       case 11: $dnm="\\98\\";    $fnm = "INS64S.EXE "; break;
  245.       case 12: $dnm="\\98\\";    $fnm = "SETINSP.EXE"; break;
  246.       case 13: $dnm="\\98\\";    $fnm = "TESTINS.EXE"; break;
  247.       }
  248.       $sfile = $sdrv~"\\REMOSERV"~$dnm~$fnm;
  249.       %r1=isfile($sfile);
  250.       if(%r1==0){ $err=$sfile~" が存在しません."; goto ERROR_1; }
  251.       locate(15,18); print("★"~$fnm~"を "~$ddrv~"\\DDEV\\B64Pにコピーしています... ★");
  252.       %r1=copy($sfile, $ddir );
  253.       if(%r1 !=0){
  254.          $err = $sfile~" をコピー中にエラーが発生しました.";
  255.          goto ERROR_1;
  256.       }
  257.       %cnt = %cnt + 1;
  258.    }
  259.  
  260.  
  261. #  ISDN *************************************************************
  262. #  \DDEV\B64P\CONFIG.SYSの生成 --------------------------------------
  263. #MAKE_B64V_CONFIG:
  264.     
  265.     $ddir = $ddrv~"\\DDEV\\B64P"; $fnm = $ddir~"\\CONFIG.SYS";
  266.     %ans = isfile($fnm);
  267.     if (%ans == 1) {
  268.         %del = delete($fnm);
  269.         if(%del != 0){
  270.             $err = $fnm~" が作成できません.";
  271.             goto ERROR_1;
  272.         }
  273.     }
  274.     %r1 = open($fnm);
  275.     if(%r1 != 0){
  276.         $err = $fnm~" が作成できません.";
  277.         goto ERROR_1;
  278.     }
  279.     seek(1);
  280.     addline("Files  = 21");
  281.     addline("Buffers= 20");
  282.     addline("Shell  = "~$drv_b~"\\COMMAND.COM "~$drv_b~"\\ /P");
  283.     addline("Device = "~$ddir~"\\INSPX.SYS");
  284.     addline("Device = "~$ddir~"\\INS64M.SYS /2K");
  285.     close();
  286.  
  287. #  CONFIG.SYSのコピーに使用されるファイル
  288. #  ----------------------  CONFIG.INX作成  ---------------------------
  289.  
  290.     $c_sys = $drv_b~"\\CONFIG.SYS";
  291.     $config_inx = $ddir~"\\CONFIG.INX";
  292.     %ans = isfile($c_sys);
  293.     if (%ans == 1) {
  294.         %sts = copy($c_sys, $config_inx);
  295.         if (%sts != 0) {
  296.             $err = "CONFIG.SYS～CONFIG.INXへのコピーに失敗しました." ;
  297.             goto ERROR_1;
  298.         }
  299.         open($config_inx);
  300.         seek(1);
  301.         %sys_x = forward("INSPX.SYS");
  302.         if ( %sys_x > 0){
  303.             seek(%sys_x);
  304.             delline();
  305.         }
  306.         seek(1);
  307.         %sys_m = forward("INS64M.SYS");
  308.         if ( %sys_m > 0){
  309.             seek(%sys_m);
  310.             delline();
  311.         }
  312.         seek(0);
  313.         insline("Device = "~$ddir~"\\INSPX.SYS");
  314.         addline("Device = "~$ddir~"\\INS64M.SYS /2K");
  315.         close();
  316.  
  317.     } else {
  318.         $fnm = $ddir~"\\CONFIG.INX";
  319.         %ans = isfile($fnm);
  320.         if (%ans == 1) {
  321.             %del = delete($fnm);
  322.             if(%del != 0){
  323.                 $err = $fnm~" が作成できません.";
  324.                 goto ERROR_1;
  325.             }
  326.         }
  327.         %r1 = open($fnm);
  328.         if(%r1 != 0){
  329.             $err = $fnm~" が作成できません.";
  330.             goto ERROR_1;
  331.         }
  332.         seek(1);
  333.         addline("Files  = 21");
  334.         addline("Buffers= 20");
  335.         addline("Shell  = "~$drv_b~"\\COMMAND.COM "~$drv_b~"\\ /P");
  336.         addline("Device = "~$ddir~"\\INSPX.SYS");
  337.         addline("Device = "~$ddir~"\\INS64M.SYS /2K");
  338.         close();
  339.     }
  340.  
  341. #  CONFIG.INM作成 ---------------------------------------------------
  342.  
  343.     $config_inm = $ddir~"\\CONFIG.INM";
  344.     %ans = isfile($c_sys);
  345.     if (%ans == 1) {
  346.         %sts = copy($c_sys, $config_inm);
  347.         if (%sts != 0) {
  348.             $err = "CONFIG.SYS～CONFIG.INMへのコピーに失敗しました.";
  349.             goto ERROR_1;
  350.         }
  351.         open($config_inm);
  352.         seek(1);
  353.         %sys_x = forward("INSPX.SYS");
  354.         if ( %sys_x > 0){
  355.             seek(%sys_x);
  356.             delline();
  357.         }
  358.         seek(1);
  359.         %sys_m = forward("INS64M.SYS");
  360.         if ( %sys_m > 0){
  361.             seek(%sys_m);
  362.             delline();
  363.         }
  364.         seek(0);
  365.         insline("Device = "~$ddir~"\\INSPX.SYS");
  366.         addline("Device = "~$ddir~"\\INS64M.SYS /2K");
  367.         close();
  368.  
  369.     } else {
  370.         $fnm = $ddir~"\\CONFIG.INM";
  371.         %ans = isfile($fnm);
  372.         if (%ans == 1) {
  373.             %del = delete($fnm);
  374.             if(%del != 0){
  375.                 $err = $fnm~" が作成できません.";
  376.                 goto ERROR_1;
  377.             }
  378.         }
  379.         %r1 = open($fnm);
  380.         if(%r1 != 0){
  381.             $err = $fnm~" が作成できません.";
  382.             goto ERROR_1;
  383.         }
  384.         seek(1);
  385.         addline("Files  = 21");
  386.         addline("Buffers= 20");
  387.         addline("Shell  = "~$drv_b~"\\COMMAND.COM "~$drv_b~"\\ /P");
  388.         addline("Device = "~$ddir~"\\INSPX.SYS");
  389.         addline("Device = "~$ddir~"\\INS64M.SYS /2K");
  390.         close();
  391.     }
  392.  
  393. #  CONFIG.INS作成 ---------------------------------------------------
  394.  
  395.     $config_ins = $ddir~"\\CONFIG.INS";
  396.     %ans = isfile($c_sys);
  397.     if (%ans == 1) {
  398.         %sts = copy($c_sys, $config_ins);
  399.         if (%sts != 0) {
  400.             $err = "CONFIG.SYS～CONFIG.INSへのコピーに失敗しました." ;
  401.             goto ERROR_1;
  402.         }
  403.         open($config_ins);
  404.         seek(1);
  405.         %sys_x = forward("INSPX.SYS");
  406.         if ( %sys_x > 0){
  407.             seek(%sys_x);
  408.             delline();
  409.         }
  410.         seek(1);
  411.         %sys_m = forward("INS64M.SYS");
  412.         if ( %sys_m > 0){
  413.             seek(%sys_m);
  414.             delline();
  415.         }
  416.         seek(0);
  417.         insline("Device = "~$ddir~"\\INSPX.SYS");
  418.         close();
  419.  
  420.     } else {
  421.         $fnm = $ddir~"\\CONFIG.INS";
  422.         %ans = isfile($fnm);
  423.         if (%ans == 1) {
  424.             %del = delete($fnm);
  425.             if(%del != 0){
  426.                 $err = $fnm~" が作成できません.";
  427.                 goto ERROR_1;
  428.             }
  429.         }
  430.         %r1 = open($fnm);
  431.         if(%r1 != 0){
  432.             $err = $fnm~" が作成できません.";
  433.             goto ERROR_1;
  434.         }
  435.         seek(1);
  436.         addline("Files  = 21");
  437.         addline("Buffers= 20");
  438.         addline("Shell  = "~$drv_b~"\\COMMAND.COM "~$drv_b~"\\ /P");
  439.         addline("Device = "~$ddir~"\\INSPX.SYS");
  440.         close();
  441.     }
  442.  
  443.  
  444. #  \DDEV\B64P\AUTOEXEC.BATの生成 ------------------------------------
  445.  
  446. MAKE_B64V_AUTOEXEC:
  447.  
  448.    $ddir = $ddrv~"\\DDEV\\B64P";
  449.    $fnm = $ddir~"\\AUTOEXEC.BAT";
  450.    %ans = isfile($fnm);
  451.    if (%ans == 1) {
  452.       %del = delete($fnm);
  453.       if(%del != 0){
  454.          $err = $fnm~" が作成できません.";
  455.          goto ERROR_1;
  456.       }
  457.    }
  458.    %r1 = open($fnm);
  459.    if(%r1 != 0){
  460.       $err = $fnm~" が作成できません.";
  461.       goto ERROR_1;
  462.    }
  463.    seek(1);
  464.    addline("ECHO OFF");
  465.    addline("PATH "~$ddrv~"\\;"~$ddrv~"\\DDEV\\B64P");
  466.    addline("PROMPT $p$g");
  467.    addline("INS64S /BW");
  468.    close();
  469.  
  470. #AUTOEXEC.BATのコピーに使用されるファイル
  471. #  AUTOEXEC.INX作成 -------------------------------------------------
  472.  
  473.    $a_bat = $drv_b~"\\AUTOEXEC.BAT";
  474.    $a_inx = $ddir~"\\AUTOEXEC.INX";
  475.    %ans = isfile($a_bat);
  476.    if(%ans==1){
  477.       %sts=copy($a_bat,$a_inx);
  478.       if (%sts != 0) {
  479.          $err = $ddir~"AUTOEXEC.BAT～AUTOEXEC.INXへのコピーに失敗しました.";
  480.          goto ERROR_1;
  481.       }
  482.       open($a_inx)
  483.       seek(1);
  484.       %ins64=forward($ddrv~"\\B64P;");
  485.       seek(1);
  486.       %path=forward("PATH");
  487.       if(%path == 0){
  488.          seek(1);
  489.          insline("PATH "~$ddrv~"\\;"~$ddrv~"\\DDEV\\B64P");
  490.       }else{
  491.          %path2=%path; %sww=1;
  492.          while(%sww != 0){
  493.             %path=%path2;
  494.             %path2=%path  + 1;
  495.             seek(%path2);
  496.             %path2=forward("PATH");
  497.             if(%path2==%path){
  498.                %path=0;
  499.                %sww=0;
  500.             }
  501.             if(%path2==0){
  502.                %sww=0;
  503.             }
  504.          }
  505.          if(%ins64==0){
  506.             %path=%path+1;
  507.             seek(%path);
  508.             $path="PATH "~$ddrv~"\\DDEV\\B64P;%PATH%";
  509.             insline($path);
  510.          }
  511.       }
  512.       seek(1);
  513.       %ins64s=forward("INS64S");
  514.       if(%ins64s !=0){
  515.          seek(%ins64s);
  516.          delline();
  517.       }
  518.       seek(0);
  519.       insline("INS64S /BW");
  520.       close();
  521.    } else {
  522.       $fnm = $ddir~"\\AUTOEXEC.INX";
  523.       %ans = isfile($fnm);
  524.       if(%ans==1) {
  525.          %del=delete($fnm);
  526.          if(%del !=0){
  527.             $err=$fnm~" が作成できません.";
  528.             goto ERROR_1;
  529.          }
  530.       }
  531.       %r1=open($fnm);
  532.       if(%r1 != 0){
  533.          $err=$fnm~" が作成できません.";
  534.          goto ERROR_1;
  535.       }
  536.       seek(1);
  537.       addline( "ECHO OFF" );
  538.       addline( "PATH "~$ddrv~"\\;"~$ddrv~"\\DDEV\\B64P");
  539.       if( %ddrv != %drv_b ){
  540.          addline( $ddrv );
  541.       }
  542.       addline( "PROMPT $p$g" );
  543.       addline( "INS64S /BW" );
  544.       close();
  545.    }
  546.    $autoexec_inm = $ddir~"\\AUTOEXEC.INM";
  547.    $autoexec_ins = $ddir~"\\AUTOEXEC.INS";
  548.    %sts = copy($a_inx, $autoexec_inm);
  549.    if (%sts != 0) {
  550.       $err="AUTOEXEC.INX～AUTOEXEC.INMへのコピーに失敗しました.";
  551.       goto ERROR_1;
  552.    }
  553.    open($autoexec_inm)
  554.    %ins64 = forward("\\DDEV\\B64P\\INS64S");
  555.    if(%ins64>0){ seek(%ins64); delline(); }
  556.    %ins64 = forward("INS64S");
  557.    if(%ins64>0){ seek(%ins64); delline(); }
  558.    close();
  559.  
  560.    %sts=copy($a_inx, $autoexec_ins);
  561.    if(%sts!=0){
  562.       $err="AUTOEXEC.INX～AUTOEXEC.INSへのコピーに失敗しました.";
  563.       goto ERROR_1;
  564.    }
  565.    open($autoexec_ins);
  566.    %ins64 = forward("\\DDEV\\B64P\\INS64S");
  567.    if(%ins64>0){
  568.       seek(%ins64);
  569.       delline();
  570.    }
  571.    %ins64 = forward("INS64S");
  572.    if(%ins64>0){
  573.       seek(%ins64);
  574.       delline();
  575.    }
  576.    seek(0);
  577.    insline("INS64S");
  578.    close();
  579.  
  580.  
  581. #  *************** あたま part2 *************************************
  582. #  起動元にユーザーのAUTOEXEC.BATとCOINFIG.SYSが存在した場合は
  583. #  編集のする,しないはユーザーに判断を任せる.
  584. #  ******************************************************************
  585. #  ---------   ﾙ-ﾄﾃﾞｨﾚｸﾄﾘの CONFIG.SYS作成  -------------------------
  586.  
  587.    cls();
  588.    locate(15,3);print("　次の処理内容はルートにある AUTOEXEC.BAT & CONFIG.SYS を\n");
  589.    locate(15,5);print("ＩＳＤＮ用のデバイスドライバを組み込んだ AUTOEXEC.BAT と\n");
  590.    locate(15,7);print("CONFIG.SYS に変換するためのプログラムです.\n");
  591.    locate(15,9);print("従来の AUTOEXEC.BAT & CONFIG.SYS は ***.ORG に保存されます.\n");
  592.    locate(19,12);print("書き換え元・・・\\DDEV\\B64P\\AUTOEXEC.IN? & CONFIG.IN?\n");
  593.    locate(19,13);print("書き換え先・・・\AUTOEXEC.BAT & CONFIG.SYS\n");
  594.    locate(19,15);print("次の処理形式の中から番号で選択してください\n");
  595.    locate(23,17);print("1 : 混合型\n");
  596.    locate(23,18);print("2 : 発呼型\n");
  597.    locate(23,19);print("3 : 着呼型\n");
  598.    locate(23,20);print("4 : 新規に作成しない\n");
  599.    locate(25,22);print("選択番号[1-4]");
  600.    %prmt1 = 4;
  601.    %prmt2 = 1;
  602. LOOP:
  603.    clrkey();
  604.    %res = qessel(%prmt1,%prmt2);
  605.    switch(%res){
  606.    case  -1:  goto LOOP;
  607.    case   1:  $end = "INX"; break;
  608.    case   2:  $end = "INM"; break;
  609.    case   3:  $end = "INS"; break;
  610.    case   4:  goto MEND;
  611.    }
  612.    cls();
  613.    locate(23,10);print("\n");
  614.    locate(23,11);print("CONFIG.SYSの作成を開始します\n");
  615.    locate(23,12);print("");
  616.    wait(2);
  617.  
  618.    if(%config != 0){
  619.       $c_sys = $drv_b~"\\CONFIG.SYS";
  620.       $c_org = $drv_b~"\\CONFIG.ORG";
  621.       locate(26, 20);    print($c_sys~"を変更します.");
  622.       locate(18, 21);    print("元の"~$c_sys~"は、"~$c_org~"に保存します.");
  623.       wait(3); clrline(20); clrline(21);
  624.       %ans = isfile($c_org);
  625.       if (%ans == 1) {
  626.          locate(25,20);print($c_org~"が既に存在しています.");
  627.          locate(25,21);print($c_org~"を書き換えます");
  628.          locate(30,22);print("よろしいですか？[Y/N]");
  629.          clrkey();
  630.          %ans = qesyorn(1);
  631.          clrline(20);clrline(21);clrline(22);
  632.          if(%ans==1){
  633.             %sts=copy($c_sys, $c_org);
  634.             if(%sts != 0){
  635.                $err = $c_org~" が作成できません.";
  636.                goto ERROR_1;
  637.             }
  638.          }else{
  639.             goto MAKE_ROOT_CONFIG;
  640.          }
  641.       }else{
  642.          %sts = copy($c_sys, $c_org);
  643.          if(%sts!=0){
  644.             $err=$c_org~" が作成できません.";
  645.             goto ERROR_1;
  646.          }
  647.       }
  648.    }
  649. MAKE_ROOT_CONFIG:
  650.    $ddir = $ddrv~"\\DDEV\\B64P"; $fnm = $ddir~"\\CONFIG."~$end;
  651.    $c_sys = $drv_b~"\\CONFIG.SYS";
  652.    copy($fnm,$c_sys);
  653.  
  654. #  ******************************************************************
  655. #  --------- ﾙ-ﾄﾃﾞｨﾚｸﾄﾘの AUTOEXEC.BAT作成 --------------------------
  656.  
  657. MAKE_ROOT_AUTOEXEC:
  658.  
  659.    cls();
  660.    locate( 23, 10);print("\n");
  661.    locate( 23, 11);print("AUTOEXEC.BATの作成を開始します\n");
  662.    locate( 23, 12);print("");
  663.    wait(2);
  664.  
  665.    if(%auto != 0){
  666.       $a_bat = $drv_b~"\\AUTOEXEC.BAT";
  667.       $a_org = $drv_b~"\\AUTOEXEC.ORG";
  668.       locate(25,20); print($a_bat~"を変更します.");
  669.       locate(15,21); print("元の"~$a_bat~"は、"~$a_org~"に保存します.");
  670.       wait(2);
  671.       clrline(20); clrline(21);
  672.       %ans = isfile($a_org);
  673.       if(%ans==1){
  674.          locate(25,20);print($a_org~"が既に存在しています.");
  675.          locate(25,21);print($a_org~"を書き換えます");
  676.          locate(30,22);print("よろしいですか[Y/N]？");
  677.          clrkey();
  678.          %ans = qesyorn(1);
  679.          clrline(20);clrline(21);clrline(22);
  680.          if(%ans==1){
  681.             %sts=copy($a_bat, $a_org);
  682.             if(%sts!=0){$err=$a_org~" が作成できません."; goto ERROR_1; }
  683.          }else{
  684.             goto MAKE_ROOT_AUTO;
  685.          }
  686.       }else{
  687.          %sts = copy($a_bat, $a_org);
  688.          if(%sts!=0){$err=$a_org~" が作成できません."; goto ERROR_1; }
  689.       }
  690.    }
  691. MAKE_ROOT_AUTO:
  692.    $ddir = $ddrv~"\\DDEV\\B64P"; $fnm = $ddir~"\\AUTOEXEC."~$end;
  693.    $a_bat = $drv_b~"\\AUTOEXEC.BAT";
  694.    copy($fnm,$a_bat);
  695.  
  696. #  ------------------------------------------------------------------
  697. #  ＥＮＤ処理＆メッセージ
  698.  
  699. MEND:
  700.    cls();
  701.    locate( 25, 10);print("\n");
  702.    locate( 25, 11);print("インストールが終了しました\n");
  703.    locate( 25, 12);print("");
  704.    wait(2);
  705.  
  706.    if(%dht==1){
  707.       %x=12; %y_1=13; %k=9;
  708.    } else{
  709.       %x=12; %y_1=15; %k=7;
  710.    }
  711.    locate( %x , %y_1 );
  712. #print("  最後に  ");
  713.    %cunt = 1; %y = %y_1 + 1;
  714.    while(%cunt < %k ){
  715.       locate( %x , %y );
  716.       print("                                                          ");
  717.       %cunt=%cunt+1; %y=%y+1;
  718.    }
  719.    locate(%x ,%y_1+%k);
  720.    print(" \n");
  721.  
  722.    if( %dht == 0 ){
  723.       locate(%x+2,%y_1+2);print("ご苦労さまでした. インストールが終了しました.");
  724.       locate(%x+2,%y_1+5);print("再び起動された時にはＩＮＳ－Ｂ６４／ＰＣＩが使用できます.");
  725.    } else {
  726.       locate(%x+2,%y_1+2);print("ご苦労さまでした. インストールが終了しました.");
  727.       locate(%x+2,%y_1+5);print("再び起動された時にはＩＮＳ－Ｂ６４／ＰＣＩが使用できます.");
  728.    }
  729.    goto    END;
  730.  
  731.  
  732. #　エラーの処理
  733. ERROR_1:
  734.    cls();
  735.    locate(25,10);print("\n");
  736.    locate(25,11);print("インストールを中止しました\n");
  737.    locate(25,12);print("");
  738.    print("\n");
  739.    locate(17, 15);print("エラー："); print($err~"\n");
  740.    print("\n");
  741.    exit(-1);
  742.    goto    END;
  743.  
  744. ERROR_2:
  745.    cls();
  746.    locate(25,10);print("\n");
  747.    locate(25,11);print("インストールを中止しました\n");
  748.    locate(25,12);print("");
  749.    locate(20,15);print($err~"\n");
  750.    print("\n");
  751.    print("再起動方法は"~$sdrv~"MAOIX INSP.SUPと入力してください.\n");
  752.    print("\n");
  753.    exit(-1);
  754. END:
  755.    print("\n");
  756.  
  757.