'===========================================================================
' Subject: ASCII CONVERTER                    Date: 07-06-99 (15:50)       
'  Author: Paul Malcher                       Code: QB, QBasic, PDS        
'  Origin: kake26@netzero.net               Packet: MISC.ABC
'===========================================================================
10 CLS : GOTO 13
11 CLS : PRINT "INVALID COMMAND!"
13 PRINT "Welcome to ascii converter!"
PRINT "1. convert charater to ascii number"
PRINT "2. covert ascii number to charater"
PRINT "3. knowen bugs"
PRINT "4. about"
PRINT "5. exit"
PRINT "IF YOU GET AN ERROR WHEN YOU USE CHARATER TO ASCII NUMBER THEN RESTART THE"
PRINT "PROGRAM AND TYPE FIXES YOUR ANSWER MAY BE IN THERE"
INPUT a$
IF a$ = "1" THEN GOTO cn
IF a$ = "2" THEN GOTO nc
IF a$ = "3" THEN GOTO bugs
IF a$ = "4" THEN GOTO about
IF a$ = "fixes" THEN GOTO fixes
IF a$ = "5" THEN END ELSE GOTO 11
GOTO 11

bugs:
CLS
PRINT "This program for some reason can't convert some characters to numbers."
PRINT "The only knowen one is the quotation marks (FIXED JUST TYPE FIXES AT MAIN PROMT)"
PRINT "If you find any more e-mail me at kake26@mailexcite.com"
PRINT "I will fix them with asap."
PRINT "returm to main menu?"
INPUT g$
IF g$ = "y" THEN GOTO 10 ELSE END

about:
CLS
PRINT "This program was made by KAKE it is version 1.0"
PRINT "look out for futre versions."
PRINT "I've created this as a tool for programers."
PRINT "return to main menu? y or n"
INPUT g$
IF g$ = "y" THEN GOTO 10 ELSE END

cn:
PRINT "what charater?"
INPUT b$
12  CLS
cn1 = ASC(b$)
PRINT cn1
PRINT "go back to main menu? Y or N"
INPUT c$
IF c$ = "y" THEN GOTO 10 ELSE END

nc:
PRINT "what number?"
INPUT nc
CLS
PRINT CHR$(nc)
PRINT "go back to main menu? Y or N"
INPUT c$
IF c$ = "y" THEN GOTO 10 ELSE END

fixes:
CLS
PRINT "TYPE CHARATER:"
PRINT "FOR QOUTATION MARKS TYPE qm"
INPUT t$
IF t$ = "qm" THEN PRINT "34"
PRINT "return to main menu? y or n"
INPUT g$
IF g$ = "y" THEN GOTO 10 ELSE END