P0 (DEFINE MORE 21 VARIABLES WITH COMMAND "DEFM 21") 2 IF A=0;B=14:GOTO 7 3 GOSUB#9 4 FOR B=0 TO A-1 5 IF D$(B)=C$ THEN 7 6 NEXT B:B=14 7 $=R$(2*B)+R$(2*B+1) 8 PRINT $: GOTO 2 P1 3 IF A>=14 THEN 11 4 GOSUB#9 5 D$(A)=C$:$="":INPUT "TEL-NO",$ 6 B$=LEN($):R$(2*A+1)=R$(29) 7 IF B>14 THEN 11 8 IF B>7;R$(2*A)=MID(1,7):R$(2*A+1)=MID(8):GOTO 10 9 R$(2*A)=MID(1) 10 A=A+1:GOTO 3 11 PRINT "OVF":GOTO 3 P2 1 A=A+1:D$(B)=D$(A) 2 FOR C=0 TO 1 3 R$(2*B+C)=R$(2*A+C) 4 NEXT C:GOTO #0 P3 1 PRINT "T-LIST" 2 VAC 3 R$(28)="NO NAME":R$(29)="":GOTO #1 P9 1 INPUT "NAME ",C$:RETURN