10 CLEAR 1000:QQ$=CHR$(27)+CHR$(27)
20 DEFFNLN$(A$,B)=STR$(B+VAL(A$))+" "
30 LINE INPUT"ENTER NAME:";A$:PRINTQQ$:FF=0:F=0:RESTORE
40 IF A$="$$$LIST" THEN FF=-1
50 IF A$="$$$SAVE" THEN PRINT"SAVING":SAVE"TELDIR",A
60 IF A$="$$$END" THEN NEW
70 READ N$
80 IF N$="$$$END" THEN 120
90 READ AD$,PH$
100 IF INSTR(N$,A$) OR FF THEN F=-1:PRINTN$,:IF NOT FF THENPRINT:PRINTAD$:PRINTPH$:PRINT"-------------"
110 GOTO 70
120 IF F THEN 30
130 INPUT"ADD (N OR ADDRESS)";AD$:N$=A$
140 IF AD$="N" THEN PRINTQQ$:GOTO 30
150 INPUT"PHONE";PH$
160 OPEN"I",1,"TELDIR"
170 OPEN"O",2,"TELDIR/OUT"
180 LINEINPUT#1,A$
190 IF VAL(A$,6)="$$$END" THEN 220
200 PRINT#2,A$
210 GOTO 180
220 PRINT#2,FNLN$(A$,0)+"DATA "+N$+","+AD$+","+PH$
230 PRINT#2,FNLN$(A$,10)+"DATA $$$END"
240 CLOSE:KILL"TELDIR":CMD"RENAME TELDIR/OUT TELDIR"
250 RUN"TELDIR"
280 DATA BEV KRESS,1336 LIMERICK,HOME=996-9446 WORK=990-9281
290 DATA KARL RYAN,????,839-1949
300 DATA FINDNUM,FIND # CALLING FROM,410-2222222
310 DATA PAUL TREZISE,1138 N PARADISE ST.,778-3164
320 DATA NEVILLE TREZISE,1138 N PARADISE ST.,778-3164
330 DATA OWEN SHANNON,????,754-1500
340 DATA TOM ORR/SPARKY,249 JUANTIA WAY
PLACENTIA CA
92670,528-9822
350 DATA BILL KRESS,APT E. GLENDALE 91205,246-2931
360 DATA MISSY MOTT,????,996-0038
370 DATA SEAN ROBINSON,601 LUCERNE AVE.,993-6286
380 DATA CHRIS WILEY,1330 LIMERICK,524-0078
390 DATA MIKE DOYEL,1337 LIMERICK,524-0808
400 DATA NOISE1,UP&DOWN NOISE,524-0003
410 DATA NOISE2,STEADY NOISE,524-0002
420 DATA PETER HOHENBRINK,1231 SALVADOR DR. N.,993 4441
430 DATA GREG EAKIN,1048 SAN FERNANDO,996-9458
440 DATA BEN SHAFER,????,528 6523
460 DATA $$$END
