home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
DP Tool Club 13
/
CD_ASCQ_13_0494.iso
/
maj
/
419
/
strsqu.bas
< prev
next >
Wrap
BASIC Source File
|
1994-03-13
|
3KB
|
152 lines
' +----------------------------------------------------------------------+
' | |
' | PBClone Copyright (c) 1990-1994 Thomas G. Hanlin III |
' | |
' +----------------------------------------------------------------------+
FUNCTION StrSqu$ (St$)
DIM x$(128 TO 255)
x$(128) = ". "
x$(129) = " "
x$(130) = " th"
x$(131) = "the"
x$(132) = "ing"
x$(133) = "he "
x$(134) = "ed "
x$(135) = " an"
x$(136) = "ng "
x$(137) = "nd "
x$(138) = " a "
x$(139) = "and"
x$(140) = "to "
x$(141) = " of"
x$(142) = " wa"
x$(143) = "of "
x$(144) = " "
x$(145) = "e "
x$(146) = " t"
x$(147) = "th"
x$(148) = " a"
x$(149) = "s "
x$(150) = "he"
x$(151) = "in"
x$(152) = "t "
x$(153) = "er"
x$(154) = "d "
x$(155) = "re"
x$(156) = " s"
x$(157) = " o"
x$(158) = "or"
x$(159) = "an"
x$(160) = "n "
x$(161) = " i"
x$(162) = ", "
x$(163) = "r "
x$(164) = "ou"
x$(165) = "te"
x$(166) = "on"
x$(167) = "ro"
x$(168) = " w"
x$(169) = "y "
x$(170) = "to"
x$(171) = "o "
x$(172) = "le"
x$(173) = "is"
x$(174) = "nd"
x$(175) = "at"
x$(176) = "es"
x$(177) = " c"
x$(178) = "--"
x$(179) = "ed"
x$(180) = "ar"
x$(181) = "en"
x$(182) = "ti"
x$(183) = "se"
x$(184) = " f"
x$(185) = "ng"
x$(186) = "it"
x$(187) = "f "
x$(188) = "st"
x$(189) = " b"
x$(190) = "me"
x$(191) = ". "
x$(192) = " m"
x$(193) = "ve"
x$(194) = "of"
x$(195) = "al"
x$(196) = "ha"
x$(197) = "ne"
x$(198) = "nt"
x$(199) = " r"
x$(200) = "as"
x$(201) = " d"
x$(202) = "ra"
x$(203) = "ri"
x$(204) = "a "
x$(205) = "de"
x$(206) = "ll"
x$(207) = " p"
x$(208) = "co"
x$(209) = "et"
x$(210) = "l "
x$(211) = "hi"
x$(212) = "g "
x$(213) = "il"
x$(214) = "ut"
x$(215) = "la"
x$(216) = "ea"
x$(217) = "be"
x$(218) = "us"
x$(219) = "ma"
x$(220) = "pe"
x$(221) = "am"
x$(222) = " e"
x$(223) = "wi"
x$(224) = " l"
x$(225) = "lo"
x$(226) = " n"
x$(227) = " h"
x$(228) = "tr"
x$(229) = "om"
x$(230) = "ow"
x$(231) = "h "
x$(232) = "el"
x$(233) = "ch"
x$(234) = "pr"
x$(235) = ": "
x$(236) = "ec"
x$(237) = "ay"
x$(238) = "si"
x$(239) = "io"
x$(240) = "ur"
x$(241) = "yo"
x$(242) = " y"
x$(243) = "ac"
x$(244) = "li"
x$(245) = "ca"
x$(246) = " :"
x$(247) = "fo"
x$(248) = "ee"
x$(249) = "fi"
x$(250) = "di"
x$(251) = "Th"
x$(252) = "rs"
x$(253) = "ic"
x$(254) = " u"
x$(255) = "mo"
s$ = St$
FOR code% = 128 TO 255
DO
i% = INSTR(s$, x$(code%))
IF i% THEN
s$ = LEFT$(s$, i% - 1) + CHR$(code%) + MID$(s$, i% + LEN(x$(code%)))
END IF
LOOP WHILE i%
NEXT
StrSqu$ = s$
END FUNCTION