********************************************************************************
*-- Name.......: SURVFORM.FMT
*-- Date.......: 2-17-91
*-- Version....: dBASE IV, Format 1.1
*-- Notes......: Format files use "" as delimiters!
********************************************************************************

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

*-- Some of these PRIVATE variables are created based on CodeGen and may not 
*-- be used by your particular .fmt file
PRIVATE lc_talk, lc_cursor, lc_display, lc_status, lc_carry, lc_proc,;
        ln_typeahd, gc_cut

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

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


lc_carry = SET("CARRY")
*-- Fields to carry forward during APPEND.
SET CARRY TO Log_by ADDITIVE


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

*--  Format Page: 1
@ 1,32 SAY "Important Survey" 
@ 2,0 TO 18,79 DOUBLE 
@ 4,2 SAY "ID #" 
@ 4,7 GET Id PICTURE "999999" ;
   MESSAGE "Enter 6-digit ID #" 
@ 6,1 SAY "ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ" 
@ 8,4 SAY "1." 
@ 8,7 GET Q1 PICTURE "9" ;
   WHEN gopopup () 
@ 10,4 SAY "2." 
@ 10,7 GET Q2 PICTURE "9" ;
   WHEN gopopup () 
@ 12,4 SAY "3."
@ 12,7 GET Q3 PICTURE "9" ;
   WHEN gopopup () 
@ 8,23 SAY "4."
@ 8,26 GET Q4 PICTURE "9" ;
   WHEN gopopup () 
@ 10,23 SAY "5." 
@ 10,26 GET Q5 PICTURE "9" ;
   WHEN gopopup () 
@ 12,23 SAY "6." 
@ 12,26 GET Q6 PICTURE "9" ;
   WHEN gopopup () 
@ 14,1 SAY "ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ" 
@ 16,2 SAY "Logged by" 
@ 16,12 GET Log_by PICTURE "@! aa" ;
   MESSAGE "Type in your initials" 
*-- Format file exit code -----------------------------------------------------

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

SET CARRY &lc_carry.
SET CURSOR &lc_cursor.
SET TALK &lc_talk.

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