home *** CD-ROM | disk | FTP | other *** search
/ HAM Radio 1 / HamRadio.cdr / misc / pc-hamd3 / update.prg < prev    next >
Text File  |  1985-10-02  |  3KB  |  125 lines
  1. *LOGUPDATE VERSION 850911 COPYRIGHT JOE KASSER G3ZCZ 1985
  2. *UTILITY TO ENTER CONTEST LOG DATA INTO DATABASE BY HAND
  3.  
  4. USE &logbook
  5.  
  6. STORE T TO callflag
  7.  
  8. GOTO BOTTOM
  9. STORE call TO lastcall
  10.  
  11. *INITIALISE NEW VARIABLES
  12. STORE date TO ndate
  13. STORE time TO ntime
  14. STORE band TO nband
  15. STORE power TO npower
  16. STORE mode TO nmode
  17. STORE rx TO nrx
  18. STORE tx TO ntx
  19.  
  20.  
  21. *MAIN LOOP
  22. DO WHILE callflag
  23.    ERASE
  24.    STORE "-" TO nqslsent 
  25.    STORE "-" TO nqslrx
  26.    STORE "          " TO ncall
  27.    STORE "          " TO ncomments
  28.    STORE " " TO logflag
  29.    STORE T TO dataflag
  30.    @ 4,1 SAY 'NOTE, leave space between number and data in comments if'
  31.    @ 5,1 SAY 'MODE = SSB (eg 59 100)'
  32.    DO WHILE dataflag
  33.       @ 10,1  SAY "LAST CONTACT WAS"
  34.       @ 10,20 SAY lastcall
  35.       @ 12,1  SAY "DATE"
  36.       @ 13,1  SAY "TIME"
  37.       @ 14,1  SAY "CALL"
  38.       @ 15,1  SAY "BAND"
  39.       @ 16,1  SAY "POWER"
  40.       @ 17,1  SAY "MODE"
  41.       @ 18,1  SAY "REPORT (RX)"
  42.       @ 19,1  SAY "REPORT (TX)"
  43.       @ 20,1  SAY "COMMENTS"
  44.       @ 23,1  SAY "Logit (*BL)"
  45.  
  46.       @ 12,13 SAY ndate
  47.       @ 15,13 SAY nband
  48.       @ 16,13 SAY npower
  49.       @ 17,13 SAY nmode
  50.       @ 18,13 SAY nrx
  51.       @ 19,13 SAY ntx
  52.  
  53.       @ 13,13 GET ntime
  54.       @ 14,13 GET ncall
  55.       @ 20,13 GET ncomments
  56.       @ 23,13 GET logflag
  57.       READ
  58.  
  59.       DO CASE
  60.  
  61.          CASE logflag = "*"
  62.             STORE F TO callflag
  63.             STORE F TO dataflag
  64.  
  65.  
  66.          CASE logflag = "L"
  67.             *LOG ENTRY
  68.             APPEND BLANK
  69.             STORE   F          TO   dataflag
  70.             REPLACE qslsent    WITH nqslsent
  71.             REPLACE qslrx      WITH nqslrx
  72.             REPLACE date       WITH ndate
  73.             REPLACE time       WITH ntime
  74.             REPLACE call       WITH ncall
  75.             REPLACE band       WITH nband
  76.             REPLACE power      WITH npower
  77.             REPLACE mode       WITH nmode
  78.             REPLACE rx         WITH nrx
  79.             REPLACE tx         WITH ntx
  80.             REPLACE comments   WITH ncomments
  81.             STORE call         TO   lastcall
  82.             STORE "          " TO   ncall
  83.             STORE "          " TO   ncomments
  84.  
  85.          CASE logflag = 'B'
  86.             @ 15,12 GET nband
  87.  
  88.       ENDCASE
  89.    ENDDO
  90. ENDDO
  91. ?
  92. ?
  93. STORE ' ' TO df
  94. ACCEPT 'Is this the last entry in the whole log (Y/N) ?  ' TO df
  95. IF df = 'Y'
  96.    ? 'Formatting the log now,'
  97.    ?
  98.    ACCEPT 'Do you want the contacts numbered' TO df
  99.    STORE 1 TO qsocount
  100.    GOTO TOP
  101.    DO WHILE .NOT. EOF
  102.       REPLACE rx WITH $(comments,1,3)
  103.       REPLACE comments WITH $(comments,4,10)
  104.       IF df = 'Y'
  105.       STORE STR(qsocount,10) TO number
  106.          DO WHILE $(number,1,1) = ' '
  107.              STORE $(number,2,10) TO number
  108.          ENDDO
  109.          REPLACE comments WITH TRIM(number)+'-'+comments
  110.          STORE qsocount + 1 TO qsocount
  111.       ENDIF
  112.       DISP
  113.       SKIP
  114.    ENDDO
  115.    ?
  116.    ? 'Indexing logbook, please standby'
  117.    INDEX ON call TO &logbook
  118. ENDIF
  119. * GET READY TO EXIT
  120. RELEASE df,callflag,lastcall,ndate,ntime,nband,npower
  121. RELEASE nmode,nrx,ntx,nqslsent,nqslrx,ncall,ncomments
  122. RELEASE logflag,dataflag,qsocount,number
  123.  
  124. RETURN
  125.