*******************************************/
/*  西文字符寫入函數:CW_PR                */
/*  函數參數選擇：PARA1                   */
/*  內部調用函數：PR1(),PR2(),PR4(),PR5() */
/*  連接字庫： CHTAB		          */
/*  函數調用入口： CW_PR()                */
/*  函數輸入變量： O_XL,O_YL,CODE_1       */
/******************************************/
CW_PR()
        {
           unsigned char j;

                j=para1;
                com=O_YL|0xb8;
                PR1();
                PR4();
                if(O_XL<j)
                 {
                   com=O_XL;
                   PR1();
                   O_YL=1;
                 }
              else
                 {
                   com=O_XL-j;
                   PR4();
                   O_YL=0;
                 }
                 com=com&0x3f;
              for(count1=0;count1<6;count1++)
                 {
                   dat1=CHTAB[code_1][count1];
                      if(O_YL==1)
                         {
                            PR2();
                         }
                      else
                         {
                            PR5();
                         }
                            com++;
                      if(com==j)
                        {
                            if(O_YL==1)
                               {
                                   com=0x40;
                                   PR4();
                                   O_YL=0;
                               }
                             else
                               {
                                   return;
                               }

                        }
                 }
        }