🖥 Animated "100 Doors"

EDIT 2026-05-11: Something was causing this program to not work on mobile devices.  I'm guessing I had exported and uploaded the wrong version (an earlier non-working one) of this program.  A newly exported version now works (with my tablet, anyway.) (New test version)

This program is an animated version of the "100 Doors" programming task described on the Rosetta Code website.

Other than the tackling the task and enhancing it with some simple animation (to visualize the process), I also wanted to showcase a few features of BAM's BASIC implementation:

• Using expressions in GOSUB statements
• Using emojis to facilitate finding/noticing program sections and identifiers/labels 
• Using the IFF function
• Using the BETWEEN function
• Pausing the program with help from the _MOUSEBUTTON function

My primary interest in this exercise (other than giving the old sponge a workout) revolved around the design of this loop and setting it up for multiple purposes:

FOR y% = 0 TO 4

  FOR x% = 1 TO 20

    GOSUB (DoorAction$)

    IF _MOUSEBUTTON THEN WHILE _MOUSEBUTTON : WEND

    SLEEP IFF(BETWEEN(pass%,1,30) AND (pass% < 5 OR pass% MOD 10 = 0), 0.025, 0.001)

  NEXT x%

NEXT y%

The program:

• Run it
• View the source code