mirror of
https://github.com/QB64Official/qb64.git
synced 2024-09-04 11:10:15 +00:00
Added new _STRCMP and _STRICMP commands for quick string comparisons. Cleaned up QB64 to finish removing the QUI (quick user insert) code and folders. Altered UCASE and LCASE routines to be faster in some situations for us.
44 lines
907 B
QBasic
44 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
|