3

Is there a way to simulate a Repeat/Until loop in a BASIC language without it, and without using a GOTO statement?

For BASIC languages with command separators, can this be done on a single line without an IF/THEN statement?

  • 5
    This leads to the question "Why do you want to not use a GOTO? – Jeff Zeitlin Sep 7 '17 at 19:24
  • 4
    @Mark: It's BASIC, BASIC comes with goto. It doesn't get more readable (which is the point) if you use a complicated construct simulating repeat/until, that's even more "harmful". – dirkt Sep 8 '17 at 8:21
  • 2
    Mr Dijkstra's essay is probably more harmful to CS than the use of the GOTO statement; it is quite possible to write structured code in BASIC using GOTO, as in early BASICs, when you don't have constructs such as WHILE...WEND or REPEAT...UNTIL. If you understand how those constructs work at a conceptual level, writing equivalent code using GOTO is quite understandable, and doesn't rely on questionable misuse of other constructs, such as the submitted answer (FOR...NEXT with STEP 0). – Jeff Zeitlin Sep 8 '17 at 11:30
  • 4
    The problem that Mr Dijkstra rightly decried was the indiscriminate use of GOTO for branching to more-or-less arbitrary points in the code. It was not unconditionally the use of GOTO at any time. However, it has been misread repeatedly, and summarized inaccurately, to the point where it is a cliché, and that is the genesis of my previous comment. – Jeff Zeitlin Sep 8 '17 at 11:37
  • 1
    I contend that Dijkstra's essay has been much less harmful than the GOTO statement as it has promoted more-structured approaches to control flow that more clearly communicate programmer intention. The issue isn't merely structure, it's comprehensibility. Any successful computer code will have a long maintenance life so costs accrue not just through lack of structure but also from time taken by each new author in discerning the structure. How quickly can you understand a do/while? What about GOTOs that effect a do/while? What about when the loop body is large and loops are nested? – Tommy Sep 8 '17 at 15:13
3

What we do is create a FOR/NEXT loop with the special property that we set the STEP rate to zero, so that it will run forever.

To exit the loop, we set the counter equal to the ending value of the FOR loop.

10 FOR X = 0 TO 1 STEP 0
20 INPUT "WHAT IS YOUR NAME?"; X$
30 IF LEN(X$) > 0 THEN X = 1
40 NEXT X

,

For this to work on a single line, the BASIC needs to support boolean values as a number, so that we can use Boolean Math in place of the IF/THEN statement.

Support for this varies from one BASIC to the next, with some having a True value equal to 1 and others with True equal to -1. The following code checks to see which way this works and compensates for it.

10 N = 1 : IF (1 = 1) = -1 THEN N = -1
20 FOR X = 0 TO 1 STEP 0 : INPUT "WHAT IS YOUR NAME?"; X$ : X = (LEN(X$) > 0) * N : NEXT X

(Tested in Apple II Microsoft/FP BASIC).

,

EDIT: An even shorter way to do it, that should be compatible across most BASIC languages, as suggested by Jeff Zeitlin:

10 N=NOT 0 :FOR X=0 TO 1 STEP 0 :INPUT "WHAT IS YOUR NAME?"; X$ :X=(LEN(X$)>0)*N :NEXT X
  • 1
    As regards variance in the value for TRUE in different BASICs: Why not just say N = NOT 0? – Jeff Zeitlin Sep 7 '17 at 19:26
  • Good idea, that is much shorter. +1 for you. – Dale Mahalko Sep 8 '17 at 2:53
  • valid, and answering the question. remains the question for the OT: in which way is such an obfuscated construct better, than using the (in BASIC perfectly valid "goto" command), just for NOT using goto ?? – Tommylee2k Sep 8 '17 at 9:10
  • 1
    @Tommy - Indeed; a good catch: I missed that Dale was both querent and respondent. I still think that avoiding GOTO in this case is misguided, and that the answer provided relies on a quirky implementation of the FOR statement. – Jeff Zeitlin Sep 8 '17 at 17:01
  • 1
    @WayneConrad - it's particularly useful in a case like this one, where the querent's query is quite queer. – Jules Sep 8 '17 at 20:03

Your Answer

By clicking “Post Your Answer”, you agree to our terms of service, privacy policy and cookie policy

Not the answer you're looking for? Browse other questions tagged or ask your own question.