15 lines
171 B
Text
15 lines
171 B
Text
! Optimized solution with True BASIC
|
|
|
|
OPTION NOLET
|
|
x = 1
|
|
y = 3
|
|
z = 0
|
|
PRINT STR$(x) & " Open"
|
|
DO UNTIL z >= 100
|
|
z = x + y
|
|
PRINT STR$(z) & " Open"
|
|
x = z
|
|
y = y + 2
|
|
LOOP
|
|
|
|
END
|