Rebol [ RuneClock ]

Aettir1: ["Fehu" "Uruz" "Thurisaz" "Ansuz" "Raidho" "Kenaz" "Gebo" "Wunjo"]
Aettir2: ["Hagalaz" "Naudhiz" "Isa" "Jera" "Eihwaz" "Perthro" "Elhaz" "Sowilo"]
Aettir3: ["Tiwaz" "Berkano" "Ehwaz" "Mannaz" "Laguz" "Ingwaz" "Daggaz" "Othalla"]
Futhark: [] append Futhark Aettir1 append Futhark Aettir2 append Futhark Aettir3

protect 'Futhark 
protect 'Aettir1
protect 'Aettir2
protect 'Aettir3

for a 1 24 1 [ prin "Rune Nr." prin a prin " " print Futhark/(a) ]

for a 1 3 1 [
    for b 1 8 1 [prin Futhark/(a - 1 * 8 + b ) prin " "] print ""
            ]
; RunenZeit
; 1 Minute = 24 Runen a 2,5 Sekunden
; 1 Stunde = 24 Runen a 2,5 Minuten 
; 1 Tag = 24 Stunden a 24 Runen
; 1 Monat = 1 Mondzyklus
; 1 Jahr = 1 Sonnenumrundung

for Minute 1 24 1 [
 for Sekunde  1 24 1 [
  prin "Rune of the minute: " prin Futhark/(Minute) prin " Rune of the second: " print Futhark/(Sekunde)
  wait 2.5
                    ] ]


wait 20