0010 SUB FILEFIX(#1,#4)
0020 DIM A$[80]
0030 READ #1,1;E @ READ #1,3;D,D @ READ #1,4;A,B,C
0040 A$="B"
0050 IF D=2 THEN A$="N"
0060 IF D=3 THEN A$="S"
0070 USER OFF
0080 INPUT "Max Pts ",STR$(E);E$ @ S=VAL(E$)
0090 INPUT "Brg/N.Az/S.Az? ",A$;A$
0100 IF A$[1,1]="N" THEN D=2 @ GOTO 140
0110 IF A$[1,1]="B" THEN D=1 @ GOTO 140
0120 IF A$[1,1]="S" THEN D=3 @ GOTO 140
0130 GOTO 90
0140 ON ERROR GOTO 140 @ INPUT "SEC #DEC(0-2)? ",STR$(A);A$
0150 IF VAL(A$)<0 THEN A$="0"
0160 IF VAL(A$)>2 THEN A$="2"
0170 A=VAL(A$)
0180 ON ERROR GOTO 180 @ INPUT "COORDS #DEC(0-5)? ",STR$(B);A$
0190 IF VAL(A$)<0 THEN A$="0"
0200 IF VAL(A$)>9 THEN A$="9"
0210 B=VAL(A$)
0220 ON ERROR GOTO 220 @ INPUT "DIST #DEC(0-5)? ",STR$(C);A$
0230 IF VAL(A$)<0 THEN A$="0"
0240 IF VAL(A$)>5 THEN A$="5"
0250 C=VAL(A$)
0260 OFF ERROR
0270 PRINT #1,0;"HPAFNNN"
0280 PRINT #1,1;S
0290 PRINT #1,2;S+5
0300 PRINT #1,3;1,D,5
0310 PRINT #1,4;A,B,C
0320 IF S<=E THEN GOTO 480
0330 FOR I=E+6 TO S+5 @ PRINT #1,I;-999999,-999999,-999999
0340 DISP I-4
0350 NEXT I
0360 IF NOT FLAG(2) THEN GOTO 480
0370 INPUT "Expand Desc File? ","Yes";A$
0380 IF A$[1,1]="N" THEN GOTO 480
0390 IF A$[1,1]="Y" THEN GOTO 400 ELSE GOTO 370
0400 READ #4,0;A
0410 READ #4,E;A$[1,A]
0420 A$[A,A]=" "
0430 PRINT #4,E;A$[1,A]
0440 FOR I=E+1 TO S
0450 PRINT #4,I;A$[1,A]
0460 DISP I
0470 NEXT I
0480 USER ON
0490 END SUB 
