home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
HAM Radio 3
/
hamradioversion3.0examsandprograms1992.iso
/
log
/
log3_52a
/
wasprint.prg
< prev
next >
Wrap
Text File
|
1990-05-04
|
2KB
|
100 lines
*:*********************************************************************
*:
*: Program: WASPRINT.PRG
*:
*: System: PC-HAM Logbook
*: Author: Joe Kasser G3ZCZ
*: Copyright (c) 1990, Joe Kasser
*: Last modified: 12/24/87 23:45
*:
*: Called by: WAS.PRG
*:
*: Uses: &WAS
*:
*: Documented 05/04/90 at 13:49 SNAP! version 3.12f
*:*********************************************************************
* WASPRINT VER 860410 THIS PROGRAM PRINTS A WAS file
* COPYRIGHT (C) Joe Kasser G3ZCZ 1986
* called by logbook
CLEAR
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
STORE 0 TO cf
ACCEPT 'Which call area (0-9, for all enter 10) ? ' TO cf
?
?
ACCEPT 'DO you want hard copy (Y/N) ? ' TO df
IF df = 'Y'
SET PRINT ON
EJECT
ENDIF
STORE 0 TO qsled
STORE 0 TO worked
USE &was
CLEAR
? 'WAS PRINTOUT for ',callsign
IF choice = 'Q'
?? ' QSL STATUS'
ENDIF
?
? 'PX STATE CALL DATE BND MODE STATUS'
? '-----------------------------------------------------'
DO WHILE .not.EOF()
IF choice <> 'T' .and. dstate = ' '
*
ELSE
IF dstate = '-' .and. choice = 'Q'
*
ELSE
IF &cf = callarea
? pc,state,dcall,ddate,dband,dmode
IF dstate = 'R'
IF choice = 'Q'
ELSE
?? dstate
ENDIF
STORE qsled + 1 TO qsled
STORE worked + 1 TO worked
ENDIF
IF dstate = '-'
STORE worked + 1 TO worked
ENDIF
ELSE
IF &cf >9
? pc,state,dcall,ddate,dband,dmode,' '
IF dstate = 'R'
IF choice = 'Q'
ELSE
?? dstate
ENDIF
STORE qsled + 1 TO qsled
STORE worked + 1 TO worked
ENDIF
IF dstate = '-'
STORE worked + 1 TO worked
ENDIF
ENDIF
ENDIF
ENDIF
ENDIF
SKIP
ENDDO
?
?
? worked,' WORKED ',qsled,'QSL-D'
?
IF df = 'Y'
EJECT
SET PRINT OFF
ENDIF
WAIT
RELEASE qsled,df,worked,choice,cf
RETURN
*: EOF: WASPRINT.PRG