This simple little program demonstrates how lower case letters are converted to UPPER case without affecting any other input. 1 'UPPER.BA by Robert Benson (11/5/90) 10 CLS 20 PRINT@0,"Hit a lower case key... "; 30 A$=INKEY$:IF A$="" GOTO30 40 IF PEEK(65451)=7 THEN MENU 50 A=ASC(A$) 60 IF A>96 AND A<123 THEN A=A-32 70 PRINT CHR$(A):GOTO20 Line 20 prints a message without terminating the line so that the next PRINT statement will follow, note the semicolon at the end of the line. Line 30 scans for input and loops back on itself until a key is pressed. Line 40 simply provides a way to detect the F8 key "Menu" when it is pressed, for a Model 200 change 65451 to 64799. Line 50 assigns the ASCII value of the input to the variable "A". Line 60 does the work, it determines if the ASCII value is that of a lower case letter and if so subtracts 32 giving it a value for the same in UPPER case. Line 70 prints the ASCII character for the value of "A" and returns to line 20 to restart. Hope you've enjoyed this as much as I did writing it. -=Robert Benson=-