home *** CD-ROM | disk | FTP | other *** search
/ The Best of the Best / _.img / 02192 / logbook.arc / DXPDNQSL.PRG < prev    next >
Text File  |  1987-12-24  |  3KB  |  91 lines
  1. * DXPDNQSL (c) G3ZCZ 1986
  2. * DXPEDITION SPECIAL, QSL'S ONE CONTACT PER BAND FOR EACH call IN LOG
  3. * will not print one for duplicates on each band
  4. * WILL NOT PRINT CONTEST OR ALREADY QSL'D
  5. * FOR 5 BANDS ONLY
  6.  
  7. USE &logbook INDEX &logndx
  8. STORE 'O' TO tqsl
  9. ACCEPT 'All QSOs or just those owed (A or O) ? ' TO tqsl
  10. * ASSUME SINGLE UNLESS TOLD OTHERWISE
  11. DO WHILE .NOT. EOF()
  12.    IF SUBSTR(call,1,1) <> '-' .AND. qslsent = '-'
  13.       IF tqsl = 'O' .AND. qslrx = 'R' .OR. tqsl = 'A'
  14.          STORE ' ' TO b1
  15.          STORE ' ' TO b2
  16.          STORE ' ' TO b3
  17.          STORE ' ' TO b4
  18.          STORE ' ' TO b5
  19.          STORE call TO tcall
  20.          DO WHILE call = tcall .AND. .NOT. EOF()
  21.             STORE .F. TO pqso
  22.             DISP
  23.             IF b1 = ' '
  24.                *FIRST QSO
  25.                STORE band TO b1
  26.                STORE .T. TO pqso
  27.             ELSE
  28.                IF band = b1
  29.                   *worked
  30.                ELSE
  31.                   IF b2 = ' '
  32.                      STORE band TO b2
  33.                      STORE .T. TO pqso
  34.                   ELSE
  35.                      IF band = b2
  36.                         *worked
  37.                      ELSE
  38.                         IF b3 = ' '
  39.                            STORE band TO b3
  40.                            STORE .T. TO pqso
  41.                         ELSE
  42.                            IF band = b3
  43.                               *worked
  44.                            ELSE
  45.                               IF b4 = ' '
  46.                                  STORE band TO b4
  47.                                  STORE .T. TO pqso
  48.                               ELSE
  49.                                  IF band = b4
  50.                                  ELSE
  51.                                     IF b5 = ' '
  52.                                        STORE band TO b5
  53.                                        STORE .T. TO pqso
  54.                                     ELSE
  55.                                        IF band = b5
  56.                                           *worked on all bands
  57.                                        ELSE
  58.                                           STORE band TO b5
  59.                                           STORE .T. TO pqso
  60.                                        ENDIF
  61.                                     ENDIF
  62.                                  ENDIF
  63.                               ENDIF
  64.                            ENDIF
  65.                         ENDIF
  66.                      ENDIF
  67.                   ENDIF
  68.                ENDIF
  69.             ENDIF
  70.             IF pqso
  71.                ?? '**QSL**'
  72.                REPLACE qslsent WITH 'B'
  73.                DO QSLPRINT
  74.             ENDIF
  75.             SKIP
  76.          ENDDO
  77.       ELSE
  78.          DISP
  79.          SKIP
  80.       ENDIF
  81.    ELSE
  82.       DISP
  83.       SKIP
  84.    ENDIF
  85. ENDDO
  86. USE
  87. RELEASE tcall,tband
  88. RELEASE b1,b2,b3,b4,b5,pqso,joe,label2,tqsl
  89. RETURN
  90.  
  91.