Data commit

Task/Magic-8-ball/Action-/magic-8-ball.action

@@ -0,0 +1,39 @@
+PROC Main()
+  DEFINE PTR="CARD"
+  DEFINE COUNT="20"
+  CHAR ARRAY s(256)
+  PTR ARRAY a(COUNT)
+  BYTE i
+
+  a(0)="It is certain."
+  a(1)="It is decidedly so."
+  a(2)="Without a doubt."
+  a(3)="Yes - definitely."
+  a(4)="You may rely on it."
+  a(5)="As I see it, yes."
+  a(6)="Most likely."
+  a(7)="Outlook good."
+  a(8)="Yes."
+  a(9)="Signs point to yes."
+  a(10)="Reply hazy, try again."
+  a(11)="Ask again later."
+  a(12)="Better not tell you now."
+  a(13)="Cannot predict now."
+  a(14)="Concentrate and ask again."
+  a(15)="Don't count on it."
+  a(16)="My reply is no."
+  a(17)="My sources say no."
+  a(18)="Outlook not so good."
+  a(19)="Very doubtful."
+
+  DO
+    PrintE("Enter your question or blank to exit:")
+    InputS(s)
+    IF s(0)=0 THEN
+      EXIT
+    FI
+    i=Rand(COUNT)
+    PrintE(a(i))
+    PutE()
+  OD
+RETURN