13 lines
260 B
QBasic
13 lines
260 B
QBasic
' input.bas -- Test INPUT statement
|
|
'
|
|
' Demonstrates the INPUT dialog.
|
|
|
|
DIM name AS STRING
|
|
DIM age AS INTEGER
|
|
|
|
INPUT "What is your name"; name
|
|
PRINT "Hello, " + name + "!"
|
|
|
|
INPUT "How old are you"; age
|
|
PRINT "You are" + STR$(age) + " years old."
|
|
PRINT "Done!"
|