Daily Archives: December 15, 2013

SP_TAKEOUT

Posted on by vivaclipper

 TAKEOUT() Extract a portion of a string between delimiters

 at nth occurrance

 Returns
 <cChunk> => Portion of string extracted. String of 0
 length if none.

 Syntax
 Takeout(cTarget, cDelimiter, nOccurance)

 Description
 <cTarget>        - string from which to extract

 <cDelimiter>     - delimiter  (beginning and end of
 string are          considered delimiters)

 <nOccurance>     - occurance

 Examples
  takeout("Next:Previous:First:Quit",":",3)

    //  returns "First"

 Source: BETWEEN.C

 

SP_SHIFTY

Posted on by vivaclipper 
 SHIFTY() Determines shift key settings

 Returns
 <lOn> => indicated shift key is on/off

 Syntax
 SHIFTY(nKey)

 Description
 Determines shift key settings for the keyboard shift
 keys, based on <nKey>:

    1     Right shift key
    2     Left shift key
    3     Ctrl key
    4     Alt key
    5     Scroll lock key
    6     Number lock key
    7     Caps lock key
    8     Insert key

 Examples
  do while .t.

    if inkey()=27
      exit
    endif

    @0,0 SAY "Rshift      "
    ??shifty(1)
    @1,0 SAY "Lshift      "
    ??shifty(2)
    @2,0 SAY "Ctrl        "
    ??shifty(3)
    @3,0 SAY "Alt         "
    ??shifty(4)
    @4,0 SAY "Scroll      "
    ??shifty(5)
    @5,0 SAY "Numlock     "
    ??shifty(6)
    @6,0 SAY "Capslock    "
    ??shifty(7)
    @7,0 SAY "Insert      "
    ??shifty(8)
  enddo

 Source: S_SHIFT.ASM

SP_ISPRN

Posted on by vivaclipper 
ISPRN() Detects printer ready (or not) on LPT1, 2 or 3

 Returns
 <lReady> => printer ready

 Syntax
 ISPRN(nPort)

 Description
 <nPort> is either 0, 1 or 2, corresponding to LPT1,
 LPT2 or LPT3

 Examples
  if ISPRN(0)
    MSG("LPT1 is ready")
  elseif ISPRN(1)
    MSG("LPT2 is ready")
  elseif ISPRN(2)
    MSG("LPT3 is ready")
  endif

 Warnings:
 Will not ALWAYS work reliably on a network
 (redirected) printer

 Source: ISPRN.ASM

 

SP_CDIR

Posted on by vivaclipper

 CDIR() Change Directory

 Returns
 <lSuccess> => Success or not

 Syntax
 CDIR(<cPath>)

 Description
 Attempts to change directory to <cPath> - a valid
 directory on the current drive.

 Examples

  IF CDIR("\OVERTHERE")
    MSG("We're over there now")
  ENDIF

 Source: CDD.ASM