10 DIM A$[1],X1$[50],X2$[50]
20 INPUT "SORT BY (N)AME OR (A)DDRESS ";A$
30 IF A$="A" OR A$="N" THEN  GOTO 50
40 PRINT "PLEASE ANSWER 'N' OR 'A' " : GOTO 20
50 DIM #3, NN%(1)
55 OPEN #3, "FON.DAT/RO/BL"
60 NR=NN%(0)-2
65 CLOSE 3
70 OPEN #3, "FON.DAT/RO"
75 OPEN #4, "FON.TMP/WR/FX/LN:50"
80 INPUT LINE #3, X1$
90 FOR I=1 TO NR
100 INPUT LINE #3, X2$
110 PRINT #4, X2$
120 NEXT I
125 CLOSE 4
130 B=0
140 IF A$="N" THEN  CALL "SPAWNB"("SRT FON.SRT=FON.TMP/SI:50/PR:R/KE:1.24",B)
150 IF A$="A" THEN  CALL "SPAWNB"("SRT FON.SRT=FON.TMP/SI:50/PR:R/KE:21.20",B)
160 CLOSE 3
180 OPEN #4, "FON.DAT/FX/LN:50/WR"
190 PRINT #4, X1$
195 OPEN #3, "FON.SRT/RO"
200 FOR I=1 TO NR
210 INPUT LINE #3, X2$
220 PRINT #4, X2$
230 NEXT I
240 CLOSE
250 B=0 : CALL "SPAWNB"("PIP FON.SRT;*,FON.TMP;*/DE",B)
260 EXIT 
