home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 13 / 13.iso / p / p045 / 1.img / HAN.UCM < prev    next >
Encoding:
Text File  |  1994-05-05  |  2.5 KB  |  111 lines
  1.        CMD NULCMD
  2.        MSG 'CFPlace chinese char.'
  3.        KEY 'TX=$'
  4.        SET R10=0
  5.        SET R15=0
  6.        SET A11=0
  7.        SET R31=WWSECT
  8.        SET R30=WWBYTE
  9.        SET OUTFLG=OUTFLG ! 8
  10. ;      SET C0='CIS.OUT'
  11.        MSG 'PRTEXT HEIGHT'
  12. NEXT0: MSG 'ERD.. OK, OR KEYIN NEW VALUE'
  13.        GET P,NEXT1,K,KEYIN1,R,EXITUC,M,OCMD
  14.        GO NEXT0
  15. KEYIN1:
  16.         TST K0,EQ,0,NEXT1
  17.         SET KEY='TH='+KEY
  18.         KEY KEY
  19. NEXT1:
  20.         MSG 'PRTEXT WIDTH'
  21.         GET P,ANGLE,K,KEYIN2
  22.         GO NEXT1
  23. KEYIN2: TST K0,EQ,0,ANGLE
  24.         SET KEY='TW='+KEY
  25.         KEY KEY
  26. ANGLE:  KEY 'AA=$'
  27.         MSG 'PRANGLE of Character'
  28.         GET P,DEFAA,K,NEWAA
  29.         GO ANGLE
  30. NEWAA:
  31.         TST K0,EQ,0,DEFAA
  32.         SET KEY='AA='+KEY
  33.         KEY KEY
  34. DEFAA:  SET A0=ACTANG
  35.         MSG 'PRAngle between 2 CHARACTER'
  36.         GET P,LNS,K,NEWAC
  37.         GO DEFAA
  38. NEWAC:  TST K0,EQ,0,LNS
  39.         SET A0=KEY
  40. LNS:
  41.         KEY 'LS=$'
  42.         MSG 'PRLine spacing'
  43.         GET P,NEXT20,K,NEWLS
  44.         GO LNS
  45. NEWLS:  TST K0,EQ,0,NEXT20
  46.         SET KEY='LS='+KEY
  47.         KEY KEY
  48. NEXT20:
  49.         SET MSG='STNet spacing is '+A11
  50.         MSG MSG
  51.         MSG 'PRCharacter net spacing (D..0)'
  52.         GET P,NEXT21,K,NEWCS
  53.         GO LNS
  54. NEWCS:  TST K0,EQ,0,NEXT21
  55.         SET A11=KEY
  56. NEXT21:
  57.         MSG 'ST '
  58.         MSG 'PRKeyin filename =? (D..=CIS.OUT)'
  59.         MSG 'ER '
  60.         GET K,KEYIN3,P,CIS,R,EXITUC,M,OCMD
  61.         GO NEXT21
  62. CIS:    SET C0='CIS.OUT'
  63.         GO POINT
  64. KEYIN3: TST K0,EQ,0,CIS
  65.         SET C0=KEY
  66. POINT:  MSG 'PRPoint to place text'
  67.         GET P,NEXT3
  68.         GO POINT
  69. NEXT3:
  70.        MSG 'PR '
  71.        MSG 'ER '
  72.        KEY 'NOECHO'
  73.        SET TSKSIZ=100
  74.        TSK 'C:\EXE\HAN.EXE',C0
  75.        TST N0,NE,0,SINGL
  76.        SET C0='CIS.OUT'
  77. SINGL:
  78.        SET R12=0
  79.        SET WWBYTE=DFBYTE
  80.        SET WWSECT=DFSECT
  81.        SET TSKSIZ=180
  82.        TSK 'C:\EXE\PCHINA.EXE'
  83.        TST R12,EQ,0,OK
  84.        TST R12,EQ,11,NOFIL
  85.        MSG 'ERCIS TABLE FILE NOT FOUND'
  86.        GO EXITUC
  87. OCMD:
  88.        MSG 'CF '
  89.        MSG 'PR '
  90.        SET WWSECT=R31
  91.        SET WWBYTE=R30
  92.        SET OUTFLG=OUTFLG & -9
  93.        SET CONTRL=CONTRL & -769
  94.        SLI
  95.        GO  END
  96. NOFIL:
  97.        MSG 'ERFile open error, Keyin again'
  98.        GO EXITUC
  99. OK:    MSG 'PRCHINESE CHARCTER OK.'
  100.        SET MSG='ER '+C13
  101.        MSG MSG
  102.        KEY 'IUPDATE '
  103.        PNT
  104. EXITUC: MSG 'CF '
  105.         MSG 'PR '
  106.        SET WWSECT=R31
  107.        SET WWBYTE=R30
  108.        SET OUTFLG=OUTFLG & -9
  109.        KEY 'ECHO'
  110. END:   END
  111.