'adder2.bas
'Aussie John 6/6/01
'Done on fly in Notepad to show a simple QBasic program.
'START
'header
CLS
PRINT
PRINT " Aussie John's Little QBasic Computer Program"
PRINT " ********************************************"
PRINT
'greet user and input
INPUT " Please enter your name .."; Name$
PRINT
PRINT " Hello "; Name$
SLEEP 2
PRINT " I will add two numbers for you."
PRINT
INPUT " Enter the first number to add ...."; Num1
INPUT " Enter the second number to add ..."; Num2
SLEEP 2
'calculations
LET Total = Num1 + Num2
'output
PRINT
PRINT " The two numbers add to .." ;Total
SLEEP 2
'termination message and termination
PRINT
PRINT
PRINT " Thanks for visiting"; Name$
SLEEP 2
PRINT
PRINT " Goodbye"
SLEEP 2
CLS
END

http://www.oocities.org/wpsmoke/basic.html