Optimizations?

Bio_Hazard1282 14 Sep 2018 00:03

I just got this code, is there any way I can optimize it?

Despite the obvious. :D

```
ClrHome
Lbl 1
getTime→L₁
L₁(1)→H
iPart(H/10)→A
(fPart(H/10)*10)→B
L₁(2)→M
iPart(M/10)→C
(fPart(M/10)*10)→D
L₁(3)→S
iPart((S/10)→E
(fPart(S/10)*10)→F
If A≥2
Then
Output(5,6,1)
A-2→A
Else
Output(5,6,0)
End
If A≥1
Then
Output(6,6,1)
Else
Output(6,6,0)
End
If B≥8
Then
Output(3,7,1)
B-8→B
Else
Output(3,7,0)
End
If B≥4
Then
Output(4,7,1)
B-4→B
Else
Output(4,7,0)
End
If B≥2
Then
Output(5,7,1)
B-2→B
Else
Output(5,7,0)
End
If B≥1
Then
Output(6,7,1)
Else
Output(6,7,0)
End
If C≥4
Then
Output(4,8,1)
C-4→C
Else
Output(4,8,0)
End
If C≥2
Then
Output(5,8,1)
C-2→C
Else
Output(5,8,0)
End
If C≥1
Then
Output(6,8,1)
Else
Output(6,8,0)
End
If D≥8
Then
Output(3,9,1)
D-8→D
Else
Output(3,9,0)
End
If D≥4
Then
Output(4,9,1)
D-4→D
Else
Output(4,9,0)
End
If D≥2
Then
Output(5,9,1)
D-2→D
Else
Output(5,9,0)
End
If D≥1
Then
Output(6,9,1)
Else
Output(6,9,0)
End
If E≥4
Then
Output(4,10,1)
E-4→E
Else
Output(4,10,0)
End
If E≥2
Then
Output(5,10,1)
E-2→E
Else
Output(5,10,0)
End
If E≥1
Then
Output(6,10,1)
Else
Output(6,10,0)
End
If F≥8
Then
Output(3,11,1)
F-8→F
Else
Output(3,11,0)
End
If F≥4
Then
Output(4,11,1)
F-4→F
Else
Output(4,11,0)
End
If F≥2
Then
Output(5,11,1)
F-2→F
Else
Output(5,11,0)
End
If F≥1
Then
Output(6,11,1)
Else
Output(6,11,0)
End
Goto 1
```

`� Bio_Hazard1282 �`