home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 13 / 13.iso / p / p045 / 1.img / PCTEXT.UCM < prev    next >
Encoding:
Text File  |  1994-05-05  |  2.2 KB  |  98 lines
  1. STRT:
  2.         MSG     'PR '
  3.         MSG     'ER '
  4.         MSG     'ST '
  5.         SET     R31 = CONTRL
  6.         SET     CONTRL = CONTRL ! @001400
  7.         SET     C15 = 'ERInvalid Input'
  8. DSPSET:
  9.         CVT     C2 = CHHGT
  10. ;
  11. ;       Convert Text Width to ASCII
  12. ;
  13.         CVT     C3 = CHWID
  14. ;
  15. ;       Convert Row Spacing to ASCII
  16. ;
  17.         CVT     C4 = APROWS
  18. ;
  19. ;       Convert Column Spacing to ASCII
  20. ;
  21.         CVT     C5 = APCOLS
  22. ;
  23. ;       Put Current Settings to Message Fields
  24. ;
  25.         SET     C0 = 'STTH='+C2
  26.         SET     C0 = C0 + '   TW='
  27.         SET     C0 = C0 + C3
  28.         MSG     C0
  29. ;
  30.         SET     C0 = 'CFSH=' + C4
  31.         SET     C0 = C0 + '       SW='
  32.         SET     C0 = C0 + C5
  33.         MSG     C0
  34. ;
  35. ;       Change Settings or Key in Chinese Text Filename
  36. ;
  37. KEYFIL:
  38.         MSG     'PRChange Current Settings or'
  39.         MSG     'EREnter Chinese Text Filename'
  40.         GET     K,CHKKEY,R,STOP
  41.         MSG     'PR '
  42.         MSG     C15
  43.         GO      KEYFIL
  44. ;
  45. ;
  46. CHKKEY:
  47.         SET     C0 = KEY
  48.         SET     N0 = K0
  49.         SET     C1 = KEY
  50.         SET     N1 = 3
  51.         SET     R0 = 0
  52.         TST     C1 EQ 'SH=', SPCING
  53.         SET     R0 = 1
  54.         TST     C1 EQ 'SW=', SPCING
  55.         TST     KEY(3) NE '=', REFPNT
  56.         KEY     KEY
  57.         GO      DSPSET
  58. ;
  59. SPCING:
  60.         SET     R1 = 0
  61.         SET     R2 = 3
  62.         SET     C1 = KEY
  63. SPCI01:
  64.         SET     R1 = R1 + 1
  65.         SET     R2 = R2 + 1
  66.         SET     C1(R1) = KEY(R2)
  67.         TST     R2 LT K0, SPCI01
  68.         SET     N1 = K0 - 3
  69.         TST     R0 EQ 1, SPCI02
  70.         CVT     APROWS = C1
  71.         GO      DSPSET
  72. SPCI02:
  73.         CVT     APCOLS = C1
  74.         GO      DSPSET
  75. ;
  76. ;       Get Left-Top Corner for the Text Block
  77. ;
  78. REFPNT:
  79.         MSG     'PREnter Left-Top Corner Data'
  80.         MSG     'ERPoint for the Text Block to be placed'
  81.         GET     P,SNDFIL,R,STOP
  82.         MSG     'PR '
  83.         MSG     C15
  84.         GO      REFPNT
  85. ;
  86. ;       Invoke Task
  87. ;
  88. SNDFIL:
  89.         MSG     'ST '
  90.         MSG     'CF '
  91.         MSG     'PR '
  92.         MSG     'ER '
  93.         KEY 'MDL LOAD PLACHINA'
  94. STOP:
  95. EXITUC:
  96.         SET     CONTRL = R31
  97.         END
  98.