home *** CD-ROM | disk | FTP | other *** search
/ Shareware Overload / ShartewareOverload.cdr / database / db3chk21.zip / SCREENS.PRG < prev    next >
Text File  |  1987-05-18  |  448b  |  35 lines
  1. * PROCEDURE FILE FOR SCREEN HANDLING
  2.  
  3.  
  4. PROCEDURE MENUDRAW
  5.  
  6. DLINE = "╠" + REPLICATE('═',78) + "╣"
  7. @ 2,0 TO 18,79 DOUBLE
  8. @ 4,0 SAY DLINE
  9. RETURN
  10.  
  11. PROCEDURE MENUCLR
  12.  
  13. CLINE = SPACE(77)
  14. STORE 5 TO R
  15. STORE 1 TO C
  16. DO WHILE R<18
  17. @ R,C SAY CLINE
  18. R=R+1
  19. ENDDO
  20. RETURN
  21.  
  22. PROCEDURE BOTCLEAR
  23.  
  24. CLINE = SPACE(77)
  25. STORE 19 TO R
  26. STORE 1 TO C
  27. DO WHILE R<24
  28. @ R,C SAY CLINE
  29. R=R+1
  30. ENDDO
  31. RETURN
  32.  
  33. PROCEDURE SMALLMENU
  34. @ 2,0 TO 18,79 DOUBLE
  35.