ClrHome
"ABCDEFGHIJKLMNOPQRSTUVWXYZθ"→Str1
0→S
Output(2,21,"TIME:
Disp "  . . . . ."," •",""," •",""," •",""," •
Output(10,2,"•
Repeat 0
1→O
1→P
1→Q
If not(S
Output(10,25,"^v
If S
Output(10,25,"<>
Repeat Q>10
Output(Q+1,P+2,sub(Str1,O,1
O+1→O
P+2→P
If P≥10
Then
1→P
Q+2→Q
End
End
Repeat (K≥41 and K≤55) or (K≥24 and K≤26) or K=34
getKey→K
End
If K=25 or K=34
0→S
If K=24 or K=26
1→S
If K=41
Then
1→D
6→E
11→F
16→G
21→H
End
If K=42
Then
2→D
7→E
12→F
17→G
22→H
End
If K=43
Then
3→D
8→E
13→F
18→G
23→H
End
If K=44
Then
4→D
9→E
14→F
19→G
24→H
End
If K=45
Then
5→D
10→E
15→F
20→G
25→H
End
If not(S) and K≥41
Then
sub(Str1,27,length(Str1)-26
sub(Str1,1,25)+sub(Str1,D,1)+Ans
sub(Str1,D+1,length(Str1)-D
sub(Str1,1,D-1)+sub(Str1,E,1)+Ans
sub(Str1,E+1,length(Str1)-E
sub(Str1,1,E-1)+sub(Str1,F,1)+Ans
sub(Str1,F+1,length(Str1)-F
sub(Str1,1,F-1)+sub(Str1,G,1)+Ans
sub(Str1,G+1,length(Str1)-G
sub(Str1,1,G-1)+sub(Str1,H,1)+Ans
sub(Str1,H+1,length(Str1)-H
sub(Str1,1,H-1)+sub(Str1,26,1)+Ans
End
End
End