home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Between Heaven & Hell 2
/
BetweenHeavenHell.cdr
/
100
/
47
/
dxccprin.prg
< prev
next >
Wrap
Text File
|
1985-10-03
|
2KB
|
67 lines
* DXCCPRINT VERSION 851004 THIS PROGRAM PRINTS A dxcc file
* COPYRIGHT (c) Joe Kasser G3ZCZ 1985
* called by logbook
ERASE
STORE ' ' TO choice
@ 5,1 SAY ' '
ACCEPT 'Whole thing, worked/QSL-d, or just QSL-d (T,W,Q) ' TO choice
@ 10,1 SAY ' '
STORE ' ' TO df
ACCEPT 'DO you want hard copy (Y/N) ?' TO df
IF df = 'Y'
SET PRINT ON
ENDIF
STORE 99 TO linecount
STORE 1 TO pagecount
STORE 0 TO qsled
STORE 0 TO worked
USE B:dxcc
DO WHILE .NOT.EOF
IF linecount > 60
EJECT
? 'DXCC PRINTOUT',callsign,' PAGE',pagecount
IF choice = 'Q'
?? ' QSL STATUS'
ENDIF
STORE pagecount + 1 TO pagecount
?
? ' PX COUNTRY CALL DATE TIME BND MODE STATUS'
? '--------------------------------------------------------'
STORE 5 TO linecount
ENDIF
IF dstate = ' ' .AND. choice <> 'T'
ELSE
IF dstate = 'W' .AND. choice = 'Q'
ELSE
? px,country,dcall,ddate,dtime,dband,dmode
STORE linecount + 1 TO linecount
ENDIF
ENDIF
IF dstate = 'Q'
IF choice = 'Q'
ELSE
?? dstate
ENDIF
STORE qsled + 1 TO qsled
STORE worked + 1 TO worked
ENDIF
IF dstate = 'W'
STORE worked + 1 TO worked
ENDIF
SKIP
ENDDO
?
?
? worked,' WORKED ',qsled,'QSL-D'
?
EJECT
SET PRINT OFF
WAIT
RELEASE df,linecount,pagecount,worked,qsled
RETURN