AmstradCPC6128-hypertext-en-Sinewalker

Final listing:
10 REM teLephone book
20 DIM NAME$(100)
30 DIM TEL$(100)
40 MODE 1
50 WINDOW #1,13,30,10,14
60 PRINT #1,"1. enter info"
70 PRINT #1,"2. List info"
80 PRINT #1,"3. search"
90 PRINT #1,"4. save info"
100 PRINT #1,"5. Load info"
110 LOCATE 7,25
120 INPUT "enter menu seLection";ms
130 CLS
140 ON ms GOSUB 190,290,350,430,500
150 LOCATE 9,25
160 PRINT "press any key for menu"
170 IF INKEY$="" THEN 170
180 GOTO 40
190 FOR x=1 TO 100
200 CLS
210 IF LEN(NAME$(x))>0 THEN 260
220 PRINT "press [RETURN] to end input"
230 INPUT;" name";NAME$(x)
240 IF NAME$(x)="" THEN 270
250 INPUT" phone";TEL$(x)
260 NEXT
270 PRINT "no more input"
280 RETURN
290 FOR x=1 TO 100
300 IF NAME$(x)="" THEN 330
310 PRINT NAME$(x);" ";TEL$(x)
320 NEXT
330 PRINT "List finished"
340 RETURN
350 INPUT "find";SEARCH$
360 FOR x=1 TO 100
370 IF INSTR(NAME$(x),SEARCH$)=0 THEN 400
380 PRINT NAME$(x);" ";TEL$(x)
390 RETURN
400 NEXT
410 PRINT "name not found"
420 RETURN
430 OPENOUT "data"
Beyond Foundations Chapter 2 Page 13