'***************************************************************************
'
'  einfache kleine Uhr im Digital-Look 3.0/3.2
'
'  entwickelt von / developed by    :  Thomas Gohel
'  original Autor unbekannt
'
'                           Fido    :  Thomas Gohel@2:2410/330.1
'                           InterNet:  author@pbsound.snafu.de
'                           Homepage:  http://www.snafu.de/~pbsound/
'
'***************************************************************************

SHARED Balken$()

SCREEN 12
PAINT (1,1),1

DO WHILE a$ <> CHR$(27)
    CALL UhrZeit
    A$=INKEY$
LOOP
END

SUB UhrZeit public

'                  ² ²²²²²2²²²²² ²
'                  ² *    *    * ²
'                  1   A  B  C   3
'                  ²     ***     ²
'                    ²²²²²4²²²²²
'                  ²     ***     ²
'                  5  D   E  F   6
'                  ² *    *    * ²
'                  ² ²²²²²7²²²²² ²
'
        SHARED UhrZeitInit%
        IF UhrZeitInit% = 0 THEN
            BalkenData
            UhrZeitInit% = 1
        END IF
        UhrZeile%  = 450
        UhrSpalte% = 400
        UhrForeCol% = 14
        UhrBackCol% = 0

        Uhr$ = TIME$
        FOR i% = 1 TO LEN(Uhr$)
            UhrZeiger% = ASC(MID$(Uhr$,i%,1))

            'Segment 5
            IF MID$(Balken$(UhrZeiger%), 1, 1) = "1" THEN
                LINE (UhrSpalte%, UhrZeile%)-(UhrSpalte% + 1, UhrZeile% + 10), UhrForeCol%, BF
            ELSE
                LINE (UhrSpalte%, UhrZeile%)-(UhrSpalte% + 1, UhrZeile% + 10), UhrBackCol%, BF
            END IF

            'Segment 1
            IF MID$(Balken$(UhrZeiger%), 5, 1) = "1" THEN
                LINE (UhrSpalte%, UhrZeile% + 12)-(UhrSpalte% + 1, UhrZeile% + 22), UhrForeCol%, BF
            ELSE
                LINE (UhrSpalte%, UhrZeile% + 12)-(UhrSpalte% + 1, UhrZeile% + 22), UhrBackCol%, BF
            END IF

            'Segment 2
            IF MID$(Balken$(UhrZeiger%), 2, 1) = "1" THEN
                LINE (UhrSpalte% + 3, UhrZeile%)-(UhrSpalte% + 19, UhrZeile%), UhrForeCol%
            ELSE
                LINE (UhrSpalte% + 3, UhrZeile%)-(UhrSpalte% + 19, UhrZeile%), UhrBackCol%
            END IF

            'Segment 4
            IF MID$(Balken$(UhrZeiger%), 4, 1) = "1" THEN
                LINE (UhrSpalte% + 3, UhrZeile% + 11)-(UhrSpalte% + 19, UhrZeile% + 11), UhrForeCol%
            ELSE
                LINE (UhrSpalte% + 3, UhrZeile% + 11)-(UhrSpalte% + 19, UhrZeile% + 11), UhrBackCol%
            END IF

            'Segment 7
            IF MID$(Balken$(UhrZeiger%), 7, 1) = "1" THEN
                LINE (UhrSpalte% + 3, UhrZeile% + 22)-(UhrSpalte% + 19, UhrZeile% + 22), UhrForeCol%
            ELSE
                LINE (UhrSpalte% + 3, UhrZeile% + 22)-(UhrSpalte% + 19, UhrZeile% + 22), UhrBackCol%
            END IF

            'Segment 3
            IF MID$(Balken$(UhrZeiger%), 3, 1) = "1" THEN
                LINE (UhrSpalte% + 21, UhrZeile%)-(UhrSpalte% + 22, UhrZeile% + 10), UhrForeCol%, BF
            ELSE
                LINE (UhrSpalte% + 21, UhrZeile%)-(UhrSpalte% + 22, UhrZeile% + 10), UhrBackCol%, BF
            END IF

            'Segment 6
            IF MID$(Balken$(UhrZeiger%), 6, 1) = "1" THEN
                LINE (UhrSpalte% + 21, UhrZeile% + 12)-(UhrSpalte% + 22, UhrZeile% + 22), UhrForeCol%, BF
            ELSE
                LINE (UhrSpalte% + 21, UhrZeile% + 12)-(UhrSpalte% + 22, UhrZeile% + 22), UhrBackCol%, BF
            END IF

            'Segment A
            IF MID$(Balken$(UhrZeiger%), 9, 1) = "1" THEN
