home *** CD-ROM | disk | FTP | other *** search
/ Piper's Pit BBS/FTP: ibm 0010 - 0019 / ibm0010-0019 / ibm0010.tar / ibm0010 / CLIPB52.ZIP / COLE.ZIP / SHDWDEMO.PRG < prev   
Encoding:
Text File  |  1990-05-02  |  1.1 KB  |  50 lines
  1. * Program Name: shdwdemo.prg
  2.  
  3. set scoreboard off
  4.  
  5. * Set defaults
  6. top    =  7
  7. left   = 20
  8. bottom = 15
  9. right  = 60
  10.  
  11. * If monitor is color, set it.
  12. if iscolor()
  13.    setcolor( "gr+/b")
  14. endif
  15.  
  16. clear
  17.  
  18. * Continue until <Esc> is pressed.
  19. do while lastkey() != 27
  20.  
  21.    * Create a box for entering data & enter box coordinates.
  22.    @ 0, 0 to 5, 17
  23.    @ 0, 2 say " <Esc> to Exit "
  24.    scroll( 1, 1, 4, 16, 0)
  25.    shadow( 0, 0, 5, 17)
  26.  
  27.    @ 1, 1 say "Top    : " get top    picture "99"
  28.    @ 2, 1 say "Left   : " get left   picture "99"
  29.    @ 3, 1 say "Bottom : " get bottom picture "99"
  30.    @ 4, 1 say "Right  : " get right  picture "99"
  31.    read
  32.  
  33.    * Put any junk on screen so that shadowing can be seen.
  34.    for j = 0 to 24
  35.       @ j, 0 say str( j, 2) + " DEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz2345678901234567890123456789"
  36.    next j
  37.  
  38.    * Draw box outline
  39.    @ top, left TO bottom, right double
  40.  
  41.    * Clear the inside of the box.
  42.    scroll( top + 1, left + 1, bottom - 1, right - 1, 0)
  43.  
  44.    * Shadow the box.
  45.    Shadow( top, left, bottom, right)
  46.  
  47. enddo
  48.  
  49. clear
  50.