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

PCJR

Syntax:                 PCJR

Use:                    To determine if PC/JR.

Parameters:             PCJR

Returns:                The first character in the sending parameter will
                        have a "Y" if PC/JR, a "N" if it is not a PC/JR. If
                        you did not pass the parameter correctly (e.g.
                        FOXLIB = "ZCJR"), your sending parameter will be
                        unchanged.

Example:                . load c:\FOXLIB\pcjr
                        . FOXLIB = "PCJR"
                        . call pcjr with FOXLIB
                        . ?substr(FOXLIB,1,1) = "Y"
                        .T.
                        . rele modu pcjr

                        From this example, it is a PC jr.