This repository has been archived on 2024-12-16. You can view files and clone it, but cannot push or open issues or pull requests.
CodeBlocksPortable/WATCOM/eddat/tryme.vi

40 lines
991 B
Plaintext
Raw Normal View History

#
# sample script using all the new constructs (I think)
#
atomic
assign %(maincount) = 1
execute \eAStarting\n\e
while %(maincount) <= 10
execute \eAa=%(maincount)\n\e
assign %b = 1
loop
if %b == 1
execute \eAb=ONE\n\e
elseif %b == 2
execute \eAb=TWO\n\e
elseif %b == 3
execute \eAb=THREE\n\e
else
execute \eAb=DONE\n\e
break
endif
expr %b = %b + 1
until %b == 6
assign %c = 1
loop
execute \eA%c\e
expr %c = %c + 1
quif %c >= 5
endloop
execute \eA\n\e
expr %(maincount) = %(maincount) + 1
endloop