15 lines
186 B
Text
15 lines
186 B
Text
Disp "TIME:"
|
|
input→A
|
|
0→T
|
|
length(A)→L
|
|
For(I,1,L)
|
|
If {A}<'0' or {A}>'9'
|
|
Disp "NOT A NUMBER",i
|
|
Return
|
|
End
|
|
T*10+{A}-'0'→T
|
|
A++
|
|
End
|
|
Disp "SLEEPING...",i
|
|
Pause T
|
|
Disp "AWAKE",i
|