HAM Radio 1/HamRadio.cdr/misc/c3zcz_15/logstat.prg

Text File | 1985-09-28 | 6KB | 248 lines

*LOGSTAT 850923 COPYRIGHT JOE KASSER G3ZCZ 1985
* GENERATES STATISTICS ABOUT CONTACTS
* called from LOGBOOK

STORE 0 TO qslrxcount
STORE 0 TO qsltxcount
STORE 0 TO qslowed
STORE 0 TO qsldirect
STORE 0 TO qslbureau
STORE 0 TO qslmngr
STORE 1 TO qsonumber
STORE 0 TO ten
STORE 0 TO fifteen
STORE 0 TO twenty
STORE 0 TO forty
STORE 0 TO eighty
STORE 0 TO onesixty
STORE 0 TO two
STORE 0 TO whatisit
STORE 0 TO modessb
STORE 0 TO modecw
STORE 0 TO modertty
STORE 0 TO modefm
STORE 0 TO modea
STORE 0 TO modeb
STORE 0 TO modej

USE &logbook
ERASE
@ 1,10 SAY 'G3ZCZ LOG SUMMARY PROGRAM IN PROGRESS'
@ 4,1 SAY 'QSL SUMMARY'
@ 5,1 SAY '--------------------------------'
@ 6,1 SAY 'TOTAL NUMBER OF CONTACTS'
@ 7,1 SAY 'QSL CARDS SENT DIRECT'
@ 8,1 SAY 'QSL CARDS SENT VIA BUREAU'
@ 9,1 SAY 'QSL CARDS SENT VIA MANAGERS '
@ 10,1 SAY 'QSL CARDS SENT '
@ 11,1 SAY 'QSL CARDS RECEIVED'
@ 12,1 SAY 'QSL CARDS OWED'

@ 4,40 SAY 'SUMMARY OF ENTRIES BY BAND'
@ 5,40 SAY '---------------------------'
@ 6,40 SAY '10  METERS'
@ 7,40 SAY '15  METERS'
@ 8,40 SAY '20  METERS'
@ 9,40 SAY '40  METERS'
@ 10,40 SAY '80  METERS'
@ 11,40 SAY '160 METERS'
@ 12,40 SAY ' 2  METERS'
@ 13,40 SAY 'OSCAR MODE A'
@ 14,40 SAY 'OSCAR MODE B '
@ 15,40 SAY 'OSCAR MODE J'
@ 16,40 SAY 'OTHERS'
@ 18,1 SAY 'REPORT BY MODES'
@ 19,1 SAY '-------------------------'
@ 20,1 SAY 'SSB CONTACTS'
@ 21,1 SAY 'CW CONTACTS'
@ 22,1 SAY 'RTTY CONTACTS'
@ 23,1 SAY 'FM CONTACTS'

