home *** CD-ROM | disk | FTP | other *** search
/ Shareware Overload / ShartewareOverload.cdr / database / newcolor.zip / NEWCOLOR.PRO < prev   
Text File  |  1986-05-29  |  3KB  |  122 lines

  1. * NEWCOLOR.PRO
  2. * Called by NEWCOLOR.PRG.
  3. proc instruct
  4.  
  5. if firstinstr
  6. @ 1,8 say "<< "
  7. set colo to &blinker
  8. @ 1,11 say "READ"
  9. set colo to &normal
  10. @ 2,7 SAY "                                                                "
  11. @ 3,7 SAY "       You will select colors for each of the 5 parts of the    "
  12. @ 4,7 SAY "       screen display.  The 5 parts are listed below.           "
  13.  
  14. @ 1,15 SAY "....then press <RETURN>....>>"
  15. wait ""
  16. firstinstr=.f.
  17. @ arearow,11 say "══"
  18.  
  19. endif
  20. set colo to &normal
  21. @ 1,8 SAY "                1. Point to display part, then press <RETURN>. "
  22. @ 2,7 SAY "Point using      2. Point to color desired,  " + ["] + "    " + ["] + "       " + ["] + "   ."
  23. @ 3,7 SAY " or  keys!!    3. Repeat until satisfied.                     "
  24. @ 4,7 SAY "                 4. When satisfied with all parts, press Q.     "
  25. retu
  26. proc sampler
  27. set colo to n/&temp_brd
  28. @ 10,42 clea to 20,73
  29. set colo to &temp_nfg/&temp_nbg,&temp_efg/&temp_ebg
  30. @ 11,44 SAY "    << SAMPLE WINDOW >>     "
  31. @ 12,44 SAY "                            "
  32. @ 13,44 SAY "  This is a sample of what  "
  33. @ 14,44 SAY "  the normal text display   "
  34. @ 15,44 SAY "  will look like.           "
  35. @ 16,44 SAY "                            "
  36. @ 17,44 SAY "                            "
  37. @ 18,44 SAY "                            "
  38. @ 19,44 SAY "                            "
  39. SHOW1= " Data entry fields  "
  40. SHOW2= "will look like this."
  41. @ 17,48 get show1
  42. @ 18,48 get show2
  43. clea gets
  44. retu
  45. proc screenup
  46. set colo to &normal
  47. clea
  48. @ 0,6 to 5,71
  49. set colo to w/n
  50. @ 7,1 say "██"
  51. set colo to w+/n
  52. @ 8,1 say "██ "
  53. set colo to gr/n
  54. @ 9,1 say "██"
  55. set colo to gr+/n
  56. @ 10,1 say "██"
  57. set colo to br/n
  58. @ 11,1 say "██"
  59. set colo to br+/n
  60. @ 12,1 say "██"
  61. set colo to r/n
  62. @ 13,1 say "██"
  63. set colo to r+/n
  64. @ 14,1 say "██"
  65. set colo to bg/n
  66. @ 15,1 say "██"
  67. set colo to bg+/n
  68. @ 16,1 say "██"
  69. set colo to g/n
  70. @ 17,1 say "██"
  71. set colo to g+/n
  72. @ 18,1 say "██"
  73. set colo to b/n
  74. @ 19,1 say "██"
  75. set colo to b+/n
  76. @ 20,1 say "██"
  77. set colo to n/n
  78. @ 21,1 say "██"
  79. set colo to n+/n
  80. @ 22,1 say "██"
  81. set colo to &normal
  82. @ 8,8 to 10,34
  83. @ 9,10 SAY "PARTS OF SCREEN DISPLAY"
  84. @ 12,14 SAY "Text Color"
  85. @ 13,14 SAY "Text Background"
  86. @ 14,14 SAY "Data Color"
  87. @ 15,14 SAY "Data Background"
  88. @ 16,14 SAY "Screen Border"
  89. set colo to n/&temp_brd
  90. @ 10,42 clea to 20,73
  91. set colo to &temp_nfg/&temp_nbg,&temp_efg/&temp_ebg
  92. @ 11,44 SAY "    << SAMPLE WINDOW >>     "
  93. @ 12,44 SAY "                            "
  94. @ 13,44 SAY "  This is a sample of what  "
  95. @ 14,44 SAY "  the normal text display   "
  96. @ 15,44 SAY "  will look like.           "
  97. @ 16,44 SAY "                            "
  98. @ 17,44 SAY "                            "
  99. @ 18,44 SAY "                            "
  100. @ 19,44 SAY "                            "
  101. SHOW1= " Data entry fields  "
  102. SHOW2= "will look like this."
  103. @ 17,48 get show1
  104. @ 18,48 get show2
  105. clea gets
  106. retu
  107. proc temp_set
  108. pointcolor=trim(substr(colortxt,(at(str(colorrow,2),colortxt)+2),3))
  109. do case
  110. case arearow=12
  111. temp_nfg=pointcolor
  112. case arearow=13
  113. temp_nbg=pointcolor
  114. case arearow=14
  115. temp_efg=pointcolor
  116. case arearow=15
  117. temp_ebg=pointcolor
  118. case arearow=16
  119. temp_brd=pointcolor
  120. endc
  121. retu
  122.