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

##############################################################################
###+--------+#################################################################
#+-| PCOL() |----------------------------------------------------+############
#| +--------+ Returns the current column position of the printer |############
#+---------------------------------------------------------------+############
##############################################################################
##############################################################################
#+--| Summary |------------+##################################################
#|     #INCLUDE io.hdr     |##################################################
#+-------------------------+##################################################
##############################################################################
##############################################################################
#+--| Syntax |--------------------------+#####################################
#|     FUNCTION UINT pcol PROTOTYPE     |#####################################
#+--------------------------------------+#####################################
##############################################################################
##############################################################################
##################+---| Description |-----------------------+#################
##################| The pcol() function returns the current |#################
##################| column position of the printer.         |#################
##################+-----------------------------------------+#################
##############################################################################
##############################################################################
#########+--| Example 1 |-------------------------------------------+#########
#########| *    Control the printer column position.                |#########
#########|                                                          |#########
#########| IF pcol() >= 30                                          |#########
#########|     ? chr(13)                                            |#########
#########| ENDIF                                                    |#########
#########| ? acc->text                                              |#########
#########+----------------------------------------------------------+#########
##############################################################################
##############################################################################
#########+--| Example 2 |-------------------------------------------+#########
#########| *    Preprinted forms have exact positions to place      |#########
#########| *    the print head.  This procedure moves the print     |#########
#########| *    head to the required column position.               |#########
#########|                                                          |#########
#########| PROCEDURE position                                       |#########
#########|  PARAMETERS VALUE INT seek_to                            |#########
#########|     VARDEF                                               |#########
#########|         INT cur_col                                      |#########
#########|     ENDDEF                                               |#########
#########|     cur_col = pcol()                                     |#########
#########|     ? space( seek_to - cur_col )                         |#########
#########| ENDPRO                                                   |#########
#########+----------------------------------------------------------+#########
##############################################################################