DO WHILE .NOT. EOF
   @ 2,1  SAY call
   @ 2,12 SAY date
   @ 2,22 SAY time

   IF qslsent = '-'
   ELSE
      STORE qsltxcount + 1 TO qsltxcount
      @ 10,27 SAY qsltxcount
   ENDIF

   IF qslrx = '-'
      * sum cards owed only
      IF qslsent = 'B'
         STORE qslbureau + 1 TO qslbureau
         @ 8,27 SAY qslbureau
      ENDIF
      IF qslsent = 'D'
         STORE qsldirect + 1 TO qsldirect
         @ 7,27 SAY qsldirect
      ENDIF
      IF qslsent = 'M'
         STORE qslmngr + 1 TO qslmngr
         @ 9,27 SAY qslmngr
      ENDIF
   ELSE
      STORE qslrxcount + 1 TO qslrxcount
      @ 11,27 SAY qslrxcount
      IF qslsent = '-'
         STORE qslowed + 1 TO qslowed
         @ 12,27 SAY qslowed
      ENDIF
   ENDIF

   * now don't count contest title entries
   IF $(call,1,1) = '-'
   ELSE
      STORE qsonumber + 1 TO qsonumber
   ENDIF

   DO CASE
      CASE band = '10'
           STORE ten + 1 TO ten
           @ 6,60 SAY ten

      CASE band = '20'
           STORE twenty + 1 TO twenty
           @ 8,60 SAY twenty

      CASE band = '40'
           STORE forty + 1 TO forty
           @ 9,60 SAY forty

      CASE band = '15'
           STORE fifteen + 1 TO fifteen
           @ 7,60 SAY fifteen

      CASE band = '75'
           STORE eighty + 1 TO eighty
           @ 10,60 SAY eighty
           * 75 and 80 Meters are part of same band

      CASE band = '80'
           STORE eighty + 1 TO eighty
           @ 10,60 SAY eighty

      CASE band = '160'
           STORE onesixty + 1 TO onesixty
           @ 11,60 SAY onesixty

      CASE band = '2'
           STORE two + 1 TO two
           @ 12,60 SAY two

      CASE band = 'A'
           STORE modea + 1 TO modea
           @ 13,60 SAY modea

      CASE band = 'B'
           STORE modeb + 1 TO modeb
           @ 14,60 SAY modeb

      CASE band = 'J'
           STORE modej + 1 TO modej
           @ 15,60 SAY modej

      OTHERWISE
           IF CALL = '-CONTEST'
           ELSE
           STORE whatisit  + 1 TO whatisit
           @ 16,60 SAY whatisit
        ENDIF
      ENDCASE

   DO CASE
      CASE mode = "SSB"
           STORE modessb + 1 TO modessb
           @ 20,21 SAY modessb

      CASE mode = "CW"
           STORE modecw + 1 TO modecw
           @ 21,21 SAY modecw

      CASE mode = "RTTY"
           STORE modertty + 1 TO modertty
           @ 22,21 SAY modertty

      CASE mode = "FM"
           STORE modefm + 1 TO modefm
           @ 23,21 SAY modefm
   ENDCASE
   SKIP
@ 6,27 SAY qsonumber
ENDDO
@ 24,1 SAY ' '
WAIT
ERASE

* print summary
* first compensate for last increment
STORE qsonumber - 1 TO qsonumber
STORE ' ' TO df
ACCEPT ' Do you want hard copy of summary (Y/N) ? ' TO df
IF $(df,1,1) = 'Y'
   SET PRINT ON
ENDIF

? 'QSL SUMMARY'
?
? 'TOTAL NUMBER OF CONTACTS    '
?? qsonumber
? 'QSL CARDS SENT DIRECT       '
?? qsldirect
? 'QSL CARDS SENT VIA BUREAU   '
?? qslbureau
? 'QSL CARDS SENT VIA MANAGERS '
?? qslmngr
? 'QSL CARDS SENT              '
?? qsltxcount
? 'QSL CARDS RECEIVED          '
?? qslrxcount
? 'QSL CARDS OWED              '
?? qslowed
?
?
?
? 'SUMMARY OF ENTRIES BY BAND'
?
? '10 METERS                  '
??  ten
? '15 METERS                  '
??  fifteen
? '20 METERS                  '
??  twenty
? '40 METERS                  '
??  forty
? '80 METERS                  '
??  eighty
? '160 METERS                 ',onesixty
? ' 2 METERS                  '
??  two
? 'OSCAR MODE A               ',modea
? 'OSCAR MODE B               ',modeb
? 'OTHERS                     '
?? whatisit

?
?
? 'REPORT BY MODES'
?
? modessb
?? 'SSB CONTACTS'
? modecw
?? 'CW CONTACTS'
? modertty
?? 'RTTY CONTACTS'
? modefm
?? 'FM CONTACTS'

EJECT
SET PRINT OFF
WAIT

RELEASE qslrxcount,qsltxcount,qslowed,qsldirect,qslbureau,qslmngr
RELEASE df,qsonumber,ten,fifteen,twenty,forty,eighty,two,whatisit
RELEASE modessb,modecw,modertty,modefm,onesixty,modea,modeb,modej
RETURN