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

 dispdirectpad()     Print a string in screen colors with padding
------------------------------------------------------------------------------
 Declaration
   screen.hdr

 Syntax
   proc dispdirectpad extern
   param value uint uRow, ;
         value uint uCol, ;
         const char cString, ;
         value uint uPadLength

 Arguments
   uRow is the row position for the display.

   uCol is the column position for the display.

   cString is the string to print.

   uPadLength is the length for right-padding cString.

 Return
   None.

 Description
   The dispdirectpad() procedure prints a string at the specified screen
   location, right-padding it to the required length. The string is
   displayed in the current color of any given screen position,
   independently of the Force color settings.

 Example
   #define EXAMPLE_SCREEN
   #include example.hdr

   proc Test_dispdirectpad
   vardef
      byte bColor
   enddef
   clear
   bColor := __syscolor[ CLR_STD ]
   __syscolor[ CLR_STD ] := BLUE_YELLOW
   dispdirect( 4, 0, "Force" )
   @ 4, 6 ?? "2.4 compiler"
   getkey()
   dispdirectpad( 4, 6, "4.0", 13 )
   __syscolor[ CLR_STD ] := bColor
   getkey()
   endproc

   proc main
   Test_dispdirectpad()
   endproc