home *** CD-ROM | disk | FTP | other *** search
/ 17 Bit Software 1: Collection A / 17Bit_Collection_A.iso / files / 37.dms / 37.adf / a.bas < prev    next >
BASIC Source File  |  1988-05-22  |  480b  |  26 lines
  1. 5     scnclr
  2. 90    rgb 16,10,12,13
  3. 95    rgb 17,7,7,7
  4. 100   rgb 18,12,12,12
  5. 105   rgb 19,14,6,5
  6. 110   rgb 20,15,7,8
  7. 115   rgb 21,0,7,1
  8. 120   rgb 22,13,0,1
  9. 125   rgb 23,8,14,10
  10. 130   rgb 24,1,2,3
  11. 135   rgb 25,4,5,6
  12. 140   rgb 26,7,8,9
  13. 145   rgb 27,10,11,12
  14. 150   rgb 28,13,14,15
  15. 155   rgb 29,0,8,15
  16. 160   rgb 30,15,8,0
  17. 165   rgb 31,3,7,12
  18. 170   c=0 : y=1
  19. 175   pena c
  20. 180   draw (10,y to 320,y)
  21. 185   c=c+1
  22. 190   if c= 31 then c=0
  23. 195   y=y+5
  24. 200   if y=199 then end
  25. 210   goto 175
  26.