home *** CD-ROM | disk | FTP | other *** search
/ Between Heaven & Hell 2 / BetweenHeavenHell.cdr / 100 / 47 / qthsort.2 < prev    next >
Text File  |  1985-09-28  |  1KB  |  39 lines
  1. 10 REM QTHSORT
  2. 20 REM by Joe Kasser  G3ZCZ 1979
  3. 30 N = 100
  4. 40 DIM C1$((N*10)+10),L2(N),A2(N)
  5. 50 F$ = "QTHDATA" \  OPEN#1,F$
  6. 60 PRINT#Z1 "  CITY         LATITUDE  LONGITUDE (E)"
  7. 70 FOR I =  1 TO N
  8. 80 READ#1,C$,A,L1
  9. 90 C1$(I*10,(I*10)+10)=C$
  10. 100 L2(I)=L1
  11. 110 A2(I)=A
  12. 120 IF C$(1,1) =  "*" THEN EXIT 170
  13. 130 C$=C$+"          "
  14. 140 PRINT#Z1 C$,%10F2,ABS(A),\IF A<0 THEN PRINT#Z1, " S", ELSE PRINT#Z1, " N",
  15. 150 IF L1 < 0 THEN PRINT#Z1 %10F2, 360 + L1 ELSE PRINT#Z1 %10F2,L1
  16. 160 NEXT
  17. 170 I = I - 2  \ REM IGNORE * ENTRY
  18. 180 X = 0
  19. 190 FOR J = 1 TO I
  20. 200 J$ = C1$(J*10,(J*10)+10)
  21. 210 K$ = C1$((J+1)*10,((J+1)*10)+10)
  22. 220 IF J$ =< K$ THEN 300 
  23. 230 I$=K$
  24. 240      C1$((J+1)*10,((J+1)*10)+10) = J$
  25. 250 A5 = A2(J+1) \ A2(J+1) = A2(J) \ A2(J) = A5
  26. 260 A5 = L2(J+1) \ L2(J+1) = L2(J) \ L2(J) = A5
  27. 270      C1$(J*10,(J*10)+10) = I$
  28. 280 PRINT K$,J$
  29. 290 X = 1
  30. 300 NEXT
  31. 310 IF X = 1 THEN 180
  32. 320 OPEN #2,F$
  33. 330 FOR J = 1 TO I + 1
  34. 340 PRINT#Z1, C1$(J*10,(J*10)+9),%10F2,A2(J),%10F2,L2(J)
  35. 350 WRITE#2, C1$(J*10,(J*10)+10),A2(J),L2(J)
  36. 360 NEXT
  37. 370 WRITE#2,"*",0,0
  38. 380 CLOSE#2 \ CLOSE#1
  39.