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