M000-MORNING-RTN.
PERFORM M100-INIT-RTN THRU M100-INIT-EX.
PERFORM M200-MAIN-RTN THRU M200-MAIN-EX.
PERFORM M300-END-RTN THRU M300-END-EX.
STOP RUN.
M000-MORNING-EX.
EXIT.
M100-INIT-RTN.
INITIALIZE 昨日の自分.
OPEN MUSIC.
PERFORM C100-READ-RTN THRU C100-READ-EX.
M100-INIT-EX.
EXIT.
M200-MAIN-RTN.
EVALUATE 現在時刻
WHEN 5時半以前
PERFORM P210-A-RTN THRU P210-A-EX
WHEN 6時半以前
PERFORM P220-B-RTN THRU P220-B-EX
WHEN 7時半以前
PERFORM P230-C-RTN THRU P230-C-EX
WHEN OTHER
PERFORM P240-D-RTN THRU P240-D-EX
END-EVALUATE.
M200-MAIN-EX.
EXIT.
M300-END-RTN.
CLOSE MUSIC.
DISPLAY '今日も元気に行ってらっしゃい'.
M300-END-EX.
EXIT.
P210-A-RTN.
パソコンつける.
野球つくのオーダー組む.
新聞読む.
食事つくる.
風呂入る.
P210-A-EX.
EXIT.
P220-B-RTN.
パソコンつける.
野球つくのオーダー組む.
食事つくる.
風呂入る.
P220-B-EX.
EXIT.
P230-C-RTN.
パソコンつける.
朝食はつくる.
顔洗う.
P230-C-EX.
EXIT.
P240-D-RTN.
IF 今日の自分 = ヤレますか!?
THEN
朝食は栄養ドリンク.
ELSE
PERFORM C900-Z-RTN THRU C900-Z-EX
END-IF.
P240-D-EX.
EXIT.
C100-READ-RTN
時計を見る.
時刻確認.
C100-READ-EX.
EXIT.
C900-Z-RTN.
とりあえず課長に電話.
風邪のフリ.
二度寝.
STOP RUN.
C900-Z-EX.
EXIT.
さて、今日の私はどのルートだったでしょう。
細かい文法には突っ込まないように。
給料日、されど銀行行く気せず。
残業代、大台届く一歩前。
今日のBGM : コイバナ (扇愛奈) : album [ ニッポンの150cm ]