' This program exported from BASIC Anywhere Machine (Version [5.2.3].[2023.12.16.16.28]) on 2024.01.23 at 02:19 (Coordinated Universal Time)
' Program by Charlie Veniot to demonstrate dynamic values for the STEP clause in FOR-NEXT blocks

SCREEN _NEWIMAGE(401, 401, 12)

🎨start_drawing:
  CLS
  FOR i = 0 TO xMAX STEP INT(RND*7 + 1)
    LINE (0, i)    - (INT((_WIDTH - 1) / 2), INT((_WIDTH - 1) / 2)), 12
    LINE (i, 0)    - (INT((_WIDTH - 1) / 2), INT((_WIDTH - 1) / 2)), 14
    LINE (xMAX, i) - (INT((_WIDTH - 1) / 2), INT((_WIDTH - 1) / 2)), 11
    LINE (i, yMAX) - (INT((_WIDTH - 1) / 2), INT((_WIDTH - 1) / 2)), 10
  NEXT i
  SLEEP 0.25
GOTO 🎨start_drawing