BCX Console Demonstration Program S03.bas

 DIM A$
 
 A$ = There$("Hello")
 
 ? A$
 
 FUNCTION There$(C$)
 
   FUNCTION = UCASE$(C$) & " There"
 
 END FUNCTION