home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 13 / 13.iso / p / p045 / 1.img / HAN1.UCM < prev    next >
Encoding:
Text File  |  1994-05-05  |  3.5 KB  |  146 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.        MSG 'PRTEXT HEIGHT'
  11. NEXT0: MSG 'ERD.. OK, OR KEYIN NEW VALUE'
  12.        GET P,NEXT1,K,KEYIN1,R,EXITUC,M,OCMD
  13.        GO NEXT0
  14. KEYIN1: TST K0,EQ,0,NEXT1
  15.         SET KEY='TH='+KEY
  16.         KEY KEY
  17. NEXT1:  MSG 'PRTEXT WIDTH'
  18.         GET P,ANGLE,K,KEYIN2
  19.         GO NEXT1
  20. KEYIN2: TST K0,EQ,0,ANGLE
  21.         SET KEY='TW='+KEY
  22.         KEY KEY
  23. ANGLE:  KEY 'AA=$'
  24.         MSG 'PRANGLE of Character'
  25.         GET P,DEFAA,K,NEWAA
  26.         GO ANGLE
  27. NEWAA:  TST K0,EQ,0,DEFAA
  28.         SET KEY='AA='+KEY
  29.         KEY KEY
  30. DEFAA:  SET A0=ACTANG
  31.         MSG 'PRAngle between 2 CHARACTER'
  32.         GET P,LNS,K,NEWAC
  33.         GO DEFAA
  34. NEWAC:  TST K0,EQ,0,LNS
  35.         SET A0=KEY
  36. LNS:
  37.         KEY 'LS=$'
  38.         MSG 'PRLine spacing'
  39.         GET P,NEXT19,K,NEWLS
  40.         GO LNS
  41. NEWLS:  TST K0,EQ,0,NEXT19
  42.         SET KEY='LS='+KEY
  43.         KEY KEY
  44. NEXT19:
  45.         SET MSG='STNet spacing is '+A11
  46.         MSG MSG
  47.         MSG 'PRCharacter net spacing (D..0)'
  48.         GET P,NEXT20,K,NEWCS
  49.         GO LNS
  50. NEWCS:  TST K0,EQ,0,NEXT20
  51.         SET A11=KEY
  52. NEXT20:
  53.         MSG 'ST '
  54.         MSG 'PRFont D..Single line,or(K/M/H/L/S)=?'
  55.         GET K,FONT,P,NEXT22
  56.         GO NEXT20
  57. FONT:   SET C1=KEY
  58.         TST C1(1),EQ,'K',NEXT21
  59.         TST C1(1),EQ,'k',NEXT21
  60.         TST C1(1),EQ,'M',NEXT21
  61.         TST C1(1),EQ,'m',NEXT21
  62.         TST C1(1),EQ,'H',NEXT21
  63.         TST C1(1),EQ,'h',NEXT21
  64.         TST C1(1),EQ,'L',NEXT21
  65.         TST C1(1),EQ,'l',NEXT21
  66.         TST C1(1),EQ,'S',NEXT21
  67.         TST C1(1),EQ,'s',NEXT21
  68.         GO NEXT20
  69. NEXT21: SET R15=1
  70.         MSG 'PRD.. Hole char., R..Filled char.'
  71.         GET P,KEYIN3,R,FILL
  72.         GO NEXT21
  73. FILL:   SET R10=5
  74.         MSG 'PRDistance between filled line 1 is 0.01'
  75.         MSG 'ER2 is 0.02, 3 is 0.03 master unit,etc.'
  76.         GET R,KEYIN3,P,KEYIN3,K,FILPEN
  77. FILPEN:
  78.         SET R10=KEY
  79.         TST R10,LE,0,FILL
  80. KEYIN3:
  81.         MSG 'ER '
  82. NEXT22: MSG 'PRKeyin filename =? (D..=CIS.OUT)'
  83.         MSG 'ER '
  84.         GET K,KEYIN4,P,CIS,R,EXITUC,M,OCMD
  85.         GO NEXT21
  86. CIS:    SET C0='CIS.OUT'
  87.         GO POINT
  88. KEYIN4: TST K0,EQ,0,CIS
  89.         SET C0=KEY
  90. POINT:
  91.         MSG 'PRPoint to place text'
  92.         GET P,NEXT3
  93.         GO POINT
  94. NEXT3:
  95.         MSG 'PR '
  96.         MSG 'ER '
  97.         SET WWBYTE=DFBYTE
  98.         SET WWSECT=DFSECT
  99.         KEY 'NOECHO'
  100.         SET TSKSIZ=100
  101.         TSK 'C:\EXE\HAN.EXE',C0
  102.         TST N0,NE,0,HOLE
  103.         SET C0='CIS.OUT'
  104. HOLE:   TST R15,EQ,0,SINGL
  105.         SET N1=0
  106.         SET R12=0
  107.         SET TSKSIZ=200
  108.         TSK 'C:\EXE\CHINAH.EXE'
  109.         TST R12,EQ,0,OK
  110.         TST R12,EQ,11,NOFIL
  111.         MSG 'ERHOL. vector file not found'
  112.         msg 'pr '
  113. SINGL:
  114.         SET R12=0
  115.         SET TSKSIZ=180
  116.         TSK 'C:\EXE\PCHINA.EXE'
  117.         TST R12,EQ,0,OK
  118.         TST R12,EQ,11,NOFIL
  119.         MSG 'ERCIS TABLE FILE NOT FOUND'
  120.         GO EXITUC
  121. NOFIL:
  122.         MSG 'ERFile open error, Keyin again'
  123.         GO EXITUC
  124. OCMD:
  125.        MSG 'CF '
  126.        MSG 'PR '
  127.        SET WWSECT=R31
  128.        SET WWBYTE=R30
  129.        SET OUTFLG=OUTFLG & -9
  130.        SET CONTRL=CONTRL & -769
  131.        SLI
  132.        GO  END
  133. OK:     MSG 'PRCHINESE CHARCTER OK.'
  134.         SET MSG='ER '+C13
  135.         MSG MSG
  136.         KEY 'IUPDATE'
  137.         PNT
  138. EXITUC: MSG 'CF '
  139.         MSG 'PR '
  140.         SET WWSECT=R31
  141.         SET WWBYTE=R30
  142.         SET OUTFLG=OUTFLG & -9
  143.         KEY 'ECHO'
  144. END:    end
  145.  
  146.