100 INPUT PROMPT "Enter A: ":A
110 INPUT PROMPT "Enter B: ":B
120 SELECT CASE A
130 CASE IS<B
140   PRINT A;"is lesss than ";B
150 CASE IS=B
160   PRINT A;"is equal to ";B
170 CASE ELSE
180   PRINT A;"is greater than ";B
190 END SELECT