home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Hacker Chronicles 2
/
HACKER2.BIN
/
767.LOGSTAT.PRG
< prev
next >
Wrap
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