Click above to get retro games delivered to your door ever month!

##############################################################################
###+-------+##################################################################
#+-| LABEL |--------------------------------------------------------------+###
#| +-------+ The LABEL command displays labels specified by <Label-ident> |###
#+------------------------------------------------------------------------+###
##############################################################################
##############################################################################
#+--| Syntax |--------------------------------------------------+#############
#|     [!<Alias>] LABEL FORM <Label-ident> [Scope] [SAMPLE]     |#############
#|     [TO PRINT] [TO FILE <C-exp>]                             |#############
#+--------------------------------------------------------------+#############
##############################################################################
##############################################################################
#######+---| Description |--------------------------------------------+#######
#######| The default scope for LABEL is ALL.  LABEL does not poll the |#######
#######| keyboard for any key as FORCE does not support SET ESCAPE ON |#######
#######| || OFF.                                                      |#######
#######| ------------------------------------------------------------ |#######
#######| TO PRINT                                                     |#######
#######|                                                              |#######
#######| Duplicates screen output to the current print device or      |#######
#######| through the print device defined by the SET PRINT TO         |#######
#######| <C-exp> command.                                             |#######
#######+--------------------------------------------------------------+#######
##############################################################################
##############################################################################
#########+--| Example 1 |-------------------------------------------+#########
#########| *    Print a sample label.                               |#########
#########|                                                          |#########
#########| LABEL FORM zform SAMPLE TO PRINT                         |#########
#########+----------------------------------------------------------+#########
##############################################################################
##############################################################################
#########+--| Example 2 |-------------------------------------------+#########
#########| *    Print out a database for a mailing list.            |#########
#########|                                                          |#########
#########| #INCLUDE string.hdr           && Contains ltrim().       |#########
#########|                                                          |#########
#########| DBFDEF mail                   && Declare database with   |#########
#########|                               &&  alias mail.            |#########
#########|     CHAR(20)    first                                    |#########
#########|     CHAR(20)    last                                     |#########
#########|     CHAR(30)    address                                  |#########
#########|     CHAR(20)    city                                     |#########
#########|     CHAR(2)     st                                       |#########
#########|     CHAR(5)     zip                                      |#########
#########| ENDDEF                                                   |#########
#########|                                                          |#########
#########| LABELDEF mail_label        && Declare a label with       |#########
#########|                            &&  alias mail_label.         |#########
#########|     HEIGHT  = 5            && Number of lines/label.     |#########
#########|     WIDTH   = 50           && Number of spaces across.   |#########
#########|     HORZ_SP = 0            && Number of spaces between   |#########
#########|                            &&  two side-by-side labels.  |#########
#########|     VERT_SP = 1            && Number of lines between    |#########
#########|                            &&  labels.                   |#########
#########|     MARGIN  = 5            && Starting left margin.      |#########
#########|     ACROSS  = 1            && Number of labels across    |#########
#########|                            &&  on label paper.           |#########
#########|                                                          |#########
#########|     LINE = "Special Information to:"                     |#########
#########|     LINE = ltrim(mail->first+" "+mail->last)             |#########
#########|     LINE = mail->address                                 |#########
#########|     LINE = mail->city+" "+mail->st+" "+mail->zip         |#########
#########|     LINE = "Thank you"                                   |#########
#########| ENDDEF                                                   |#########
#########|                                                          |#########
#########| PROCEDURE force_main                                     |#########
#########|     USE "mail.dbf" ALIAS MAIL                            |#########
#########|     LABEL FORM mail_label ALL TO PRINT                   |#########
#########| ENDPRO                                                   |#########
#########+----------------------------------------------------------+#########
##############################################################################