mirror of
https://github.com/QB64Official/qb64.git
synced 2024-07-05 10:00:23 +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
|