2 ! MAINTAINS LOCATION FILE!
5 ! PROGRAM NAME:"MTNLOC" - BY JAC
10 OPEN "DK1:GLFILE.LOC" AS FILE 1%
15 DIM #1%,L$(100%)=32%,L%(0%)
20 PRINT "LOCATION UPDATE PROGRAM":PRINT:N%=L%(0%)
25 PRINT "ENTER A 'D' TO DELETE A LOCATION CODE OR"
30 PRINT "AN 'I' TO INSERT A NEW LOCATION CODE."
35 INPUT "'I' OR 'D'";A$:IF A$="I" THEN 75
38 IF A$<>"D" THEN 35
40 INPUT "ENTER THE LOCATION CODE";A%
45 FOR K%=1% TO N%
50 IF A%<>VAL(LEFT(L$(K%),3%)) THEN 65
52 IF K%=N% THEN 60
55 L$(J%)=L$(J%+1%) FOR J%=K% TO N%-1%
60 N%=N%-1%:GOTO 90
65 NEXT K%
70 PRINT "UNABLE TO FIND CODE - FAILURE TO DELETE.":GOTO 90
75 INPUT "ENTER THE LOCATION CODE WITH LEADING ZEROS";L1$:IF LEN(L1$)<>3% THEN 75
80 INPUT "ENTER THE DESCRIPTION(29 CH OR LESS)      ";D$
82 IF LEN(D$)>29% THEN D$=LEFT(D$,29%):GOTO 85
84 D$=D$+SPACE$(29%-LEN(D$))
85 N%=N%+1%:L$(N%)=L1$+D$
90 INPUT "MORE UPDATES? - Y OR N";A$
95 IF A$="Y" THEN 35
97 IF A$<>"N" THEN 90
100 L%(0%)=N%:N%=N%-1%:GOSUB 250
102 OPEN "LP:" FOR OUTPUT AS FILE 2%
105 J%=1%:L2%=0%:N%=N%+1%:GOSUB 205
110 FOR K%=1% TO N%
115 L1$=LEFT(L$(K%),3%):D$=RIGHT(L$(K%),4%)
120 PRINT #2%,TAB(20%);L1$;TAB(35%);D$:PRINT #2%:L2%=L2%+2%
125 IF L2%<52% THEN 135
130 J%=J%+1%:L2%=0%:GOSUB 200
135 NEXT K%
140 PRINT #2%,TAB(15%);"NUMBER OF LOCATION CODES",N%
145 PRINT #2%,CHR$(12%)
150 CLOSE 1%,2%:STOP
200 PRINT #2%,CHR$(12%)
205 PRINT #2%,TAB(15%);"LOCATION CODE LISTING";TAB(45%);DATE$(0%);
210 PRINT #2%,TAB(60%);"PAGE ";J%:PRINT #2%
215 PRINT #2%,TAB(19%);"CODE";TAB(35%);"D E S C R I P T I O N":PRINT #2%
220 RETURN
250 FOR K%=1% TO N%
255 B%=VAL(LEFT(L$(K%+1%),3%)):IF VAL(LEFT(L$(K%),3%))<=B% THEN 290
260 T$=L$(K%+1%):L$(K%+1%)=L$(K%)
265 FOR J%=K% TO 2% STEP -1%
270 IF VAL(LEFT(L$(J%-1%),3%))<=B% THEN L$(J%)=T$:GOTO 290
275 L$(J%)=L$(J%-1%)
280 NEXT J%
285 L$(1%)=T$
290 NEXT K%
295 RETURN
300 END