Category : Science and Education
Archive   : DB4HAMLG.ZIP
Filename : CONTACTS.FMT

********************************************************************************
*-- Name....: CONTACTS.FMT
*-- Date....: 3-07-90
*-- Version.: dBASE IV, Format 1.0
*-- Notes...: Format files use "" as delimiters!
********************************************************************************

*-- Format file initialization code --------------------------------------------

IF SET("TALK")="ON"
SET TALK OFF
lc_talk="ON"
ELSE
lc_talk="OFF"
ENDIF

*-- This form was created in EGA25 mode
SET DISPLAY TO EGA25

lc_status=SET("STATUS")
*-- SET STATUS was ON when you went into the Forms Designer.
IF lc_status = "OFF"
SET STATUS ON
ENDIF


lc_carry = SET("CARRY")
*-- Fields to carry forward during APPEND.
SET CARRY TO date,mode,power,rig,antenna

*-- @ SAY GETS Processing. -----------------------------------------------------

*-- Format Page: 1

@ 1,0 TO 20,79 DOUBLE COLOR g/n
@ 2,1 SAY " HAM RADIO CONTACTS LOG " COLOR g/n
@ 3,1 SAY "ÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ" COLOR g/n
@ 4,1 SAY " " COLOR w/n
@ 5,1 SAY " Date " COLOR w/n
@ 5,8 GET date ;
DEFAULT DATE() ;
COLOR g/b,g/b
@ 5,16 SAY " UTC " COLOR w/n
@ 5,23 GET time PICTURE "XXXX" ;
RANGE "0000","2359" ;
DEFAULT "0000" ;
COLOR g/b,g/b
@ 5,27 SAY " Callsign " COLOR w/n
@ 5,39 GET callsign PICTURE "@! XXXXXXXXXXXX" COLOR g/b,g/b
@ 5,51 SAY " His RST " COLOR w/n
@ 5,62 GET his_rst PICTURE "XXX" ;
DEFAULT "59" ;
COLOR g/b,g/b
@ 5,65 SAY " My RST " COLOR w/n
@ 5,74 GET my_rst PICTURE "XXX" ;
DEFAULT "59" ;
COLOR g/b,g/b
@ 5,77 SAY " " COLOR w/n
@ 6,1 SAY " " COLOR w/n
@ 7,1 SAY " Frequency " COLOR w/n
@ 7,13 GET frequency PICTURE "9999.999" COLOR g/b,g/b
@ 7,21 SAY " MHz. Mode " COLOR w/n
@ 7,35 GET mode PICTURE "@! XXXX" ;
MESSAGE "AM, AMTR, CW, FM, PKT, RTTY, SSB" ;
COLOR g/b,g/b
@ 7,39 SAY " Power " COLOR w/n
@ 7,50 GET power PICTURE "9999" COLOR g/b,g/b
@ 7,54 SAY " Watts " COLOR w/n
@ 8,1 SAY " " COLOR w/n
@ 9,1 SAY " Rig " COLOR w/n
@ 9,7 GET rig PICTURE "@! XXXXXXXXXXXXXXX" COLOR g/b,g/b
@ 9,22 SAY " Antenna " COLOR w/n
@ 9,39 GET antenna PICTURE "@! XXXXXXXXXXXXXXX" COLOR g/b,g/b
@ 9,54 SAY " " COLOR w/n
@ 10,1 SAY " " COLOR w/n
@ 11,1 SAY " Name " COLOR w/n
@ 11,8 GET name PICTURE "@! XXXXXXXXXXXXXXX" COLOR g/b,g/b
@ 11,23 SAY " City " COLOR w/n
@ 11,34 GET city PICTURE "@! XXXXXXXXXXXXXXXXXXXX" COLOR g/b,g/b
@ 11,54 SAY " State/Province " COLOR w/n
@ 11,75 GET state_prov PICTURE "@! XX" COLOR g/b,g/b
@ 11,77 SAY " " COLOR w/n
@ 12,1 SAY " " COLOR w/n
@ 13,1 SAY " Map Country " COLOR w/n
@ 13,15 GET map_cntry PICTURE "@! XXXXXXXXXXXXXXXXXXXX" COLOR g/b,g/b
@ 13,35 SAY " DXCC Country " COLOR w/n
@ 13,50 GET dxcc_cntry PICTURE "@! XXXXXXXXXXXXXXXXXXXX" COLOR g/b,g/b
@ 13,70 SAY " " COLOR g/n
@ 13,71 SAY "New? " COLOR w/n
@ 13,76 GET newdxccwkd PICTURE "@! X" ;
VALID NEWDXCCWKD="Y".or.NEWDXCCWKD="N".or.NEWDXCCWKD=" " ;
ERROR "Must be Y, N, or blank" ;
COLOR g/b,g/b
@ 13,77 SAY " " COLOR w/n
@ 14,1 SAY " " COLOR w/n
@ 15,1 SAY " Outgoing QSL QSL Sent " COLOR w/n
@ 15,28 GET qsl_sent COLOR g/b,g/b
@ 15,36 SAY " " COLOR w/n
@ 15,40 SAY "B" COLOR r/n
@ 15,41 SAY "ur/" COLOR w/n
@ 15,44 SAY "D" COLOR r/n
@ 15,45 SAY "ir " COLOR w/n
@ 15,48 GET sburo_drct PICTURE "@! X" ;
VALID SBURO_DRCT="B".OR.SBURO_DRCT="D".OR.SBURO_DRCT=" " ;
ERROR "Entry must be B, D, or blank" ;
COLOR g/b,g/b
@ 15,49 SAY " IRC? " COLOR w/n
@ 15,58 GET irc PICTURE "@! X" ;
VALID IRC="Y".OR.IRC="N".OR.IRC=" " ;
ERROR "Entry must be Y, N, or blank" ;
COLOR g/b,g/b
@ 15,59 SAY " SASE? " COLOR w/n
@ 15,69 GET sase PICTURE "@! X" ;
VALID SASE="Y".OR.SASE="N".OR.SASE=" " ;
ERROR "Entry must be Y, N, or blank" ;
COLOR g/b,g/b
@ 15,70 SAY " " COLOR w/n
@ 16,1 SAY " Status " COLOR w/n
@ 16,10 GET qsl_status PICTURE "@! XXXXXX" ;
MESSAGE "IRC (Need IRCs)/NA (No Address)/NS (Need Stamps for SASE)/Blank (Ready to Send)" ;
COLOR g/b,g/b
@ 16,16 SAY " QSL Recd " COLOR w/n
@ 16,28 GET qsl_recd COLOR g/b,g/b
@ 16,36 SAY " " COLOR w/n
@ 16,40 SAY "B" COLOR r/n
@ 16,41 SAY "ur/" COLOR w/n
@ 16,44 SAY "D" COLOR r/n
@ 16,45 SAY "ir " COLOR w/n
@ 16,48 GET rburo_drct PICTURE "@! X" ;
VALID RBURO_DRCT="B".OR.RBURO_DRCT="D".OR.RBURO_DRCT=" " ;
ERROR "Entry must be B, D, or blank" ;
COLOR g/b,g/b
@ 16,49 SAY " New DXCC Confirmed? " COLOR w/n
@ 16,73 GET newdxcccfm PICTURE "@! X" ;
VALID NEWDXCCCFM="Y".or.NEWDXCCCFM="N".OR.NEWDXCCCFM=" " ;
ERROR "Entry must be Y, N, or blank" ;
COLOR g/b,g/b
@ 16,74 SAY " " COLOR w/n
@ 17,1 SAY " " COLOR w/n
@ 18,1 SAY " Comments " COLOR w/n
@ 18,12 GET comments PICTURE "@! XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX" COLOR g/b,g/b
@ 18,77 SAY " " COLOR w/n
@ 19,1 SAY " " COLOR w/n

*-- Format file exit code -----------------------------------------------------

*-- SET STATUS was ON when you went into the Forms Designer.
IF lc_status = "OFF" && Entered form with status off
SET STATUS OFF && Turn STATUS "OFF" on the way out
ENDIF

IF lc_carry = "OFF"
SET CARRY OFF
ENDIF

IF lc_talk="ON"
SET TALK ON
ENDIF

RELEASE lc_carry,lc_talk,lc_fields,lc_status
*-- EOP: CONTACTS.FMT