mirror of
https://github.com/QB64Official/qb64.git
synced 2024-09-04 11:10:15 +00:00
6e01fc8dce
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
853 B
QBasic
44 lines
853 B
QBasic
CLS
|
|
'Start of Declarations
|
|
DIM num AS INTEGER
|
|
DIM code AS STRING
|
|
DIM code1 AS INTEGER
|
|
DIM num1 AS STRING
|
|
'End of Declarations
|
|
|
|
start:
|
|
|
|
PRINT "ASCII code ----> ASCII Character & ASCII Character ----> ASCII Code Converter"
|
|
PRINT
|
|
PRINT "1) ASCII code ----> ASCII Character"
|
|
PRINT
|
|
PRINT "2) ASCII Character ----> ASCII code"
|
|
PRINT
|
|
INPUT "Enter your choice"; selection
|
|
|
|
SELECT CASE selection
|
|
|
|
CASE 1
|
|
CLS
|
|
PRINT "ASCII code ----> ASCII Character"
|
|
PRINT
|
|
INPUT "Enter ASCII code"; num
|
|
PRINT
|
|
code = CHR$(num)
|
|
PRINT "The ASCII Character is:"; code
|
|
|
|
CASE 2
|
|
CLS
|
|
PRINT "ASCII Character ----> ASCII Code Converter"
|
|
PRINT
|
|
INPUT "Enter ASCII Character"; num1
|
|
PRINT
|
|
code1 = ASC(num1)
|
|
PRINT "The ASCII Code is:"; code1
|
|
|
|
CASE ELSE
|
|
|
|
PRINT "Invalid Selection"
|
|
GOTO start
|
|
END SELECT
|
|
|