QBasic - Lowercase to uppercase

Convert lowercase letters to uppercase with this program for QBasic.

Downloads

English (EN)

upper-en.exe

Language: English

Executable for Windows, generated with QB64.

upper-en.bas

Language: English

Source code. You can generate an executable with it (using programs like QB64), you can use it on an old computer with QBASIC, or you can examine the code in case you are learning BASIC.

Spanish (ES)

mayus-es.exe

Language: Spanish

(In Spanish) Ejecutable para Windows, generado con QB64.

mayus-es.bas

Language: Spanish

(In Spanish) Código fuente. Puedes generar un ejecutable con el (usando programas como QB64), puedes usarlo en un antiguo computador con QBASIC, o puedes examinar el código en caso que estes aprendiendo BASIC.

Instructions

Type a phrase or sentence, then press the ENTER key to convert lowercase to uppercase. Consider the following:

• If the letter is uppercase, it will remain uppercase.
• Spaces are allowed to separate words.
• Only characters from the Latin script (A-Z) are supported. Other special characters such as ".!#$%&/()=" or even numbers will cause an ERROR message.
• On current operating systems, it is very likely that some special characters do not match your keyboard. This is due to the keyboard layout. Keep in mind that the keyboards that were used in the BASIC era were a little different from today's keyboards.

Type END (with capital letters) to end the program. In the Spanish version, type FIN (in capital letters) to end the program.

For Windows executables, press the ALT and ENTER keys at the same time to enable fullscreen of the program.

Donations

You can use this software completely for free! On the other hand, donations are highly valuable to us. Your support allows us to meet our goals and continue developing games and apps. If this software has been useful to you, please consider making a donation.

Code

A small sample of the code.

Input WORD$
If WORD$ = "END" Then End
OUTPUT$ = ""
L = Len(WORD$)
For T = 1 To L
    LETTER$ = Mid$(WORD$, T, 1)
    D = Asc(LETTER$)
    If D = 160 Or D = 181 Then D = 65
    If D = 130 Or D = 144 Then D = 69
    If D = 161 Or D = 214 Then D = 73
    If D = 162 Or D = 224 Then D = 79
    If D = 163 Or D = 129 Or D = 233 Then D = 85
    If D > 96 Then D = D - 32
    If D < 97 And D > 90 Then GoTo MESSAGE
    If D < 65 And D <> 32 Then GoTo MESSAGE
    If D > 122 Then GoTo MESSAGE
    LETTER$ = Chr$(D)
    OUTPUT$ = OUTPUT$ + LETTER$
Next T
Print ""
Color 10
Print "  "; OUTPUT$

To see the complete code, download the file with extension ".bas" from this page.

Important note: Files with the ".bas" extension may be displayed incorrectly in various text editors. This is due to character encoding. It is recommended to open these files in programs such as QB64, QBasic, or Visual Studio Code in a DOS encoding (CP437).

Credits

Programmed by Gustavo Belemmi

Tested by Karol Hidalgo

Special thanks to my dad for teaching me BASIC.

Visit our website!

https://hidalemmi.com