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

##############################################################################
###+---------------+##########################################################
#+-| SET FORMAT TO |--------------------------------------------+#############
#| +---------------+ The SET FORMAT TO command sets the current |#############
#|                   format block to <Format-ident> or tells    |#############
#|                   FORCE to create a default format block     |#############
#+--------------------------------------------------------------+#############
##############################################################################
##############################################################################
#+--| Syntax |----------------------------+###################################
#|     SET FORMAT TO [<Format-ident>]     |###################################
#+----------------------------------------+###################################
##############################################################################
##############################################################################
########+---| Description |------------------------------------------+########
########| When the full-screen command EDIT is executed, the program |########
########| uses the current format block to edit the database fields. |########
########| If a format block has not been specified, then a default   |########
########| format block is created at runtime from the selected       |########
########| database alias.                                            |########
########+------------------------------------------------------------+########
##############################################################################
##############################################################################
#########+--| Example 1 |-------------------------------------------+#########
#########| *    Use a format for the EDIT command.                  |#########
#########|                                                          |#########
#########| FORMAT input_id                                          |#########
#########|      @ 1,5 SAY "Get name: " GET user_name                |#########
#########|      @ 2,5 SAY "   Get ID:" GET get_id                   |#########
#########|      READ                                                |#########
#########| ENDPRO                                                   |#########
#########|                                                          |#########
#########| PROCEDURE force_main                                     |#########
#########|     SET FORMAT TO input_id                               |#########
#########|     USE "names.dbf" ALIAS names                          |#########
#########|     EDIT                                                 |#########
#########|                                                          |#########
#########| {...}                                                    |#########
#########|                                                          |#########
#########| ENDPRO                                                   |#########
#########+----------------------------------------------------------+#########
##############################################################################