HAM Radio 1/HamRadio.cdr/misc/pc_ham3/dxccsort.bas

BASIC Source File | 1985-09-22 | 1.6 KB | 55 lines

10 REM DXCCSORT Version 820909 COPYRIGHT JOE KASSER G3ZCZ 1982
20 ON ERROR GOTO 440
30 M = 350
40 DIM P$(M),C$(M),B$(M),M$(M),T(M),Q(M),D$(M)
50 INPUT "Which DXCC record file " ; F$
60 IF LEN(F$) = 0 THEN 50
70 OPEN"I",#2,F$ + ".DX"
80 OPEN "O",#1,F$ + ".$$$"
90 IF EOF(2) THEN 150
100 INPUT#2,P$,C$,B$,M$,D$,T,Q
110 I = I + 1
120 P$(I) = P$ : C$(I) = C$ : B$(I) = B$ : M$(I) = M$
130 D$(I) = D$ : T(I) = T : Q(I) = Q
140 GOTO 90
150 CLOSE #2
160 PRINT "THERE ARE";I;" ENTRIES IN THE FILE"
170 PRINT "LIST IS LOADED, SORT BEGINING"
180 N = 1
190 B = 0
200 FOR J = 1 TO I - N
210 IF P$(J) <= P$(J+1) THEN 320
220 X$ = P$(J+1) : P$(J+1) = P$(J) : P$(J) = X$
230 X$ = C$(J+1) : C$(J+1) = C$(J) : C$(J) = X$
240 X$ = B$(J+1) : B$(J+1) = B$(J) : B$(J) = X$
250 X$ = M$(J+1) : M$(J+1) = M$(J) : M$(J) = X$
260 X$ = D$(J+1) : D$(J+1) = D$(J) : D$(J) = X$
270 X = T(J+1) : T(J+1) = T(J) : T(J) = X
280 X = Q(J+1) : Q(J+1) = Q(J) : Q(J) = X
290 B = 1
300 N = N + 1
310 PRINT P$(J),P$(J+1)
320 NEXT J
330 IF B = 1 THEN 180
340 PRINT "LIST IS SORTED"
350 FOR J = 1 TO I
360 PRINT P$(J),C$(J)
370 PRINT#1, P$(J);",";C$(J);",";B$(J);",";M$(J);",";D$(J);",";T(J);",";Q(J)
380 NEXT
390 CLOSE#1
400 KILL F$ + ".BAK"
410 NAME F$ + ".DX"  AS F$ + ".BAK"
420 NAME F$ + ".$$$" AS F$ + ".DX"
430 GOTO 490
440 ON ERROR GOTO 440
450 IF ERR = 53 AND ERL = 400 THEN RESUME 410
460 IF ERL = 70 THEN RESUME 500
470 IF ERL = 390 AND ERR = 61 THEN PRINT "DISK IS FULL"
480 RESUME 490
490 END
500 PRINT "FILE DOES NOT EXIST" : GOTO 50

470 IF ERL = 390 AND ERR = 61 THEN PRINT "DISK IS FULL"
480 RESUME 490
490 END
500 PRINT "FILE DOES NOT