home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 13 / 13.iso / p / p045 / 1.img / CHEDIT.UCM < prev    next >
Encoding:
Text File  |  1994-05-05  |  1.7 KB  |  79 lines
  1.         msg 'cfChinese character edit'
  2. ;       set wwsect=4
  3. ;       set wwbyte=0
  4.         set r30=wwsect
  5.         set r31=wwbyte
  6.         set r29=CAFONT
  7.         set r28=fbfdcn
  8.         set fbfdcn=fbfdcn & @175777
  9. prompt:
  10.         cmd nulcmd
  11.         msg 'st '
  12.         msg 'prIdentify the chinese character,R..exit'
  13.         cmd locele
  14.         get p,find,r,exituc
  15.         go prompt
  16. find:
  17.         msg 'er '
  18.         set i1=xur
  19.         set i2=yur
  20.         pnt ,,,,,,,1
  21.         tst relerr ne 0, prompt
  22.         msg 'prAccept / Reject'
  23.         get p,check,r,find
  24. check:
  25.         msg 'prKeyin new chinese char.'
  26.         TST NDICES,EQ,3,TX3
  27.         tst TX.NCH,gt,1,tom
  28.         go edit
  29. TX3:    TST TX.NC3,GT,1,TOM
  30.         GO EDIT
  31. tom:
  32.         SET MSG='PRTEXT No.='+TX.NCH
  33.         msg MSG
  34.         msg 'erToo many char. selcet only 1 char.'
  35.         GET K,PROMPT
  36.         go prompt
  37. TX3D:
  38.         SET TX.LT3(1)=R0
  39.         GO WRTX
  40. edit:
  41.         set r4=curebl
  42.         set r5=cureby
  43.         set r6=dfsect
  44.         set r7=dfbyte
  45.         key 'ft=3'
  46.         cmd ptext
  47.         set key=' '
  48.         key key
  49.         pnt
  50.         set tsksiz=180
  51.         tsk 'c:\exe\hanone.exe'
  52.         TST CAFONT,EQ,37,EXITUC
  53.         red r4,r5
  54.         set TX.FON=CAFONT
  55.         TST NDICES,EQ,3,TX3D
  56.         set TX.LET(1)=R0
  57. WRTX:   wrt r6,r7
  58.         set wwsect=r4
  59.         set wwbyte=r5
  60.         cmd dlelem
  61.         pnt i1,i2
  62.         pnt
  63.         set wwsect=r6
  64.         set wwbyte=r7
  65.         key 'iupdate'
  66.         pnt
  67.         set wwsect=r30
  68.         set wwbyte=r31
  69. ;       get p,prompt
  70.         go prompt
  71. exituc:
  72.         msg 'er '
  73.         msg 'cf '
  74.         msg 'pr '
  75.         cmd nulcmd
  76.         set CAFONT=r29
  77.         set fbfdcn=r28
  78.         end
  79.