Data commit

Task/Magic-8-ball/ALGOL-68/magic-8-ball.alg

@@ -0,0 +1,15 @@
+BEGIN
+  []STRING answers = ("It is certain.", "It is decidedly so.",
+                      "Without a doubt.", "Yes - definitely.", "You may rely on it.",
+                      "As I see it, yes.", "Most likely.", "Outlook good.",
+                      "Yes.", "Signs point to yes.", "Reply hazy, try again.",
+                      "Ask again later.", "Better not tell you now.", "Cannot predict now.",
+                      "Concentrate and ask again.", "Don't count on it.", "My reply is no.",
+                      "My sources say no.", "Outlook not so good.", "Very doubtful.");
+  DO
+    REF STRING question := LOC STRING;
+    print("Your question: ");
+    read((question, new line));
+    print((answers[ENTIER (random * UPB answers) + 1], new line))
+  OD
+END