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