home *** CD-ROM | disk | FTP | other *** search
/ No Fragments Archive 10: Diskmags / nf_archive_10.iso / MAGS / STOS_FC / STOSFC01.MSA / STOS.ASC_BOX.ASC < prev    next >
Text File  |  1987-04-21  |  335b  |  13 lines
  1. 10 rem DRAWING BOXES
  2. 20 rem PROGRAM = A:\GRAPHICS\BOX.BAS
  3. 30  :
  4. 40 rem SET SCREEN RESOLUTION AND PALETTE
  5. 50 key off : mode 0 : hide : curs off 60 ink 13
  6. 70  :
  7. 80 rem DRAW BOX WITH SQUARE CORNERS
  8. 90 box 10,10 to 100,90
  9. 100  :
  10. 110 rem DRAW BOX WITH ROUNDED CORNERS
  11. 120 rbox 10,100 to 210,120
  12. 130 wait key : 140 default : end
  13.