'=========================================================================== ' Subject: CHECK ASCII CHARACTER CODE Date: 12-29-96 (14:06) ' Author: Chris McKenzie Code: QB, QBasic, PDS ' Origin: unknown@sprynet.com Packet: KEYBOARD.ABC '=========================================================================== 'ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ ' This is a seemingly useless program, run it to find out what it is. 'ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ CLS FOR WaitFiveSeconds% = 5 TO 1 STEP -1 LOCATE 1, 1: PRINT "Press key and HOLD. You have"; WaitFiveSeconds%;"seconds to choose key." SLEEP 1 NEXT WaitFiveSeconds% CLS FOR KeyBeingChecked = 1 TO 255 Button$ = INKEY$ SLEEP 1 IF Button$ = CHR$(KeyBeingChecked) THEN GOTO ItHasBeenFound LOCATE 1, 1: PRINT "Checking code"; KeyBeingChecked PercentDone = (KeyBeingChecked / 255) * 100 MOD 100 LOCATE 2.1: PRINT PercentDone; "% done." NEXT KeyBeingChecked NotFound: CLS PRINT "I'm sorry but the Ascii character code was not found." GOTO Final ItHasBeenFound: CLS PRINT "The key has been found! It is Ascii character"; KeyBeingChecked; GOTO Final Final: PRINT "Press [Esc] to quit." NotPressingAButton: Button$ = INKEY$: IF Button$ <> CHR$(27) THEN GOTO NotPressingAButton END