$CPU 8086          ' make compatible with XT systems
$LIB ALL OFF       ' turn off all PowerBASIC libraries
$ERROR ALL OFF     ' turn off all PowerBASIC error checking
$OPTIMIZE SIZE     ' optimize for smaller code
$COMPILE UNIT      ' compile to a UNIT (.PBU)

DEFINT A-Z         ' Required for all numeric functions, forces PB to not
                   ' include floating point in UNIT (makes it smaller)
'/*------------------------------------------------------------------*/
$CODE SEG "MLIB4"
'/*------------------------------------------------------------------*/
' DISPMSG STRING
'     Display Message.
'     Clears line 25 of the display and then displays STRING
'     using current color.
'/*------------------------------------------------------------------*/
    SUB DISPMSG(BYVAL X AS STRING) PUBLIC
      X = LEFT$(X,78)
      LOCATE 25,1
      PRINT STRING$(79,32);
      LOCATE 25,1
      PRINT X;
    END SUB