Data commit

Task/User-input-Graphical/PowerBASIC/user-input-graphical.basic

@@ -0,0 +1,14 @@
+FUNCTION PBMAIN () AS LONG
+    result$ = INPUTBOX$("Enter a string.")
+    MSGBOX result$
+    DO
+        'This assumes that 75000 is the ONLY valid input.
+        result$ = INPUTBOX$("Enter the number 75000.")
+        IF VAL(result$) <> 75000 THEN
+            MSGBOX "You need to enter 75000!"
+        ELSE
+            MSGBOX "You entered the right number."
+            EXIT DO
+        END IF
+    LOOP
+END FUNCTION