$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)
'$COMPILE EXE       ' 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"
'/*------------------------------------------------------------------*/
' CCHAR()
'     Returns the character at the current cursor location.
'     EXAMPLE:  T$ = CCHAR
'/*------------------------------------------------------------------*/
    FUNCTION CCHAR() PUBLIC AS STRING
'/*   COL = POS
'/*   ROW = CSRLIN
'/*   T = SCREEN(ROW,COL,0)
      T = SCREEN(CSRLIN,POS,0)
      T$ = CHR$(T)
      CCHAR = T$
    END FUNCTION
'/*------------------------------------------------------------------*/
'    CLS
'    LOCATE 12,1
'    PRINT "THIS IS A TEST TO SEE IF THIS WORKS"
'    LOCATE 12,2
'    A$ = CCHAR
'    LOCATE 14,2
'    PRINT A$
'    INPUT Z