13 lines
398 B
Text
13 lines
398 B
Text
enableextensions
|
|
enabledelayedexpansion
|
|
editvar /newvar /value=0 /title=closed
|
|
editvar /newvar /value=1 /title=open
|
|
editvar /newvar /range=1-100 /increment=1 /from=2
|
|
editvar /newvar /value=2 /title=next
|
|
:doors
|
|
for /alloccurrences (!next!-!102!) do editvar /modify /value=-open-
|
|
editvar /modify /value=-next-=+1
|
|
if -next- /hasvalue=100 goto :cont else goto :doors
|
|
:cont
|
|
printline !1!-!102!
|
|
stoptask
|