'                LINE (UhrSpalte% + 21, UhrZeile% + 12)-(UhrSpalte% + 22, UhrZeile% + 22), UhrForeCol%, BF
            ELSE
 '               LINE (UhrSpalte% + 21, UhrZeile% + 12)-(UhrSpalte% + 22, UhrZeile% + 22), UhrBackCol%, BF
            END IF

           'Segment B
            IF MID$(Balken$(UhrZeiger%), 10, 1) = "1" THEN
                LINE (UhrSpalte% + 11, UhrZeile% + 2)-(UhrSpalte% + 12, UhrZeile% + 9), UhrForeCol%, BF
            ELSE
                LINE (UhrSpalte% + 11, UhrZeile% + 2)-(UhrSpalte% + 12, UhrZeile% + 9), UhrBackCol%, BF
            END IF

           'Segment C
            IF MID$(Balken$(UhrZeiger%), 11, 1) = "1" THEN
  '              LINE (UhrSpalte% + 21, UhrZeile% + 12)-(UhrSpalte% + 22, UhrZeile% + 22), UhrForeCol%, BF
            ELSE
   '             LINE (UhrSpalte% + 21, UhrZeile% + 12)-(UhrSpalte% + 22, UhrZeile% + 22), UhrBackCol%, BF
            END IF

            'Segment D
            IF MID$(Balken$(UhrZeiger%), 12, 1) = "1" THEN
    '            LINE (UhrSpalte% + 21, UhrZeile% + 12)-(UhrSpalte% + 22, UhrZeile% + 22), UhrForeCol%, BF
            ELSE
    '            LINE (UhrSpalte% + 21, UhrZeile% + 12)-(UhrSpalte% + 22, UhrZeile% + 22), UhrBackCol%, BF
            END IF

           'Segment E
            IF MID$(Balken$(UhrZeiger%), 13, 1) = "1" THEN
                LINE (UhrSpalte% + 11, UhrZeile% + 13)-(UhrSpalte% + 12, UhrZeile% + 20), UhrForeCol%, BF
            ELSE
                LINE (UhrSpalte% + 11, UhrZeile% + 13)-(UhrSpalte% + 12, UhrZeile% + 20), UhrBackCol%, BF
            END IF

            'Segment F
            IF MID$(Balken$(UhrZeiger%), 6, 1) = "1" THEN
'                LINE (UhrSpalte% + 21, UhrZeile% + 12)-(UhrSpalte% + 22, UhrZeile% + 22), UhrForeCol%, BF
            ELSE
'                LINE (UhrSpalte% + 21, UhrZeile% + 12)-(UhrSpalte% + 22, UhrZeile% + 22), UhrBackCol%, BF
            END IF

            UhrSpalte% = UhrSpalte% + 30
        NEXT i%
END SUB

FUNCTION BalkenData() public
        DIM Balken$(256)
        Balken$(32) = "0000000-000000"
        Balken$(48) = "1110111-000000"
        Balken$(49) = "0010010-000000"
        Balken$(50) = "0111101-000000"
        Balken$(51) = "0111011-000000"
        Balken$(52) = "1011010-000000"
        Balken$(53) = "1101011-000000"
        Balken$(54) = "1001111-000000"
        Balken$(55) = "0110010-000000"
        Balken$(56) = "1111111-000000"
        Balken$(57) = "1111011-000000"
        Balken$(58) = "0001000-000000"

        Balken$(65) = "1111110-000000"
        Balken$(66) = "0111011-010010"
        Balken$(67) = "1100101-000000"
        Balken$(68) = "0110011-010010"
        Balken$(69) = "1101101-000000"
        Balken$(70) = "1101100-000000"
        Balken$(71) = "1101111-000000"
        Balken$(72) = "1011110-000000"
        Balken$(73) = "0000000-010010"
        Balken$(74) = "0010111-000000"
        Balken$(75) = "0000000-000000"
        Balken$(76) = "1000101-000000"
        Balken$(77) = "1110110-010000"
        Balken$(78) = "       -      "
        Balken$(79) = "       -      "
        Balken$(80) = "       -      "
        Balken$(81) = "       -      "
        Balken$(82) = "1111100-000010"
        Balken$(83) = "1101011-000000"
        Balken$(84) = "0100000-010010"
        Balken$(85) = "       -      "
        Balken$(86) = "       -      "
        Balken$(87) = "       -      "
        Balken$(88) = "1011110-000000"
        Balken$(89) = "1011000-000010"
        Balken$(90) = "0111101-000000"

END FUNCTION