home *** CD-ROM | disk | FTP | other *** search
/ DOS/V Power Report 1997 July / VPR9707B.ISO / DRIVER / IODATA / B64P101 / DISK.EXE / REMOSERV / DOSV / INSPV.SUP < prev    next >
Text File  |  1996-12-16  |  22KB  |  780 lines
  1. #
  2. #  MAOIX
  3. #  INS-B64/PCI (DOS/V) ｉスクリプト
  4.  
  5.  
  6. # 宣言子
  7. .title = "INS-B64/PCI  (DOS/V) ハードディスクインストール (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(27,10);print("\n");
  227.    locate(27,11);print("ドライバの転送を開始します\n");
  228.    locate(27,12);print("");
  229.    wait(2);
  230.  
  231.    %cnt = 1;
  232.    while(%cnt < 15){
  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="\\DOSV\\"; $fnm = "INS64VM.SYS "; break;
  239.       case  6: $dnm="\\DOSV\\"; $fnm = "INS64VC.SYS "; break;
  240.       case  7: $dnm="\\DOSV\\"; $fnm = "INS64VS.EXE "; break;
  241.       case  8: $dnm="\\DOSV\\"; $fnm = "INS64VCL.EXE"; break;
  242.       case  9: $dnm="\\DOSV\\"; $fnm = "INS64VEL.EXE"; break;
  243.       case 10: $dnm="\\DOSV\\"; $fnm = "FDSV.EXE    "; break;
  244.       case 11: $dnm="\\DOSV\\"; $fnm = "FDRV.EXE    "; break;
  245.       case 12: $dnm="\\DOSV\\"; $fnm = "INS64VM.CNE "; break;
  246.       case 13: $dnm="\\98\\";    $fnm = "SETINSP.EXE "; break;
  247.       case 14: $dnm="\\98\\";    $fnm = "TESTINS.EXE "; break;
  248.       }
  249.       $sfile = $sdrv~"\\REMOSERV"~$dnm~$fnm;
  250.       %r1=isfile($sfile);
  251.       if(%r1==0){ $err=$sfile~" が存在しません."; goto ERROR_1; }
  252.       locate(15,18); print("★"~$fnm~"を "~$ddrv~"\\DDEV\\B64Pにコピーしています... ★");
  253.       %r1=copy($sfile, $ddir );
  254.       if(%r1 !=0){
  255.          $err = $sfile~" をコピー中にエラーが発生しました.";
  256.          goto ERROR_1;
  257.       }
  258.       %cnt = %cnt + 1;
  259.    }
  260.  
  261.  
  262. #  ISDN *************************************************************
  263. #  \DDEV\B64P\CONFIG.SYSの生成 --------------------------------------
  264. #MAKE_B64V_CONFIG:
  265.     
  266.     $ddir = $ddrv~"\\DDEV\\B64P"; $fnm = $ddir~"\\CONFIG.SYS";
  267.     %ans = isfile($fnm);
  268.     if (%ans == 1) {
  269.         %del = delete($fnm);
  270.         if(%del != 0){
  271.             $err = $fnm~" が作成できません.";
  272.             goto ERROR_1;
  273.         }
  274.     }
  275.     %r1 = open($fnm);
  276.     if(%r1 != 0){
  277.         $err = $fnm~" が作成できません.";
  278.         goto ERROR_1;
  279.     }
  280.     seek(1);
  281.     addline("Files  = 21");
  282.     addline("Buffers= 20");
  283.     addline("Shell  = "~$drv_b~"\\COMMAND.COM "~$drv_b~"\\ /P");
  284.     addline("Device = "~$ddir~"\\INSPX.SYS");
  285.     addline("Device = "~$ddir~"\\INS64VM.SYS /2K");
  286.     addline("Device = "~$ddir~"\\INS64VC.SYS");
  287.     close();
  288.  
  289. #  CONFIG.SYSのコピーに使用されるファイル
  290. #  ----------------------  CONFIG.INX作成  ---------------------------
  291.  
  292.     $c_sys = $drv_b~"\\CONFIG.SYS";
  293.     $config_inx = $ddir~"\\CONFIG.INX";
  294.     %ans = isfile($c_sys);
  295.     if (%ans == 1) {
  296.         %sts = copy($c_sys, $config_inx);
  297.         if (%sts != 0) {
  298.             $err = "CONFIG.SYS～CONFIG.INXへのコピーに失敗しました." ;
  299.             goto ERROR_1;
  300.         }
  301.         open($config_inx);
  302.         seek(1);
  303.         %sys_x = forward("INSPX.SYS");
  304.         if ( %sys_x > 0){
  305.             seek(%sys_x);
  306.             delline();
  307.         }
  308.         seek(1);
  309.         %sys_m = forward("INS64VM.SYS");
  310.         if ( %sys_m > 0){
  311.             seek(%sys_m);
  312.             delline();
  313.         }
  314.         seek(1);
  315.         %sys_vc = forward("INS64VC.SYS");
  316.         if ( %sys_vc > 0){
  317.             seek(%sys_vc);
  318.             delline();
  319.         }
  320.         seek(0);
  321.         insline("Device = "~$ddir~"\\INSPX.SYS");
  322.         addline("Device = "~$ddir~"\\INS64VM.SYS /2K");
  323.         addline("Device = "~$ddir~"\\INS64VC.SYS");
  324.         close();
  325.  
  326.     } else {
  327.         $fnm = $ddir~"\\CONFIG.INX";
  328.         %ans = isfile($fnm);
  329.         if (%ans == 1) {
  330.             %del = delete($fnm);
  331.             if(%del != 0){
  332.                 $err = $fnm~" が作成できません.";
  333.                 goto ERROR_1;
  334.             }
  335.         }
  336.         %r1 = open($fnm);
  337.         if(%r1 != 0){
  338.             $err = $fnm~" が作成できません.";
  339.             goto ERROR_1;
  340.         }
  341.         seek(1);
  342.         addline("Files  = 21");
  343.         addline("Buffers= 20");
  344.         addline("Shell  = "~$drv_b~"\\COMMAND.COM "~$drv_b~"\\ /P");
  345.         addline("Device = "~$ddir~"\\INSPX.SYS");
  346.         addline("Device = "~$ddir~"\\INS64VM.SYS /2K");
  347.         addline("Device = "~$ddir~"\\INS64VC.SYS");
  348.         close();
  349.     }
  350.  
  351. #  CONFIG.INM作成 ---------------------------------------------------
  352.  
  353.     $config_inm = $ddir~"\\CONFIG.INM";
  354.     %ans = isfile($c_sys);
  355.     if (%ans == 1) {
  356.         %sts = copy($c_sys, $config_inm);
  357.         if (%sts != 0) {
  358.             $err = "CONFIG.SYS～CONFIG.INMへのコピーに失敗しました.";
  359.             goto ERROR_1;
  360.         }
  361.         open($config_inm);
  362.         seek(1);
  363.         %sys_x = forward("INSPX.SYS");
  364.         if ( %sys_x > 0){
  365.             seek(%sys_x);
  366.             delline();
  367.         }
  368.         seek(1);
  369.         %sys_m = forward("INS64VM.SYS");
  370.         if ( %sys_m > 0){
  371.             seek(%sys_m);
  372.             delline();
  373.         }
  374.         seek(1);
  375.         %sys_vc = forward("INS64VC.SYS");
  376.         if ( %sys_vc > 0){
  377.             seek(%sys_vc);
  378.             delline();
  379.         }
  380.         seek(0);
  381.         insline("Device = "~$ddir~"\\INSPX.SYS");
  382.         addline("Device = "~$ddir~"\\INS64VM.SYS /2K");
  383.         addline("Device = "~$ddir~"\\INS64VC.SYS");
  384.         close();
  385.  
  386.     } else {
  387.         $fnm = $ddir~"\\CONFIG.INM";
  388.         %ans = isfile($fnm);
  389.         if (%ans == 1) {
  390.             %del = delete($fnm);
  391.             if(%del != 0){
  392.                 $err = $fnm~" が作成できません.";
  393.                 goto ERROR_1;
  394.             }
  395.         }
  396.         %r1 = open($fnm);
  397.         if(%r1 != 0){
  398.             $err = $fnm~" が作成できません.";
  399.             goto ERROR_1;
  400.         }
  401.         seek(1);
  402.         addline("Files  = 21");
  403.         addline("Buffers= 20");
  404.         addline("Shell  = "~$drv_b~"\\COMMAND.COM "~$drv_b~"\\ /P");
  405.         addline("Device = "~$ddir~"\\INSPX.SYS");
  406.         addline("Device = "~$ddir~"\\INS64VM.SYS /2K");
  407.         addline("Device = "~$ddir~"\\INS64VC.SYS");
  408.         close();
  409.     }
  410.  
  411. #  CONFIG.INS作成 ---------------------------------------------------
  412.  
  413.     $config_ins = $ddir~"\\CONFIG.INS";
  414.     %ans = isfile($c_sys);
  415.     if (%ans == 1) {
  416.         %sts = copy($c_sys, $config_ins);
  417.         if (%sts != 0) {
  418.             $err = "CONFIG.SYS～CONFIG.INSへのコピーに失敗しました." ;
  419.             goto ERROR_1;
  420.         }
  421.         open($config_ins);
  422.         seek(1);
  423.         %sys_x = forward("INSPX.SYS");
  424.         if ( %sys_x > 0){
  425.             seek(%sys_x);
  426.             delline();
  427.         }
  428.         seek(1);
  429.         %sys_m = forward("INS64VM.SYS");
  430.         if ( %sys_m > 0){
  431.             seek(%sys_m);
  432.             delline();
  433.         }
  434.         seek(1);
  435.         %sys_vc = forward("INS64VC.SYS");
  436.         if ( %sys_vc > 0){
  437.             seek(%sys_vc);
  438.             delline();
  439.         }
  440.         seek(0);
  441.         insline("Device = "~$ddir~"\\INSPX.SYS");
  442.         close();
  443.  
  444.     } else {
  445.         $fnm = $ddir~"\\CONFIG.INS";
  446.         %ans = isfile($fnm);
  447.         if (%ans == 1) {
  448.             %del = delete($fnm);
  449.             if(%del != 0){
  450.                 $err = $fnm~" が作成できません.";
  451.                 goto ERROR_1;
  452.             }
  453.         }
  454.         %r1 = open($fnm);
  455.         if(%r1 != 0){
  456.             $err = $fnm~" が作成できません.";
  457.             goto ERROR_1;
  458.         }
  459.         seek(1);
  460.         addline("Files  = 21");
  461.         addline("Buffers= 20");
  462.         addline("Shell  = "~$drv_b~"\\COMMAND.COM "~$drv_b~"\\ /P");
  463.         addline("Device = "~$ddir~"\\INSPX.SYS");
  464.         close();
  465.     }
  466.  
  467.  
  468. #  \DDEV\B64P\AUTOEXEC.BATの生成 ------------------------------------
  469.  
  470. MAKE_B64V_AUTOEXEC:
  471.  
  472.    $ddir = $ddrv~"\\DDEV\\B64P";
  473.    $fnm = $ddir~"\\AUTOEXEC.BAT";
  474.    %ans = isfile($fnm);
  475.    if (%ans == 1) {
  476.       %del = delete($fnm);
  477.       if(%del != 0){
  478.          $err = $fnm~" が作成できません.";
  479.          goto ERROR_1;
  480.       }
  481.    }
  482.    %r1 = open($fnm);
  483.    if(%r1 != 0){
  484.       $err = $fnm~" が作成できません.";
  485.       goto ERROR_1;
  486.    }
  487.    seek(1);
  488.    addline("ECHO OFF");
  489.    addline("PATH "~$ddrv~"\\;"~$ddrv~"\\DDEV\\B64P");
  490.    addline("PROMPT $p$g");
  491.    addline("INS64VS /BW");
  492.    close();
  493.  
  494. #AUTOEXEC.BATのコピーに使用されるファイル
  495. #  AUTOEXEC.INX作成 -------------------------------------------------
  496.  
  497.    $a_bat = $drv_b~"\\AUTOEXEC.BAT";
  498.    $a_inx = $ddir~"\\AUTOEXEC.INX";
  499.    %ans = isfile($a_bat);
  500.    if(%ans==1){
  501.       %sts=copy($a_bat,$a_inx);
  502.       if (%sts != 0) {
  503.          $err = $ddir~"AUTOEXEC.BAT～AUTOEXEC.INXへのコピーに失敗しました.";
  504.          goto ERROR_1;
  505.       }
  506.       open($a_inx)
  507.       seek(1);
  508.       %ins64=forward($ddrv~"\\B64P;");
  509.       seek(1);
  510.       %path=forward("PATH");
  511.       if(%path == 0){
  512.          seek(1);
  513.          insline("PATH "~$ddrv~"\\;"~$ddrv~"\\DDEV\\B64P");
  514.       }else{
  515.          %path2=%path; %sww=1;
  516.          while(%sww != 0){
  517.             %path=%path2;
  518.             %path2=%path  + 1;
  519.             seek(%path2);
  520.             %path2=forward("PATH");
  521.             if(%path2==%path){
  522.                %path=0;
  523.                %sww=0;
  524.             }
  525.             if(%path2==0){
  526.                %sww=0;
  527.             }
  528.          }
  529.          if(%ins64==0){
  530.             %path=%path+1;
  531.             seek(%path);
  532.             $path="PATH "~$ddrv~"\\DDEV\\B64P;%PATH%";
  533.             insline($path);
  534.          }
  535.       }
  536.       seek(1);
  537.       %ins64s=forward("INS64VS");
  538.       if(%ins64s !=0){
  539.          seek(%ins64s);
  540.          delline();
  541.       }
  542.       seek(0);
  543.       insline("INS64VS /BW");
  544.       close();
  545.    } else {
  546.       $fnm = $ddir~"\\AUTOEXEC.INX";
  547.       %ans = isfile($fnm);
  548.       if(%ans==1) {
  549.          %del=delete($fnm);
  550.          if(%del !=0){
  551.             $err=$fnm~" が作成できません.";
  552.             goto ERROR_1;
  553.          }
  554.       }
  555.       %r1=open($fnm);
  556.       if(%r1 != 0){
  557.          $err=$fnm~" が作成できません.";
  558.          goto ERROR_1;
  559.       }
  560.       seek(1);
  561.       addline( "ECHO OFF" );
  562.       addline( "PATH "~$ddrv~"\\;"~$ddrv~"\\DDEV\\B64P");
  563.       if( %ddrv != %drv_b ){
  564.          addline( $ddrv );
  565.       }
  566.       addline( "PROMPT $p$g" );
  567.       addline( "INS64VS /BW" );
  568.       close();
  569.    }
  570.    $autoexec_inm = $ddir~"\\AUTOEXEC.INM";
  571.    $autoexec_ins = $ddir~"\\AUTOEXEC.INS";
  572.    %sts = copy($a_inx, $autoexec_inm);
  573.    if (%sts != 0) {
  574.       $err="AUTOEXEC.INX～AUTOEXEC.INMへのコピーに失敗しました.";
  575.       goto ERROR_1;
  576.    }
  577.    open($autoexec_inm)
  578.    %ins64 = forward("\\DDEV\\B64P\\INS64VS");
  579.    if(%ins64>0){ seek(%ins64); delline(); }
  580.    %ins64 = forward("INS64VS");
  581.    if(%ins64>0){ seek(%ins64); delline(); }
  582.    close();
  583.  
  584.    %sts=copy($a_inx, $autoexec_ins);
  585.    if(%sts!=0){
  586.       $err="AUTOEXEC.INX～AUTOEXEC.INSへのコピーに失敗しました.";
  587.       goto ERROR_1;
  588.    }
  589.    open($autoexec_ins);
  590.    %ins64 = forward("\\DDEV\\B64P\\INS64VS");
  591.    if(%ins64>0){
  592.       seek(%ins64);
  593.       delline();
  594.    }
  595.    %ins64 = forward("INS64VS");
  596.    if(%ins64>0){
  597.       seek(%ins64);
  598.       delline();
  599.    }
  600.    seek(0);
  601.    insline("INS64VS");
  602.    close();
  603.  
  604.  
  605. #  *************** あたま part2 *************************************
  606. #  起動元にユーザーのAUTOEXEC.BATとCOINFIG.SYSが存在した場合は
  607. #  編集のする,しないはユーザーに判断を任せる.
  608. #  ******************************************************************
  609. #  ---------   ﾙ-ﾄﾃﾞｨﾚｸﾄﾘの CONFIG.SYS作成  -------------------------
  610.  
  611.    cls();
  612.    locate(15,3);print("　次の処理内容はルートにある AUTOEXEC.BAT & CONFIG.SYS を\n");
  613.    locate(15,5);print("ＩＳＤＮ用のデバイスドライバを組み込んだ AUTOEXEC.BAT と\n");
  614.    locate(15,7);print("CONFIG.SYS に変換するためのプログラムです.\n");
  615.    locate(15,9);print("従来の AUTOEXEC.BAT & CONFIG.SYS は ***.ORG に保存されます.\n");
  616.    locate(19,12);print("書き換え元・・・\\DDEV\\B64P\\AUTOEXEC.IN? & CONFIG.IN?\n");
  617.    locate(19,13);print("書き換え先・・・\AUTOEXEC.BAT & CONFIG.SYS\n");
  618.    locate(19,15);print("次の処理形式の中から番号で選択してください\n");
  619.    locate(23,17);print("1 : 混合型\n");
  620.    locate(23,18);print("2 : 発呼型\n");
  621.    locate(23,19);print("3 : 着呼型\n");
  622.    locate(23,20);print("4 : 新規に作成しない\n");
  623.    locate(25,22);print("選択番号[1-4]");
  624.    %prmt1 = 4;
  625.    %prmt2 = 1;
  626. LOOP:
  627.    clrkey();
  628.    %res = qessel(%prmt1,%prmt2);
  629.    switch(%res){
  630.    case  -1:  goto LOOP;
  631.    case   1:  $end = "INX"; break;
  632.    case   2:  $end = "INM"; break;
  633.    case   3:  $end = "INS"; break;
  634.    case   4:  goto MEND;
  635.    }
  636.    cls();
  637.    locate(23,10);print("\n");
  638.    locate(23,11);print("CONFIG.SYSの作成を開始します\n");
  639.    locate(23,12);print("");
  640.    wait(2);
  641.  
  642.    if(%config != 0){
  643.       $c_sys = $drv_b~"\\CONFIG.SYS";
  644.       $c_org = $drv_b~"\\CONFIG.ORG";
  645.       locate(26, 20);    print($c_sys~"を変更します.");
  646.       locate(18, 21);    print("元の"~$c_sys~"は、"~$c_org~"に保存します.");
  647.       wait(3); clrline(20); clrline(21);
  648.       %ans = isfile($c_org);
  649.       if (%ans == 1) {
  650.          locate(25,20);print($c_org~"が既に存在しています.");
  651.          locate(25,21);print($c_org~"を書き換えます");
  652.          locate(30,22);print("よろしいですか？[Y/N]");
  653.          clrkey();
  654.          %ans = qesyorn(1);
  655.          clrline(20);clrline(21);clrline(22);
  656.          if(%ans==1){
  657.             %sts=copy($c_sys, $c_org);
  658.             if(%sts != 0){
  659.                $err = $c_org~" が作成できません.";
  660.                goto ERROR_1;
  661.             }
  662.          }else{
  663.             goto MAKE_ROOT_CONFIG;
  664.          }
  665.       }else{
  666.          %sts = copy($c_sys, $c_org);
  667.          if(%sts!=0){
  668.             $err=$c_org~" が作成できません.";
  669.             goto ERROR_1;
  670.          }
  671.       }
  672.    }
  673. MAKE_ROOT_CONFIG:
  674.    $ddir = $ddrv~"\\DDEV\\B64P"; $fnm = $ddir~"\\CONFIG."~$end;
  675.    $c_sys = $drv_b~"\\CONFIG.SYS";
  676.    copy($fnm,$c_sys);
  677.  
  678. #  ******************************************************************
  679. #  --------- ﾙ-ﾄﾃﾞｨﾚｸﾄﾘの AUTOEXEC.BAT作成 --------------------------
  680.  
  681. MAKE_ROOT_AUTOEXEC:
  682.  
  683.    cls();
  684.    locate( 23, 10);print("\n");
  685.    locate( 23, 11);print("AUTOEXEC.BATの作成を開始します\n");
  686.    locate( 23, 12);print("");
  687.    wait(2);
  688.  
  689.    if(%auto != 0){
  690.       $a_bat = $drv_b~"\\AUTOEXEC.BAT";
  691.       $a_org = $drv_b~"\\AUTOEXEC.ORG";
  692.       locate(25,20); print($a_bat~"を変更します.");
  693.       locate(15,21); print("元の"~$a_bat~"は、"~$a_org~"に保存します.");
  694.       wait(2);
  695.       clrline(20); clrline(21);
  696.       %ans = isfile($a_org);
  697.       if(%ans==1){
  698.          locate(25,20);print($a_org~"が既に存在しています.");
  699.          locate(25,21);print($a_org~"を書き換えます");
  700.          locate(30,22);print("よろしいですか[Y/N]？");
  701.          clrkey();
  702.          %ans = qesyorn(1);
  703.          clrline(20);clrline(21);clrline(22);
  704.          if(%ans==1){
  705.             %sts=copy($a_bat, $a_org);
  706.             if(%sts!=0){$err=$a_org~" が作成できません."; goto ERROR_1; }
  707.          }else{
  708.             goto MAKE_ROOT_AUTO;
  709.          }
  710.       }else{
  711.          %sts = copy($a_bat, $a_org);
  712.          if(%sts!=0){$err=$a_org~" が作成できません."; goto ERROR_1; }
  713.       }
  714.    }
  715. MAKE_ROOT_AUTO:
  716.    $ddir = $ddrv~"\\DDEV\\B64P"; $fnm = $ddir~"\\AUTOEXEC."~$end;
  717.    $a_bat = $drv_b~"\\AUTOEXEC.BAT";
  718.    copy($fnm,$a_bat);
  719.  
  720. #  ------------------------------------------------------------------
  721. #  ＥＮＤ処理＆メッセージ
  722.  
  723. MEND:
  724.    cls();
  725.    locate( 25, 10);print("\n");
  726.    locate( 25, 11);print("インストールが終了しました\n");
  727.    locate( 25, 12);print("");
  728.    wait(2);
  729.  
  730.    if( %dht == 1 ){
  731.       %x = 12; %y_1 = 13;%k = 9;
  732.    } else{
  733.       %x = 12; %y_1 = 15;%k = 7;
  734.    }
  735.    locate( %x , %y_1 );
  736. #print("  最後に  ");
  737.    %cunt = 1; %y = %y_1 + 1;
  738.    while(%cunt < %k ){
  739.       locate( %x , %y );
  740.       print("                                                          ");
  741.       %cunt=%cunt+1; %y=%y+1;
  742.    }
  743.    locate(%x ,%y_1+%k);
  744.    print(" \n");
  745.  
  746.    if( %dht == 0 ){
  747.       locate(%x+2,%y_1+2);print("ご苦労さまでした. インストールが終了しました.");
  748.       locate(%x+2,%y_1+5);print("再び起動された時にはＩＮＳ－Ｂ６４／ＰＣＩが使用できます.");
  749.    } else {
  750.       locate(%x+2,%y_1+2);print("ご苦労さまでした. インストールが終了しました.");
  751.       locate(%x+2,%y_1+5);print("再び起動された時にはＩＮＳ－Ｂ６４／ＰＣＩが使用できます.");
  752.    }
  753.    goto    END;
  754.  
  755.  
  756. #　エラーの処理
  757. ERROR_1:
  758.    cls();
  759.    locate(25,10);print("\n");
  760.    locate(25,11);print("インストールを中止しました\n");
  761.    locate(25,12);print("");
  762.    print("\n");
  763.    locate(17, 15);print("エラー："); print($err~"\n");
  764.    print("\n");
  765.    exit(-1);
  766.    goto    END;
  767.  
  768. ERROR_2:
  769.    cls();
  770.    locate(25,10);print("\n");
  771.    locate(25,11);print("インストールを中止しました\n");
  772.    locate(25,12);print("");
  773.    locate(20,15);print($err~"\n");
  774.    print("\n");
  775.    print("再起動方法は"~$sdrv~"MAOIX INSPV.SUPと入力してください.\n");
  776.    print("\n");
  777.    exit(-1);
  778. END:
  779.    print("\n");
  780.