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

 pcol()              Return the current column position of the printer
------------------------------------------------------------------------------
 Declaration
   printer.hdr

 Syntax
   func uint pcol extern

 Arguments
   None.

 Return
   The current column position of the printer.

 Description
   The pcol() function returns the current column position of the printer.

 Example
   #define EXAMPLE_IO
   #include example.hdr

   proc PrintPos
   para value uint uColReq
   // Preprinted forms have exact positions to place the print head. This
   // procedure moves the print head to the required column position.
   vardef
      uint nCol
   enddef
   nCol := pcol()
   ? space( uColReq - nCol )
   endproc
   
   proc Test_pcol
   // add printer initialization code here
   if pcol() >= 30
      ? chr( 13 )     // control the printer column position
   endif
   ? "Test text"
   PrintPos( 30 )
   ? "Another text"
   endproc

   proc main
   Test_pcol()
   endproc