Scroll bottom to top (for Andrew)

Andrew: I think this is more like what you are looking for. It's a variation of the Scroll to Top code I posted previously. This time it displays the newest string at the bottom and moves the previous ones up one line.


DIM linearray(24) AS STRING
CLS
DO
    LOCATE 25, 1
    PRINT "Enter string to display or nothing to stop."
    LOCATE 24, 1
    INPUT "", mystring$
    FOR x = 23 TO 1 STEP -1
        linearray(x) = linearray(x - 1)
    NEXT x
    linearray(1) = mystring$
    CLS
    FOR x = 24 TO 1 STEP -1
        PRINT linearray(x)
    NEXT x
LOOP UNTIL mystring$ = ""
END