; Chapter04ScoreGrade.pro
PRO  Chapter04ScoreGrade
m = " "
READ, PROMPT="請輸入等級（A , B, C, D, or E）：", m
m = STRUPCASE(m)
SWITCH  m  of
       'A' :
       'B' :
       'C' :
       'D' : BEGIN
                PRINT, "Score >= 60！ ", m + "級，" ,  "通過考試！"
                BREAK
              END
        'E' :  PRINT, " Score < 60！ ", m  + "級，" ,  "沒有通過考試！"
ENDSWITCH
END