Category : Science and Education
Archive   : DB4WAZLG.ZIP
Filename : ITUWAZ.FMT

 
Output of file : ITUWAZ.FMT contained in archive : DB4WAZLG.ZIP

********************************************************************************
*-- Name....: ITUWAZ.FMT
*-- Date....: 11-23-89
*-- 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

ON ESCAPE RETURN

*-- 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


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

*-- Format Page: 1

@ 2,10 TO 19,68 DOUBLE COLOR gr+/n
@ 3,11 SAY " Worked All Zones Status for ITU Zone: " COLOR gr+/n
@ 3,58 SAY ituzone PICTURE "99" COLOR gr+/n
@ 3,60 SAY " " COLOR gr+/n
@ 4,11 SAY "ÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ" COLOR gr+/n
@ 6,27 SAY "Worked" COLOR w/b
@ 6,51 SAY "Confirmed" COLOR w/b
@ 7,12 SAY "Band"
@ 7,22 SAY "Date"
@ 7,34 SAY "Call"
@ 7,47 SAY "Date"
@ 7,59 SAY "Call"
@ 8,12 SAY "ÄÄÄÄ"
@ 8,20 SAY "ÄÄÄÄÄÄÄÄ"
@ 8,30 SAY "ÄÄÄÄÄÄÄÄÄÄÄÄ"
@ 8,45 SAY "ÄÄÄÄÄÄÄÄ"
@ 8,55 SAY "ÄÄÄÄÄÄÄÄÄÄÄÄ"
@ 9,14 SAY "10"
@ 9,20 GET wkd10date COLOR gr+/n,gr+/n
@ 9,30 GET wkd10call PICTURE "@! XXXXXXXXXXXX" COLOR gr+/n,gr+/n
@ 9,45 GET cfm10date COLOR gr+/n,gr+/n
@ 9,55 GET cfm10call PICTURE "@! XXXXXXXXXXXX" COLOR gr+/n,gr+/n
@ 10,14 SAY "12"
@ 10,20 GET wkd12date COLOR gr+/n,gr+/n
@ 10,30 GET wkd12call PICTURE "@! XXXXXXXXXXXX" COLOR gr+/n,gr+/n
@ 10,45 GET cfm12date COLOR gr+/n,gr+/n
@ 10,55 GET cfm12call PICTURE "@! XXXXXXXXXXXX" COLOR gr+/n,gr+/n
@ 11,14 SAY "15"
@ 11,20 GET wkd15date COLOR gr+/n,gr+/n
@ 11,30 GET wkd15call PICTURE "@! XXXXXXXXXXXX" COLOR gr+/n,gr+/n
@ 11,45 GET cfm15date COLOR gr+/n,gr+/n
@ 11,55 GET cfm15call PICTURE "@! XXXXXXXXXXXX" COLOR gr+/n,gr+/n
@ 12,14 SAY "17"
@ 12,20 GET wkd17date COLOR gr+/n,gr+/n
@ 12,30 GET wkd17call PICTURE "@! XXXXXXXXXXXX" COLOR gr+/n,gr+/n
@ 12,45 GET cfm17date COLOR gr+/n,gr+/n
@ 12,55 GET cfm17call PICTURE "@! XXXXXXXXXXXX" COLOR gr+/n,gr+/n
@ 13,14 SAY "20"
@ 13,20 GET wkd20date COLOR gr+/n,gr+/n
@ 13,30 GET wkd20call PICTURE "@! XXXXXXXXXXXX" COLOR gr+/n,gr+/n
@ 13,45 GET cfm20date COLOR gr+/n,gr+/n
@ 13,55 GET cfm20call PICTURE "@! XXXXXXXXXXXX" COLOR gr+/n,gr+/n
@ 14,14 SAY "30"
@ 14,20 GET wkd30date COLOR gr+/n,gr+/n
@ 14,30 GET wkd30call PICTURE "@! XXXXXXXXXXXX" COLOR gr+/n,gr+/n
@ 14,45 GET cfm30date COLOR gr+/n,gr+/n
@ 14,55 GET cfm30call PICTURE "@! XXXXXXXXXXXX" COLOR gr+/n,gr+/n
@ 15,14 SAY "40"
@ 15,20 GET wkd40date COLOR gr+/n,gr+/n
@ 15,30 GET wkd40call PICTURE "@! XXXXXXXXXXXX" COLOR gr+/n,gr+/n
@ 15,45 GET cfm40date COLOR gr+/n,gr+/n
@ 15,55 GET cfm40call PICTURE "@! XXXXXXXXXXXX" COLOR gr+/n,gr+/n
@ 16,14 SAY "80"
@ 16,20 GET wkd80date COLOR gr+/n,gr+/n
@ 16,30 GET wkd80call PICTURE "@! XXXXXXXXXXXX" COLOR gr+/n,gr+/n
@ 16,45 GET cfm80date COLOR gr+/n,gr+/n
@ 16,55 GET cfm80call PICTURE "@! XXXXXXXXXXXX" COLOR gr+/n,gr+/n
@ 17,13 SAY "160"
@ 17,20 GET wkd160date COLOR gr+/n,gr+/n
@ 17,30 GET wkd160call PICTURE "@! XXXXXXXXXXXX" COLOR gr+/n,gr+/n
@ 17,45 GET cfm160date COLOR gr+/n,gr+/n
@ 17,55 GET cfm160call PICTURE "@! XXXXXXXXXXXX" COLOR gr+/n,gr+/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_talk="ON"
SET TALK ON
ENDIF

RELEASE lc_talk,lc_fields,lc_status
*-- EOP: ITUWAZ.FMT