Software Du Jour/SoftwareDuJour.iso/BUSINESS/DBASE/NEWCOLOR.ARC/NEWCOLOR.PRO

Text File | 1986-05-29 | 3KB | 122 lines

* NEWCOLOR.PRO
* Called by NEWCOLOR.PRG.
proc instruct

if firstinstr
@ 1,8 say "<< "
set colo to &blinker
@ 1,11 say "READ"
set colo to &normal
@ 2,7 SAY "                                                                "
@ 3,7 SAY "       You will select colors for each of the 5 parts of the    "
@ 4,7 SAY "       screen display.  The 5 parts are listed below.           "

@ 1,15 SAY "....then press <RETURN>....>>"
wait ""
firstinstr=.f.
@ arearow,11 say "══"

endif
set colo to &normal
@ 1,8 SAY "                1. Point to display part, then press <RETURN>. "
@ 2,7 SAY "Point using      2. Point to color desired,  " + ["] + "    " + ["] + "       " + ["] + "   ."
@ 3,7 SAY " or  keys!!    3. Repeat until satisfied.                     "
@ 4,7 SAY "                 4. When satisfied with all parts, press Q.     "
retu
proc sampler
set colo to n/&temp_brd
@ 10,42 clea to 20,73
set colo to &temp_nfg/&temp_nbg,&temp_efg/&temp_ebg
@ 11,44 SAY "    << SAMPLE WINDOW >>     "
@ 12,44 SAY "                            "
@ 13,44 SAY "  This is a sample of what  "
@ 14,44 SAY "  the normal text display   "
@ 15,44 SAY "  will look like.           "
@ 16,44 SAY "                            "
@ 17,44 SAY "                            "
@ 18,44 SAY "                            "
@ 19,44 SAY "                            "
SHOW1= " Data entry fields  "
SHOW2= "will look like this."
@ 17,48 get show1
@ 18,48 get show2
clea gets
retu
proc screenup
set colo to &normal
clea
@ 0,6 to 5,71
set colo to w/n
@ 7,1 say "██"
set colo to w+/n
@ 8,1 say "██ "
set colo to gr/n
@ 9,1 say "██"
set colo to gr+/n
@ 10,1 say "██"
set colo to br/n
@ 11,1 say "██"
set colo to br+/n
@ 12,1 say "██"
set colo to r/n
@ 13,1 say "██"
set colo to r+/n
@ 14,1 say "██"
set colo to bg/n
@ 15,1 say "██"
set colo to bg+/n
@ 16,1 say "██"
set colo to g/n
@ 17,1 say "██"
set colo to g+/n
@ 18,1 say "██"
set colo to b/n
@ 19,1 say "██"
set colo to b+/n
@ 20,1 say "██"
set colo to n/n
@ 21,1 say "██"
set colo to n+/n
@ 22,1 say "██"
set colo to &normal
@ 8,8 to 10,34
@ 9,10 SAY "PARTS OF SCREEN DISPLAY"
@ 12,14 SAY "Text Color"
@ 13,14 SAY "Text Background"
@ 14,14 SAY "Data Color"
@ 15,14 SAY "Data Background"
@ 16,14 SAY "Screen Border"
set colo to n/&temp_brd
@ 10,42 clea to 20,73
set colo to &temp_nfg/&temp_nbg,&temp_efg/&temp_ebg
@ 11,44 SAY "    << SAMPLE WINDOW >>     "
@ 12,44 SAY "                            "
@ 13,44 SAY "  This is a sample of what  "
@ 14,44 SAY "  the normal text display   "
@ 15,44 SAY "  will look like.           "
@ 16,44 SAY "                            "
@ 17,44 SAY "                            "
@ 18,44 SAY "                            "
@ 19,44 SAY "                            "
SHOW1= " Data entry fields  "
SHOW2= "will look like this."
@ 17,48 get show1
@ 18,48 get show2
clea gets
retu
proc temp_set
pointcolor=trim(substr(colortxt,(at(str(colorrow,2),colortxt)+2),3))
do case
case arearow=12
temp_nfg=pointcolor
case arearow=13
temp_nbg=pointcolor
case arearow=14
temp_efg=pointcolor
case arearow=15
temp_ebg=pointcolor
case arearow=16
temp_brd=pointcolor
endc
retu