' This program exported from BASIC Anywhere Machine (Version [5.2.3].[2024.09.09.00.00]) on 2026.02.11 at 05:02 (Coordinated Universal Time)
' Program by Charlie Veniot

SCREEN _NEWIMAGE( 96, 24, 13 )

loop_start:
  COLOR 54, 0
  CLS
  LOCATE 2,3 : PRINT TIME$;
  GOSUB graph_seconds
  GOSUB graph_minutes
  GOSUB graph_hours
  SLEEP 0.01

GOTO loop_start

END

graph_seconds:
  s% = RIGHT$(TIME$,2)
  IF s% = 0 THEN s% = 60
  mp% = s%*3
  x% = 13
  y% = 6
  l% = 1
  WHILE mp% >= 0
    PSET(x%,y%), IFF( mp% MOD 3 = 1, 6, 48 )
    IF l% = 1 THEN
       IF x% < 82 THEN x% = x% + 1 ELSE l% = 2: y% = 6
    END IF
    IF l% = 2 THEN
       IF y% < 16 THEN y% = y% + 1 ELSE l% = 3 : x% = 81 : y% = 6
    END IF
    IF l% = 3 THEN
       IF y% < 16 THEN y% = y% + 1 ELSE l% = 4 : x% = 83 : y% = 17
    END IF
    IF l% = 4 THEN
       IF x% > 13 THEN x% = x% - 1 ELSE l% = 5 : x% = 13 : y% = 17
    END IF
    IF l% = 5 THEN
       IF y% > 6 THEN y% = y% - 1 ELSE l% = 6 : x% = 14 : y% = 17
    END IF
    IF l% = 6 THEN
       IF y% > 6 THEN y% = y% - 1
    END IF
    mp% = mp% - 1
  WEND
RETURN 

graph_minutes:
  m% = MID$(TIME$,4,2)
''  IF m% = 0 THEN m% = 60
  mp% = m%*3
  x% = 10
  y% = 4
  l% = 1
  WHILE mp% >= 0
    PSET(x%,y%), IFF( mp% MOD 3 = 1, 55, 6 )
    IF l% = 1 THEN
       IF x% < 85 THEN x% = x% + 1 ELSE l% = 2: y% = 4
    END IF
    IF l% = 2 THEN
       IF y% < 19 THEN y% = y% + 1 ELSE l% = 4 : x% = 85
    END IF
    IF l% = 4 THEN
       IF x% > 10 THEN x% = x% - 1 ELSE l% = 5
    END IF
    IF l% = 5 THEN
       IF y% > 5 THEN y% = y% - 1 
    END IF
    mp% = mp% - 1
  WEND
RETURN 

graph_hours:
  h% = LEFT$(TIME$,2)
''  IF h% = 0 THEN h% = 24
  mp% = h%*9
  x% = 5
  y% = 1
  l% = 1
  WHILE mp% >= 0
    PSET(x%,y%), IFF( mp% MOD 9 = 0 OR mp% MOD 9 = 1 OR mp% MOD 9 = 2, 0, 55 )
    IF l% = 1 THEN
       IF x% < 90 THEN x% = x% + 1 ELSE l% = 2: y% = 1
    END IF
    IF l% = 2 THEN
       IF y% < 22 THEN y% = y% + 1 ELSE l% = 4
    END IF
    IF l% = 4 THEN
       IF x% > 5 THEN x% = x% - 1 ELSE l% = 5
    END IF
    IF l% = 5 THEN
       IF y% > 1 THEN y% = y% - 1 
    END IF
    mp% = mp% - 1
  WEND
RETURN