' *********************************** ' * LED-TextNixie DEU ENG * ' * LED-Basic >= 15.2.3 required * ' * modyfied by Vanessa Ver. 2.30 * ' *********************************** ' Bedienungsanleitung: ' ' Wenn nach Neustart und einer Wartezeit von ca. einer Sekunde die Taste gedrückt wird, ' erfolgt eine Zurücksetzung (BEEP) auf Standard Werte UND Auswahl der Sprachversion. ' Drehen = Auswahl (GER / ENG), Taste = übernehmen. ' ' Kurzer Druck auf die Taste startet das Einstellmenü.(SETUP, leicht Zeitverzögert) ' Langer Druck auf die Taste beendet das Einstellmenü.(SETUP) ' Drehen = Funktion F (C), H (B), Z (T), P, kurzer Druck = ausführen. ' ' Alle Einstellungen bleiben bei Stromausfall erhalten ( EEPROM ). ' Bei angeschlossenem Terminal (PC) weitere Ausgabe von Werten. ' Versionsanzeige bei Uhrstart. Versionscheck bei Start. ' ' F = Farbe - C = Color: ' Drehen = Farbauswahl. Farbe, Zufalls-Farbe, Fading. Kurzer Druck = übernehmen. ' Springt bei Nichtbetätigung nach ca. 2 Sekunden ohne Speichern auf Setup zurück. ' ' H = Helligkeit - B = Brightness: ' Drehen = Helligkeit (19 Stufen) plus Auto = A. Kurzer Druck = übernehmen. Springt ' bei Nichtbetätigung nach ca. 2 Sekunden ohne Speichern auf Setup zurück. ' ' Z = Zeit - T = Time: ' Drehen = Zahl, Kurzer Druck = übernehmen. Format: HH:MM.(z.B.13:56). Springt ' bei Nichtbetätigung nach ca. 2 Sekunden ohne Speichern auf Setup zurück. ' ' P = Partymodus: ' Drehen = P ON / P OFF, Kurzer Druck = übernehmen. ' ### L70 CGRB M90 P1 S2 F30 ' Color-Index (0..13) 20: data 1, 10, 30, 60, 90, 120, 150, 180, 210, 240, 270, 300, 330, 355, 1000, 1001 ' Ausgabetexte: 60: ' ES data 20, 37 61: ' IST data 30,48,56 62: ' MINUTE data 9,10,24,38,45,50 63: ' MINUTEN data 9,10,24,38,45,50,61 64: ' NACH data 2,12,21,34 65: ' UHR data 18,23,33 66: ' VOR data 29,35,42 67: ' VIERTEL data 7,10,20,33,45,50,67 68: ' HALB data 1,12,26,36 70: ' ZUFALLS-FARBE data 40,59,60,12,26,39,48,64,17,22,53,36,41 72: ' ZEIT data 3,11,10,19 ' Shown Text 160: ' IT data 0, 19 161: ' IS data 30,48 162: ' MINUTE data 9,10,24,38,45,50 163: ' MINUTES data 9,10,24,38,45,50,68 164: ' PAST data 16,22,37,45 165: ' A data 12 166: ' TO data 19,25 167: ' QUARTER data 6,18,22,33,45,50,62 168: ' HALF data 15,22,39,43 169: ' O CL O'Clock data 25,54,67 170: ' RANDOM-COLOR data 13,22,32,28,35,69,64,54,35,26,25,33 172: ' TIME data 5,10,9,11 173: ' GER data 47,50,62 174: ' ENG data 20,32,47 175: ' P ON data 16,35,44 176: ' P OFF data 16,35,43,52 177: ' FADING data 17,12,28,30,44,66 201: ' EINE data 20,30,44,50 202: ' EIN data 20,30,44 203: ' DREI- data 28,33,41,55,64 213: ' NULL - ZWOELF data 2,18,26,39,70,70, 20,30,44,57,70,70, 3,14,20,30,70,70, 28,33,41,55,70,70, 7,10,20,33,70,70 data 27,38,41,51,60,70, 8,11,21,34,48,70, 8,10,20,36,41,51, 12,21,34,45,70,70, 32,41,59,61,70,70 data 3,11,23,32,70,70, 20,39,43,70,70,70, 3,14,25,31,46,52 214: ' NOUGHT - TWELVE data 2,25,38,47,58,65, 25,32,41,70,70,70, 5,14,25,70,70,70, 19,23,33,41,50,70, 17,25,38,42,70,70 data 27,30,49,50,70,70, 48,55,63,70,70,70, 8,11,29,31,44,70, 20,30,47,58,65,70, 24,30,44,50,70,70 data 45,50,61,70,70,70, 11,26,31,49,50,61, 5,14,20,39,49,50 ' EEPROM INIT print "LED-TextNixie GER ENG" print " by Vanessa" for i = 0 to 4 ' Ausgabe der EEPROM-Daten t = IO.eeread(i) print "EEP[";i;"] = ";t next i delay 2000 led.ihsv(1, 0, 0, 128) ' Weiss Farbe Einzelziffer k = IO.getkey() ' Sartup INIT plus GER / ENG if k = 1 then IO.eewrite(0, 0xFFFF) t = IO.eeread(0) if t = 230 then goto 300 ' Versioncheck gosub 8100 ' BEEP bei reset IO.eewrite(0, 230) ' Version IO.eewrite(1, 1) ' Color auf Orange (1) IO.eewrite(2, 250) ' Helligkeit (250) IO.eewrite(3, 1) ' Anzeige (DEU) IO.eewrite(4, 0) ' Partymodus (0) w = IO.eeread(3) ' GER / ENG IO.setenc(w, 1, 0) ' Encoder set 290: led.blackout() t = w if w <> 1 goto 292 for i = 0 to 2 a = read 173, i ' GER LED.iled(1, a) ' Ziffer anschalten next i led.show() goto 293 292: for i = 0 to 2 a = read 174, i ' ENG LED.iled(1, a) ' Ziffer anschalten next i led.show() 293: w = IO.getenc() ' Read Encoder k = IO.getkey() if t = w and k <> 1 goto 293 if t <> w goto 290 gosub 8100 ' BEEP if (IO.eeread(3)) <> w then IO.eewrite(3, w) led.blackout() '............................................................ 300: ' INIT o = 0 ' kein Setup led.ihsv(0,0,0,0) ' blackout '============================================================== 400: if (IO.eeread(3)) <> 1 goto 410 'DEU / ENG ' Version GER for i = 0 to 5 a = read 213, i + 2 * 6 ' Version if a <> 70 then LED.iled(1, a) ' Ziffer anschalten next i led.show() delay 1500 led.blackout() LED.iled(1, 4) ' Punkt led.show() delay 1000 led.blackout() for i = 0 to 5 a = read 213, i + 3 * 6 ' Version if a <> 70 then LED.iled(1, a) ' Ziffer anschalten next i led.show() delay 1500 led.blackout() for i = 0 to 5 a = read 213, i + 0 * 6 ' Version if a <> 70 then LED.iled(1, a) ' Ziffer anschalten next i led.show() delay 1500 goto 1000 ' Hauptschleife deutsch '.............................................................. 410: ' Version ENG for i = 0 to 5 a = read 214, i + 2 * 6 ' Version if a <> 70 then LED.iled(1, a) ' Ziffer anschalten next i led.show() delay 1500 led.blackout() LED.iled(1, 4) ' Punkt led.show() delay 1000 led.blackout() for i = 0 to 5 a = read 214, i + 3 * 6 ' Version if a <> 70 then LED.iled(1, a) ' Ziffer anschalten next i led.show() delay 1500 led.blackout() for i = 0 to 5 a = read 214, i + 0 * 6 ' Version if a <> 70 then LED.iled(1, a) ' Ziffer anschalten next i led.show() delay 1500 goto 2000 ' main loop english '============================================================== ' Global Vars ' t = temp, c = color, s = sekunde, m = Minute, h = Stunde, f = Farbe/Fade ' a = Position(Buchstabe), v = Helligkeit, z = zähler(dimmen), i = zähler(Wortlänge) ' y = dimmen hoch / runter, k = key, o = Setup, w = DEU / ENG (1 / 0), p = Partymodus '=====Hauptschleife:=========================================== 1000: led.blackout() ' Zeit holen s = IO.getrtc(0) ' Sekunden m = IO.getrtc(1) ' Minuten h = IO.getrtc(2) ' Stunden f = IO.eeread(1) ' Farbwert, Fade bei 15, random bei 14 v = IO.eeread(2) ' Helligkeit if f = 15 then c = c + 1 if f = 14 then c = random % 360 if f < 14 then c = read 20 ,f c = c % 360 if v = 30 then v = IO.getldr() + 31 if v > 250 then v = 250 led.ihsv(2, c, 255, 0) ' Farbe (dimmen) k = IO.getkey() if k = 1 then goto 8200 ' setup If h > 12 then h = h - 12' 12-Stunden Korrektur '.............................................................. ' ES IST for y = 0 to 1 for z = 0 to v step v / 31 for i = 0 to 1 a = read 60, i LED.iled(2, a) ' Ziffer anschalten next i led.show() if f = 15 then c = c + 1 c = c % 360 if y = 0 then LED.ihsv(2, c, 255, z) else LED.ihsv(2, c, 255, v - z) ' hoch / runter next z next y led.blackout() k = IO.getkey() if k = 1 then goto 8200 ' setup for y = 0 to 1 for z = 0 to v step v / 31 for i = 0 to 2 a = read 61, i LED.iled(2, a) ' Ziffer anschalten next i led.show() if f = 15 then c = c + 1 c = c % 360 if y = 0 then LED.ihsv(2, c, 255, z) else LED.ihsv(2, c, 255, v - z) ' hoch / runter next z next y led.blackout() k = IO.getkey() if k = 1 then goto 8200 ' setup '........................................................... ' Minute ausgeben if m > 0 and o <> 1 then gosub 6000 ' Minute 1-10 if m > 10 and o <> 1 then gosub 6010 ' Minute 11-14 if m = 15 and o <> 1 then gosub 6020 ' Viertelstunde if m > 15 and o <> 1 then gosub 6030 ' Minute 16-19 if m > 19 and o <> 1 then gosub 6040 ' Minute 20-29 if m = 30 and o <> 1 then gosub 6050 ' Halbestunde if m > 30 and o <> 1 then gosub 6060 ' Minute 31-40 if m > 40 and o <> 1 then gosub 6070 ' Minute 41-44 if m = 45 and o <> 1 then gosub 6080 ' Dreiviertelstunde if m > 45 and o <> 1 then gosub 6090 ' Minute 46-49 if m > 49 and o <> 1 then gosub 6095 ' Minute 50-59 if o = 1 goto 8200 ' Setup k = IO.getkey() if k = 1 then goto 8200 ' setup ' Stunde ausgeben if h = 1 and m <= 10 then gosub 9101 ' ausnahme EIN if h = 1 and m <= 10 then goto 1010 gosub 9110 ' Stunde NULL - ZWOELF 1010: k = IO.getkey() if k = 1 then goto 8200 ' setup if m <= 10 then gosub 9100 ' Uhr if (IO.eeread(4)) <> 1 goto 1000 i = random if i <= 4681 then gosub 3000 ' Partymodus if i > 4681 and i <= 9362 then gosub 3100 ' Partymodus if i > 9362 and i <= 14043 then gosub 3200 ' Partymodus if i > 14043 and i <= 18724 then gosub 3300 ' Partymodus if i > 18724 and i <= 23405 then gosub 3400 ' Partymodus if i > 23405 and i <= 28086 then gosub 3500 ' Partymodus if i > 28086 then gosub 3600 ' Partymodus goto 1000 '===============Ende Hauptschleife============================ '=====MAIN LOOP:============================================== 2000: led.blackout() ' get time s = IO.getrtc(0) ' Sekunden m = IO.getrtc(1) ' Minuten h = IO.getrtc(2) ' Stunden f = IO.eeread(1) ' color v = IO.eeread(2) ' brightness if f = 15 then c = c + 1 if f = 14 then c = random % 360 if f < 14 then c = read 20 ,f c = c % 360 if v = 30 then v = IO.getldr() + 31 if v > 250 then v = 250 led.ihsv(2,c, 255, 0) ' color (dimmen) k = IO.getkey() if k = 1 then goto 8400 ' setup If h > 12 then h = h - 12' 12-Stunden Korrektur '.............................................................. ' IT IS for y = 0 to 1 for z = 0 to v step v / 31 for i = 0 to 1 a = read 160, i LED.iled(2, a) ' Ziffer anschalten next i led.show() if f = 15 then c = c + 1 c = c % 360 if y = 0 then LED.ihsv(2, c, 255, z) else LED.ihsv(2, c, 255, v - z) ' up / down next z next y led.blackout() k = IO.getkey() if k = 1 then goto 8400 ' setup for y = 0 to 1 for z = 0 to v step v / 31 for i = 0 to 1 a = read 161, i LED.iled(2, a) ' Ziffer anschalten next i led.show() if f = 15 then c = c + 1 c = c % 360 if y = 0 then LED.ihsv(2, c, 255, z) else LED.ihsv(2, c, 255, v - z) ' hoch / runter next z next y led.blackout() k = IO.getkey() if k = 1 then goto 8400 ' setup '........................................................... ' Minute ausgeben if m > 0 and o <> 1 then gosub 6200 ' Minute 1-10 if m > 10 and o <> 1 then gosub 6210 ' Minute 11-14 if m = 15 and o <> 1 then gosub 6220 ' Viertelstunde if m > 15 and o <> 1 then gosub 6230 ' Minute 16-19 if m > 19 and o <> 1 then gosub 6240 ' Minute 20-29 if m = 30 and o <> 1 then gosub 6250 ' Halbestunde if m > 30 and o <> 1 then gosub 6260 ' Minute 31-40 if m > 40 and o <> 1 then gosub 6270 ' Minute 41-44 if m = 45 and o <> 1 then gosub 6280 ' Dreiviertelstunde if m > 45 and o <> 1 then gosub 6290 ' Minute 46-49 if m > 49 and o <> 1 then gosub 6295 ' Minute 50-59 if o = 1 goto 8400 ' Setup k = IO.getkey() if k = 1 then goto 8400 ' setup ' Stunde ausgeben gosub 9111 ' Stunde NOUGHT - TWELVE k = IO.getkey() if k = 1 then goto 8400 ' setup if m = 0 then gosub 6299 ' O'CLOCK if (IO.eeread(4)) <> 1 goto 2000 i = random if i <= 4681 then gosub 3000 ' Partymodus if i > 4681 and i <= 9362 then gosub 3100 ' Partymodus if i > 9362 and i <= 14043 then gosub 3200 ' Partymodus if i > 14043 and i <= 18724 then gosub 3300 ' Partymodus if i > 18724 and i <= 23405 then gosub 3400 ' Partymodus if i > 23405 and i <= 28086 then gosub 3500 ' Partymodus if i > 28086 then gosub 3600 ' Partymodus goto 2000 '=============end Main Loop=================================== ' Partymodus 3000: for n = 1 to 400 c = random % 360 a = random % 70 led.lhsv(a, c, 255, v) ' Farbe a = random % 70 LED.iled(0, a) led.show() delay 40 next n return '............................................................ 3100: h = random % 360 LED.ihsv(9, h, 255, v) if (IO.eeread(3)) <> 1 goto 3110 ' DEU / ENG for n = 0 to 34 h = Random % 13 for i = 0 to 5 a = read 213, i + h * 6 if a <> 70 then LED.iled(9, a) ' Ziffer anschalten next i led.show() delay 210 LED.blackout() next n return 3110: for n = 0 to 34 h = Random % 13 for i = 0 to 5 a = read 214, i + h * 6 if a <> 70 then LED.iled(9, a) ' Ziffer anschalten next i led.show() delay 210 LED.blackout() next n return '............................................................ 3200: a = Random % 360 b = Random % 360 n = Random % 360 z = Random % 360 for i = 0 to 249 LED.iall(0) led.lhsv(i % 70, z, 255, v) led.lhsv(70 - ((i + 1) % 70), a, 255, v) led.lhsv((i + 9) % 70, b, 255, v) led.lhsv(70 - ((i + 10) % 70), n, 255, v) led.show() delay 60 next i return '............................................................ 3300: LED.iall(0) z = Random % 360 for n = 0 to 5 for i = 70 downto 0 if n % 2 = 0 then led.lhsv(i, (z + n * i) % 360, 255, v) else led.lhsv(70 - i,(z + n * i) % 360, 255, v) led.show() next i next n return '............................................................ 3400: h = random % 360 for i = 1 to 500 LED.rainbow(h, 255, v, 0, 70, 3) LED.show() h = (h + i / 10) % 360 next i return '............................................................ 3500: h = random % 360 for i = 1 to 300 LED.iall(0) LED.ihsv(9, (h + i) % 360, 255, v) LED.iled(9, h % 7) LED.repeat(0, 7, 10) LED.show() h = h + 2 delay 40 next i return '............................................................ 3600: for z = 1 to 250 i = random % 100 if i < 75 goto 3665 h = ((random % 256) * v) / 256 LED.ihsv(9, 0, 0, h) LED.iall(9) 3665: LED.show() next z return '============================================================= 6000: if m > 10 then return gosub 7000 ' zahl der Minute ermitteln und ausgeben k = IO.getkey() if k = 1 then goto 6005 ' key return ' Text NACH ausgeben for y = 0 to 1 for z = 0 to v step v / 31 for i = 0 to 3 a = read 64, i LED.iled(2, a) ' Ziffer anschalten next i led.show() if f = 15 then c = c + 1 c = c % 360 if y = 0 then LED.ihsv(2, c, 255, z) else LED.ihsv(2, c, 255, v - z) ' hoch / runter next z next y led.blackout() return 6005: ' Key return o = 1 return 6010: if m > 14 then return if m = 11 then gosub 7004 ' VIER vor VIERTEL if m = 12 then gosub 7003 ' DREI vor VIERTEL if m = 13 then gosub 7002 ' ZWEI vor VIERTEL if m = 14 then gosub 7001 ' EINE vor VIERTEL k = IO.getkey() if k = 1 then goto 6005 ' key return ' Text VOR VIERTEL ausgeben for y = 0 to 1 for z = 0 to v step v / 31 for i = 0 to 2 a = read 66, i LED.iled(2, a) ' Ziffer anschalten next i led.show() if f = 15 then c = c + 1 c = c % 360 if y = 0 then LED.ihsv(2, c, 255, z) else LED.ihsv(2, c, 255, v - z) ' hoch / runter next z next y led.blackout() k = IO.getkey() if k = 1 then goto 6005 ' key return for y = 0 to 1 for z = 0 to v step v / 31 for i = 0 to 6 a = read 67, i LED.iled(2, a) ' Ziffer anschalten next i led.show() if f = 15 then c = c + 1 c = c % 360 if y = 0 then LED.ihsv(2, c, 255, z) else LED.ihsv(2, c, 255, v - z) ' hoch / runter next z next y led.blackout() gosub 8150 ' Stunde eins weiterzählen return 6020: ' Text VIERTEL ausgeben led.blackout() k = IO.getkey() if k = 1 then goto 6005 ' key return for y = 0 to 1 for z = 0 to v step v / 31 for i = 0 to 6 a = read 67, i LED.iled(2, a) ' Ziffer anschalten next i led.show() if f = 15 then c = c + 1 c = c % 360 if y = 0 then LED.ihsv(2, c, 255, z) else LED.ihsv(2, c, 255, v - z) ' hoch / runter next z next y led.blackout() gosub 8150 ' Stunde eins weiterzählen return 6030: if m > 19 then return if m = 16 then gosub 7001 ' Eine nach VIERTEL if m = 17 then gosub 7002 ' Zwei nach VIERTEL if m = 18 then gosub 7003 ' Drei nach VIERTEL if m = 19 then gosub 7004 ' Vier nach VIERTEL k = IO.getkey() if k = 1 then goto 6005 ' key return ' Text NACH VIERTEL ausgeben for y = 0 to 1 for z = 0 to v step v / 31 for i = 0 to 3 a = read 64, i LED.iled(2, a) ' Ziffer anschalten next i led.show() if f = 15 then c = c + 1 c = c % 360 if y = 0 then LED.ihsv(2, c, 255, z) else LED.ihsv(2, c, 255, v - z) ' hoch / runter next z next y led.blackout() k = IO.getkey() if k = 1 then goto 6005 ' key return for y = 0 to 1 for z = 0 to v step v / 31 for i = 0 to 6 a = read 67, i LED.iled(2, a) ' Ziffer anschalten next i led.show() if f = 15 then c = c + 1 c = c % 360 if y = 0 then LED.ihsv(2, c, 255, z) else LED.ihsv(2, c, 255, v - z) ' hoch / runter next z next y led.blackout() gosub 8150 ' Stunde eins weiterzählen return 6040: if m > 29 then return if m = 20 then gosub 7010 ' ZEHN VOR HALB if m = 21 then gosub 7009 ' NEUN VOR HALB if m = 22 then gosub 7008 ' ACHT VOR HALB if m = 23 then gosub 7007 ' SIEBEN VOR HALB if m = 24 then gosub 7006 ' SECHS VOR HALB if m = 25 then gosub 7005 ' FUENF VOR HALB if m = 26 then gosub 7004 ' VIER VOR HALB if m = 27 then gosub 7003 ' DREI VOR HALB if m = 28 then gosub 7002 ' ZWEI VOR HALB if m = 29 then gosub 7001 ' EINE VOR HALB k = IO.getkey() if k = 1 then goto 6005 ' key return ' Text VOR HALB ausgeben for y = 0 to 1 for z = 0 to v step v / 31 for i = 0 to 2 a = read 66, i LED.iled(2, a) ' Ziffer anschalten next i led.show() if f = 15 then c = c + 1 c = c % 360 if y = 0 then LED.ihsv(2, c, 255, z) else LED.ihsv(2, c, 255, v - z) ' hoch / runter next z next y led.blackout() k = IO.getkey() if k = 1 then goto 6005 ' key return for y = 0 to 1 for z = 0 to v step v / 31 for i = 0 to 3 a = read 68, i LED.iled(2, a) ' Ziffer anschalten next i led.show() if f = 15 then c = c + 1 c = c % 360 if y = 0 then LED.ihsv(2, c, 255, z) else LED.ihsv(2, c, 255, v - z) ' hoch / runter next z next y led.blackout() gosub 8150 ' Stunde eins weiterzählen return 6050: ' Text HALB ausgeben k = IO.getkey() if k = 1 then goto 6005 ' key return for y = 0 to 1 for z = 0 to v step v / 31 for i = 0 to 3 a = read 68, i LED.iled(2, a) ' Ziffer anschalten next i led.show() if f = 15 then c = c + 1 c = c % 360 if y = 0 then LED.ihsv(2, c, 255, z) else LED.ihsv(2, c, 255, v - z) ' hoch / runter next z next y led.blackout() gosub 8150 ' Stunde eins weiterzählen return 6060: if m > 40 then return if m = 31 then gosub 7001 ' EINE nach HALB if m = 32 then gosub 7002 if m = 33 then gosub 7003 if m = 34 then gosub 7004 if m = 35 then gosub 7005 if m = 36 then gosub 7006 if m = 37 then gosub 7007 if m = 38 then gosub 7008 if m = 39 then gosub 7009 if m = 40 then gosub 7010 k = IO.getkey() if k = 1 then goto 6005 ' key return ' Text NACH HALB ausgeben for y = 0 to 1 for z = 0 to v step v / 31 for i = 0 to 3 a = read 64, i LED.iled(2, a) ' Ziffer anschalten next i led.show() if f = 15 then c = c + 1 c = c % 360 if y = 0 then LED.ihsv(2, c, 255, z) else LED.ihsv(2, c, 255, v - z) ' hoch / runter next z next y led.blackout() k = IO.getkey() if k = 1 then goto 6005 ' key return for y = 0 to 1 for z = 0 to v step v / 31 for i = 0 to 3 a = read 68, i LED.iled(2, a) ' Ziffer anschalten next i led.show() if f = 15 then c = c + 1 c = c % 360 if y = 0 then LED.ihsv(2, c, 255, z) else LED.ihsv(2, c, 255, v - z) ' hoch / runter next z next y led.blackout() gosub 8150 ' Stunde eins weiterzählen return 6070: if m > 44 then return if m = 41 then gosub 7004 ' VIER vor DREI VIERTEL if m = 42 then gosub 7003 if m = 43 then gosub 7002 if m = 44 then gosub 7001 k = IO.getkey() if k = 1 then goto 6005 ' key return ' Text VOR DREI- VIERTEL ausgeben for y = 0 to 1 for z = 0 to v step v / 31 for i = 0 to 2 a = read 66, i LED.iled(2, a) ' Ziffer anschalten next i led.show() if f = 15 then c = c + 1 c = c % 360 if y = 0 then LED.ihsv(2, c, 255, z) else LED.ihsv(2, c, 255, v - z) ' hoch / runter next z next y led.blackout() k = IO.getkey() if k = 1 then goto 6005 ' key return for y = 0 to 1 for z = 0 to v step v / 31 for i = 0 to 4 a = read 203, i LED.iled(2, a) ' Ziffer anschalten next i led.show() if f = 15 then c = c + 1 c = c % 360 if y = 0 then LED.ihsv(2, c, 255, z) else LED.ihsv(2, c, 255, v - z) ' hoch / runter next z next y led.blackout() k = IO.getkey() if k = 1 then goto 6005 ' key return for y = 0 to 1 for z = 0 to v step v / 31 for i = 0 to 6 a = read 67, i LED.iled(2, a) ' Ziffer anschalten next i led.show() if f = 15 then c = c + 1 c = c % 360 if y = 0 then LED.ihsv(2, c, 255, z) else LED.ihsv(2, c, 255, v - z) ' hoch / runter next z next y led.blackout() gosub 8150 ' Stunde eins weiterzählen return 6080: ' Text DREI- VIERTEL for y = 0 to 1 for z = 0 to v step v / 31 for i = 0 to 4 a = read 203, i LED.iled(2, a) ' Ziffer anschalten next i led.show() if f = 15 then c = c + 1 c = c % 360 if y = 0 then LED.ihsv(2, c, 255, z) else LED.ihsv(2, c, 255, v - z) ' hoch / runter next z next y led.blackout() k = IO.getkey() if k = 1 then goto 6005 ' key return for y = 0 to 1 for z = 0 to v step v / 31 for i = 0 to 6 a = read 67, i LED.iled(2, a) ' Ziffer anschalten next i led.show() if f = 15 then c = c + 1 c = c % 360 if y = 0 then LED.ihsv(2, c, 255, z) else LED.ihsv(2, c, 255, v - z) ' hoch / runter next z next y led.blackout() gosub 8150 ' Stunde eins weiterzählen return 6090: if m > 49 then return if m = 46 then gosub 7001 ' Eine nach DREI VIERTEL if m = 47 then gosub 7002 if m = 48 then gosub 7003 if m = 49 then gosub 7004 k = IO.getkey() if k = 1 then goto 6005 ' key return ' Text NACH DREI- VIERTEL ausgeben for y = 0 to 1 for z = 0 to v step v / 31 for i = 0 to 3 a = read 64, i LED.iled(2, a) ' Ziffer anschalten next i led.show() if f = 15 then c = c + 1 c = c % 360 if y = 0 then LED.ihsv(2, c, 255, z) else LED.ihsv(2, c, 255, v - z) ' hoch / runter next z next y led.blackout() k = IO.getkey() if k = 1 then goto 6005 ' key return for y = 0 to 1 for z = 0 to v step v / 31 for i = 0 to 4 a = read 203, i LED.iled(2, a) ' Ziffer anschalten next i led.show() if f = 15 then c = c + 1 c = c % 360 if y = 0 then LED.ihsv(2, c, 255, z) else LED.ihsv(2, c, 255, v - z) ' hoch / runter next z next y led.blackout() k = IO.getkey() if k = 1 then goto 6005 ' key return for y = 0 to 1 for z = 0 to v step v / 31 for i = 0 to 6 a = read 67, i LED.iled(2, a) ' Ziffer anschalten next i led.show() if f = 15 then c = c + 1 c = c % 360 if y = 0 then LED.ihsv(2, c, 255, z) else LED.ihsv(2, c, 255, v - z) ' hoch / runter next z next y led.blackout() gosub 8150 ' Stunde eins weiterzählen return 6095: if m = 0 then return if m = 50 then gosub 7010 ' ZEHN VOR Stunde if m = 51 then gosub 7009 if m = 52 then gosub 7008 if m = 53 then gosub 7007 if m = 54 then gosub 7006 if m = 55 then gosub 7005 if m = 56 then gosub 7004 if m = 57 then gosub 7003 if m = 58 then gosub 7002 if m = 59 then gosub 7001 k = IO.getkey() if k = 1 then goto 6005 ' key return ' Text VOR ausgeben for y = 0 to 1 for z = 0 to v step v / 31 for i = 0 to 2 a = read 66, i LED.iled(2, a) ' Ziffer anschalten next i led.show() if f = 15 then c = c + 1 c = c % 360 if y = 0 then LED.ihsv(2, c, 255, z) else LED.ihsv(2, c, 255, v - z) ' hoch / runter next z next y led.blackout() gosub 8150 ' Stunde eins weiterzählen return '........................................................... 6100: ' ZUFALL-FARBE for i = 0 to 12 led.ihsv(2, random % 360, 255, v) ' Farbe a = read 70, i LED.iled(2, a) ' Ziffer anschalten led.show() delay 300 LED.iled(0, a) next i return 6110: ' FARBE led.ihsv(2, read 20,c , 255, v) ' Farbe for i = 8 to 12 a = read 70, i LED.iled(2, a) ' Ziffer anschalten led.show() delay 300 LED.iled(0, a) next i return 6120: ' FADING led.ihsv(2, c, 255, v) ' Farbe for i = 0 to 5 a = read 177, i LED.iled(2, a) ' Ziffer anschalten led.show() delay 300 LED.iled(0, a) next i return 6130: ' ZEIT led.ihsv(2, c, 255, v) ' Farbe for i = 0 to 3 a = read 72, i LED.iled(2, a) ' Ziffer anschalten led.show() delay 400 LED.iled(0, a) next i led.show() return '======================================================= 6200: if m > 10 then return gosub 7100 ' zahl der Minute ermitteln und ausgeben k = IO.getkey() if k = 1 then goto 6205 ' key return ' Text PAST ausgeben for y = 0 to 1 for z = 0 to v step v / 31 for i = 0 to 3 a = read 164, i LED.iled(2, a) ' Ziffer anschalten next i led.show() if f = 15 then c = c + 1 c = c % 360 if y = 0 then LED.ihsv(2, c, 255, z) else LED.ihsv(2, c, 255, v - z) ' hoch / runter next z next y led.blackout() return 6205: ' Key return o = 1 return 6210: if m > 14 then return if m = 11 then gosub 7104 ' VIER vor VIERTEL if m = 12 then gosub 7103 if m = 13 then gosub 7102 if m = 14 then gosub 7101 k = IO.getkey() if k = 1 then goto 6205 ' key return ' Text TO und QUARTER PAST ausgeben for y = 0 to 1 for z = 0 to v step v / 31 for i = 0 to 1 a = read 166, i LED.iled(2, a) ' Ziffer anschalten next i led.show() if f = 15 then c = c + 1 c = c % 360 if y = 0 then LED.ihsv(2, c, 255, z) else LED.ihsv(2, c, 255, v - z) ' hoch / runter next z next y led.blackout() k = IO.getkey() if k = 1 then goto 6205 ' key return gosub 8300 'A QUARTER ' PAST ausgeben for y = 0 to 1 for z = 0 to v step v / 31 for i = 0 to 3 a = read 164, i LED.iled(2, a) ' Ziffer anschalten next i led.show() if f = 15 then c = c + 1 c = c % 360 if y = 0 then LED.ihsv(2, c, 255, z) else LED.ihsv(2, c, 255, v - z) ' hoch / runter next z next y led.blackout() k = IO.getkey() if k = 1 then goto 6205 ' key return return 6220: ' Text QUARTER ausgeben gosub 8300 'A QUARTER ' PAST ausgeben for y = 0 to 1 for z = 0 to v step v / 31 for i = 0 to 3 a = read 164, i LED.iled(2, a) ' Ziffer anschalten next i led.show() if f = 15 then c = c + 1 c = c % 360 if y = 0 then LED.ihsv(2, c, 255, z) else LED.ihsv(2, c, 255, v - z) ' hoch / runter next z next y led.blackout() k = IO.getkey() if k = 1 then goto 6205 ' key return return 6230: if m > 19 then return if m = 16 then gosub 7101 ' Eine nach VIERTEL if m = 17 then gosub 7102 if m = 18 then gosub 7103 if m = 19 then gosub 7104 ' Text PAST QUARTER PAST ausgeben for y = 0 to 1 for z = 0 to v step v / 31 for i = 0 to 3 a = read 164, i LED.iled(2, a) ' Ziffer anschalten next i led.show() if f = 15 then c = c + 1 c = c % 360 if y = 0 then LED.ihsv(2, c, 255, z) else LED.ihsv(2, c, 255, v - z) ' hoch / runter next z next y led.blackout() k = IO.getkey() if k = 1 then goto 6205 ' key return gosub 8300 'A QUARTER ' TEXT PAST for y = 0 to 1 for z = 0 to v step v / 31 for i = 0 to 3 a = read 164, i LED.iled(2, a) ' Ziffer anschalten next i led.show() if f = 15 then c = c + 1 c = c % 360 if y = 0 then LED.ihsv(2, c, 255, z) else LED.ihsv(2, c, 255, v - z) ' hoch / runter next z next y led.blackout() k = IO.getkey() if k = 1 then goto 6205 ' key return return 6240: if m > 29 then return if m = 20 then gosub 7110 ' ZEHN VOR HALB if m = 21 then gosub 7109 if m = 22 then gosub 7108 if m = 23 then gosub 7107 if m = 24 then gosub 7106 if m = 25 then gosub 7105 if m = 26 then gosub 7104 if m = 27 then gosub 7103 if m = 28 then gosub 7102 if m = 29 then gosub 7101 k = IO.getkey() if k = 1 then goto 6205 ' key return ' Text TO HALF PAST ausgeben ' TO for y = 0 to 1 for z = 0 to v step v / 31 for i = 0 to 1 a = read 166, i LED.iled(2, a) ' Ziffer anschalten next i led.show() if f = 15 then c = c + 1 c = c % 360 if y = 0 then LED.ihsv(2, c, 255, z) else LED.ihsv(2, c, 255, v - z) ' hoch / runter next z next y led.blackout() k = IO.getkey() if k = 1 then goto 6205 ' key return ' HALF for y = 0 to 1 for z = 0 to v step v / 31 for i = 0 to 3 a = read 168, i LED.iled(2, a) ' Ziffer anschalten next i led.show() if f = 15 then c = c + 1 c = c % 360 if y = 0 then LED.ihsv(2, c, 255, z) else LED.ihsv(2, c, 255, v - z) ' hoch / runter next z next y led.blackout() ' TEXT PAST for y = 0 to 1 for z = 0 to v step v / 31 for i = 0 to 3 a = read 164, i LED.iled(2, a) ' Ziffer anschalten next i led.show() if f = 15 then c = c + 1 c = c % 360 if y = 0 then LED.ihsv(2, c, 255, z) else LED.ihsv(2, c, 255, v - z) ' hoch / runter next z next y led.blackout() return 6250: ' HALF PAST for y = 0 to 1 for z = 0 to v step v / 31 for i = 0 to 3 a = read 168, i LED.iled(2, a) ' Ziffer anschalten next i led.show() if f = 15 then c = c + 1 c = c % 360 if y = 0 then LED.ihsv(2, c, 255, z) else LED.ihsv(2, c, 255, v - z) ' hoch / runter next z next y led.blackout() ' TEXT PAST for y = 0 to 1 for z = 0 to v step v / 31 for i = 0 to 3 a = read 164, i LED.iled(2, a) ' Ziffer anschalten next i led.show() if f = 15 then c = c + 1 c = c % 360 if y = 0 then LED.ihsv(2, c, 255, z) else LED.ihsv(2, c, 255, v - z) ' hoch / runter next z next y led.blackout() return 6260: if m > 40 then return if m = 31 then gosub 7101 ' EINE nach HALB if m = 32 then gosub 7102 if m = 33 then gosub 7103 if m = 34 then gosub 7104 if m = 35 then gosub 7105 if m = 36 then gosub 7106 if m = 37 then gosub 7107 if m = 38 then gosub 7108 if m = 39 then gosub 7109 if m = 40 then gosub 7110 ' Text PAST HALF PAST ausgeben for y = 0 to 1 for z = 0 to v step v / 31 for i = 0 to 3 a = read 164, i LED.iled(2, a) ' Ziffer anschalten next i led.show() if f = 15 then c = c + 1 c = c % 360 if y = 0 then LED.ihsv(2, c, 255, z) else LED.ihsv(2, c, 255, v - z) ' hoch / runter next z next y led.blackout() for y = 0 to 1 for z = 0 to v step v / 31 for i = 0 to 3 a = read 168, i LED.iled(2, a) ' Ziffer anschalten next i led.show() if f = 15 then c = c + 1 c = c % 360 if y = 0 then LED.ihsv(2, c, 255, z) else LED.ihsv(2, c, 255, v - z) ' hoch / runter next z next y ' TEXT PAST for y = 0 to 1 for z = 0 to v step v / 31 for i = 0 to 3 a = read 164, i LED.iled(2, a) ' Ziffer anschalten next i led.show() if f = 15 then c = c + 1 c = c % 360 if y = 0 then LED.ihsv(2, c, 255, z) else LED.ihsv(2, c, 255, v - z) ' hoch / runter next z next y led.blackout() return 6270: if m > 44 then return if m = 41 then gosub 7104 ' VIER vor DREI VIERTEL if m = 42 then gosub 7103 if m = 43 then gosub 7102 if m = 44 then gosub 7101 ' Text TO QUARTER TO ausgeben for y = 0 to 1 for z = 0 to v step v / 31 for i = 0 to 1 a = read 166, i LED.iled(2, a) ' Ziffer anschalten next i led.show() if f = 15 then c = c + 1 c = c % 360 if y = 0 then LED.ihsv(2, c, 255, z) else LED.ihsv(2, c, 255, v - z) ' hoch / runter next z next y led.blackout() k = IO.getkey() if k = 1 then goto 6205 ' key return gosub 8300 ' A QUARTER ' Text TO for y = 0 to 1 for z = 0 to v step v / 31 for i = 0 to 1 a = read 166, i LED.iled(2, a) ' Ziffer anschalten next i led.show() if f = 15 then c = c + 1 c = c % 360 if y = 0 then LED.ihsv(2, c, 255, z) else LED.ihsv(2, c, 255, v - z) ' hoch / runter next z next y led.blackout() k = IO.getkey() if k = 1 then goto 6205 ' key return gosub 8150 ' Stunde eins weiterzählen return 6280: ' Text QUARTER ausgeben gosub 8300 ' A QUARTER gosub 8150 ' Stunde eins weiterzählen ' Text TO for y = 0 to 1 for z = 0 to v step v / 31 for i = 0 to 1 a = read 166, i LED.iled(2, a) ' Ziffer anschalten next i led.show() if f = 15 then c = c + 1 c = c % 360 if y = 0 then LED.ihsv(2, c, 255, z) else LED.ihsv(2, c, 255, v - z) ' hoch / runter next z next y led.blackout() return 6290: if m > 49 then return if m = 46 then gosub 7101 ' Eine nach VIERTEL if m = 47 then gosub 7102 if m = 48 then gosub 7103 if m = 49 then gosub 7104 ' Text PAST QUARTER TO ausgeben for y = 0 to 1 for z = 0 to v step v / 31 for i = 0 to 3 a = read 164, i LED.iled(2, a) ' Ziffer anschalten next i led.show() if f = 15 then c = c + 1 c = c % 360 if y = 0 then LED.ihsv(2, c, 255, z) else LED.ihsv(2, c, 255, v - z) ' hoch / runter next z next y led.blackout() gosub 8300 ' A QUARTER gosub 8150 ' Stunde eins weiterzählen ' Text TO for y = 0 to 1 for z = 0 to v step v / 31 for i = 0 to 1 a = read 166, i LED.iled(2, a) ' Ziffer anschalten next i led.show() if f = 15 then c = c + 1 c = c % 360 if y = 0 then LED.ihsv(2, c, 255, z) else LED.ihsv(2, c, 255, v - z) ' hoch / runter next z next y led.blackout() return 6295: if m = 0 then return if m = 50 then gosub 7110 ' ZEHN VOR HALB if m = 51 then gosub 7109 if m = 52 then gosub 7108 if m = 53 then gosub 7107 if m = 54 then gosub 7106 if m = 55 then gosub 7105 if m = 56 then gosub 7104 if m = 57 then gosub 7103 if m = 58 then gosub 7102 if m = 59 then gosub 7101 ' Text TO ausgeben for y = 0 to 1 for z = 0 to v step v / 31 for i = 0 to 1 a = read 166, i LED.iled(2, a) ' Ziffer anschalten next i led.show() if f = 15 then c = c + 1 c = c % 360 if y = 0 then LED.ihsv(2, c, 255, z) else LED.ihsv(2, c, 255, v - z) ' hoch / runter next z next y led.blackout() gosub 8150 ' Stunde eins weiterzählen return 6299: ' IT IS - O'CLOCK for y = 0 to 1 for z = 0 to v step v / 31 for i = 0 to 2 a = read 169, i LED.iled(2, a) ' Ziffer anschalten next i led.show() if f = 15 then c = c + 1 c = c % 360 if y = 0 then LED.ihsv(2, c, 255, z) else LED.ihsv(2, c, 255, v - z) ' hoch / runter next z next y led.blackout() return '============================================================== 6300: ' RANDOM-COLOR for i = 0 to 11 led.ihsv(2, random % 360, 255, v) ' Farbe a = read 170, i LED.iled(2, a) ' Ziffer anschalten led.show() delay 300 LED.iled(0, a) next i return 6310: ' COLOR led.ihsv(2, read 20,c , 255, v) ' Farbe for i = 7 to 11 a = read 170, i LED.iled(2, a) ' Ziffer anschalten led.show() delay 300 LED.iled(0, a) next i return 6330: ' TIME led.ihsv(2, c, 255, v) ' Farbe for i = 0 to 3 a = read 172, i LED.iled(2, a) ' Ziffer anschalten led.show() delay 400 LED.iled(0, a) next i led.show() return '============================================================== 7000: ' Minute ermitteln und ausgeben Beispiel " EINE MINUTE" oder "SIEBEN MINUTEN" if m = 1 then gosub 7001 ' TEXT EINE (MINUTE) if m = 2 then gosub 7002 if m = 3 then gosub 7003 if m = 4 then gosub 7004 if m = 5 then gosub 7005 if m = 6 then gosub 7006 if m = 7 then gosub 7007 if m = 8 then gosub 7008 if m = 9 then gosub 7009 if m = 10 then gosub 7010 return 7001: ' TEXT EINE (MINUTE) for y = 0 to 1 for z = 0 to v step v / 31 for i = 0 to 3 a = read 201, i LED.iled(2, a) ' Ziffer anschalten next i led.show() if f = 15 then c = c + 1 c = c % 360 if y = 0 then LED.ihsv(2, c, 255, z) else LED.ihsv(2, c, 255, v - z) ' hoch / runter next z next y led.blackout() gosub 7900 ' Minute ausgeben return 7002: ' TEXT ZWEI (MINUTEN) for y = 0 to 1 for z = 0 to v step v / 31 for i = 0 to 5 a = read 213, i + 12 if a <> 70 then LED.iled(2, a) ' Ziffer anschalten next i led.show() if f = 15 then c = c + 1 c = c % 360 if y = 0 then LED.ihsv(2, c, 255, z) else LED.ihsv(2, c, 255, v - z) ' hoch / runter next z next y led.blackout() gosub 7910 ' MINUTEN ausgeben return 7003: ' TEXT DREI (MINUTEN) for y = 0 to 1 for z = 0 to v step v / 31 for i = 0 to 5 a = read 213, i + 18 if a <> 70 then LED.iled(2, a) ' Ziffer anschalten next i led.show() if f = 15 then c = c + 1 c = c % 360 if y = 0 then LED.ihsv(2, c, 255, z) else LED.ihsv(2, c, 255, v - z) ' hoch / runter next z next y led.blackout() gosub 7910 ' MINUTEN ausgeben return 7004: ' TEXT VIER (MINUTEN) for y = 0 to 1 for z = 0 to v step v / 31 for i = 0 to 5 a = read 213, i + 24 if a <> 70 then LED.iled(2, a) ' Ziffer anschalten next i led.show() if f = 15 then c = c + 1 c = c % 360 if y = 0 then LED.ihsv(2, c, 255, z) else LED.ihsv(2, c, 255, v - z) ' hoch / runter next z next y led.blackout() gosub 7910 ' MINUTEN ausgeben return 7005: ' TEXT FUENF (MINUTEN) for y = 0 to 1 for z = 0 to v step v / 31 for i = 0 to 5 a = read 213, i + 30 if a <> 70 then LED.iled(2, a) ' Ziffer anschalten next i led.show() if f = 15 then c = c + 1 c = c % 360 if y = 0 then LED.ihsv(2, c, 255, z) else LED.ihsv(2, c, 255, v - z) ' hoch / runter next z next y led.blackout() gosub 7910 ' MINUTEN ausgeben return 7006: ' TEXT Sechs (MINUTEN) for y = 0 to 1 for z = 0 to v step v / 31 for i = 0 to 5 a = read 213, i + 36 if a <> 70 then LED.iled(2, a) ' Ziffer anschalten next i led.show() if f = 15 then c = c + 1 c = c % 360 if y = 0 then LED.ihsv(2, c, 255, z) else LED.ihsv(2, c, 255, v - z) ' hoch / runter next z next y led.blackout() gosub 7910 ' MINUTEN ausgeben return 7007: ' TEXT SIEBEN (MINUTEN) for y = 0 to 1 for z = 0 to v step v / 31 for i = 0 to 5 a = read 213, i + 42 if a <> 70 then LED.iled(2, a) ' Ziffer anschalten next i led.show() if f = 15 then c = c + 1 c = c % 360 if y = 0 then LED.ihsv(2, c, 255, z) else LED.ihsv(2, c, 255, v - z) ' hoch / runter next z next y led.blackout() gosub 7910 ' MINUTEN ausgeben return 7008: ' TEXT ACHT (MINUTEN) for y = 0 to 1 for z = 0 to v step v / 31 for i = 0 to 5 a = read 213, i + 48 if a <> 70 then LED.iled(2, a) ' Ziffer anschalten next i led.show() if f = 15 then c = c + 1 c = c % 360 if y = 0 then LED.ihsv(2, c, 255, z) else LED.ihsv(2, c, 255, v - z) ' hoch / runter next z next y led.blackout() gosub 7910 ' MINUTEN ausgeben return 7009: ' TEXT NEUN (MINUTEN) for y = 0 to 1 for z = 0 to v step v / 31 for i = 0 to 5 a = read 213, i + 54 if a <> 70 then LED.iled(2, a) ' Ziffer anschalten next i led.show() if f = 15 then c = c + 1 c = c % 360 if y = 0 then LED.ihsv(2, c, 255, z) else LED.ihsv(2, c, 255, v - z) ' hoch / runter next z next y led.blackout() gosub 7910 ' MINUTEN ausgeben return 7010: ' TEXT ZEHN (MINUTEN) for y = 0 to 1 for z = 0 to v step v / 31 for i = 0 to 5 a = read 213, i + 60 if a <> 70 then LED.iled(2, a) ' Ziffer anschalten next i led.show() if f = 15 then c = c + 1 c = c % 360 if y = 0 then LED.ihsv(2, c, 255, z) else LED.ihsv(2, c, 255, v - z) ' hoch / runter next z next y led.blackout() gosub 7910 ' MINUTEN ausgeben return '============================================================= 7100: ' Minute ermitteln und ausgeben Beispiel " EINE MINUTE" oder "SIEBEN MINUTEN" if m = 1 then gosub 7101 if m = 2 then gosub 7102 if m = 3 then gosub 7103 if m = 4 then gosub 7104 if m = 5 then gosub 7105 if m = 6 then gosub 7106 if m = 7 then gosub 7107 if m = 8 then gosub 7108 if m = 9 then gosub 7109 if m = 10 then gosub 7110 return 7101: ' TEXT ONE (MINUTE) for y = 0 to 1 for z = 0 to v step v / 31 for i = 0 to 5 a = read 214, i + 6 if a <> 70 then LED.iled(2, a) ' Ziffer anschalten next i led.show() if f = 15 then c = c + 1 c = c % 360 if y = 0 then LED.ihsv(2, c, 255, z) else LED.ihsv(2, c, 255, v - z) ' hoch / runter next z next y led.blackout() gosub 7920 ' Minute ausgeben return 7102: ' TEXT TWO (MINUTES) for y = 0 to 1 for z = 0 to v step v / 31 for i = 0 to 5 a = read 214, i + 12 if a <> 70 then LED.iled(2, a) ' Ziffer anschalten next i led.show() if f = 15 then c = c + 1 c = c % 360 if y = 0 then LED.ihsv(2, c, 255, z) else LED.ihsv(2, c, 255, v - z) ' hoch / runter next z next y led.blackout() gosub 7930 ' MINUTEN ausgeben return 7103: ' TEXT THREE (MINUTES) for y = 0 to 1 for z = 0 to v step v / 31 for i = 0 to 5 a = read 214, i + 18 if a <> 70 then LED.iled(2, a) ' Ziffer anschalten next i led.show() if f = 15 then c = c + 1 c = c % 360 if y = 0 then LED.ihsv(2, c, 255, z) else LED.ihsv(2, c, 255, v - z) ' hoch / runter next z next y led.blackout() gosub 7930 ' MINUTEN ausgeben return 7104: ' TEXT FOUR (MINUTES) for y = 0 to 1 for z = 0 to v step v / 31 for i = 0 to 5 a = read 214, i + 24 if a <> 70 then LED.iled(2, a) ' Ziffer anschalten next i led.show() if f = 15 then c = c + 1 c = c % 360 if y = 0 then LED.ihsv(2, c, 255, z) else LED.ihsv(2, c, 255, v - z) ' hoch / runter next z next y led.blackout() gosub 7930 ' MINUTEN ausgeben return 7105: ' TEXT FIVE (MINUTES) for y = 0 to 1 for z = 0 to v step v / 31 for i = 0 to 5 a = read 214, i + 30 if a <> 70 then LED.iled(2, a) ' Ziffer anschalten next i led.show() if f = 15 then c = c + 1 c = c % 360 if y = 0 then LED.ihsv(2, c, 255, z) else LED.ihsv(2, c, 255, v - z) ' hoch / runter next z next y led.blackout() gosub 7930 ' MINUTEN ausgeben return 7106: ' TEXT SIX (MINUTEN) for y = 0 to 1 for z = 0 to v step v / 31 for i = 0 to 5 a = read 214, i + 36 if a <> 70 then LED.iled(2, a) ' Ziffer anschalten next i led.show() if f = 15 then c = c + 1 c = c % 360 if y = 0 then LED.ihsv(2, c, 255, z) else LED.ihsv(2, c, 255, v - z) ' hoch / runter next z next y led.blackout() gosub 7930 ' MINUTEN ausgeben return 7107: ' TEXT SEVEN (MINUTEN) for y = 0 to 1 for z = 0 to v step v / 31 for i = 0 to 5 a = read 214, i + 42 if a <> 70 then LED.iled(2, a) ' Ziffer anschalten next i led.show() if f = 15 then c = c + 1 c = c % 360 if y = 0 then LED.ihsv(2, c, 255, z) else LED.ihsv(2, c, 255, v - z) ' hoch / runter next z next y led.blackout() gosub 7930 ' MINUTEN ausgeben return 7108: ' TEXT EIGHT (MINUTEN) for y = 0 to 1 for z = 0 to v step v / 31 for i = 0 to 5 a = read 214, i + 48 if a <> 70 then LED.iled(2, a) ' Ziffer anschalten next i led.show() if f = 15 then c = c + 1 c = c % 360 if y = 0 then LED.ihsv(2, c, 255, z) else LED.ihsv(2, c, 255, v - z) ' hoch / runter next z next y led.blackout() gosub 7930 ' MINUTEN ausgeben return 7109: ' TEXT NINE (MINUTEN) for y = 0 to 1 for z = 0 to v step v / 31 for i = 0 to 5 a = read 214, i + 54 if a <> 70 then LED.iled(2, a) ' Ziffer anschalten next i led.show() if f = 15 then c = c + 1 c = c % 360 if y = 0 then LED.ihsv(2, c, 255, z) else LED.ihsv(2, c, 255, v - z) ' hoch / runter next z next y led.blackout() gosub 7930 ' MINUTEN ausgeben return 7110: ' TEXT TEN (MINUTEN) for y = 0 to 1 for z = 0 to v step v / 31 for i = 0 to 5 a = read 214, i + 60 if a <> 70 then LED.iled(2, a) ' Ziffer anschalten next i led.show() if f = 15 then c = c + 1 c = c % 360 if y = 0 then LED.ihsv(2, c, 255, z) else LED.ihsv(2, c, 255, v - z) ' hoch / runter next z next y led.blackout() gosub 7930 ' MINUTEN ausgeben return '================================================================ 7900: ' TEXT MINUTE ausgeben for y = 0 to 1 for z = 0 to v step v / 31 for i = 0 to 5 a = read 62, i LED.iled(2, a) ' Ziffer anschalten next i led.show() if f = 15 then c = c + 1 c = c % 360 if y = 0 then LED.ihsv(2, c, 255, z) else LED.ihsv(2, c, 255, v - z) ' hoch / runter next z next y led.blackout() return 7910: ' TEXT MINUTEN ausgeben for y = 0 to 1 for z = 0 to v step v / 31 for i = 0 to 6 a = read 63, i LED.iled(2, a) ' Ziffer anschalten next i led.show() if f = 15 then c = c + 1 c = c % 360 if y = 0 then LED.ihsv(2, c, 255, z) else LED.ihsv(2, c, 255, v - z) ' hoch / runter next z next y led.blackout() return 7920: ' TEXT MINUTE for y = 0 to 1 for z = 0 to v step v / 31 for i = 0 to 5 a = read 162, i LED.iled(2, a) ' Ziffer anschalten next i led.show() if f = 15 then c = c + 1 c = c % 360 if y = 0 then LED.ihsv(2, c, 255, z) else LED.ihsv(2, c, 255, v - z) ' hoch / runter next z next y led.blackout() return 7930: ' TEXT MINUTES for y = 0 to 1 for z = 0 to v step v / 31 for i = 0 to 6 a = read 163, i LED.iled(2, a) ' Ziffer anschalten next i led.show() if f = 15 then c = c + 1 c = c % 360 if y = 0 then LED.ihsv(2, c, 255, z) else LED.ihsv(2, c, 255, v - z) ' hoch / runter next z next y led.blackout() return '=============================================================== ' GETKEY ' VAR: k, i, RET: k ' k: 0 = No Key, 1 = Short, 2 = LONG 8000: k = IO.getkey() if k = 0 then goto 8020 i = 0 8010: k = IO.keystate() if k = 0 then goto 8015 delay 10 i = i + 1 if i < 50 then goto 8010 k = 2 return 8015: k = 1 ' SHORT PRESS 8020: return '================================================ ' BEEP 8100: IO.beep(35) delay 25 IO.beep(0) return '======================================================= 8150: ' Stunde eins weiter zählen mit Stundenkorrektur ' da sonst zwischen 12 und 13 Uhr keine Stunden angezeigt werden h = h + 1 if h > 12 then h = h - 12 return '======================================================= ' Setup deutsch 8200: led.blackout() LED.iled(1, 4) ' Setup Mode anzeigen gosub 8100 ' beep IO.setenc(0, 3, 0)' set Encoder auf Farbe 8210: t = IO.getenc() ' Read Encoder gosub 8220 ' show Encoder gosub 8000 ' key if k = 1 and t = 0 goto 8500 ' Farbe if k = 1 and t = 1 goto 8600 ' Helligkeit if k = 1 and t = 2 goto 8700 ' Zeit if k = 1 and t = 3 goto 8900 ' Partymodus if k = 2 goto 8290 ' ende setup goto 8210 8220: LED.iled(0, 17) LED.iled(0, 15) LED.iled(0, 16) LED.iled(0, 3) if t = 0 then LED.iled(1, 17) ' Farbe if t = 1 then LED.iled(1, 15) ' Helligkeit if t = 2 then LED.iled(1, 3) ' Zeit if t = 3 then LED.iled(1, 16) ' Partymodus led.show() return 8290: o = 0 ' Setup ende goto 1000 '============================================================= 8300: ' Text A QUARTER for y = 0 to 1 for z = 0 to v step v / 31 a = read 165, 0 LED.iled(2, a) ' Ziffer anschalten led.show() if f = 15 then c = c + 1 c = c % 360 if y = 0 then LED.ihsv(2, c, 255, z) else LED.ihsv(2, c, 255, v - z) ' hoch / runter next z next y led.blackout() for y = 0 to 1 for z = 0 to v step v / 31 for i = 0 to 6 a = read 167, i LED.iled(2, a) ' Ziffer anschalten next i led.show() if f = 15 then c = c + 1 c = c % 360 if y = 0 then LED.ihsv(2, c, 255, z) else LED.ihsv(2, c, 255, v - z) ' hoch / runter next z next y led.blackout() return '============================================================= ' Setup english 8400: led.blackout() LED.iled(1, 4) ' Setup Mode anzeigen gosub 8100 ' beep IO.setenc(0, 3, 0)' set Encoder auf Farbe 8410: t = IO.getenc() ' Read Encoder gosub 8420 ' show Encoder gosub 8000 ' key if k = 1 and t = 0 goto 8520 ' Color if k = 1 and t = 1 goto 8630 ' Brightness if k = 1 and t = 2 goto 8800 ' Time if k = 1 and t = 3 goto 8900 ' Partymodus if k = 2 goto 8490 ' ende setup goto 8410 8420: LED.iled(0, 21) LED.iled(0, 36) LED.iled(0, 16) LED.iled(0, 5) if t = 0 then LED.iled(1, 21) ' Color if t = 1 then LED.iled(1, 36) ' Brightness if t = 2 then LED.iled(1, 5) ' Time if t = 3 then LED.iled(1, 16) ' Partymodus led.show() return 8490: o = 0 ' Setup ende goto 2000 '======================================================= ' Farbe einstellen 8500: gosub 8100 ' beep z = 0 LED.iled(0, 17) t = IO.eeread(1) ' Farbwert IO.setenc(t, 15, 0) ' set Encoder Farbe if t < 14 then gosub 6110 ' Text FARBE anzeigen if t = 14 then gosub 6100 ' Text ZUFALLS-FARBE if t = 15 then gosub 6120 ' Text FADING 8510: c = IO.getenc() ' Read Encoder LED.iled(0, 17) if c <> t and c < 14 then gosub 6110 ' Text FARBE anzeigen if c <> t and c = 14 then gosub 6100 ' Text ZUFALLS-FARBE if c <> t and c = 15 then gosub 6120 ' Text FADING if c <> t then z = 0 t = c LED.iled(2, 17) led.show() k = IO.getkey() z = z + 1 if z > 600 goto 8200 ' auto return if k <> 1 goto 8510 if t <> (IO.eeread(1)) then IO.eewrite(1, t) ' neue Farbe goto 8200 '..................................................... ' Color Set 8520: gosub 8100 ' beep z = 0 LED.iled(0, 21) t = IO.eeread(1) ' Farbwert IO.setenc(t, 15, 0) ' set Encoder Farbe if t < 14 then gosub 6310 ' Text FARBE anzeigen if t = 14 then gosub 6300 ' Text ZUFALLS-FARBE if t = 15 then gosub 6120 ' Text FADING 8530: c = IO.getenc() ' Read Encoder LED.iled(0, 21) if c <> t and c < 14 then gosub 6310 ' Text FARBE anzeigen if c <> t and c = 14 then gosub 6300 ' Text ZUFALLS-FARBE if c <> t and c = 15 then gosub 6120 ' Text FADING if c <> t then z = 0 t = c LED.iled(2, 21) led.show() k = IO.getkey() z = z + 1 if z > 600 goto 8400 ' auto return if k <> 1 goto 8530 if t <> (IO.eeread(1)) then IO.eewrite(1, t) ' neue Farbe goto 8400 '======================================================= 8600: ' Helligkeit gosub 8100 ' beep z = 0 v = (IO.eeread(2)) / 10 ' Helligkeit IO.setenc(v - 3, 22, 0) ' set Encoder Helligkeit 8610: t = v v = (IO.getenc()) + 3 ' Read Encoder LED.ihsv(2, c, 255, v * 10) LED.iled(2, 15) LED.iled(0, 12) if v = 3 then goto 8620 8615: led.show() k = IO.getkey() if t = v then z = z + 1 else z = 0 if z > 600 then v = v * 10 if z > 600 goto 8200 ' auto return if k <> 1 goto 8610 v = v * 10 if v <> (IO.eeread(2)) then IO.eewrite(2, v) ' neue Helligkeit goto 8200 8620: ' auto Helligkeit y = IO.getldr() + 31 if y > 250 then y = 250 LED.ihsv(2, c, 255, y) LED.iled(0, 15) LED.iled(2, 12) goto 8615 '....................................................... 8630: ' Brightness gosub 8100 ' beep z = 0 v = (IO.eeread(2)) / 10 ' Brightness IO.setenc(v - 3,22, 0) ' set Encoder Brightness 8640: t = v v = (IO.getenc()) + 3 ' Read Encoder LED.ihsv(2, c, 255, v * 10) LED.iled(2, 36) LED.iled(0, 12) if v = 3 then goto 8650 8645: led.show() k = IO.getkey() if t = v then z = z + 1 else z = 0 if z > 600 then v = v * 10 if z > 600 goto 8400 ' auto return if k <> 1 goto 8640 v = v * 10 if v <> (IO.eeread(2)) then IO.eewrite(2, v) ' new Brightness goto 8400 8650: ' auto Brightness y = IO.getldr() + 31 if y > 250 then y = 250 LED.ihsv(2, c, 255, y) LED.iled(0, 36) LED.iled(2, 12) goto 8645 '======================================================= 8700: ' Zeit gosub 8100 ' beep gosub 6130 ' Text ZEIT anzeigen IO.setenc((IO.getrtc(2)) / 10, 2, 0) ' set Encoder z = 0 y = 10 8710: t = IO.getenc() if y <> t gosub 8720 k = IO.getkey() delay 10 if t = y then z = z + 1 else z = 0 if z > 600 goto 8200 ' auto return y = t if k <> 1 goto 8710 h = t * 10 ' Stunde Zehner goto 8730 8720: led.blackout() LED.iled(1, 4) for i = 0 to 5 a = read 213, i + t * 6 if a <> 70 then LED.iled(2, a) ' Ziffer anschalten next i led.show() return 8730: if h = 20 then IO.setenc(0, 3, 0) else IO.setenc((IO.getrtc(2)) % 10, 9, 0) ' set Encoder z = 0 y = 10 8740: t = IO.getenc() if y <> t gosub 8720 k = IO.getkey() delay 10 if t = y then z = z + 1 else z = 0 if z > 600 goto 8200 ' auto return y = t if k <> 1 goto 8740 h = h + t ' Stunde Zehner plus Einer (fertig) IO.setenc((IO.getrtc(1)) / 10, 5, 0) ' set Encoder z = 0 y = 10 8750: t = IO.getenc() if y <> t gosub 8720 k = IO.getkey() delay 10 if t = y then z = z + 1 else z = 0 if z > 600 goto 8200 ' auto return y = t if k <> 1 goto 8750 m = t * 10 ' Minute Zehner IO.setenc((IO.getrtc(1)) % 10, 9, 0) ' set Encoder z = 0 y = 10 8760: t = IO.getenc() if y <> t gosub 8720 k = IO.getkey() delay 10 if t = y then z = z + 1 else z = 0 if z > 600 goto 8200 ' auto return y = t if k <> 1 goto 8760 m = m + t ' Minute Einer plus Zehner (fertig) IO.setrtc(1, m) IO.setrtc(2, h) goto 8200 '======================================================= 8800: ' Time gosub 8100 ' beep gosub 6330 ' Text ZEIT anzeigen IO.setenc((IO.getrtc(2)) / 10, 2, 0) ' set Encoder z = 0 y = 10 8810: t = IO.getenc() if y <> t gosub 8820 k = IO.getkey() delay 10 if t = y then z = z + 1 else z = 0 if z > 600 goto 8400 ' auto return y = t if k <> 1 goto 8810 h = t * 10 ' Stunde Zehner goto 8830 8820: led.blackout() LED.iled(1, 4) for i = 0 to 5 a = read 214, i + t * 6 if a <> 70 then LED.iled(2, a) ' Ziffer anschalten next i led.show() return 8830: if h = 20 then IO.setenc(0, 3, 0) else IO.setenc((IO.getrtc(2)) % 10, 9, 0) ' set Encoder z = 0 y = 10 8840: t = IO.getenc() if y <> t gosub 8820 k = IO.getkey() delay 10 if t = y then z = z + 1 else z = 0 if z > 600 goto 8400 ' auto return y = t if k <> 1 goto 8840 h = h + t ' Stunde Zehner plus Einer (fertig) IO.setenc((IO.getrtc(1)) / 10, 5, 0) ' set Encoder z = 0 y = 10 8850: t = IO.getenc() if y <> t gosub 8820 k = IO.getkey() delay 10 if t = y then z = z + 1 else z = 0 if z > 600 goto 8400 ' auto return y = t if k <> 1 goto 8850 m = t * 10 ' Minute Zehner IO.setenc((IO.getrtc(1)) % 10, 9, 0) ' set Encoder z = 0 y = 10 8860: t = IO.getenc() if y <> t gosub 8820 k = IO.getkey() delay 10 if t = y then z = z + 1 else z = 0 if z > 600 goto 8400 ' auto return y = t if k <> 1 goto 8860 m = m + t ' Minute Einer plus Zehner (fertig) IO.setrtc(1, m) IO.setrtc(2, h) goto 8400 '======================================================= 8900: ' Partymodus gosub 8100 ' beep p = IO.eeread(4) ' Partymodus IO.setenc(p, 1, 0) ' Encoder set 8910: led.blackout() LED.iled(1, 4) ' Setup Mode anzeigen t = p if p <> 1 goto 8920 for i = 0 to 2 a = read 175, i ' P ON LED.iled(1, a) ' Ziffer anschalten next i led.show() goto 8930 8920: for i = 0 to 3 a = read 176, i ' P OFF LED.iled(1, a) ' Ziffer anschalten next i led.show() 8930: p = IO.getenc() ' Read Encoder k = IO.getkey() if t = p and k <> 1 goto 8930 if t <> p goto 8910 if (IO.eeread(4)) <> p then IO.eewrite(4, p) if (IO.eeread(3)) = 0 goto 8400 ' english setup goto 8200 '======================================================= 9100: ' Ausgabe TEXT "UHR" for y = 0 to 1 for z = 0 to v step v / 31 for i = 0 to 2 a = read 65, i LED.iled(2, a) ' Ziffer anschalten next i led.show() if f = 15 then c = c + 1 c = c % 360 if y = 0 then LED.ihsv(2, c, 255, z) else LED.ihsv(2, c, 255, v - z) ' hoch / runter next z next y led.blackout() return '======================================================= 9101: ' Ausgabe TEXT "EIN" for y = 0 to 1 for z = 0 to v step v / 31 for i = 0 to 2 a = read 202, i LED.iled(2, a) ' Ziffer anschalten next i led.show() if f = 15 then c = c + 1 c = c % 360 if y = 0 then LED.ihsv(2, c, 255, z) else LED.ihsv(2, c, 255, v - z) ' hoch / runter next z next y led.blackout() return '====================================================== 9110: ' Text Stunde NULL bis ZWOELF for y = 0 to 1 for z = 0 to v step v / 31 for i = 0 to 5 a = read 213, i + h * 6 if a <> 70 then LED.iled(2, a) ' Ziffer anschalten next i led.show() if f = 15 then c = c + 1 c = c % 360 if y = 0 then LED.ihsv(2, c, 255, z) else LED.ihsv(2, c, 255, v - z) ' hoch / runter next z next y led.blackout() return '....................................................... 9111: ' Text Stunde NOUGHT bis TWELVE for y = 0 to 1 for z = 0 to v step v / 31 for i = 0 to 5 a = read 214, i + h * 6 if a <> 70 then LED.iled(2, a) ' Ziffer anschalten next i led.show() if f = 15 then c = c + 1 c = c % 360 if y = 0 then LED.ihsv(2, c, 255, z) else LED.ihsv(2, c, 255, v - z) ' hoch / runter next z next y led.blackout() return '======================================================= end