home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Shareware Overload
/
ShartewareOverload.cdr
/
database
/
instapop.zip
/
SURVFORM.FMT
< prev
next >
Wrap
Text File
|
1991-02-17
|
2KB
|
80 lines
********************************************************************************
*-- 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