Category : Dbase (Clipper, FoxBase, etc) Languages Source Code
Archive   : INSTAPOP.ZIP
Filename : SURVFORM.FMT

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