home *** CD-ROM | disk | FTP | other *** search
/ 17 Bit Software 1: Collection A / 17Bit_Collection_A.iso / files / 37.dms / 37.adf / mes.bas < prev    next >
BASIC Source File  |  1988-05-22  |  551b  |  28 lines
  1. 2     scnclr
  2. 3     screen 0,5,0
  3. 4     cmd #0
  4. 5     rgb 1,6,9,15
  5. 10    rgb 17,0,0,0
  6. 15    rgb 18,15,15,15
  7. 20    rgb 19,15,8,10
  8. 25    rgb 20,14,3,0
  9. 30    rgb 21,15,11,0
  10. 35    rgb 22,15,15,2
  11. 40    rgb 23,11,15,0
  12. 45    rgb 24,5,13,0
  13. 50    rgb 25,0,14,13
  14. 55    rgb 26,7,13,15
  15. 60    rgb 27,12,0,142
  16. 65    rgb 28,15,2,14
  17. 70    rgb 29,15,13,11
  18. 75    rgb 30,12,9,8
  19. 80    rgb 31,11,11,11
  20. 103   c=0 : y=15
  21. 104   pena c
  22. 105   draw (10,y to 320,y)
  23. 106   c=c+1
  24. 107   if c=32 then c=0
  25. 115   y=y+2
  26. 130   IF Y = 165 THEN end :SLEEP 5*10^6 :SCNCLR :END 
  27. 135   goto 104
  28.