home *** CD-ROM | disk | FTP | other *** search
/ Media Share 9 / MEDIASHARE_09.ISO / progmisc / pbc22b.zip / PBC$BAS.ZIP / STRSQU.BAS < prev    next >
BASIC Source File  |  1993-01-01  |  3KB  |  152 lines
  1. '   +----------------------------------------------------------------------+
  2. '   |                                                                      |
  3. '   |        PBClone  Copyright (c) 1990-1993  Thomas G. Hanlin III        |
  4. '   |                                                                      |
  5. '   +----------------------------------------------------------------------+
  6.  
  7. FUNCTION StrSqu$ (St$)
  8.  
  9.    DIM x$(128 TO 255)
  10.    x$(128) = ".  "
  11.    x$(129) = "   "
  12.    x$(130) = " th"
  13.    x$(131) = "the"
  14.    x$(132) = "ing"
  15.    x$(133) = "he "
  16.    x$(134) = "ed "
  17.    x$(135) = " an"
  18.    x$(136) = "ng "
  19.    x$(137) = "nd "
  20.    x$(138) = " a "
  21.    x$(139) = "and"
  22.    x$(140) = "to "
  23.    x$(141) = " of"
  24.    x$(142) = " wa"
  25.    x$(143) = "of "
  26.    x$(144) = "  "
  27.    x$(145) = "e "
  28.    x$(146) = " t"
  29.    x$(147) = "th"
  30.    x$(148) = " a"
  31.    x$(149) = "s "
  32.    x$(150) = "he"
  33.    x$(151) = "in"
  34.    x$(152) = "t "
  35.    x$(153) = "er"
  36.    x$(154) = "d "
  37.    x$(155) = "re"
  38.    x$(156) = " s"
  39.    x$(157) = " o"
  40.    x$(158) = "or"
  41.    x$(159) = "an"
  42.    x$(160) = "n "
  43.    x$(161) = " i"
  44.    x$(162) = ", "
  45.    x$(163) = "r "
  46.    x$(164) = "ou"
  47.    x$(165) = "te"
  48.    x$(166) = "on"
  49.    x$(167) = "ro"
  50.    x$(168) = " w"
  51.    x$(169) = "y "
  52.    x$(170) = "to"
  53.    x$(171) = "o "
  54.    x$(172) = "le"
  55.    x$(173) = "is"
  56.    x$(174) = "nd"
  57.    x$(175) = "at"
  58.    x$(176) = "es"
  59.    x$(177) = " c"
  60.    x$(178) = "--"
  61.    x$(179) = "ed"
  62.    x$(180) = "ar"
  63.    x$(181) = "en"
  64.    x$(182) = "ti"
  65.    x$(183) = "se"
  66.    x$(184) = " f"
  67.    x$(185) = "ng"
  68.    x$(186) = "it"
  69.    x$(187) = "f "
  70.    x$(188) = "st"
  71.    x$(189) = " b"
  72.    x$(190) = "me"
  73.    x$(191) = ". "
  74.    x$(192) = " m"
  75.    x$(193) = "ve"
  76.    x$(194) = "of"
  77.    x$(195) = "al"
  78.    x$(196) = "ha"
  79.    x$(197) = "ne"
  80.    x$(198) = "nt"
  81.    x$(199) = " r"
  82.    x$(200) = "as"
  83.    x$(201) = " d"
  84.    x$(202) = "ra"
  85.    x$(203) = "ri"
  86.    x$(204) = "a "
  87.    x$(205) = "de"
  88.    x$(206) = "ll"
  89.    x$(207) = " p"
  90.    x$(208) = "co"
  91.    x$(209) = "et"
  92.    x$(210) = "l "
  93.    x$(211) = "hi"
  94.    x$(212) = "g "
  95.    x$(213) = "il"
  96.    x$(214) = "ut"
  97.    x$(215) = "la"
  98.    x$(216) = "ea"
  99.    x$(217) = "be"
  100.    x$(218) = "us"
  101.    x$(219) = "ma"
  102.    x$(220) = "pe"
  103.    x$(221) = "am"
  104.    x$(222) = " e"
  105.    x$(223) = "wi"
  106.    x$(224) = " l"
  107.    x$(225) = "lo"
  108.    x$(226) = " n"
  109.    x$(227) = " h"
  110.    x$(228) = "tr"
  111.    x$(229) = "om"
  112.    x$(230) = "ow"
  113.    x$(231) = "h "
  114.    x$(232) = "el"
  115.    x$(233) = "ch"
  116.    x$(234) = "pr"
  117.    x$(235) = ": "
  118.    x$(236) = "ec"
  119.    x$(237) = "ay"
  120.    x$(238) = "si"
  121.    x$(239) = "io"
  122.    x$(240) = "ur"
  123.    x$(241) = "yo"
  124.    x$(242) = " y"
  125.    x$(243) = "ac"
  126.    x$(244) = "li"
  127.    x$(245) = "ca"
  128.    x$(246) = " :"
  129.    x$(247) = "fo"
  130.    x$(248) = "ee"
  131.    x$(249) = "fi"
  132.    x$(250) = "di"
  133.    x$(251) = "Th"
  134.    x$(252) = "rs"
  135.    x$(253) = "ic"
  136.    x$(254) = " u"
  137.    x$(255) = "mo"
  138.  
  139.    s$ = St$
  140.    FOR code% = 128 TO 255
  141.       DO
  142.          i% = INSTR(s$, x$(code%))
  143.          IF i% THEN
  144.             s$ = LEFT$(s$, i% - 1) + CHR$(code%) + MID$(s$, i% + LEN(x$(code%)))
  145.          END IF
  146.       LOOP WHILE i%
  147.    NEXT
  148.  
  149.    StrSqu$ = s$
  150.  
  151. END FUNCTION
  152.