DEF readData VAR S$ RESTORE @LAB WHILE 1 READ S$ IF S$=="" THEN BREAK ? S$ WEND RETURN @LAB DATA "h","e","l","l","o" DATA "" END readData