1. 8 DIM b$(15), n(90)
  2. 10 CLS
  3. 15 b$(0) = "        ": b$(1) = "       *": b$(2) = "     *  ": b$(3) = "     * *": b$(4) = "   *    ": b$(5) = " *   *  ": b$(6) = "   * *  ": b$(7) = "   * * *"
  4. 16 b$(8) = " *      ": b$(9) = " *     *": b$(10) = " *   *  ": b$(11) = " *   * *": b$(12) = " * *    ": b$(13) = " * *   *": b$(14) = " * * *  ": b$(15) = " * * * *"
  5.  
  6. 20 'PRINT "PROG. a,b,c,d,e,f,g,h,i,j,k,l,m"
  7. 21 LOCATE 8, 5: PRINT "PROGRAMA DE LUCES DE ARBOL": LOCATE 10, 5: PRINT "Prog. A -->": LOCATE 11, 5: PRINT "Prog. B -->": LOCATE 12, 5: PRINT "Prog. C -->": LOCATE 13, 5: PRINT "Prog. D -->": LOCATE 14, 5: PRINT "Prog. E -->": LOCATE 15, 5: PRINT "Prog. G -->": LOCATE 16, 5: PRINT "Prog. H -->": LOCATE 17, 5: PRINT "Prog. I -->": LOCATE 18, 5: PRINT "Prog. J -->": LOCATE 19, 5: PRINT "Prog. K -->": LOCATE 20, 5: PRINT "Prog. L -->": LOCATE 21, 5: PRINT "Prog. M -->"
  8. 26 PRINT "CAMBIO DE PANTALLA 7,8,9"
  9. 27 OUT &H3F8, 0: OUT &H378, 0: OUT &H310, 0
  10. 29 pv = 50: c$ = " "
  11. 30 a$ = INKEY$
  12. 40 IF a$ = "m" THEN 12000 ELSE IF a$ = "l" THEN 11000 ELSE IF a$ = "k" THEN 10000 ELSE IF a$ = "j" THEN 9000 ELSE IF a$ = "i" THEN 8000 ELSE IF a$ = "h" THEN 3500 ELSE IF a$ = "g" THEN 7000 ELSE IF a$ = "f" THEN 6000 ELSE IF a$ = "e" THEN 5000 ELSE IF a$ = "a" THEN 1000 ELSE IF a$ = "b" THEN 2000 ELSE IF a$ = "c" THEN 3000 ELSE IF a$ = "d" THEN 4000 ELSE IF a$ = "z" THEN OUT &H378, 0: END ELSE 30
  13. 50 GOTO 10
  14.  
  15. 1000 CLS : vel = 7000: pv = 1000: n(1) = 17: n(2) = 34: n(3) = 68: n(4) = 136
  16. 1002 LOCATE 7, 20: PRINT "programa A: corrida doble";
  17. 1003 FOR w = 1 TO 4
  18. 1004 a = INT(n(w) / 16): b = n(w) MOD 16
  19. 1005 OUT &H311, n(w): OUT &H378, n(w): OUT &H310, n(w)
  20. 1006 GOSUB 2700
  21. 1008 FOR r = 0 TO vel: NEXT r
  22. 1010 GOSUB 2500
  23. 1013 NEXT w
  24. 1020 IF c$ = "0" THEN 1022 ELSE 1050
  25. 1022 con = con + 1
  26. 1023 IF con = 6 THEN con = 1: GOTO 2000
  27. 1050 GOTO 1002
  28.  
  29. 2000 CLS : vel = 7000: pv = 1000: n(1) = 1: n(2) = 2: n(3) = 4: n(4) = 8: n(5) = 16: n(6) = 32: n(7) = 64: n(8) = 128: n(9) = 255: n(10) = 128: n(11) = 64: n(12) = 32: n(13) = 16: n(14) = 8: n(15) = 4: n(16) = 2: n(17) = 1: n(18) = 255
  30. 2001 LOCATE 7, 20: PRINT "programa B: corrida ida y vuelta con destello completo";
  31. 2002 FOR w = 1 TO 18
  32. 2003 a = INT(n(w) / 16): b = n(w) MOD 16
  33. 2004 OUT &H378, n(w): OUT &H310, n(w): OUT &H311, n(w)
  34. 2005 GOSUB 2700
  35. 2008 FOR r = 0 TO vel: NEXT r
  36. 2010 GOSUB 2500
  37. 2013 NEXT w
  38. 2020 IF c$ = "0" THEN 2022 ELSE 2002
  39. 2022 con = con + 1
  40. 2023 IF con = 6 THEN con = 1: GOTO 1000
  41. 2050 GOTO 2002
  42.  
  43. 2500 'sub rutina de velocidad
  44. 2501 v$ = INKEY$
  45. 2510 IF v$ = "m" THEN 12000 ELSE IF v$ = "l" THEN 11000 ELSE IF v$ = "k" THEN 10000 ELSE IF v$ = "+" THEN vel = vel - pv ELSE IF v$ = "-" THEN vel = vel + pv ELSE IF v$ = "a" THEN 2515
  46. 2515 IF v$ = "j" THEN 9000 ELSE IF v$ = "i" THEN 8000 ELSE IF v$ = "h" THEN 3500 ELSE IF v$ = "g" THEN 7000 ELSE IF v$ = "f" THEN 6000 ELSE IF v$ = "e" THEN 5000 ELSE IF v$ = "a" THEN 1000 ELSE IF v$ = "b" THEN 2000 ELSE IF v$ = "c" THEN 3000 ELSE IF v$ = "d" THEN 4000 ELSE IF v$ = "1" THEN 2520
  47. 2520 IF v$ = "1" THEN c$ = "1": con = 0 ELSE IF v$ = "0" THEN c$ = "0" ELSE IF v$ = "7" THEN CLS : b$ = "7" ELSE IF v$ = "8" THEN CLS : b$ = "8" ELSE IF v$ = "9" THEN CLS : b$ = "9" ELSE IF v$ = "z" THEN OUT &H378, 0: END
  48. 2530 RETURN
  49.  
  50. 2700 'subrutina de visuallizacion
  51. 2701 IF b$ = "7" THEN 2702 ELSE IF b$ = "8" THEN 2766 ELSE IF b$ = "9" THEN 2866
  52. 2702 LOCATE 2, 1: PRINT "hecho por Juan"
  53. 2703 LOCATE 4, 1: PRINT "General"
  54. 2740 LOCATE 12, 20: PRINT b$(a); b$(b): LOCATE 11, 22: PRINT b$(a); b$(b): LOCATE 10, 24: PRINT b$(a); b$(b): LOCATE 9, 26: PRINT b$(a); b$(b): LOCATE 8, 28: PRINT b$(a); b$(b)
  55. 2745 LOCATE 12, 36: PRINT b$(a); b$(b): LOCATE 11, 38: PRINT b$(a); b$(b): LOCATE 10, 40: PRINT b$(a); b$(b): LOCATE 9, 42: PRINT b$(a); b$(b): LOCATE 8, 44: PRINT b$(a); b$(b)
  56. 2750 LOCATE 12, 52: PRINT b$(a); b$(b): LOCATE 11, 54: PRINT b$(a); b$(b): LOCATE 10, 56: PRINT b$(a); b$(b): LOCATE 9, 58: PRINT b$(a); b$(b): LOCATE 8, 60: PRINT b$(a); b$(b)
  57. 2760 LOCATE 13, 21: PRINT "1 2 3 4 5 6 7 8        Vel.="; vel; "R="; con
  58. 2762 RETURN
  59.  
  60. 2766 LOCATE 2, 1: PRINT "hecho por Juan"
  61. 2768 LOCATE 4, 1: PRINT "General"
  62. 2770 LOCATE 12, 20: PRINT b$(a); b$(b): LOCATE 11, 20: PRINT b$(a); b$(b): LOCATE 10, 20: PRINT b$(a); b$(b): LOCATE 9, 20: PRINT b$(a); b$(b): LOCATE 8, 20: PRINT b$(a); b$(b)
  63. 2775 LOCATE 12, 36: PRINT b$(a); b$(b): LOCATE 11, 36: PRINT b$(a); b$(b): LOCATE 10, 36: PRINT b$(a); b$(b): LOCATE 9, 36: PRINT b$(a); b$(b): LOCATE 8, 36: PRINT b$(a); b$(b)
  64. 2780 LOCATE 12, 52: PRINT b$(a); b$(b): LOCATE 11, 52: PRINT b$(a); b$(b): LOCATE 10, 52: PRINT b$(a); b$(b): LOCATE 9, 52: PRINT b$(a); b$(b): LOCATE 8, 52: PRINT b$(a); b$(b)
  65. 2790 LOCATE 13, 21: PRINT "1 2 3 4 5 6 7 8        Vel.="; vel; "R="; con
  66. 2800 RETURN
  67.  
  68. 2866 LOCATE 2, 1: PRINT "hecho por Juan"
  69. 2868 LOCATE 4, 1: PRINT "General"
  70. 2870 LOCATE 12, 20: PRINT b$(a); b$(b): LOCATE 11, 18: PRINT b$(a); b$(b): LOCATE 10, 16: PRINT b$(a); b$(b): LOCATE 9, 18: PRINT b$(a); b$(b): LOCATE 8, 20: PRINT b$(a); b$(b)
  71. 2875 LOCATE 12, 36: PRINT b$(a); b$(b): LOCATE 11, 34: PRINT b$(a); b$(b): LOCATE 10, 32: PRINT b$(a); b$(b): LOCATE 9, 34: PRINT b$(a); b$(b): LOCATE 8, 36: PRINT b$(a); b$(b)
  72. 2880 LOCATE 12, 52: PRINT b$(a); b$(b): LOCATE 11, 50: PRINT b$(a); b$(b): LOCATE 10, 48: PRINT b$(a); b$(b): LOCATE 9, 50: PRINT b$(a); b$(b): LOCATE 8, 52: PRINT b$(a); b$(b)
  73. 2890 LOCATE 13, 21: PRINT "1 2 3 4 5 6 7 8        Vel.="; vel; "R="; con
  74. 2900 RETURN
  75.  
  76. 3000 CLS : vel = 7000: pv = 1000:  n(1) = 1: n(2) = 2: n(3) = 4: n(4) = 8: n(5) = 16: n(6) = 32: n(7) = 64: n(8) = 128
  77. 3001 LOCATE 7, 20: PRINT "programa C: corrida simple derecha";
  78. 3002 FOR w = 1 TO 8
  79. 3003 a = INT(n(w) / 16): b = n(w) MOD 16
  80. 3004 OUT &H378, n(w): OUT &H310, n(w): OUT &H311, n(w)
  81. 3005 GOSUB 2700
  82. 3008 FOR r = 0 TO vel: NEXT r
  83. 3010 GOSUB 2500
  84. 3013 NEXT w
  85. 3020 IF c$ = "0" THEN 3022 ELSE 3002
  86. 3022 con = con + 1
  87. 3023 IF con = 6 THEN con = 1: GOTO 1000
  88. 3050 GOTO 3002
  89.  
  90. 3500 CLS : vel = 7000: pv = 1000:  n(1) = 128: n(2) = 64: n(3) = 32: n(4) = 16: n(5) = 8: n(6) = 4: n(7) = 2: n(8) = 1
  91. 3501 LOCATE 7, 20: PRINT "programa H: corrida simple izquierda";
  92. 3502 FOR w = 1 TO 8
  93. 3503 a = INT(n(w) / 16): b = n(w) MOD 16
  94. 3504 OUT &H378, n(w): OUT &H310, n(w): OUT &H311, n(w)
  95. 3505 GOSUB 2700
  96. 3508 FOR r = 0 TO vel: NEXT r
  97. 3510 GOSUB 2500
  98. 3513 NEXT w
  99. 3520 IF c$ = "0" THEN 3522 ELSE 3502
  100. 3522 con = con + 1
  101. 3523 IF con = 6 THEN con = 1: GOTO 1000
  102. 3550 GOTO 3502
  103.  
  104. 4000 CLS : vel = 7000: pv = 1000:  n(1) = 1: n(2) = 2: n(3) = 4: n(4) = 8: n(5) = 16: n(6) = 32: n(7) = 64: n(8) = 128: n(9) = 129: n(10) = 130: n(11) = 132: n(12) = 136: n(13) = 144: n(14) = 160: n(15) = 192: n(16) = 193: n(17) = 194: n(18) = 196: n(19) = 200: n(20) = 208: n(21) = 224: n(22) = 225: n(23) = 226: n(24) = 228: n(25) = 232: n(26) = 240: n(27) = 241: n(28) = 242: n(29) = 244: n(30) = 248: n(31) = 249: n(32) = 250: n(33) = 252: n(34) = 253: n(35) = 254: n(36) = 255
  105. 4001 LOCATE 7, 20: PRINT "programa D: corrida con stop";
  106. 4002 FOR w = 1 TO 36
  107. 4003 a = INT(n(w) / 16): b = n(w) MOD 16
  108. 4004 OUT &H378, n(w): OUT &H310, n(w): OUT &H311, n(w)
  109. 4005 GOSUB 2700
  110. 4008 FOR r = 0 TO vel: NEXT r
  111. 4010 GOSUB 2500
  112. 4013 NEXT w
  113. 4020 IF c$ = "0" THEN 4022 ELSE 4002
  114. 4022 con = con + 1
  115. 4023 IF con = 6 THEN con = 1: GOTO 1000
  116. 4050 GOTO 4002
  117.  
  118. 5000 CLS : vel = 7000: pv = 1000:  n(1) = 129: n(2) = 66: n(3) = 36: n(4) = 24: n(5) = 0: n(6) = 24: n(7) = 36: n(8) = 66: n(9) = 129
  119. 5001 LOCATE 7, 20: PRINT "programa E: ida y vualta doble";
  120. 5002 FOR w = 1 TO 9
  121. 5003 a = INT(n(w) / 16): b = n(w) MOD 16
  122. 5004 OUT &H378, n(w): OUT &H310, n(w): OUT &H311, n(w)
  123. 5005 GOSUB 2700
  124. 5008 FOR r = 0 TO vel: NEXT r
  125. 5010 GOSUB 2500
  126. 5013 NEXT w
  127. 5020 IF c$ = "0" THEN 5022 ELSE 5002
  128. 5022 con = con + 1
  129. 5023 IF con = 6 THEN con = 1: GOTO 1000
  130. 5050 GOTO 50
  131.  
  132. 6000 CLS : vel = 7000: pv = 1000:  n(1) = 255: n(2) = 126: n(3) = 60: n(4) = 24: n(5) = 0: n(6) = 24: n(7) = 60: n(8) = 126: n(9) = 255
  133. 6001 LOCATE 7, 20: PRINT "programa F: ida y vuelta - lleno";
  134. 6002 FOR w = 1 TO 9
  135. 6003 a = INT(n(w) / 16): b = n(w) MOD 16
  136. 6004 OUT &H378, n(w): OUT &H310, n(w): OUT &H311, n(w)
  137. 6005 GOSUB 2700
  138. 6008 FOR r = 0 TO vel: NEXT r
  139. 6010 GOSUB 2500
  140. 6013 NEXT w
  141. 6020 IF c$ = "0" THEN 6022 ELSE 6002
  142. 6022 con = con + 1
  143. 6023 IF con = 6 THEN con = 1: GOTO 1000
  144. 6050 GOTO 6002
  145.  
  146. 7000 CLS : vel = 7000: pv = 1000
  147. 7001 LOCATE 7, 20: PRINT "programa G:     ALEATORIO";
  148. 7002 FOR w = 1 TO 15: num = INT(RND * 255): n(w) = num
  149. 7003 a = INT(n(w) / 16): b = n(w) MOD 16
  150. 7004 OUT &H378, n(w): OUT &H310, n(w): OUT &H311, n(w)
  151. 7007 GOSUB 2700
  152. 7008 FOR r = 0 TO vel: NEXT r
  153. 7010 GOSUB 2500
  154. 7013 NEXT w
  155. 7020 IF c$ = "0" THEN 7022 ELSE 7002
  156. 7022 con = con + 1
  157. 7023 IF con = 6 THEN con = 1: GOTO 1000
  158. 7050 GOTO 7002
  159.  
  160. 8000 CLS : vel = 7000: pv = 1000:  n(1) = 1: n(2) = 2: n(3) = 4: n(4) = 8: n(5) = 16: n(6) = 32: n(7) = 64: n(8) = 128: n(9) = 129: n(10) = 130: n(11) = 132: n(12) = 136: n(13) = 144: n(14) = 160: n(15) = 192: n(16) = 193: n(17) = 194: n(18) = 196: n(19) = 200: n(20) = 208: n(21) = 224: n(22) = 225: n(23) = 226: n(24) = 228: n(25) = 232: n(26) = 240: n(27) = 241: n(28) = 242: n(29) = 244: n(30) = 248: n(31) = 249: n(32) = 250: n(33) = 252: n(34) = 253: n(35) = 254: n(36) = 255
  161. 8001 n(37) = 255: n(38) = 254: n(39) = 253: n(40) = 252: n(41) = 250: n(42) = 249: n(43) = 248: n(44) = 244: n(45) = 242: n(46) = 241: n(47) = 240: n(48) = 232: n(49) = 228: n(50) = 226: n(51) = 225: n(52) = 224: n(53) = 208: n(54) = 200: n(55) = 196: n(56) = 194: n(57) = 193: n(58) = 192: n(59) = 160: n(60) = 144: n(61) = 136: n(62) = 132: n(63) = 130: n(64) = 129: n(65) = 128: n(66) = 64: n(67) = 32: n(65) = 16: n(66) = 8: n(67) = 4: n(68) = 2: n(69) = 1
  162. 8002 LOCATE 7, 20: PRINT "programa I: corrida con stop - ida y vuelta";
  163. 8003 FOR w = 1 TO 69
  164. 8004 a = INT(n(w) / 16): b = n(w) MOD 16
  165. 8005 OUT &H378, n(w): OUT &H310, n(w): OUT &H311, n(w)
  166. 8007 GOSUB 2700
  167. 8008 FOR r = 0 TO vel: NEXT r
  168. 8010 GOSUB 2500
  169. 8013 NEXT w
  170. 8020 IF c$ = "0" THEN 8022 ELSE 8003
  171. 8022 con = con + 1
  172. 8023 IF con = 6 THEN con = 1: GOTO 1000
  173. 8050 GOTO 8002
  174.  
  175.  
  176. 9000 CLS : vel = 7000: pv = 1000:  n(1) = 1: n(2) = 2: n(3) = 4: n(4) = 8: n(5) = 16: n(6) = 32: n(7) = 64: n(8) = 128: n(9) = 129: n(10) = 130: n(11) = 132: n(12) = 136: n(13) = 144: n(14) = 160: n(15) = 192: n(16) = 193: n(17) = 194: n(18) = 196: n(19) = 200: n(20) = 208: n(21) = 224: n(22) = 225: n(23) = 226: n(24) = 228: n(25) = 232: n(26) = 240: n(27) = 241: n(28) = 242: n(29) = 244: n(30) = 248: n(31) = 249: n(32) = 250: n(33) = 252: n(34) = 253: n(35) = 254: n(36) = 255
  177. 9001 n(37) = 127: n(38) = 63: n(39) = 31: n(40) = 15: n(41) = 7: n(42) = 3: n(43) = 1: n(44) = 0
  178. 9002 LOCATE 7, 20: PRINT "programa J: corrida con stop - ida y vuelta";
  179. 9003 FOR w = 1 TO 44
  180. 9004 a = INT(n(w) / 16): b = n(w) MOD 16
  181. 9005 OUT &H378, n(w): OUT &H310, n(w): OUT &H311, n(w)
  182. 9007 GOSUB 2700
  183. 9008 FOR r = 0 TO vel: NEXT r
  184. 9010 GOSUB 2500
  185. 9013 NEXT w
  186. 9020 IF c$ = "0" THEN 9022 ELSE 9003
  187. 9022 con = con + 1
  188. 9023 IF con = 6 THEN con = 1: GOTO 1000
  189. 9050 GOTO 9002
  190.  
  191.  
  192. 10000 CLS : vel = 7000: pv = 1000:  n(1) = 129: n(2) = 195: n(3) = 231: n(4) = 255: n(5) = 126: n(6) = 60: n(7) = 24
  193. 10002 LOCATE 7, 20: PRINT "programa K: ida y vuelta - adentro para afuera";
  194. 10003 FOR w = 1 TO 7
  195. 10004 a = INT(n(w) / 16): b = n(w) MOD 16
  196. 10005 OUT &H378, n(w): OUT &H310, n(w): OUT &H311, n(w)
  197. 10007 GOSUB 2700
  198. 10008 FOR r = 0 TO vel: NEXT r
  199. 10010 GOSUB 2500
  200. 10013 NEXT w
  201. 10020 IF c$ = "0" THEN 10022 ELSE 10003
  202. 10022 con = con + 1
  203. 10023 IF con = 6 THEN con = 1: GOTO 11000
  204. 10050 GOTO 10002
  205.  
  206. 11000 CLS : vel = 7000: pv = 1000:  n(1) = 170: n(2) = 85: n(3) = 170: n(4) = 85: n(5) = 170: n(6) = 85
  207. 11002 LOCATE 7, 20: PRINT "programa L: salteado intermitente";
  208. 11003 FOR w = 1 TO 6
  209. 11004 a = INT(n(w) / 16): b = n(w) MOD 16
  210. 11005 OUT &H378, n(w): OUT &H310, n(w): OUT &H311, n(w)
  211. 11007 GOSUB 2700
  212. 11008 FOR r = 0 TO vel: NEXT r
  213. 11010 GOSUB 2500
  214. 11013 NEXT w
  215. 11020 IF c$ = "0" THEN 11022 ELSE 11003
  216. 11022 con = con + 1
  217. 11023 IF con = 6 THEN con = 1: GOTO 1000
  218. 11050 GOTO 11002
  219.  
  220. 12000 CLS : vel = 7000: pv = 1000:  n(1) = 192: n(2) = 12: n(3) = 48: n(4) = 3: n(5) = 48: n(6) = 12
  221. 12002 LOCATE 7, 20: PRINT "programa M: doble salteado";
  222. 12003 FOR w = 1 TO 6
  223. 12004 a = INT(n(w) / 16): b = n(w) MOD 16
  224. 12005 OUT &H378, n(w): OUT &H310, n(w): OUT &H311, n(w)
  225. 12007 GOSUB 2700
  226. 12008 FOR r = 0 TO vel: NEXT r
  227. 12010 GOSUB 2500
  228. 12013 NEXT w
  229. 12020 IF c$ = "0" THEN 12022 ELSE 12003
  230. 12022 con = con + 1
  231. 12023 IF con = 6 THEN con = 1: GOTO 1000
  232. 12050 GOTO 12002