home *** CD-ROM | disk | FTP | other *** search
/ Shareware Overload / ShartewareOverload.cdr / progm / baslib2.zip / BLOAD.BAS < prev    next >
BASIC Source File  |  1987-03-25  |  941b  |  50 lines
  1. 'BLOAD.BAS By John Craig, Jeff Bretz
  2. 'Converted to Quickbasic 2.01 by Dennis Dreyer 3/25/87
  3. 'Added routines by Dennis Dreyer
  4.  
  5. clear
  6. screen 1,1
  7. color 6,1
  8. cls
  9.  
  10. twopi=2*3.141593
  11. circle (160,100),100
  12. circle (130,70),15
  13. circle (190,70),15
  14. circle (160,60),90,,.6*twopi,.9000001*twopi
  15. circle (160,75),80,,.54*twopi,.96*twopi
  16. paint (160,100),1,3
  17. paint (130,70),2,3
  18. paint (190,70),2,3
  19. paint (160,140),2,3
  20. locate 1,9
  21.  
  22. print "BSAVE/BLOAD DEMONSTRATION";
  23. Locate 2,9:Print "Drawn on screen 1"
  24. locate 22,27
  25. for w=1 to 4000:next w
  26.  
  27. def seg = &HB800
  28. BSAVE "BLOAD.DAT",0,&H4000
  29.  
  30. screen 2
  31. bload "bload.dat"
  32. locate 22,27:Print "Bloaded into Screen 2"
  33. locate 23,27
  34. print "Press space bar to continue...";
  35. while inkey$<>" "
  36. wend
  37.  
  38. screen 1,0
  39. color 1,0
  40. bload "bload.dat"
  41. locate 20,9:Print "Bloaded back into scn 1 with diff. color"
  42.  
  43. locate 23,27
  44. print "Press space bar to quit...";
  45. while inkey$<>" "
  46. wend
  47.  
  48. CLS:END
  49.  
  50.