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

##############################################################################
###+--------+#################################################################
#+-| FORMAT |-------------------------------------------------+###############
#| +--------+ A FORMAT block contains code specific to the    |###############
#|            SAY-GET I/O system.  A format block is executed |###############
#|            by the EDIT ... FORMAT command                  |###############
#+------------------------------------------------------------+###############
##############################################################################
##############################################################################
#+--| Declaration |--------------------------+################################
#|     FORMAT <Format-ident> [PROTOTYPE]     |################################
#|      .                                    |################################
#|      .                                    |################################
#|      .                                    |################################
#|     ENDPRO                                |################################
#+-------------------------------------------+################################
##############################################################################
##############################################################################
########+---| Description |------------------------------------------+########
########| The FORMAT block is a series of commands that specifies a  |########
########| screen format for an EDIT command.                         |########
########| ---------------------------------------------------------- |########
########| A FORMAT block may contain only @...SAY...GET and READ     |########
########| commands.  Only global symbols may be referenced within a  |########
########| format block and no local variable declaration is allowed. |########
########| No parameters are passed to a FORMAT block.                |########
########| ---------------------------------------------------------- |########
########| Each format block is contained within a runtime segment    |########
########| with the name:  $s_<Identifier>_seg.                       |########
########| ---------------------------------------------------------- |########
########| The segment is private and given the class 'code',         |########
########| allowing encoding of up to 64k per procedure.              |########
########+------------------------------------------------------------+########
##############################################################################
##############################################################################
#########+--| Example 1 |-------------------------------------------+#########
#########|                                                          |#########
#########| FORMAT new_screen                                        |#########
#########|                                                          |#########
#########|     @ 1,0 SAY "NAME: " GET contact->name                 |#########
#########|     @ 2,0 SAY "PHONE: " GET contact->phone               |#########
#########|     @ 3,0 SAY "DATE: " GET contact->date                 |#########
#########|                                                          |#########
#########| ENDPRO                                                   |#########
#########+----------------------------------------------------------+#########
##############################################################################