HOW'TO FILL text:
    READ line RAW
    WHILE line>'':
        PUT line IN text[#text+1]
        READ line RAW