Tandy 1000 Basic Reference Manual page 289

Chawter 10 I BASIC Kevwords
Sample Program
This program illustrates a common application for the READ
and DATA statements.
4 0 P R I N T "NAME", "AGE"
5 0 READ N $
6 0 I F N $ = " E N D " THEN P R I N T "END
OF L I S T " :
END
7 0 READ AGE
8 0 I F A G E < 1 8 THEN P R I N T N $ , AGE
9 0 G O T 0 5 0
1 0 0 DATFI " S M I T H , JOHN", 3 0 , "ANDERS, T . M . " 2 0
1 1 0 D A T A " J O N E S , B I L L " , 1 5 , "DOE, S A L L Y " , ; 1
1 2 0 D A T A " C O L L I N S , W . P . " , 1 7 , "END"
287