home *** CD-ROM | disk | FTP | other *** search
/ PC World Komputer 1998 October A / Pcwk10a98.iso / Corel / Ventura8 / Programs / vpintl.dll / 1033 / CREDITS / 1013 < prev   
Encoding:
Text File  |  1998-04-15  |  4.6 KB  |  204 lines
  1. DECLARE FUNCTION vp1(BYVAL vp2$) AS INTEGER
  2. DECLARE FUNCTION vp3(BYVAL vp4$) AS STRING
  3.  
  4. DECLARE SUB vp5(BYVAL vp6$)
  5. DECLARE SUB vp7(BYVAL vp8%)
  6. DECLARE SUB vp9(BYVAL vp8%)
  7. DECLARE SUB vpa(BYVAL vpb$, BYVAL vp8%)
  8. DECLARE SUB vpc(BYVAL vpd%, BYVAL vpe%)
  9. DECLARE SUB vpf(BYVAL vp10)
  10.  
  11. GLOBAL vp11$    
  12. vp11 = vp3("Shtwjq{jsyzwfSfzytrfyntsS]")
  13.  
  14. GLOBAL vp12$
  15. vp12 =            "Zmprx11xx0xx00xx0u1xwwx1u/0xxxx0/11w00w1111w00wwwu1xw|"
  16. vp12 = vp12 +  "y0uxxx11xxxppmmmmpp11mmmm..yz}-.zyxwwwwww11r1))))))xhi"
  17. vp12 = vp12 +  "jk|lxu1xxxx1u01x10wwwu1xx){0s01x10}zyt0w0vo1u11mmmmmmx"
  18. vp12 = vp12 +  "xxxxx1uxxxx+rpm))))))1rxrpmmprxxrpmmmmm11*,mq11mppmmLmm"
  19. vp12 = vp3(vp12)
  20.  
  21. GLOBAL vp10$
  22.  
  23. vp10$ =           "K)4x*x/W_21+06;W*x+4|{Wy155`Wy4190a5x0,x;W0x)x/x0)x.x/a{x/+"
  24. vp10$ = vp10$ + "|0W_zx0016Wy|W{10|X`W1W0|+..a{x8+{W_}4|0z*dy1;`Wy|56/x0W5/+"
  25. vp10$ = vp10$ + "6*a{x8+{W_5-+00;Wy4+6`W9+..+x/5a{|x0|W8x0.78|0a*x4+W/|010a,"
  26. vp10$ = vp10$ + "x510W_x..d/|x0`Wx..|/x00a,7{;W|.+x5a/x4zW56eWx/174a5*17y*+-"
  27. vp10$ = vp10$ + "W)*15*aa-|..;W}4x5|4aa,1*0W5|0|<ax..x0W5*|x4|4azx4.xW*|0-|."
  28. vp10$ = vp10$ + "a,x/+|W/149+z-a,x0|W}4x5|4a-+/y|4.|;W4165*6|66|4a/x66W_y+6/"
  29. vp10$ = vp10$ + "x2Wy7{{;`W}4x5|4a/+z*x|.Wx4010+aa.|1W_5x+.14Wy1;`W2x1.|66+a"
  30. vp10$ = vp10$ + "y4+x0W)11{9+..azx4/|0W*7/2.+-a,|00+}|4W9+..+x/5a56|.xW-1561"
  31. vp10$ = vp3(vp10$ + "8xa6|4|5xW9+.{|a")
  32.  
  33. GLOBAL vp13(31) AS INTEGER
  34. vp13( 1) = 227
  35. vp13( 2) = 243
  36. vp13( 3) = 251
  37. vp13( 4) = 223
  38. vp13( 5) = 199
  39. vp13( 6) = 24
  40. vp13( 7) = 0
  41. vp13( 8) = 3
  42. vp13( 9) = 60
  43. vp13(10) = 96
  44. vp13(11) = 102
  45. vp13(12) = 123
  46. vp13(13) = 124
  47. vp13(14) = 126
  48. vp13(15) = 127
  49. vp13(16) = 192
  50. vp13(17) = 195
  51. vp13(18) = 198
  52. vp13(19) = 204
  53. vp13(20) = 206
  54. vp13(21) = 207
  55. vp13(22) = 216
  56. vp13(23) = 219
  57. vp13(24) = 6
  58. vp13(25) = 231
  59. vp13(26) = 12
  60. vp13(27) = 240
  61. vp13(28) = 248
  62. vp13(29) = 252
  63. vp13(30) = 254
  64. vp13(31) = 255
  65.  
  66. WITHOBJECT vp11$
  67.     .SetVisible TRUE
  68.     .CustomShowToolbar "Property Bar", FALSE
  69.     .FileNew
  70.     .PageFirstLine 
  71.     
  72.     .FormatParaTagBegin "Body Text"
  73.         .FormatParaFont .PointSize = 6
  74.         .FormatParaColor FALSE, 8, 1
  75.         .FormatParaSpacing 7056, 7056, 17639
  76.     .FormatParaTagEnd
  77.     
  78.     .FormatObjectBegin 3
  79.         .FormatPageLayout .Portrait = FALSE
  80.     .FormatObjectEnd 
  81.     
  82.     vp5 vp3("X+ox)*|kJ|ymu}K")
  83.     vpf vp10$
  84. END WITHOBJECT
  85.  
  86. SUB vp5(BYVAL vp6$)
  87.     WITHOBJECT vp11
  88.         vp6 = UCASE(vp6)
  89.         vp14% = LEN(vp6)
  90.  
  91.         FOR vp8 = 1 to 8 
  92.             vp15% = 1
  93.             WHILE (vp15 <= vp14)
  94.                 vp16 = MID(vp6, vp15, 1)
  95.                 vp17 = 0
  96.                 
  97.                 IF vp16 = " " THEN
  98.                     vp7(vp8)
  99.                     vp17 = 0
  100.                 ELSEIF vp16 = "!" THEN
  101.                     vp17 = 27
  102.                 ELSE
  103.                     vp17 = ASC(vp16) - 64
  104.                 ENDIF 
  105.                 
  106.                 IF vp17 THEN
  107.                     vpb = MID(vp12, (vp17)*8-7, 8)
  108.                     vpa vpb, vp8
  109.                     if (vp15 <> vp14) THEN
  110.                         vp9(vp8)
  111.                     ENDIF
  112.                 ENDIF
  113.                 vp15 = vp15 + 1
  114.             WEND
  115.             .InsertParagraph
  116.         NEXT vp8
  117.     END WITHOBJECT
  118. END SUB
  119.  
  120. SUB vp7(BYVAL vp8%)
  121.     WITHOBJECT vp11
  122.         .TextFileSelectGet .CharNumber = vp18&
  123.         .TypeText "&&&&&&&&"
  124.         .TextFileSelect .ParaNumber = vp8, .CharNumber = vp18
  125.         .TextCharRight 8, FALSE
  126.     END WITHOBJECT
  127. END SUB
  128.  
  129. SUB vp9(BYVAL vp8%)
  130.     WITHOBJECT vp11
  131.         .TextFileSelectGet .CharNumber = vp18&
  132.         .TypeText "&&"
  133.         .TextFileSelect .ParaNumber = vp8, .CharNumber = vp18
  134.         .TextCharRight 2, FALSE
  135.     END WITHOBJECT
  136. END SUB
  137.  
  138. SUB vpc(BYVAL vpd%, BYVAL vpe%)
  139.     WITHOBJECT vp11
  140.         IF (vpd >= vpe) THEN
  141.             .TextCharRight 1, TRUE
  142.             .FillUniform 2, 100, 100, 0, 0
  143.             .TextCharRight 1, FALSE
  144.             vpd = vpd - vpe
  145.         ELSE
  146.             .TextCharRight 1, FALSE
  147.         ENDIF 
  148.         IF vpe% > 1 THEN
  149.             vpc vpd, vpe%/2
  150.         ENDIF
  151.     END WITHOBJECT
  152. END SUB
  153.  
  154. SUB vpa(BYVAL vpb$, BYVAL vp8%)
  155.     WITHOBJECT vp11
  156.         .TextFileSelectGet .CharNumber = vp18&
  157.         .TypeText "&&&&&&&&"
  158.         .TextFileSelect .ParaNumber = vp8, .CharNumber = vp18
  159.     
  160.         vp2$ = MID(vpb, vp8%, 1)
  161.         vpd% = vp1(vp2$)
  162.         
  163.         vpe% = 128
  164.         vpc vpd%, vpe%
  165.     END WITHOBJECT
  166. END SUB
  167.  
  168. FUNCTION vp1(BYVAL vp2$) AS INTEGER
  169.     vp18 = ASC(vp2) - 59
  170.     IF vp18 >= 1 AND vp18 <= 31 THEN
  171.         vp1 = vp13(vp18)
  172.     ENDIF
  173. END FUNCTION
  174.  
  175. FUNCTION vp3(BYVAL vp4$) AS STRING
  176.     vp19 = ASC(LEFT(vp4, 1)) MOD 26
  177.     FOR i%=2 TO LEN(vp4)
  178.         vpd = ASC(MID(vp4, i%, 1)) - 32 - vp19
  179.         IF vpd < 32 THEN vpd = vpd + 85
  180.         vp3$ = vp3$ + CHR(vpd)    
  181.     NEXT i%
  182. END FUNCTION
  183.  
  184. SUB vpf(BYVAL vp10)
  185.     WITHOBJECT vp11
  186.         .InsertParagraph
  187.         .InsertParagraph
  188.         .FormatSetParaTag "bullet"
  189.         WHILE LEN(vp10) > 0
  190.             vp1a = INSTR(vp10, "*")
  191.             .TypeText LEFT(vp10, vp1a-1)
  192.             vp10 = RIGHT(vp10, LEN(vp10) - vp1a)
  193.             IF LEN(vp10)THEN .InsertParagraph
  194.             IF LEFT(vp10, 1) = "*" THEN
  195.                 .FormatSetParaTag "body text"
  196.                 .InsertParagraph
  197.                 .FormatSetParaTag "bullet"
  198.                 vp10 = RIGHT(vp10, LEN(vp10)-1)
  199.             ENDIF
  200.         WEND
  201.     END WITHOBJECT
  202. END SUB
  203. REM *EOF*
  204.