TELDIR

100 CLEAR 200
110 CLS: DIM T$(50)
120 L1=0
130 IF L1<50 THEN 160
140 PRINT@64,"TOO MANY TABLE ENTRIES,"
150 PRINT@96,"TELEPHONE DIRECTORY RUN ABORTED": STOP
160 L1=L1+1
170 READ T$(L1)
180 IF T$(L1)="-1" THEN L1=L1-1: GOTO200
190 GOTO130
200 CLS: PRINT@6,"TELEPHONE DIRECTORY"
210 PRINT@64,"ENTER A STRING OF DATA TO BE"
220 PRINT@96,"USED AS THE SEARCH KEY"
230 PRINT@160,"";: INPUT A$
240 CLS: PRINT@0,"SEARCH LIST": PRINT
250 T=0: PP=4
260 L3=LEN(A$)
270 FOR I=1 TO L1
280 J=0
290 L2-LEN(T$(I))
300 IF (J=>L2) OR (L3>(L2-J+1)) THEN 420
310 J=J+1
320 B$=MID$(T$(I),J,L3)
330 IF A$<>B$ THEN 300
340 T=T+1
350 C=INT((L2-1)/32)+1
360 IF (PP+(C*32))<480 THEN 400
370 PRINT@480,"PRESS ANY KEY TO CONTINUE";:
380 IF K$="" THEN 370
390 CLS: PP=64
400 PRINT@PP,T$(I)
410 PP=PP+(C*32)
420 NEXT I
430 IF T<1 THEN PRINT "NO MATCH FOUND"
440 PRINT@480,"PRESS R TO RESTART";: K$=INKEY$
450 IF K$="" THEN 440
460 IF K$="R" THEN 200
470 GOTO440
480 DATA "BARDEN, BILL (714) 555-1212"
490 DATA "PENNINGTON, HARV (714) 555-1000"
500 DATA "PASCAL, BLAISE (213) 555-2342"
510 DATA "HOLLERITH, H. (212) 355-2399"
520 DATA "BLECHMAN, FRED (213) 555-8765"
330 DATA "LUTZ, LEON (617) 555-9173"
540 DATA "SCROEDER, BILL (414) 555-9999"
550 DATA "E.T. (1) (%$$#) (2(&Z$) %)4-7#!&"
560 DATA -1