home *** CD-ROM | disk | FTP | other *** search
/ Shareware Overload / ShartewareOverload.cdr / progm / baslib2.zip / LOWRES.BAS < prev    next >
BASIC Source File  |  1987-03-25  |  729b  |  47 lines
  1. 'LOWRES By John Craig & Jeff Bretz
  2. 'Converted to Quickbasic 2.01 By Dennis Dreyer 3/24/87
  3.  
  4.  
  5. common shared shade, Y, X,address
  6. shade=0:Y=0:X=0:address=0
  7.  
  8. clear
  9. defint a-z
  10.  
  11. screen 0,0,0,0
  12. width 80
  13. cls
  14.  
  15. def seg
  16. for i=4 to 9
  17. read byte
  18. out &H3D0,I
  19. out &H3D1, byte
  20. next i
  21. data 127,6,100,112,0,1
  22. out &H3D9,2
  23. def seg = &HB800
  24.  
  25. for x=0 to 79
  26. shade=int(x/10) mod 4
  27. x2=(x - 40) ^2
  28. for y = 0 to 99
  29. y2=((99-y)^2)/2
  30. clr = (sqr(x2+y2)/4) mod 32
  31. gosub plotter
  32. next y
  33. next x
  34. CLS:end
  35.  
  36.  
  37.  
  38. PLOTTER:
  39. address=160*y+2*x
  40. if shade=0 then poke address, 176
  41. if shade=1 then poke address, 177
  42. if shade=2 then poke address, 178
  43. if shade=3 then poke address, 219
  44. poke address +1, (clr mod 16)-128*(clr>15)
  45. return
  46.  
  47.