home *** CD-ROM | disk | FTP | other *** search
/ DOS/V Power Report 1996 July / VPR9607B.BIN / driver / canon / shot / dospb120 / insthd.exe / INSTHD.SUP
Text File  |  1995-10-06  |  43KB  |  371 lines
  1. #------------------------------------------------------------------------------
  2. # □PBUDDY1.0 ｲﾝｽﾄｰﾙ･ｾｯﾄｱｯﾌﾟ用 MAOIXｽｸﾘﾌﾟ
  3. #------------------------------------------------------------------------------
  4. .title = "「PrintBuddy」ｲﾝｽﾄｰﾙ･ｾｯﾄｱｯﾌﾟ ﾌﾟﾛｸﾞﾗﾑ";
  5. .maker = "";
  6. .sname = "INSTALL";
  7. .usedir = "PBUDDY";
  8. .mount = "NULL";
  9. .mmspace = 10;
  10. %cassette = 1;    %dupkey  = 1;    %commode = 2;    %direction = 1;    $a = "[";    $b = "]";    $bar = "+----------------------------------------------------------------+";
  11. $bar2= "|                                                                |";    $Rec = "登録";    $Add = "追加";    $Sel = "選択";
  12. #------------------------------------------------------------------------------
  13. HDINST_START:    cls();    locate(10,1);    print($bar);    locate(10,2);    print("|                          ようこそ                              |");    locate(10,3);    print($bar);
  14. locate(10,4);    print($bar2);    locate(10,5);    print("|                     PrintBuddy へようこそ                      |");    locate(10,6);    print($bar2);    locate(10,7);    print($bar2);
  15. locate(10,8);    print("|      この PrintBuddy ｾｯﾄｱｯﾌﾟﾌﾟﾛｸﾞﾗﾑは、ﾌﾟﾘﾝﾀのｵﾌﾟｼｮﾝ機器の     |");    locate(10,9);    print("|      追加や削除にともなう機器構成の変更を正しく PrintBuddy     |");
  16. locate(10,10);    print("|      へ反映させるためのﾌﾟﾛｸﾞﾗﾑです。                           |");    locate(10,11);    print($bar2);    locate(10,12);    print($bar2);
  17. locate(10,13);    print($bar2);    locate(10,14);    print("|        PrintBuddy ｾｯﾄｱｯﾌﾟﾌﾟﾛｸﾞﾗﾑを継続しますか？ [Y/N]         |");    locate(10,15);    print($bar2);    locate(10,16);    print($bar);
  18. %ans = exist("DOS\\SETUP\\INSTALL.INI");    if(%ans == 0){    $err_file = "INSTALL.INI";    goto PBUDDY_ERR;    } else {    %ans = open("DOS\\SETUP\\INSTALL.INI");    seek(1);
  19. %v = forward("[OPTIONDIR]");    seek(%v+1);    $option_inst_dir = getline();    close();    }    %ans = exist("PBUDDY.INI");
  20. if(%ans == 0){    $err_file = "PBUDDY.INI";    goto PBUDDY_ERR;    }else{    %ans = open("PBUDDY.INI");    seek(1);    %v = forward("[PRINTBUDDY]");
  21. if(%v == 0){    goto PBUDDY_ERR;    } else {    seek(%v);    }    %v = forward("MODEL");    if(%v == 0){    goto PBUDDY_ERR;    } else {    seek(%v);    }
  22. $prn_mode = getline();    if($prn_mode == "MODEL=LBP-730"){    %prn_mode = 730;    }    if($prn_mode == "MODEL=LBP-720"){    %prn_mode = 720;    }
  23. if($prn_mode == "MODEL=LBP-450"){    %prn_mode = 450;    }    close();    }
  24. KEY_RET1:    clrkey();    %ans = getkey();    if((%ans == 89) || (%ans == 121)){    goto INST_MENU;    }    if((%ans == 78) || (%ans == 110)){    %backf = 0;    goto END_MSG;    }    goto KEY_RET1;
  25. #------------------------------------------------------------------------------
  26. INST_MENU:    cls();    locate(10,1);    print($bar);    locate(10,2);    print("|                    PrintBuddy ｾｯﾄｱｯﾌﾟﾒﾆｭｰ                      |");    locate(10,3);    print($bar);
  27. locate(10,4);    print($bar2);    locate(10,5);    print("|     ｾｯﾄｱｯﾌﾟを開始します。次のいずれかを選択してください。      |");    locate(10,6);    print($bar2);    locate(10,7);    print($bar2);
  28. locate(10,8);    print("|     [1:ﾒﾝﾃﾅﾝｽ]      ﾌﾟﾘﾝﾀに周辺機器を追加したり削除したりする  |");    locate(10,9);    print("|                     場合は、必ず<ﾒﾝﾃﾅﾝｽ>を実行してください。   |");
  29. locate(10,10);    print($bar2);    locate(10,11);    print("|     [2:ﾃﾞｲﾝｽﾄｰﾙ]    PrintBuddy を削除します。                  |");    locate(10,12);    print($bar2);
  30. locate(10,13);    print($bar2);    locate(10,14);    print($bar2);    locate(10,15);    print("|              いずれかを選択してください？ [1-2]                |");
  31. locate(10,16);    print("|     [ESC]ｷｰで PrintBuddy ｾｯﾄｱｯﾌﾟﾌﾟﾛｸﾞﾗﾑを終了します。          |");    locate(10,17);    print($bar2);    locate(10,18);    print($bar);
  32. KEY_RET2:
  33. clrkey();    %ans = getkey();    if(%ans == 49){    %instmode = 3;    goto ADD_DEL;    }    if(%ans == 50){    %instmode = 4;    goto ALL_DEL;    }    if(%ans == 27){    %backf = 1;    goto END_MSG;    }    goto KEY_RET2;
  34. #------------------------------------------------------------------------------
  35. END_MSG:    cls();    locate(10,8);    print($bar);    locate(10,9);    print($bar2);    locate(10,10);    print("|         PrintBuddy ｾｯﾄｱｯﾌﾟを終了しますか？ [Y/N]               |");
  36. locate(10,11);    print($bar2);    locate(10,12);    print($bar);
  37. KEY_RET3:    clrkey();    %ans = getkey();
  38. if((%ans == 89) || (%ans == 121)){    goto END_INSTALL;    }    if((%ans == 78) || (%ans == 110)){    switch(%backf){    case 0:    goto HDINST_START;    case 1:    goto INST_MENU;    }    }    goto KEY_RET3;
  39. #------------------------------------------------------------------------------
  40. ADD_DEL:    cls();    locate(10,1);    print($bar);    locate(10,2);    print("|                             ﾒﾝﾃﾅﾝｽ                             |");    locate(10,3);    print($bar);
  41. locate(10,4);    print($bar2);    locate(10,5);    print("|   ｵﾌﾟｼｮﾝ機器の設定を行います。次のいずれかを選択してください。 |");    locate(10,6);    print($bar2);    locate(10,7);    print($bar2);
  42. locate(10,8);    print("|   [1:ｶｾｯﾄ数]          ｶｾｯﾄの数を設定します。                   |");    locate(10,9);    print($bar2);
  43. locate(10,10);    print("|   [2:両面ﾕﾆｯﾄ]        両面ﾕﾆｯﾄの追加、削除を行います。         |");    locate(10,11);    print($bar2);
  44. locate(10,12);    print("|   [3:ﾌﾟﾘﾝﾀの設置場所] ﾌﾟﾘﾝﾀの設置場所を設定します。            |");    locate(10,13);    print($bar2);
  45. locate(10,14);    if(%prn_mode != 720){    print("|   [4:ｵﾌﾟｼｮﾝｴﾐｭﾚｰｼｮﾝ]  ｵﾌﾟｼｮﾝｴﾐｭﾚｰｼｮﾝの追加、削除を行います。   |");    } else {    print($bar2);    }
  46. locate(10,15);    print($bar2);    locate(10,16);    if(%prn_mode != 720){    print("|   [5:ｵﾌﾟｼｮﾝﾌｫﾝﾄ]      ｵﾌﾟｼｮﾝﾌｫﾝﾄの追加、削除を行います。       |");    } else {    print($bar2);    }
  47. locate(10,17);    print($bar2);    locate(10,18);    print($bar2);    locate(10,19);    print($bar2);    locate(10,20);
  48. if(%prn_mode != 720){    print("|               いずれかを選択してください？ [1-5]               |");    } else {    print("|               いずれかを選択してください？ [1-3]               |");    }
  49. locate(10,21);    print("|                [ESC]ｷｰでｾｯﾄｱｯﾌﾟﾒﾆｭｰに戻ります。                |");    locate(10,22);    print($bar2);    locate(10,23);    print($bar);
  50. KEY_RET4:    clrkey();    %ans = getkey();
  51. if((%ans == 49)||(%ans == 50)||(%ans == 51)){    goto DISP;    }    if(%prn_mode != 720){    if(%ans == 52){    goto OPTION_EM;    }    if(%ans == 53){    %op_md = 4;    goto OPTION_SET;    }    }
  52. if(%ans == 27){    goto INST_MENU;    }    goto KEY_RET4;
  53. #------------------------------------------------------------------------------
  54. DISP:    cls();    locate(10, 1);    print($bar);    locate(10, 2);    print($bar2);    locate(10, 3);    print($bar);    locate(10, 4);    print($bar2);    locate(10, 5);    print($bar2);
  55. locate(10, 6);    print($bar2);    locate(10, 7);    print($bar2);
  56. locate(10, 9);    print("|            [ESC]ｷｰでﾒﾝﾃﾅﾝｽに戻ります。                         |");
  57. locate(10,10);    print($bar2);    locate(10,11);    print($bar);    locate(34,2);
  58. switch(%ans){    case 49:    print("      ｶｾｯﾄ数");    goto CASSETTE;    case 50:    print("     両面ﾕﾆｯﾄ");    goto DUPKEY;    case 51:    print("ﾌﾟﾘﾝﾀの設置場所");    goto SELECT_NET2;    }    goto ADD_DEL;
  59. #--------------------------------------------------------------------------------
  60. CASSETTE:    open("PBUDDY.INI");    seek(1);    %v = forward("[OPTIONS]");
  61. if(%v == 0){    %cassette = 1;    } else {    seek(%v);    %vv = forward("IN-TRAYS");    if(%vv == 0){    %cassette = 1;    } else {    seek(%vv);    $pbuddy = getline();
  62. if($pbuddy == "IN-TRAYS=2"){    %cassette = 1;    } else {    if($pbuddy == "IN-TRAYS=3"){    %cassette = 2;    } else {    if($pbuddy == "IN-TRAYS=4"){
  63. if(%prn_mode == 450){    %cassette = 2;    } else {    %cassette = 3;    }    } else {    %cassette = 1;    }    }    }    }    }
  64. close();
  65. %esc = %cassette;
  66. locate(10, 8);    print("|            [ENTER]ｷｰでｶｾｯﾄ数の設定を有効にします。             |");
  67. locate(23, 5);
  68. if(%prn_mode != 450){
  69.     print("ｶｾｯﾄの数を入力してください。[1-3] "~%cassette~"");
  70. } else {
  71.     print("ｶｾｯﾄの数を入力してください。[1-2] "~%cassette~"");
  72. }
  73. while(1){    clrkey();    %ans = getkey();    locate(57, 5);    if(%ans == 49){    %cassette = 1;    print("1");    }    if(%ans == 50){    %cassette = 2;    print("2");    }
  74. if((%ans == 51)&&(%prn_mode != 450)){    %cassette = 3;    print("3");    }    if(%ans == 13){    open("PBUDDY.INI");    seek(1);    %v = forward("OPTIONS");
  75. if(%v == 0){    insline("[OPTIONS]");    seek(1);    %v = forward("OPTIONS");    }    seek(%v);    %v = forward("IN-TRAYS");
  76. if(%v != 0){    seek(%v);    delline();    }    insline("IN-TRAYS="~%cassette + 1~"");    close();    goto ADD_DEL;    }    if(%ans == 27){    %cassette = %esc;    goto ADD_DEL;    }    }
  77. goto CASSETTE;
  78. #-------------------------------------------------------------------------------
  79. DUPKEY:    open("PBUDDY.INI");    seek(1);
  80. %v = forward("OPTIONS");    if(%v == 0){    %dupkey = 1;    } else {    seek(%v);    %vv = forward("DUPKEY");    if(%vv == 0){    %dupkey = 1;    } else {    seek(%vv);    $pbuddy = getline();
  81. if($pbuddy == "DUPKEY=0"){    %dupkey = 1;    } else {    if($pbuddy == "DUPKEY=1"){    %dupkey = 2;    } else {    %dupkey = 1;    }    }    }    }
  82. close();    %esc = %dupkey;
  83. locate(10, 8);    print("|            [ENTER]ｷｰで両面ﾕﾆｯﾄの設定を有効にします。           |");
  84. locate(20, 5);    print("両面ﾕﾆｯﾄを使用しますか？[1:なし-2:あり] "~%dupkey~"");
  85. while(1){    clrkey();    %ans = getkey();    locate(60, 5);    if(%ans == 49){    %dupkey = 1;    print("1");    }    if(%ans == 50){    %dupkey = 2;    print("2");    }
  86. if(%ans == 13){    open("PBUDDY.INI");    seek(1);    %v = forward("OPTIONS");    if(%v == 0){    insline("[OPTIONS]");    seek(1);    %v = forward("OPTIONS");    }    seek(%v);    %v = forward("DUPKEY");
  87. if(%v != 0){    seek(%v);    delline();    }    insline("DUPKEY="~%dupkey - 1~"");    close();    goto ADD_DEL;    }    if(%ans == 27){    %dupkey = %esc;    goto ADD_DEL;    }    }    goto DUPKEY;
  88. #-------------------------------------------------------------------------------
  89. SELECT_NET2:    open("DOS\\SETUP\\INSTALL.INI");    seek(1);    %hardifmode = forward("[INTERFACE-NORMAL]");
  90. if(%hardifmode != 0){    seek(%hardifmode+1);    $pbuddy = getline();    if($pbuddy == "1"){    %direction = 1;    }    if($pbuddy == "2"){    %direction = 2;    }    close();
  91. } else {    close();    open("PBUDDY.INI");    seek(1);    %v = forward("[MODE]");
  92. if(%v == 0){    %direction = 1;    } else {    seek(%v);    %vv = forward("Direction");    if(%vv == 0){    %direction = 1;    } else {    seek(%vv);    $pbuddy = getline();
  93. if($pbuddy == "Direction=0"){    %direction = 1;    } else {    if($pbuddy == "Direction=1"){    %direction = 2;    } else {    %direction = 1;    }    }    }    }    close();    }
  94. %esc = %direction;
  95. locate(10, 8);    print("|            [ENTER]ｷｰでﾌﾟﾘﾝﾀの設置場所の設定を有効にします。    |");
  96. locate(15, 5);    print("ﾌﾟﾘﾝﾀの設置場所を入力してください。[1:ﾈｯﾄﾜｰｸ-2:ﾛｰｶﾙ] "~%direction~"");
  97. while(1){    clrkey();    %ans = getkey();    locate(68, 5);    if(%ans == 49){    %direction = 1;    print("1");    }    if(%ans == 50){    %direction = 2;    print("2");    }
  98. if(%ans == 13){    open("PBUDDY.INI");    seek(1);    %v = forward("MODE");    if(%v == 0){    insline("[MODE]");    seek(1);    %v = forward("MODE");    }
  99. seek(%v);    %v = forward("Direction");    if(%v != 0){    seek(%v);    delline();    if(%direction == 1){    insline("Direction=0");    }
  100. if(%direction == 2){    if(%hardifmode == 0){    insline("Direction=1");    } else {    insline("Direction=0");    }    }    }    close();
  101. open("DOS\\SETUP\\INSTALL.INI");    seek(1);    %hardifmode = forward("[INTERFACE-NORMAL]");    if(%hardifmode != 0){    seek(%hardifmode+1);    delline();    insline(""~%direction~"");    }
  102. close();    goto ADD_DEL;    }    if(%ans == 27){    %direction = %esc;    goto ADD_DEL;    }    }    goto SELECT_NET2;
  103. #-------------------------------------------------------------------------------------------
  104. OPTION_EM:    cls();    locate(10, 1);    print($bar);    locate(10, 2);    print("|                   ｵﾌﾟｼｮﾝｴﾐｭﾚｰｼｮﾝの追加/削除                    |");    locate(10, 3);    print($bar);
  105. locate(10, 4);    print($bar2);    locate(10, 5);    print("|    ｵﾌﾟｼｮﾝｴﾐｭﾚｰｼｮﾝの追加/削除を行います。                       |");    locate(10, 6);
  106. print("|    次のいずれかを選択してください。                            |");    locate(10, 7);    print($bar2);    locate(10, 8);    print($bar2);
  107. locate(10, 9);    print("|    [1:登録]       組み込まれているｵﾌﾟｼｮﾝｴﾐｭﾚｰｼｮﾝを登録します。 |");    locate(10,10);    print($bar2);
  108. locate(10,11);    print("|    [2:組み込み]   ｵﾌﾟｼｮﾝｴﾐｭﾚｰｼｮﾝを追加します。                 |");    locate(10,12);    print($bar2);
  109. locate(10,13);    print("|    [3:削除]       組み込まれているｵﾌﾟｼｮﾝｴﾐｭﾚｰｼｮﾝを削除します。 |");    locate(10,14);    print($bar2);
  110. locate(10,15);    print($bar2);    locate(10,16);    print($bar2);    locate(10,17);    print("|               いずれかを選択してください？ [1-3]               |");
  111. locate(10,18);    print("|                  [ESC]ｷｰでﾒﾝﾃﾅﾝｽに戻ります。                   |");    locate(10,19);    print($bar2);    locate(10,20);    print($bar);
  112. %emu1=%emu2=%emu3=%emu4=%emu5=%emu6=%emu7=%emu8=0;
  113. while(1){    clrkey();    %ans = getkey();    if(%ans == 49){    %op_md = 1;    goto OPTION_SET;    }    if(%ans == 50){    %op_md = 3;    goto OPTION_EM_ADD;    }
  114. if(%ans == 51){    %op_md = 2;    goto OPTION_SET;    }    if(%ans == 27){    goto ADD_DEL;    }    }    goto OPTION_EM;
  115. #--------------------------------------------------------------------------------------
  116. OPTION_SET:    $na1 = $tle1 = " ";    $na2 = $tle2 = " ";    $na3 = $tle3 = " ";    $na4 = $tle4 = " ";    $na5 = $tle5 = " ";    $na6 = $tle6 = " ";    $na7 = $tle7 = " ";    $na8 = $tle8 = " ";
  117. if(%op_md != 3){    open("DOS\\SETUP\\INSTALL.INI");    } else {    open(""~$option_em_inst_dir~"\\OPTION.INI");    }
  118. if(%op_md != 4){    seek(1);    %v = forward("[OPTION-TRANSLATOR]");    } else {    seek(1);    %v = forward("[OPTION-FONT]");    }
  119. if(%v != 0){    seek(%v+1);    %emu_no = 0;    %x = forward("[");    if(%x == 0){    goto OPTION_END;    }    %emu_cunt = %x - %v - 2;
  120. ROOP_3:    while(%emu_cunt >= %emu_no){    %emu_no = %emu_no + 1;
  121. ROOP2:    %vv = %v + %emu_no;    seek(%vv);    $na_w = getline();    if(%op_md == 2){    %x = forward("["~$na_w~"]");
  122. if(%x != 0){    seek(%x+2);    $n = getline();    if($n == "RECMODE=0"){    %v = %v + 1;    %emu_cunt = %emu_cunt - 1;    goto ROOP2;    }    }    seek(%vv);    }    %vvv = forward($a~$na_w~$b);
  123. if(%vvv == 0){    %v = %v + 1;    %emu_cunt = %emu_cunt - 1;    goto ROOP_3;    }    seek(%vvv+1);    $tle_w = getline();
  124. if(%emu_no == 1){    $na1 = $na_w;    $tle1 = $tle_w;    }    if(%emu_no == 2){    $na2 = $na_w;    $tle2 = $tle_w;    }
  125. if(%emu_no == 3){    $na3 = $na_w;    $tle3 = $tle_w;    }    if(%emu_no == 4){    $na4 = $na_w;    $tle4 = $tle_w;    }
  126. if(%emu_no == 5){    $na5 = $na_w;    $tle5 = $tle_w;    }    if(%emu_no == 6){    $na6 = $na_w;    $tle6 = $tle_w;    }
  127. if(%emu_no == 7){    $na7 = $na_w;    $tle7 = $tle_w;    }    if(%emu_no == 8){    $na8 = $na_w;    $tle8 = $tle_w;    }    }    }
  128. OPTION_END:    close();    %pbuddy_read_write = 0;    if(%back_f == 9){ goto DEL_PHASE2;    }    goto PBUDDY_READ_WRITE;
  129. #--------------------------------------------------------------------------------------
  130. PBUDDY_READ_WRITE:    open("PBUDDY.INI");    seek(1);    if(%op_md == 4){    %v = forward("[FONT]");    } else {    %v = forward("[OPTION-TRANSLATOR]");    }
  131. if(%v != 0){    seek(%v);    %emu_no = 0;    if(%op_md == 3){    %v=%v+2;    }    while(%emu_cunt >= %emu_no){    %emu_no = %emu_no + 1;    %d = 0;
  132. ROOP:    %vv = %v + %emu_no;    seek(%vv);    $na_w = getline();    if(%op_md != 4){    if(%op_md == 2){    if(($na_w == "#FONT=1")||($na_w == ";#FONT=1")){    goto PBUDDY_READ_WRITE_END;    }
  133. switch(%emu_no){
  134. case 1:    if(($na_w == ""~$na1~"=1")||($na_w == ""~$na1~"=3")){    break;    }    %v = %v + 1;    goto ROOP;
  135. case 2:    if(($na_w == ""~$na2~"=1")||($na_w == ""~$na2~"=3")){    break;    }    %v = %v + 1;    goto ROOP;
  136. case 3:    if(($na_w == ""~$na3~"=1")||($na_w == ""~$na3~"=3")){    break;    }    %v = %v + 1;    goto ROOP;
  137. case 4:    if(($na_w == ""~$na4~"=1")||($na_w == ""~$na4~"=3")){    break;    }    %v = %v + 1;    goto ROOP;
  138. case 5:    if(($na_w == ""~$na5~"=1")||($na_w == ""~$na5~"=3")){    break;    }    %v = %v + 1;    goto ROOP;
  139. case 6:    if(($na_w == ""~$na6~"=1")||($na_w == ""~$na6~"=3")){    break;    }    %v = %v + 1;    goto ROOP;
  140. case 7:    if(($na_w == ""~$na7~"=1")||($na_w == ""~$na7~"=3")){    break;    }    %v = %v + 1;    goto ROOP;
  141. case 8:    if(($na_w == ""~$na8~"=1")||($na_w == ""~$na8~"=3")){    break;    }    %v = %v + 1;    goto ROOP;    }    }
  142. } else {    if(($na_w == "MINCHO-MEDIUM=明朝") || ($na_w == "GOTHIC-MEDIUM=ｺﾞｼｯｸ") ||  ($na_w == "ROUNDGOTHIC-LIGHT=丸ｺﾞｼｯｸ")){    %v = %v + 1;    goto ROOP;    }    }
  143. if((%pbuddy_read_write == 1)||(%pbuddy_read_write == 4)){    delline();    }    switch(%emu_no){    case 1:    switch(%pbuddy_read_write){
  144. case 0:    $na_w1 = $na_w;    if(($na_w == ""~$na1~"=3") || ($na_w == ""~$na1~"=1") || ($na_w == $na1)){    %emu1 = 1;    } else {    %emu1 = 0;    }    break;
  145. case 1:    if(%emu1 == 1){    if(($na_w1 == ""~$na1~"=0")||($na_w1 == ""~$na1~"=1")){    insline(""~$na1~"=1");    break;    }
  146. if(($na_w1 == ""~$na1~"=2")||($na_w1 == ""~$na1~"=3")){    insline(""~$na1~"=3");    break;    }    } else {    if(($na_w1 == ""~$na1~"=0")||($na_w1 == ""~$na1~"=1")){    insline(""~$na1~"=0");    break;    }
  147. if(($na_w1 == ""~$na1~"=2")||($na_w1 == ""~$na1~"=3")){    insline(""~$na1~"=2");    break;    }    }    break;
  148. case 2:    if(%emu1 == 1){    delline();    if(($na_w1 == ""~$na1~"=2")||($na_w1 == ""~$na1~"=3")){    insline(""~$na1~"=2");    break;    }
  149. if(($na_w1 == ""~$na1~"=0")||($na_w1 == ""~$na1~"=1")){    insline(""~$na1~"=0");    break;    }    }    break;
  150. case 4:    if(%emu1 == 1){    insline($na1);    } else {    insline(";"~$na1~"");    }    break;    }    break;    case 2:    switch(%pbuddy_read_write){
  151. case 0:    if(($na_w == ""~$na2~"=3") || ($na_w == ""~$na2~"=1") || ($na_w == $na2))    {    %emu2 = 1;    } else {    %emu2 = 0;    }    $na_w2 = $na_w;    break;
  152. case 1:    if(%emu2 == 1){    if(($na_w2 == ""~$na2~"=0")||($na_w2 == ""~$na2~"=1")){    insline(""~$na2~"=1");    break;    }
  153. if(($na_w2 == ""~$na2~"=2")||($na_w2 == ""~$na2~"=3")){    insline(""~$na2~"=3");    break;    }    } else {    if(($na_w2 == ""~$na2~"=0")||($na_w2 == ""~$na2~"=1")){    insline(""~$na2~"=0");    break;    }
  154. if(($na_w2 == ""~$na2~"=2")||($na_w2 == ""~$na2~"=3")){    insline(""~$na2~"=2");    break;    }    }    break;
  155. case 2:    if(%emu2 == 1){    delline();    if(($na_w2 == ""~$na2~"=2") || ($na_w2 == ""~$na2~"=3")){    insline(""~$na2~"=2");    break;    }
  156. if(($na_w2 == ""~$na2~"=0")||($na_w2 == ""~$na2~"=1")){    insline(""~$na2~"=0");    break;    }    }    break;
  157. case 4:    if(%emu2 == 1){    insline($na2);    } else {    insline(";"~$na2~"");    }    break;    }    break;    case 3:    switch(%pbuddy_read_write){
  158. case 0:    if(($na_w == ""~$na3~"=3") || ($na_w == ""~$na3~"=1") || ($na_w == $na3))    {    %emu3 = 1;    } else {    %emu3 = 0;    }    $na_w3 = $na_w;    break;
  159. case 1:    if(%emu3 == 1){    if(($na_w3 == ""~$na3~"=0")||($na_w3 == ""~$na3~"=1")){    insline(""~$na3~"=1");    break;    }
  160. if(($na_w3 == ""~$na3~"=2")||($na_w3 == ""~$na3~"=3")){    insline(""~$na3~"=3");    break;    }    } else {    if(($na_w3 == ""~$na3~"=0")||($na_w3 == ""~$na3~"=1")){    insline(""~$na3~"=0");    break;    }
  161. if(($na_w3 == ""~$na3~"=2")||($na_w3 == ""~$na3~"=3")){    insline(""~$na3~"=2");    break;    }    }    break;
  162. case 2:    if(%emu3 == 1){    delline();    if(($na_w3 == ""~$na3~"=2") || ($na_w3 == ""~$na3~"=3")){    insline(""~$na3~"=2");    break;    }
  163. if(($na_w3 == ""~$na3~"=0")||($na_w3 == ""~$na3~"=1")){    insline(""~$na3~"=0");    break;    }    }    break;
  164. case 4:    if(%emu3 == 1){    insline($na3);    } else {    insline(";"~$na3~"");    }    break;    }    break;    case 4:    switch(%pbuddy_read_write){
  165. case 0:    if(($na_w == ""~$na4~"=3") || ($na_w == ""~$na4~"=1") || ($na_w == $na4))    {    %emu4 = 1;    } else {    %emu4 = 0;    }    $na_w4 = $na_w;    break;
  166. case 1:    if(%emu4 == 1){    if(($na_w4 == ""~$na4~"=0")||($na_w4 == ""~$na4~"=1")){    insline(""~$na4~"=1");    break;    }
  167. if(($na_w4 == ""~$na4~"=2")||($na_w4 == ""~$na4~"=3")){    insline(""~$na4~"=3");    break;    }    } else {    if(($na_w4 == ""~$na4~"=0")||($na_w4 == ""~$na4~"=1")){    insline(""~$na4~"=0");    break;    }
  168. if(($na_w4 == ""~$na4~"=2")||($na_w4 == ""~$na4~"=3")){    insline(""~$na4~"=2");    break;    }    }    break;
  169. case 2:    if(%emu4 == 1){    delline();    if(($na_w4 == ""~$na4~"=2") || ($na_w4 == ""~$na4~"=3")){    insline(""~$na4~"=2");    break;    }
  170. if(($na_w4 == ""~$na4~"=0")||($na_w4 == ""~$na4~"=1")){    insline(""~$na4~"=0");    break;    }    }    break;
  171. case 4:    if(%emu4 == 1){    insline($na4);    } else {    insline(";"~$na4~"");    }    break;    }    break;    case 5:    switch(%pbuddy_read_write){
  172. case 0:    if(($na_w == ""~$na5~"=3") || ($na_w == ""~$na5~"=1") || ($na_w == $na5))    {    %emu5 = 1;    } else {    %emu5 = 0;    }    $na_w5 = $na_w;    break;
  173. case 1:    if(%emu5 == 1){    if(($na_w5 == ""~$na5~"=0")||($na_w5 == ""~$na5~"=1")){    insline(""~$na5~"=1");    break;    }
  174. if(($na_w5 == ""~$na5~"=2")||($na_w5 == ""~$na5~"=3")){    insline(""~$na5~"=3");    break;    }    } else {    if(($na_w5 == ""~$na5~"=0")||($na_w5 == ""~$na5~"=1")){    insline(""~$na5~"=0");    break;    }
  175. if(($na_w5 == ""~$na5~"=2")||($na_w5 == ""~$na5~"=3")){    insline(""~$na5~"=2");    break;    }    }    break;
  176. case 2:    if(%emu5 == 1){    delline();    if(($na_w5 == ""~$na5~"=2") || ($na_w5 == ""~$na5~"=3")){    insline(""~$na5~"=2");    break;    }
  177. if(($na_w5 == ""~$na5~"=0")||($na_w5 == ""~$na5~"=1")){    insline(""~$na5~"=0");    break;    }    }    break;
  178. case 4:    if(%emu5 == 1){    insline($na5);    } else {    insline(";"~$na5~"");    }    break;    }    break;    case 6:    switch(%pbuddy_read_write){
  179. case 0:    if(($na_w == ""~$na6~"=3") || ($na_w == ""~$na6~"=1") || ($na_w == $na6))    {    %emu6 = 1;    } else {    %emu6 = 0;    }    $na_w6 = $na_w;    break;
  180. case 1:    if(%emu6 == 1){    if(($na_w6 == ""~$na6~"=0")||($na_w6 == ""~$na6~"=1")){    insline(""~$na6~"=1");    break;    }
  181. if(($na_w6 == ""~$na6~"=2")||($na_w6 == ""~$na6~"=3")){    insline(""~$na6~"=3");    break;    }    } else {    if(($na_w6 == ""~$na6~"=0")||($na_w6 == ""~$na6~"=1")){    insline(""~$na6~"=0");    break;    }
  182. if(($na_w6 == ""~$na6~"=2")||($na_w6 == ""~$na6~"=3")){    insline(""~$na6~"=2");    break;    }    }    break;
  183. case 2:    if(%emu6 == 1){    delline();    if(($na_w6 == ""~$na6~"=2") || ($na_w6 == ""~$na6~"=3")){    insline(""~$na6~"=2");    break;    }
  184. if(($na_w6 == ""~$na6~"=0")||($na_w6 == ""~$na6~"=1")){    insline(""~$na6~"=0");    break;    }    }    break;
  185. case 4:    if(%emu6 == 1){    insline($na6);    } else {    insline(";"~$na6~"");    }    break;    }    break;    case 7:    switch(%pbuddy_read_write){
  186. case 0:    if(($na_w == ""~$na7~"=3") || ($na_w == ""~$na7~"=1") || ($na_w == $na7))    {    %emu7 = 1;    } else {    %emu7 = 0;    }    $na_w7 = $na_w;    break;
  187. case 1:    if(%emu7 == 1){    if(($na_w7 == ""~$na7~"=0")||($na_w7 == ""~$na7~"=1")){    insline(""~$na7~"=1");    break;    }
  188. if(($na_w7 == ""~$na7~"=2")||($na_w7 == ""~$na7~"=3")){    insline(""~$na7~"=3");    break;    }    } else {    if(($na_w7 == ""~$na7~"=0")||($na_w7 == ""~$na7~"=1")){    insline(""~$na7~"=0");    break;    }
  189. if(($na_w7 == ""~$na7~"=2")||($na_w7 == ""~$na7~"=3")){    insline(""~$na7~"=2");    break;    }    }    break;
  190. case 2:    if(%emu7 == 1){    delline();    if(($na_w7 == ""~$na7~"=2") || ($na_w7 == ""~$na7~"=3")){    insline(""~$na7~"=2");    break;    }
  191. if(($na_w7 == ""~$na7~"=0")||($na_w7 == ""~$na7~"=1")){    insline(""~$na7~"=0");    break;    }    }    break;
  192. case 4:    if(%emu7 == 1){    insline($na7);    } else {    insline(";"~$na7~"");    }    break;    }    break;    case 8:    switch(%pbuddy_read_write){
  193. case 0:    if(($na_w == ""~$na8~"=3") || ($na_w == ""~$na8~"=1") || ($na_w == $na8))    {    %emu8 = 1;    } else {    %emu8 = 0;    }    $na_w8 = $na_w;    break;
  194. case 1:    if(%emu8 == 1){    if(($na_w8 == ""~$na8~"=0")||($na_w8 == ""~$na8~"=1")){    insline(""~$na8~"=1");    break;    }
  195. if(($na_w8 == ""~$na8~"=2")||($na_w8 == ""~$na8~"=3")){    insline(""~$na8~"=3");    break;    }    } else {    if(($na_w8 == ""~$na8~"=0")||($na_w8 == ""~$na8~"=1")){    insline(""~$na8~"=0");    break;    }
  196. if(($na_w8 == ""~$na8~"=2")||($na_w8 == ""~$na8~"=3")){    insline(""~$na8~"=2");    break;    }    }    break;
  197. case 2:    if(%emu8 == 1){    delline();    if(($na_w8 == ""~$na8~"=2") || ($na_w8 == ""~$na8~"=3")){    insline(""~$na8~"=2");    break;    }
  198. if(($na_w8 == ""~$na8~"=0")||($na_w8 == ""~$na8~"=1")){    insline(""~$na8~"=0");    break;    }    }    break;
  199. case 4:    if(%emu8 == 1){    insline($na8);    } else {    insline(";"~$na8~"");    }    break;    }    break;    }    }    }
  200. PBUDDY_READ_WRITE_END:
  201. close();    if(%pbuddy_read_write == 1){    open("DOS\\SETUP\\INSTALL.INI");    seek(1);    %v = forward("[OPTION-TRANSLATOR]");    if(%v != 0){    seek(%v);    %emu_no = 0;
  202. while(%emu_cunt >= %emu_no){    %emu_no = %emu_no + 1;    %vv = %v + %emu_no;    seek(%vv);    $na_w = getline();    %x = forward("["~$na_w~"]");    if(%x != 0){    seek(%x+2);    delline();    switch(%emu_no){
  203. case 1:    %d = %emu1;    break;    case 2:    %d = %emu2;    break;    case 3:    %d = %emu3;    break;    case 4:    %d = %emu4;    break;    case 5:    %d = %emu5;    break;    case 6:    %d = %emu6;    break;    case 7:    %d = %emu7;    break;
  204. case 8:    %d = %emu8;    break;    }    if(%d == 1){    insline("RECMODE=1");    } else {    insline("RECMODE=0");    }    }    }    }    close();    }
  205. if(%pbuddy_read_write == 2){    open("DOS\\SETUP\\INSTALL.INI");    seek(1);    %v = forward("[OPTION-TRANSLATOR]");    if(%v != 0){    seek(%v);    %emu_no = 0;    while(%emu_cunt >= %emu_no){
  206. DEL_ROOP:    %emu_no = %emu_no + 1;    %vv = %v + %emu_no;    seek(%vv);    %x = 0;    switch(%emu_no){
  207. case 1:    if(%emu1 == 1){    %x = forward("["~$na1~"]");    }    break;    case 2:    if(%emu2 == 1){    %x = forward("["~$na2~"]");    }    break;    case 3:    if(%emu3 == 1){    %x = forward("["~$na3~"]");    }    break;
  208. case 4:    if(%emu4 == 1){    %x = forward("["~$na4~"]");    }    break;    case 5:    if(%emu5 == 1){    %x = forward("["~$na5~"]");    }    break;    case 6:    if(%emu6 == 1){    %x = forward("["~$na6~"]");    }    break;
  209. case 7:    if(%emu7 == 1){    %x = forward("["~$na7~"]");    }    break;    case 8:    if(%emu8 == 1){    %x = forward("["~$na8~"]");    }    break;    }
  210. if(%x != 0){    seek(%x+2);    delline();    insline("RECMODE=0");    goto DEL_ROOP;    }    }    }    close();    }
  211. switch(%pbuddy_read_write){    case 0:    goto OPTION_EM_REC;    case 1:    case 2:    case 3:    goto OPTION_EM;    case 4:    goto ADD_DEL;    }    goto OPTION_EM_REC;
  212. #----------------------------------------------------------------------------------------------
  213. PBUDDY_ERR:    cls();    locate(10, 7);    print($bar);    locate(10, 8);    print($bar2);    locate(10, 9);    print("|         ﾌｧｲﾙ              はこのﾃﾞｨﾚｸﾄﾘには存在しません。      |");
  214. locate(10, 10);    print($bar2);    locate(10, 11);    print($bar2);    locate(10, 12);    print("|                [いずれかのｷｰを押してください]                  |");    locate(10, 13);    print($bar2);
  215. locate(10, 14);    print($bar);    locate(25, 9); print($err_file);    clrkey();    getkey();    if($err_file == "OPTION.INI"){    goto OPTION_EM;    } else {    goto END_INSTALL;    }
  216. #----------------------------------------------------------------------------------------------
  217. OPTION_EM_REC:    cls();    locate(10, 1);    print($bar);    locate(10,2);    switch(%op_md){
  218. case 1:    print("|                       ｵﾌﾟｼｮﾝｴﾐｭﾚｰｼｮﾝの登録                     |");    break;
  219. case 2:    print("|                       ｵﾌﾟｼｮﾝｴﾐｭﾚｰｼｮﾝの削除                     |");    break;
  220. case 3:    print("|                     ｵﾌﾟｼｮﾝｴﾐｭﾚｰｼｮﾝの組み込み                   |");    break;
  221. case 4:    print("|                         ｵﾌﾟｼｮﾝﾌｫﾝﾄの選択                       |");    break;    }
  222. locate(10, 3);    print($bar);    locate(10, 4);    print("|                                                                |");
  223. locate(10,5);    switch(%op_md){
  224. case 1:    print("|    +-- 組み込まれているｴﾐｭﾚｰｼｮﾝ -------------+------------+    |");    break;
  225. case 2:    print("|    +-- 組み込まれているｴﾐｭﾚｰｼｮﾝ -------------+------------+    |");    break;
  226. case 3:    print("|    +-- ｵﾌﾟｼｮﾝｴﾐｭﾚｰｼｮﾝの選択 -----------------+------------+    |");    break;
  227. case 4:    print("|    +-- ｵﾌﾟｼｮﾝﾌｫﾝﾄの選択 ---------------------+------------+    |");    break;    }
  228. locate(10, 6);    print("|    | 0                                       |            |    |");    locate(10, 7);    print("|    | 1                                       |            |    |");
  229. locate(10, 8);    print("|    | 2                                       |            |    |");    locate(10, 9);    print("|    | 3                                       |            |    |");
  230. locate(10,10);    print("|    | 4                                       |            |    |");    locate(10,11);    print("|    | 5                                       |            |    |");
  231. locate(10,12);    print("|    | 6                                       |            |    |");    locate(10,13);    print("|    | 7                                       |            |    |");
  232. locate(10,14);    print("|    | 8                                       |            |    |");    locate(10,15);    print("|    | 9                                       |            |    |");
  233. locate(10,16);    print("|    +-----------------------------------------+------------+    |");    locate(10,17);    print("|                                                                |");
  234. locate(10,18);    switch(%op_md){    case 1:    print("|    登録するｵﾌﾟｼｮﾝｴﾐｭﾚｰｼｮﾝの番号を入力してください。  [0- ]     |");    break;
  235. case 2:    print("|    削除するｵﾌﾟｼｮﾝｴﾐｭﾚｰｼｮﾝの番号を入力してください。  [0- ]     |");    break;
  236. case 3:    print("|    追加するｵﾌﾟｼｮﾝｴﾐｭﾚｰｼｮﾝの番号を入力してください。  [0- ]     |");    break;
  237. case 4:    print("|    選択するｵﾌﾟｼｮﾝﾌｫﾝﾄの番号を入力してください。      [0- ]     |");    break;    }    locate(10,19);    print($bar2);    locate(10,20);    print($bar2);
  238. locate(10,21);    print("|       [ENTER]ｷｰで設定を有効にします。                          |");    if(%op_md == 4){
  239. locate(10,22);    print("|       [ESC]ｷｰでﾒﾝﾃﾅﾝｽに戻ります。                              |");    } else {
  240. locate(10,22);    print("|       [ESC]ｷｰでｵﾌﾟｼｮﾝｴﾐｭﾚｰｼｮﾝの追加/削除に戻ります。           |");    }    locate(10,23);    print($bar2);    locate(10,24);    print($bar);
  241. %emu1dm = %emu1;    %emu2dm = %emu2;    %emu3dm = %emu3;    %emu4dm = %emu4;    %emu5dm = %emu5;    %emu6dm = %emu6;    %emu7dm = %emu7;    %emu8dm = %emu8;
  242. REPAGE:
  243. if(%emu_cunt < 0){    locate(10,18);    switch(%op_md){    case 1:    print("|              登録するｵﾌﾟｼｮﾝｴﾐｭﾚｰｼｮﾝはありません。              |");    break;
  244. case 2:    print("|              削除するｵﾌﾟｼｮﾝｴﾐｭﾚｰｼｮﾝはありません。              |");    break;
  245. case 3:    print("|              追加するｵﾌﾟｼｮﾝｴﾐｭﾚｰｼｮﾝはありません。              |");    break;
  246. case 4:    print("|              選択するｵﾌﾟｼｮﾝﾌｫﾝﾄはありません。                  |");    break;    }    %disp_emcunt = %emu_cunt;
  247. } else {    locate(68,18);    %disp_emcunt = %emu_cunt;    print(%emu_cunt);    }    %emu_no = 0;    while(%disp_emcunt >= %emu_no){    %emu_no = %emu_no + 1;    %dsem = 0;    switch(%emu_no){
  248. case 1:    locate(19,6);    print($tle1);    %em1 = %emu1dm;    locate(62,6);    if(%em1 == 1){    %dsem = 1;    if(%op_md == 2){    %em1 = 0;    }    }    break;
  249. case 2:    locate(19,7);    print($tle2);    %em2 = %emu2dm;    locate(62,7);    if(%em2 == 1){    %dsem = 1;    if(%op_md == 2){    %em2 = 0;    }    }    break;
  250. case 3:    locate(19,8);    print($tle3);    %em3 = %emu3dm;    locate(62,8);    if(%em3 == 1){    %dsem = 1;    if(%op_md == 2){    %em3 = 0;    }    }    break;
  251. case 4:    locate(19,9);    print($tle4);    %em4 = %emu4dm;    locate(62,9);    if(%em4 == 1){    %dsem = 1;    if(%op_md == 2){    %em4 = 0;    }    }    break;
  252. case 5:    locate(19,10);    print($tle5);    %em5 = %emu5dm;    locate(62,10);    if(%em5 == 1){    %dsem = 1;    if(%op_md == 2){    %em5 = 0;    }    }    break;
  253. case 6:    locate(19,11);    print($tle6);    %em6 = %emu6dm;    locate(62,11);    if(%em6 == 1){    %dsem = 1;    if(%op_md == 2){    %em6 = 0;    }    }    break;
  254. case 7:    locate(19,12);    print($tle7);    %em7 = %emu7dm;    locate(62,12);    if(%em7 == 1){    %dsem = 1;    if(%op_md == 2){    %em7 = 0;    }    }    break;
  255. case 8:    locate(19,13);    print($tle8);    %em8 = %emu8dm;    locate(62,13);    if(%em8 == 1){    %dsem = 1;    if(%op_md == 2){    %em8 = 0;    }    }    break;    }
  256. if(%dsem == 1){    switch(%op_md){    case 1:    print($Rec);    break;    case 2:    print("    ");    break;    case 3:    print("追加");    break;    case 4:    print($Sel);    break;    }    } else {    print("    ");    }    }
  257. while(1){
  258. RET:
  259. locate(75,24);    clrkey();    %ans = getkey();    if((%ans >= 48) && (%ans <= (48 + %disp_emcunt))){    locate(62,%ans - 42);    switch(%ans){
  260. case 48:    %option = %em1;    break;    case 49:    %option = %em2;    break;    case 50:    %option = %em3;    break;    case 51:    %option = %em4;    break;
  261. case 52:    %option = %em5;    break;    case 53:    %option = %em6;    break;    case 54:    %option = %em7;    break;    case 55:    %option = %em8;    break;    }
  262. if(%option == 0){    switch(%op_md){
  263. case 1:    print("登録");    break;    case 2:        print("削除");    break;    case 3:        print("追加");    break;    case 4:        print("選択");    break;    }    %option = 1;
  264. } else {    print("    ");    %option = 0;    }    locate(64,%ans - 42);    switch(%ans){
  265. case 48:    %em1 = %option;    break;    case 49:    %em2 = %option;    break;    case 50:    %em3 = %option;    break;    case 51:    %em4 = %option;    break;
  266. case 52:    %em5 = %option;    break;    case 53:    %em6 = %option;    break;    case 54:    %em7 = %option;    break;    case 55:    %em8 = %option;    break;    }    }
  267. if(%ans == 13){    %emu_no = 0;    while(%emu_cunt >= %emu_no){    %emu_no = %emu_no + 1;    switch(%emu_no){    case 1:    %emu1dm = %em1;    break;    case 2:    %emu2dm = %em2;    break;
  268. case 3:    %emu3dm = %em3;    break;    case 4:    %emu4dm = %em4;    break;    case 5:    %emu5dm = %em5;    break;    case 6:    %emu6dm = %em6;    break;    case 7:    %emu7dm = %em7;    break;    case 8:    %emu8dm = %em8;    break;    }    }
  269. %emu1 = %emu1dm;    %emu2 = %emu2dm;    %emu3 = %emu3dm;    %emu4 = %emu4dm;    %emu5 = %emu5dm;    %emu6 = %emu6dm;    %emu7 = %emu7dm;    %emu8 = %emu8dm;    %pbuddy_read_write = %op_md;
  270. if((%op_md == 3)&&((%emu1!=0)||(%emu2!=0)||(%emu3!=0)||(%emu4!=0)||(%emu5!=0)||(%emu6!=0)||(%emu7!=0)||(%emu8!=0))){    goto OPTION_WRITE;    } else {    goto PBUDDY_READ_WRITE;    }    }
  271. if(%ans == 27){    if(%op_md == 4){    goto ADD_DEL;    }    goto OPTION_EM;    }    }    goto OPTION_EM_REC;
  272. #-------------------------------------------------------------------------------
  273. OPTION_WRITE:    cls();
  274. locate(10, 7);    print($bar);    locate(10, 8);    print($bar2);    locate(10, 9);    print($bar2);    locate(10, 10);
  275. print("|     ｵﾌﾟｼｮﾝｴﾐｭﾚｰｼｮﾝを組み込み中、しばらくお待ちください...      |");
  276. locate(10, 11);    print($bar2);    locate(10, 12);    print($bar2);    locate(10, 13);    print($bar);    %emu_no = 0;
  277. while(%emu_cunt >= %emu_no){    %emu_no = %emu_no + 1;    open(""~$option_em_inst_dir~"OPTION.INI");    seek(1); %v = %i = 0;
  278. switch(%emu_no){
  279. case 1:    if(%emu1 == 1){    %v = forward($a~$na1~$b);    $na_w = $na1;    %i = 1;    }    break;    case 2:    if(%emu2 == 1){    %v = forward($a~$na2~$b);    $na_w = $na2;    %i = 1; }    break;
  280. case 3:    if(%emu3 == 1){    %v = forward($a~$na3~$b);    $na_w = $na3;    %i = 1; }    break;    case 4:    if(%emu4 == 1){    %v = forward($a~$na4~$b);    $na_w = $na4;    %i = 1; }    break;
  281. case 5:    if(%emu5 == 1){    %v = forward($a~$na5~$b);    $na_w = $na5;    %i = 1; }    break;    case 6:    if(%emu6 == 1){    %v = forward($a~$na6~$b);    $na_w = $na6;    %i = 1; }    break;    }
  282. if((%v!=0)&&(%i==1)){    %v=%v+1;    seek(%v);    $t_key = getline();    seek(%v+1);    $key  = getline();    seek(%v+2);    $key1 = getline();    seek(%v+3);    $key2 = getline();    seek(%v+4);    $key3 = getline();
  283. seek(%v+5);    $key4 = getline();    seek(%v+6);    $key5 = getline();    seek(%v+7);    $key6 = getline();    seek(%v+8);    $key7 = getline();    close();    open("PBUDDY.INI");    seek(1);
  284. %v = forward("[OPTION-TRANSLATOR]");
  285. OP_RET:
  286. seek(%v+1);    $wk = getline();
  287. if(($wk=="@N201=0")||($wk=="@N201=1")||($wk=="@N201=2")||($wk=="@N201=3")||($wk=="@ESCP=0")||($wk=="@ESCP=1")||($wk=="@ESCP=2")||($wk=="@ESCP=3")){    %v=%v+1;    goto OP_RET;    }
  288. %wk = forward(""~$na_w~"=0");    %wk1 = forward(""~$na_w~"=1");    %wk2 = forward(""~$na_w~"=2");    %wk3 = forward(""~$na_w~"=3");    if((%wk==0)&&(%wk1==0)&&(%wk2==0)&&(%wk3==0)){    insline(""~$na_w~"=1");
  289. } else {    if(%wk){    seek(%wk);    }    if(%wk1){    seek(%wk1);    }    if(%wk2){    seek(%wk2);    }    if(%wk3){    seek(%wk3);    }    $op_na = getline();    delline();
  290. if(($op_na == ""~$na_w~"=0")||($op_na == ""~$na_w~"=1")){    insline(""~$na_w~"=1");    }    if(($op_na == ""~$na_w~"=2")||($op_na == ""~$na_w~"=3")){    insline(""~$na_w~"=3");    }    }
  291. %wk = forward("["~$na_w~"]");    if(%wk == 0){    %wk = forward("[@ESCP]");    if(%wk == 0){    %wk = forward("[@N201]");    }    seek(%wk+1);
  292. insline($key7);    insline($key6);    insline($key5);    insline($key4);    insline($key3);    insline($key2);    insline($key1);    insline("["~$na_w~"]");    insline("");    }    }
  293. close();    open("DOS\\SETUP\\INSTALL.INI");    seek(1);    %v = forward("["~$na_w~"]");
  294. if(%v==0){    %v = forward("[OPTION-TRANSLATOR]");    seek(%v+3);    insline($na_w);    %v = forward("[OPTION-FONT]");
  295. seek(%v-1);    insline("RECMODE=1");    insline($t_key);    insline("["~$na_w~"]");    insline("");    }    close();    if((%v!=0)&&(%i==1)){
  296. #%s = exist("DOS\\RCPDOS.EXE");
  297. #if(%s != 0){
  298. #delete("DOS\\RCPDOS.EXE");
  299. #}
  300. %s = exist("DOS\\"~$na_w~".LIB");
  301. if(%s != 0){    delete("DOS\\"~$na_w~".LIB");    }    %hlp = %def = 0;    %hlp = exist("DOS\\RCPDOS.HLP");
  302. if(%hlp != 0){    rename("DOS\\RCPDOS.HLP","DOS\\RCPDOS");    }    %def = exist("DEFAULT.RCT");
  303. if(%def != 0){    rename("DEFAULT.RCT","DEFAULT");    }
  304. clrline(17); clrline(18); clrline(19); clrline(20); clrline(21); clrline(22);    locate(0, 17);
  305. if($hardmode == "DOSV"){    call(""~$option_em_inst_dir~"\\DOSV\\RCP.EXE /eDOS");    call(""~$option_em_inst_dir~"\\DOSV\\"~$na_w~".EXE /eDOS");    }
  306. if($hardmode == "PC98"){    call(""~$option_em_inst_dir~"\\PC98\\RCP.EXE /eDOS");    call(""~$option_em_inst_dir~"\\PC98\\"~$na_w~".EXE /eDOS");    }
  307. if(%hlp != 0){    $filehlp = filedate("DOS\\RCPDOS.HLP");    %s = chkdate("DOS\\RCPDOS",$filehlp);
  308. if(%s == 1){    delete("DOS\\RCPDOS.HLP");    rename("DOS\\RCPDOS","DOS\\RCPDOS.HLP");    } else {    delete("DOS\\RCPDOS");    }    }
  309. if(%def != 0){    $filerct = filedate("DEFAULT.RCT");    %s = chkdate("DEFAULT",$filerct);
  310. if(%s == 1){    delete("DEFAULT.RCT");    rename("DEFAULT","DEFAULT.RCT");    } else {    delete("DEFAULT");    }    }    }    }    close();    wait(1);
  311. goto OPTION_EM;
  312. #------------------------------------------------------------------------------
  313. OPTION_EM_ADD:    cls();    locate(10, 1);    print($bar);
  314. locate(10, 2);    print("|                       組み込み元の入力                         |");    locate(10, 3);    print($bar);    locate(10, 4);    print($bar2);
  315. locate(10, 5);    print("|  ｵﾌﾟｼｮﾝｴﾐｭﾚｰｼｮﾝの入っているﾌﾛｯﾋﾟｰﾃﾞｨｽｸを挿入してください。     |");    locate(10, 6);    print($bar2);
  316. locate(10, 7);    print("|  組み込み元のﾃﾞｨﾚｸﾄﾘやﾄﾞﾗｲﾌﾞの指定は絶対ﾊﾟｽを入力してください。|");    locate(10, 8);    print($bar2);    locate(10, 9);    print($bar2);
  317. locate(10,10);    print("|  組み込み元:                                                   |");    locate(10,11);    print("|                                                                |");
  318. locate(10,12);    print($bar2);    locate(10,13);    print("|            [ENTER]ｷｰでｵﾌﾟｼｮﾝｴﾐｭﾚｰｼｮﾝを組み込みます。           |");    locate(10,14);    print($bar2);
  319. locate(10,15);    print($bar);    open("DOS\\SETUP\\INSTALL.INI");    seek(1);    %v = forward("[HARDMODE]");    if(%v != 0){    seek(%v+1);    $hardmode = getline();    close();    locate(24,10);
  320. if($hardmode == "DOSV"){    $option_em_inst_dir = qespath("A:", 35);    }    if($hardmode == "PC98"){    $option_em_inst_dir = qespath("B:", 35);    }    } else {    $err_file = "OPTION.INI";
  321. goto PBUDDY_ERR;    }    %ans = exist(""~$option_em_inst_dir~"\\OPTION.INI");    if(%ans == 0){    $err_file = "OPTION.INI";    goto PBUDDY_ERR;    }    goto OPTION_SET;
  322. #------------------------------------------------------------------------------
  323. ALL_DEL:    cls();
  324. locate(7, 1);    print("+------------------------------------------------------------------+");    locate(7, 2);    print("|                        PrintBuddy の削除                         |");
  325. locate(7, 3);    print("+------------------------------------------------------------------+");    locate(7, 4);    print("|                                                                  |");
  326. locate(7, 5);    print("|     ﾃﾞｲﾝｽﾄｰﾗは、あなたのｼｽﾃﾑから PrintBuddy を削除します。       |");    locate(7, 6);    print("|                                                                  |");
  327. locate(7, 7);    print("|                                                                  |");    locate(7, 8);    print("|                 PrintBuddy を削除しますか？ [Y/N]                |");
  328. locate(7, 9);    print("|                                                                  |");    locate(7, 10);    print("+------------------------------------------------------------------+");
  329. while(1){    clrkey();    %ans = getkey();    if((%ans == 89) || (%ans == 121)){    goto DEL;    }    if((%ans == 78) || (%ans == 110)){    goto INST_MENU;    }    }    goto ALL_DEL;
  330. #------------------------------------------------------------------------------
  331. DEL:    cls();    locate(10, 8);    print($bar);    locate(10, 9);    print("|");    locate(75, 9);    print("|");    locate(10, 10);    print("|   PrintBuddy をｼｽﾃﾑから削除中、しばらくお待ちください...       |");
  332. locate(10, 11);    print("|");    locate(75, 11);    print("|");    locate(10, 12);    print($bar);    %op_md = 1;    %back_f = 9;    goto OPTION_SET;
  333. DEL_PHASE2:    open("PBUDDY.INI");    seek(1);    %v = forward("[OPTION-TRANSLATOR]");    seek(%v);    %emu_no = 0;
  334. while(%emu_cunt >= %emu_no){    %emu_no = %emu_no + 1;    %vv = %v + %emu_no;    seek(%vv);    $na_w = getline();    delline();    %d = 0;    switch(%emu_no){
  335. case 1:    if(($na_w == ""~$na1~"=3")||($na_w == ""~$na1~"=2")){    insline(""~$na1~"=2");    break;    }    if(($na_w == ""~$na1~"=0")||($na_w == ""~$na1~"=1")){
  336. if(($na1 == "@N201")||($na1 == "@ESCP")){    insline(""~$na1~"=0");    break;    }    %d = forward($a~$na1~$b);    }    break;
  337. case 2:    if(($na_w == ""~$na2~"=3")||($na_w == ""~$na2~"=2")){    insline(""~$na2~"=2");    break;    }    if(($na_w == ""~$na2~"=0")||($na_w == ""~$na2~"=1")){
  338. if(($na2 == "@N201")||($na2 == "@ESCP")){    insline(""~$na2~"=0");    break;    }    %d = forward($a~$na2~$b);    }    break;
  339. case 3:    if(($na_w == ""~$na3~"=3")||($na_w == ""~$na3~"=2")){    insline(""~$na3~"=2");    break;    }    if(($na_w == ""~$na3~"=0")||($na_w == ""~$na3~"=1")){
  340. if(($na3 == "@N201")||($na3 == "@ESCP")){    insline(""~$na3~"=0");    break;    }    %d = forward($a~$na3~$b);    }    break;
  341. case 4:    if(($na_w == ""~$na4~"=3")||($na_w == ""~$na4~"=2")){    insline(""~$na4~"=2");    break;    }    if(($na_w == ""~$na4~"=0")||($na_w == ""~$na4~"=1")){
  342. if(($na4 == "@N201")||($na4 == "@ESCP")){    insline(""~$na4~"=0");    break;    }    %d = forward($a~$na4~$b);    }    break;
  343. case 5:    if(($na_w == ""~$na5~"=3")||($na_w == ""~$na5~"=2")){    insline(""~$na5~"=2");    break;    }    if(($na_w == ""~$na5~"=0")||($na_w == ""~$na5~"=1")){
  344. if(($na5 == "@N201")||($na5 == "@ESCP")){    insline(""~$na5~"=0");    break;    }    %d = forward($a~$na5~$b);    }    break;
  345. case 6:    if(($na_w == ""~$na6~"=3")||($na_w == ""~$na6~"=2")){    insline(""~$na6~"=2");    break;    }    if(($na_w == ""~$na6~"=0")||($na_w == ""~$na6~"=1")){
  346. if(($na6 == "@N201")||($na6 == "@ESCP")){    insline(""~$na6~"=0");    break;    }    %d = forward($a~$na6~$b);    }    break;
  347. case 7:    if(($na_w == ""~$na7~"=3")||($na_w == ""~$na7~"=2")){    insline(""~$na7~"=2");    break;    }    if(($na_w == ""~$na7~"=0")||($na_w == ""~$na7~"=1")){
  348. if(($na7 == "@N201")||($na7 == "@ESCP")){    insline(""~$na7~"=0");    break;    }    %d = forward($a~$na7~$b);    }    break;
  349. case 8:    if(($na_w == ""~$na8~"=3")||($na_w == ""~$na8~"=2")){    insline(""~$na8~"=2");    break;    }    if(($na_w == ""~$na8~"=0")||($na_w == ""~$na8~"=1")){
  350. if(($na8 == "@N201")||($na8 == "@ESCP")){    insline(""~$na8~"=0");    break;    }    %d = forward($a~$na8~$b);    }    break;    }
  351. if(%d != 0){    %v = %v - 1;    seek(%d+1);    %dd = forward($a);    %ddd = %dd - %d;    seek(%d);    while(%ddd > 0){    delline();    %ddd = %ddd - 1;    }    }    }    close();
  352. open("DOS\\SETUP\\INSTALL.INI");    seek(1);    %v = forward("[AUTOEXEC]");
  353. if(%v != 0){    seek(%v+1);    $auto_drv = getline();    close();    %ans = exist(""~$auto_drv~":\\AUTOEXEC.BAT");    if(%ans != 0){    %ans = open(""~$auto_drv~":\\AUTOEXEC.BAT");
  354. if(%ans == 0){    %x = 0;    seek(1);    %v = forward("COMDRV.EXE");    if(%v != 0){    if(%x == 0){    seek(%v-1);    $chk = getline();    $drv = drvname(0);    if($chk == "cd "~$drv~":\\"){    delline();
  355. } else {    seek(%v);    }    %x = 1;    delline();    } else {    seek(%v);    delline();    }    }    %v = forward("STSDOS.EXE");    if(%v != 0){    if(%x == 0){    seek(%v-1);    $chk = getline();
  356. $drv = drvname(0);    if($chk == "cd "~$drv~":\\"){    delline();    } else {    seek(%v);    }    %x = 1;    delline();    } else {    seek(%v);    delline();    }    }    %v = forward("RCPDOSI.EXE");
  357. if(%v != 0){    if(%x == 0){    seek(%v-1);    $chk = getline();    $drv = drvname(0);
  358. if($chk == "cd "~$drv~":\\"){    delline();    } else {    seek(%v);    }    %x = 1;    delline();    } else {    seek(%v);    delline();    }    }    }    close();
  359. %ans = filesize(""~$auto_drv~":\\AUTOEXEC.BAT");    if(%ans == 0){    delete(""~$auto_drv~":\\AUTOEXEC.BAT");    }    }    }
  360. %ans = delete("DOS\\SETUP\\*.*");    %ans = rmdir("DOS\\SETUP");    %ans = delete("DOS\\*.*");    %ans = rmdir("DOS");    wait(1);    goto DEL_END;
  361. #------------------------------------------------------------------------------
  362. DEL_END:    cls();    locate(10, 6);    print($bar);    locate(10, 7);    print($bar2);    locate(10, 8);    print("|     ﾃﾞｲﾝｽﾄｰﾗは、 PrintBuddy ｾｯﾄｱｯﾌﾟﾌﾟﾛｸﾞﾗﾑがｲﾝｽﾄｰﾙした         |");
  363. locate(10, 9);    print("|     すべてのﾌｧｲﾙを削除しました。                               |");    locate(10, 10);    print($bar2);
  364. locate(10, 11);    print("|                 [いずれかのｷｰを押してください]                 |");    locate(10, 12);    print($bar2);    locate(10, 13);    print($bar);    clrkey();    getkey();    cls();
  365. locate(15, 6);    print("+---------------------------------------------------------+");
  366. %i=7;    while(%i<13){    locate(15, %i);    print("|                                                         |");    %i=%i+1;    }
  367. locate(31, 9);    print("ｺﾝﾋﾟｭｰﾀをﾘｾｯﾄしてください。");    locate(29, 11);    print("[いずれかのｷｰを押してください]");
  368. locate(15, 13);    print("+---------------------------------------------------------+");    clrkey();    getkey();
  369. #------------------------------------------------------------------------------
  370. END_INSTALL:    cls();    locate(20, 12);    print("PrintBuddy のｾｯﾄｱｯﾌﾟを終了します。");
  371.