String

10 REM > BLib.String 1.00 09Aug1998

20 :

30 REM String Manipulation Functions

40 REM =============================

50 :

60 REM FNs() - strip spaces from start and end of string

70 REM -------------------------------------------------

80 DEFFNs(A$):IFLEFT$(A$,1)=" ":REPEATA$=MID$(A$,2):UNTILLEFT$(A$,1)<>" "

90 IFRIGHT$(A$,1)=" ":REPEATA$=LEFT$(A$,LENA$-1):UNTILRIGHT$(A$,1)<>" "

100 =A$

110 :

120 REM FNuc() - convert string to upper case

130 REM -------------------------------------

140 DEFFNuc(A$):LOCAL B$:IFA$="":=""

150 REPEATB$=B$+CHR$(ASCA$AND((A$<"@")OR&DF)):A$=MID$(A$,2):UNTILA$="":=B$

160 :

170 REM FNlc() - convert string to lower case

180 REM -------------------------------------

190 DEFFNlc(A$):LOCAL B$:IFA$="":=""

200 REPEATB$=B$+CHR$(ASCA$OR((A$<"_")AND&20)):A$=MID$(A$,2):UNTILA$="":=B$

210 :