            DECLARE CELL 100 AS READPOS
            DECLARE 10 AS NEWLINE
            WRITE CHAR NEWLINE
            COPY "Hello, World" TO CELL 0
            COPY 0 TO READPOS
            WHILE READPOS INDIRECT DO GOSUB 300
            WRITE CHAR NEWLINE
            RETURN
LINE 300:   WRITE CHAR READPOS INDIRECT
            ADD 1 TO READPOS
            RETURN
        
        