CLS
PRINT "  +------------------------------------------+  "
PRINT "  |                                          |  "
PRINT "  |                 STRINGS                  |  "
PRINT "  |                                          |  "
PRINT "  |  A short string-handling demonstration.  |  "
PRINT "  |                                          |  "
PRINT "  +------------------------------------------+  "''


// Ask the user for some information, using INPUT.

INPUT "Please type in your name: " : name$
INPUT "Please type in your age: " : age

// Display the user's name in a fancy way.

CLS
indent (name$, age) // This procedure is defined below.
END


// This procedure prints out the given string in a
// strange triangular shape (run the program and see).

PROC indent (s$, size)
    IF LEN s$ < size THEN
        PRINT s$
        indent ("." + s$, size) // <--- ***
        PRINT s$
    ELSE
        PRINT "Hello there!"
    ENDIF
ENDPROC indent

// Can you see how 'indent' works?
// - The LEN function finds the length of a string.
// - Note that the procedure calls itself (***).