' *** LOWRCASE.LST *** 2nd GFA-Manual, page 7-3 FUNCTION lowercase$(txt$) ' ' *** Return string with all capitals converted to lower case ' *** Reverse of UPPER$ ' LOCAL i,a%,c| adr%=V:txt$ FOR i=0 TO PRED(LEN(txt$)) a%=ADD(adr%,i) c|=BYTE{a%} IF c|>=65 AND c|<=90 BYTE{a%}=BSET(c|,5) ENDIF NEXT i RETURN txt$ ENDFUNC ' ***** '