mirror of
https://github.com/QB64-Phoenix-Edition/QB64pe.git
synced 2024-09-01 16:20:17 +00:00
45 lines
907 B
QBasic
45 lines
907 B
QBasic
|
CLS
|
||
|
'All of my Declarations
|
||
|
DIM selection AS INTEGER
|
||
|
DIM upper AS STRING
|
||
|
DIM LCASE AS STRING
|
||
|
DIM lower AS STRING
|
||
|
DIM UCASE AS STRING
|
||
|
'End of Declarations
|
||
|
start:
|
||
|
|
||
|
PRINT "Uppercase ----> Lowercase & Lowercase ----> Uppercase Conversion"
|
||
|
PRINT
|
||
|
PRINT "1) Uppercase ----> Lowercase"
|
||
|
PRINT
|
||
|
PRINT "2) Lowercase ----> Uppercase Conversion"
|
||
|
PRINT
|
||
|
INPUT "Enter your choice"; selection
|
||
|
|
||
|
SELECT CASE selection
|
||
|
|
||
|
CASE 1
|
||
|
CLS
|
||
|
PRINT "Uppercase ----> Lowercase Conversion"
|
||
|
PRINT
|
||
|
INPUT "Enter Uppercase character"; upper
|
||
|
PRINT
|
||
|
LCASE = LCASE$(upper)
|
||
|
PRINT "The character in Lowercase is:"; LCASE
|
||
|
|
||
|
CASE 2
|
||
|
CLS
|
||
|
PRINT "Lowercase ----> Uppercase Conversion"
|
||
|
PRINT
|
||
|
INPUT "Enter Lowercase character"; lower
|
||
|
PRINT
|
||
|
UCASE = UCASE$(lower)
|
||
|
PRINT "The character in Uppercase is:"; UCASE
|
||
|
|
||
|
CASE ELSE
|
||
|
|
||
|
PRINT "Invalid Selection"
|
||
|
GOTO start
|
||
|
|
||
|
END SELECT
|