Advertisement
5 PHONE BOOKS
10 INPUT "FRIEND'S NAME";NAME$
20
A=O
30 IF A=10 THEN 90
40 READ NM$
50 READ PHONE$
60 IF NAME$=NM$ THEN PRINT PHONE$ :GOTO 120
70 A=A+1
80 GOTO 30
90 PRINT "NOT LISTED"
100 RESTORE
110 GOTO 10
120 END
130 DATA "FRED","693212"
140 DATA "ROB","613816"
150 DATA "RICK","813313"
160 DAT A "JAN", "35677"
170 DATA "JON","767654"
180 DATA "JOAN","54367"
190 DATA "THOMAS","93523"
200 DATA "JACK","63457"
210 DATA "DON","84573"
220 DATA "LONDON","65322"
52
Advertisement
