Archive for July 24th, 2008
Select Case
Posted by: programmervb on: July 24, 2008
CLS
INPUT “Enter your name: “, Name$
SELECT CASE Name$
CASE “Ted”
PRINT “Greetings, oh powerful master”
CASE “Mike”
PRINT “Go away!”
CASE ELSE
PRINT “Hello, “; Name$; “. How are you?”
END SELECT
Tags: Select case
Randomize Timer
Posted by: programmervb on: July 24, 2008
CLS
RANDOMIZE TIMER
PRINT “I am the magical Fortune Teller.”
INPUT “Think of a question and press enter for your answer…”, A$
PRINT
Answer = INT(RND * 5 + 1)
SELECT CASE Answer
CASE 1
PRINT “Yes, definitely.”
CASE 2
PRINT “Ask again, later.”
CASE 3
PRINT “No way!”
CASE 4
PRINT “It is certain.”
CASE 5
PRINT “Yes.”
END SELECT
Tags: Randomize Timer
Flickr Photos
|
