home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / basic / library / pb / library3 / erascn.bas < prev    next >
BASIC Source File  |  1994-04-11  |  1KB  |  51 lines
  1. 'Program Name    : EraScn.bas
  2. 'Author          : Lloyd L. Smith for Spectra Technical Support
  3. 'Date            : 10-26-90
  4. 'Compuserve #    : GO PCVENB, Vendor #12/Spectra,  Tech Support ID 71530,2640
  5. 'Tech Support BBS: 813-625-1721, PC-Board, 8,N,1 USR HST 300 - 14.4, 24hrs
  6. 'Tech Support Fax: 813-625-1698  G2 & G3 compatible
  7. 'Tech Support Voc: 813-625-1172  Voice
  8. 'Description     : How to erase a line, section in a line, vert section of screen
  9.  
  10.  
  11. cls
  12.  
  13. 'Build an 80 character string
  14. a$="1234567890"
  15. for i=1 to 8:b$=b$+a$:next i
  16.  
  17. 'Print full 80 character screen
  18. for i=1 to 25
  19. locate i,1:print b$;
  20. next i
  21.  
  22. 'Erase row 3 of screen to the end
  23. call EraLine(3)
  24.  
  25. 'Erase part of a line in the middle
  26. call EraPartLine(10,40,10)
  27.  
  28.  
  29. 'Erase a verticle line
  30. call EraVertLine(9,4,14)
  31.  
  32.  
  33. sub EraVertLine(r,c,l)
  34. 'r=row,c=column,l=length
  35. for j=c to l
  36. locate (r-1)+j,c
  37. print space$(1);
  38. next j
  39. end sub
  40.  
  41. sub EraPartLine(r,c,l)
  42. 'r=row,c=column,l=length
  43. locate r,c:print space$(l);
  44. end sub
  45.  
  46.  
  47. sub EraLine(r)
  48. 'r=row
  49. locate r,1:print space$(80);
  50. end sub
  51.