' Program Listing MINIMUM.BAS contains a FUNCTION called Min$
' that determins the lesser of the ASCII values of two text
' strings.

DECLARE FUNCTION Min$ (first$, second$)
REM ** Minimum of Two Strings **

REM ** Main Program **
CLS
DO
PRINT "(ESC) exits program"
  INPUT "First word"; string1$
  INPUT "Second word"; string2$
  PRINT Min$(string1$, string2$)
  keybd$ = INPUT$(1)
  IF keybd$ = CHR$(27) THEN SCREEN 2:  PRINT "Please Wait...": SYSTEM
  PRINT
LOOP
END

FUNCTION Min$ (first$, second$)
IF first$ <= second$ THEN
  Min$ = first$
ELSE
  Min$ = second$
END IF
END FUNCTION