10 lines
236 B
Text
10 lines
236 B
Text
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
|