home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 13 / 13.iso / p / p045 / 1.img / CHONE.UCM < prev    next >
Encoding:
Text File  |  1994-05-05  |  612 b   |  32 lines
  1.       set r29=cafont
  2.       msg 'cfplace chinese char.'
  3.       key 'noecho'
  4.       set outflg = outflg ! 8
  5. ST:
  6.       SET TSKSIZ=180
  7.       TSK 'C:\EXE\HANONE.EXE'
  8.       TST CAFONT,EQ,37,EXITUC
  9.       CMD PTEXT
  10.       KEY C2
  11.       MSG 'PRPoint'
  12. MS1:  GET P,P1,R,EXITUC,m,ocmd
  13.       GO MS1
  14. P1:   PNT
  15.       GO ST
  16. OCMD:
  17.       MSG 'CF '
  18.       MSG 'PR '
  19.       SET CONTRL=CONTRL & -769
  20.       SET CAFONT=R29
  21.       SET OUTFLG=OUTFLG & -9
  22.       SLI
  23.       GO END
  24. exituc:
  25.       SET CAFONT=R29
  26.       CMD NULCMD
  27.       MSG 'PR '
  28.       MSG 'CF '
  29.       SET OUTFLG=OUTFLG & -9
  30.       KEY 'ECHO'
  31. END:  END
  32.