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