10 MEMORY,,,340
20 esc$ = CHR$(27)
30 rev$ = esc$ + "p" : nrm$ = esc$ + "q" : hom$ = esc$ +"H" : a$ = esc$ + "E" + hom$
40 on$ = esc$ + "e" : of$ = esc$ + "f"
50 DEF FNat$(x,y,a$) = esc$ + "Y" + CHR$(31 + y) + CHR$(31+x) + a$
60 GOTO 120
70 PRINT : PRINT : PRINT : PRINT"                           ";p$
80 an$ = INKEY$ : WHILE an$ = "" : an$ = INKEY$ : WEND
90 an = INSTR(m$,an$) : IF an = 0 THEN 80 ELSE RETURN
100 PRINT a$ : CLOSE : SYSTEM
110 PRINT a$ : CLOSE : END
120 PRINT a$ : p$ = "SYSTEM  END  or RUN  S/E/R " : m$ = "SsEeRr" : GOSUB 70
130 ON an GOTO 100,100,110,110,220,220
140 PRINT : PRINT : PRINT : PRINT "           CREATING EMPTY FILE   PLEASE WAIT "
150 OPEN "R",f%,"LABEL.RND",340
160 FIELD f%,255 AS re$
170 LSET re$ = ""
180 FOR f = 1 TO 500
190 PUT f%
200 NEXT
210 RETURN
220 PRINT a$ : f% = 1 
230 IF FIND$("LABEL.RND") = "" THEN GOSUB 140 ELSE OPEN "R",f%,"LABEL.RND",340
240 FIELD f%,25 AS r.n$,20 AS r.ph$,20 AS r.te$,25 AS r.a1$,25 AS r.a2$,25 AS r.a3$,25 AS r.a4$,25 AS r.a5$,25 AS r.a6$,25 AS r.pro$,25 AS r.co$,25 AS cm1$,25 AS cm2$,25 AS cm3$
250 FIELD f%,255 AS re$
260 p$ = "CREATE AMEND LIST END " : m$ = "CcAaLlEe" : GOSUB 70
270 ON an GOSUB 400,400,930,930,990,990,120,120
280 GOTO 260
290 PRINT : PRINT :PRINT "ADDRESS FILE  No "F
300 PRINT
310 PRINT "NAME "r.n$"    CONTACT "r.co$"    PHONE "r.ph$
320 PRINT "ADDRESS (1) "r.a1$"             PRODUCT "r.pro$
330 PRINT "        (2) "r.a2$"         COMMENT (1) "r.cm1$
340 PRINT "        (3) "r.a3$"         COMMENT (2) "r.cm2$
350 PRINT "        (4) "r.a4$"         COMMENT (3) "r.cm3$
360 PRINT "        (5) "r.a5$
370 PRINT "        (6) "r.a6$"          TELEX   "r.te$
380 PRINT
390 RETURN
400 FOR F = 1 TO 500
410 GET F%,F
420 IF r.n$ = STRING$(25," ") THEN GOSUB 460 ELSE 450
430 p$ = "MORE " : m$ = "YyNn" : GOSUB 70
440 IF an > 2 THEN 260 
450 NEXT
460 PRINT "ADDRESS FILE No ";F
470 INPUT "    NAME ";n$
480 INPUT " CONTACT ";co$
490 INPUT "   PHONE ";ph$
500 INPUT " PRODUCT ";pro$
510 INPUT "   TELEX ";te$
520 INPUT "ADDRESS 1 ";a1$
530 INPUT "ADDRESS 2 ";a2$
540 INPUT "ADDRESS 3 ";a3$
550 INPUT "ADDRESS 4 ";a4$
560 INPUT "ADDRESS 5 ";a5$
570 INPUT "ADDRESS 6 ";a6$
580 INPUT "COMMENT 1 ";cm1$
590 INPUT "COMMENT 2 ";cm2$
600 INPUT "COMMENT 3 ";cm3$
610 p$ = " CORRECT  Yes  No " : m$ = "YyNn" : GOSUB 70
620 IF an >2 THEN 470
630 IF n$="" THEN 650
640 LSET r.n$ = n$
650 IF co$="" THEN 670
660 LSET r.co$ = co$ 
670 IF ph$="" THEN 690
680 LSET r.ph$ = ph$
690 IF pro$="" THEN 710
700 LSET r.pro$ = pro$
710 IF te$="" THEN 730
720 LSET r.te$ = te$
730 IF a1$="" THEN 750
740 LSET r.a1$ = a1$ 
750 IF a2$="" THEN 770
760 LSET r.a2$ = a2$
770 IF a3$ = "" THEN 790
780 LSET r.a3$ = a3$
790 IF a4$ = "" THEN 810
800 LSET r.a4$ = a4$
810 IF a5$ = "" THEN 830
820 LSET r.a5$ = a5$
830 IF a6$ = "" THEN 850
840 LSET r.a6$ = a6$
850 IF cm1$="" THEN 870
860 LSET r.cm1$ = cm1$
870 IF cm2$="" THEN 890
880 LSET r.cm2$ = cm2$
890 IF cm3$="" THEN 910
900 LSET r.cm3$ = cm3$ 
910 PUT F%,F
920 RETURN
930 INPUT "FILE TO AMEND";f
940 GET f%,f
950 GOSUB 290
960 p$="CHANGE , DELETE , PRINT , SKIP ":m$="CcDdPpSs":GOSUB 70
970 ON an GOSUB 460,460,1110,1110,1140,1140
980 GOTO 260
990 j=0
1000 FOR f = 1 TO 52
1010 GET f%,f
1020 GOSUB 290
1030 j=j+1
1040 IF j=2 THEN GOTO 1070
1050 NEXT
1060 GOTO 260
1070 j=0
1080 PRINT"	PRESS ANY KEY TO CONTINUE  or  E  or e to END"
1090 an$=INKEY$:WHILE an$="":an$=INKEY$:WEND
1100 IF an$="E" OR an$="e" THEN 260 ELSE 1050 
1110 LSET re$=""
1120 PUT f%,f
1130 GOTO 260
:WHILE an$="":an$=INKEY$:WEND
1100 IF an$="E" OR an$="e" THEN 260 ELSE 1050 
1110 LSET re$=""
1120 PUT f%,f
1