home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
HAM Radio 1
/
HamRadio.cdr
/
misc
/
pc-hamd3
/
logcall.prg
< prev
next >
Wrap
Text File
|
1985-09-28
|
2KB
|
59 lines
* LOGCALL THIS PROGRAM PRINTS A LOG IN CALL ORDER VER 850927
* copyright Joe Kasser G3ZCZ 1984
* program to print logbook
* called from LOGBOOK
* STRUCTURE FOR FILE: B:LOG .DBF
* FLD NAME TYPE WIDTH DEC
* 001 DATE C 008
* 002 TIME C 004
* 003 BAND C 003
* 004 CALL C 010
* 005 RX C 003
* 006 TX C 003
* 007 MODE C 004
* 008 POWER C 004
* 009 QSLSENT C 001
* 010 QSLRX C 001
* 011 COMMENTS C 010
STORE ' ' TO df
ACCEPT 'Do you want hard copy (Y/N) ?' TO df
IF df = 'Y'
SET PRINT ON
ENDIF
STORE 60 TO linecount
STORE 1 TO pagecount
USE &LOGBOOK
GOTO BOTTOM
STORE date TO tdate
SET INDEX TO &logbook
DO WHILE .NOT. EOF
IF linecount > 50
EJECT
? 'INDEXED LOGBOOK PRINTOUT '
?? callsign,' as of ',TDATE,' PAGE ',pagecount
STORE pagecount + 1 to pagecount
?
?
? ' CALL DATE TIME BND RX TX MODE PWR S R COMMENTS'
? '--------------------------------------------------------------------'
STORE 3 to linecount
ENDIF
* now print entries
? call,date,time,band,rx,tx,mode,power,qslsent,qslrx,comments
STORE linecount + 1 to linecount
SKIP
ENDDO
EJECT
SET PRINT OFF
?
WAIT
RELEASE df,linecount,pagecount,tdate
RETURN