langs a-z

2013-04-10 22:43:41 -07:00 · 2013-04-10 22:43:41 -07:00 · d066446780
commit d066446780
parent db842d013d
11389 changed files with 98361 additions and 1020 deletions
--- a/Task/Loops-Break/PureBasic/loops-break.purebasic
+++ b/Task/Loops-Break/PureBasic/loops-break.purebasic
@ -0,0 +1,17 @@
+If OpenConsole()
+
+  Repeat
+    a = Random(19)
+    PrintN(Str(a))
+    If a = 10
+      Break
+    EndIf
+    b = Random(19)
+    PrintN(Str(b))
+    PrintN("")
+  ForEver
+
+  Print(#CRLF$ + #CRLF$ + "Press ENTER to exit")
+  Input()
+  CloseConsole()
+EndIf