Data commit

Task/Magic-8-ball/BASIC256/magic-8-ball.basic

@@ -0,0 +1,30 @@
+dim answer$(20)
+answer$[0] = "It is certain."
+answer$[1] = "It is decidedly so."
+answer$[2] = "Without a doubt."
+answer$[3] = "Yes - definitely."
+answer$[4] = "You may rely on it."
+answer$[5] = "As I see it, yes."
+answer$[6] = "Most likely."
+answer$[7] = "Outlook good."
+answer$[8] = "Yes."
+answer$[9] = "Signs point to yes."
+answer$[10] = "Reply hazy, try again."
+answer$[11] = "Ask again later."
+answer$[12] = "Better not tell you now."
+answer$[13] = "Cannot predict now."
+answer$[14] = "Concentrate and ask again."
+answer$[15] = "Don't count on it."
+answer$[16] = "My reply is no."
+answer$[17] = "My sources say no."
+answer$[18] = "Outlook not so good."
+answer$[19] = "Very doubtful."
+
+print "Q to quit."
+while True
+	input string "What would you like to know? ", question$
+	if upper(question$) = "Q" then exit while
+	print answer$[int(rand * answer$[?])]
+	print
+end while
+end