s25

Block of 3 lines in the section go get a new location .
Variables IPLACE.

25 L=20 IF(IPLACE(NUGGET).NE.-1)L=15 GOTO 2

travel

from

Computed from block s19.

GOTO(22,23,24,25,26,31,27,28,29,30,33,34,36,37)IL

to

Unconditional to block s2.

GOTO 2