home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
C!T ROM 2
/
ctrom_ii_b.zip
/
ctrom_ii_b
/
PROGRAM
/
FOXPRO
/
PRE307
/
STDDEFS.INC
< prev
Wrap
Text File
|
1990-03-27
|
1KB
|
52 lines
#xlist
#xblank
#* Oneline Functions
#define accum(x,y) y = x + y
#define boxwait(x) boxmsg(x,.f.,.f.,0)
#define inc(x) x = x + 1
#define INC(x) x = x + 1
#define dec(x) x = x - 1
#define keypress(x) keyboard chr(x)
#define errcolor 'W+/R'
#define boxerror(x) boxmsg(x,.f.,.f.,0,errcolor)
*#define errexit(x) return if(sayso,(boxmsg(x,'','',0,errcolor)==''),.f.)
#define errexit(x) return if(sayso,(boxerror(x)==''),.f.)
#define pad(string,length) left(string + space(length),length)
#* Boxes
#define double_single '╒═╕│╛═╘│'
#define edit_box '┌─┐│┤─├│'
#define double_h '═'
#define double_v '║'
#define double_tl '╔'
#define double_bl '╚'
#define double_tr '╗'
#define double_br '╝'
#define double_cross '╬'
#define double_bcross '╩'
#define double_tcross '╦'
#define double_lcross '╠'
#define double_rcross '╣'
#* Messages
#define escmsg "Press Escape key to return to menu."
#define waitmsg "Press any key to continue."
#blank
#list