home *** CD-ROM | disk | FTP | other *** search
/ 17 Bit Software 1: Collection A / 17Bit_Collection_A.iso / files / 36.dms / 36.adf / optica.bas < prev    next >
BASIC Source File  |  1988-05-22  |  2KB  |  69 lines

  1. 2     rgb 0,0,0,0
  2.  
  3. 3     rgb 1,13,13,13
  4.  
  5. 4     screen 1,4
  6.  
  7. 5     scnclr
  8.  
  9. 7     pena 1
  10.  
  11. 10    draw(322,22 to 126,44 to 126,108)
  12.  
  13. 20    draw(322,22 to 434,44 to 434,108 to 238,134 to 126,108)
  14.  
  15. 30    draw(to 322,84 to 434,108)
  16.  
  17. 40    draw(238,127 to 396,106 to 312,90 to 158,110 to 238,127)
  18.  
  19. 50    draw(to 238,100):draw(224,103 to 224,117):draw(252,98 to 252,120)
  20.  
  21. 60    draw(176,108 to 238,122 to 2*189,104)
  22.  
  23. 70    draw(252,85 to 252,73 to 416,52 to 416,96 to 2*168,79 to 2*168,64)
  24.  
  25. 80    draw(322,84 to 322,65):draw(308,68 to 308,80 to 140,101 to 140,54 to 224,72 to 224,90)
  26.  
  27. 90    draw(238,88 to 238,68 to 126,44):draw(238,68 to 434,44)
  28.  
  29. 100   draw(238,62 to 2*199,42 to 324,28 to 160,46 to 238,62)
  30.  
  31. 110   draw(322,28 to 322,51):draw(308,36 to 308,53):draw(336,36 to 336,49)
  32.  
  33. 120   draw(2*187,44 to 322,34 to 182,50):draw(154,56 to 154,98):draw(400,54 to 400,93)
  34.  
  35. 130   for x=1 to 3000:next
  36.  
  37. 140   scnclr:draw(434,120 to 400,126 to 84,86 to 84,74 to 2*196,34 to 434,40 to 434,120)
  38.  
  39. 150   draw(400,126 to 400,56 to 224,80 to 168,73 to 434,40)
  40.  
  41. 160   draw(224,81 to 364,97 to 364,62):draw(84,74 to 364,110 to 364,96)
  42.  
  43. 165   pena 7:paint(412,99),1
  44.  
  45. 166   pena 6:paint(312,95),1
  46.  
  47. 167   pena 8:paint(320,110),1
  48.  
  49. 170   for x=1 to 3000:next
  50.  
  51. 175   pena 1
  52.  
  53. 180   scnclr:draw(112,112 to 2*259,112 to 2*259,100 to 112,100)
  54.  
  55. 190   draw(70,88 to 414,88 to 2*189,64 to 2*189,76 to 396,88)
  56.  
  57. 200   draw(2*189,64 to 28,64):draw(28,52 to 440,52 to 2*259,100):draw(2*189,76 to 70,76)
  58.  
  59. 210   x=28:y=52
  60.  
  61. 220   for t=1 to 3:draw(x,y to x-2,y+1 to x-4,y+3 to x-6,y+6):draw(x,y+12 to x-2,y+11 to x-4,y+9 to x-6,y+6)
  62.  
  63. 230   draw(x,y to x+2,y+1 to x+4,y+3 to x+6,y+6):draw(x,y+12 to x+2,y+11 to x+4,y+9 to x+6,y+6):x=x+42:y=y+24:next t
  64.  
  65. 240   for x=1 to 3000:next
  66.  
  67. 250   scnclr:goto 7
  68.  
  69.