Option Explicit
Dim　T_Barometer　　As　Integer
*------------------------------------------------*
Sub INIT_RTN

Do　Work!　Until　At The Fixed time
T_Barometer　=　100

If　Work　=　Labor
Then
　　T_Barometer　=　120
End　If

Go　to　Home!
T_Barometer　=　T_Barometer　-　20

If　Work　=　Labor
Then
　　T_Barometer　=　T_Barometer　-　20
End　If

If　T_Barometer　>　80
Then
　　Call　PlayPiano_RTN
Else
　　Call　Eat_RTN
End　If

If　T_Barometer　>　50
Then
　　Call　PlayPiano_RTN
Else
　　Call　Bath_RTN
End　If

If　T_Barometer　>　30
Then
　　Call　PlayPiano_RTN
Else
　　Call　CouchPotato_RTN
End　If

If　T_Barometer　>　0
Then
　　Call　PlayPiano_RTN
Else
　　Exit　Today'sProgram
End　If

End　Sub
*------------------------------------------------*
Sub PlayPiano_RTN
　　Do　Play　The　Piano　Soon!
End　Sub
*------------------------------------------------*
Sub Eat_RTN
　　Do　Eat　Dinner!
　　T_Barometer　=　T_Barometer　-　30
End　Sub
*------------------------------------------------*
Sub Bath_RTN
　　Do　Eat　Take A Bath!
　　T_Barometer　=　T_Barometer　-　20
End　Sub
*------------------------------------------------*
Sub CouchPotato_RTN
　　Do　Relax!
　　T_Barometer　=　T_Barometer　-　30
End　Sub
*------------------------------------------------*

《翻訳》