view src/ploki/examples/goto.pk @ 4223:ac0403686959

<oerjan> rm -rf src/ploki; mv ploki src
author HackBot
date Fri, 20 Dec 2013 22:18:50 +0000
parents
children
line wrap: on
line source

#!../ploki
WUNT "1..3
GOTO 0
01 WUNT "ERROR MESSAGE
10 END
10 WUNT "ERROR MESSAGE
WUNT "ok 1
0  GOTO 10
20 WUNT "ok 3
20 GOTO 20
20 GOTO 0
20 WUNT "ERROR MESSAGE
10 WUNT "ok 2
10 GOTO 20
00 GOTO 10