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