home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 5 / 05.iso / a / a112 / 1.img / LIBRARY.PRG < prev    next >
Encoding:
Text File  |  1986-08-26  |  1.4 KB  |  41 lines
  1. * library.prg - a procedure library for use with the utilities
  2.  
  3. * colorval  - to determine color value
  4. * fillarea  - for use with CFILL
  5. * lightbar  - for use with MENUBAR
  6. * replchar  - for use with CHAR
  7.  
  8. procedure COLORVAL
  9. parameters foreground,background,intensity,blinking
  10. * make colorval a public variable
  11. * pass foreground and background as numbers, others as logicals
  12. COLORVAL = background * 16 + foreground
  13. COLORVAL = iif(intensity,COLORVAL+8   ,COLORVAL)
  14. COLORVAL = iif(blinking ,COLORVAL+128 ,COLORVAL)  
  15. return
  16.  
  17. procedure FILLAREA
  18. parameter ROW, COL, HEIGHT, WIDTH, COLOR
  19. call CHAR with chr(ROW+1) + chr(COL+1) + chr(HEIGHT) + ;
  20.                chr(WIDTH) + chr(COLOR)
  21. return
  22.  
  23. procedure REPLCHAR
  24. parameter ROW, COL, HEIGHT, WIDTH, CHARACTER
  25. call CHAR with chr(ROW+1) + chr(COL+1) + chr(HEIGHT) + ;
  26.                chr(WIDTH) + chr(CHARACTER)
  27. return
  28.  
  29. procedure lightbar
  30. * choice and key should be public variables
  31. parameter choice, row,  col,  rows,  cols,;
  32.           total,  sep,  width,  backgrnd,  color
  33. menubar = chr(choice) + ' ' + chr(row+1) + chr(col+1) + ;
  34.           chr(rows) + chr(cols) + chr(total) + chr(sep) +; 
  35.           chr(width) + chr(backgrnd) + chr(color)
  36. call menubar with menubar
  37. choice = asc(substr(menubar,1,1))
  38. key    = asc(substr(menubar,2,1))
  39. return
  40.  
  41.