10 FOR I=0 TO 5
20 ON I GOTO 100,110,120,130,140:IF C<>0 THEN STOP
30 NEXT I
40 ON 6 GOTO 1
50 C=0
60 FOR I=1 TO 5
70 ON I GOSUB 200,210,220,230,240
80 NEXT I
90 PRINT "PASS":END
100 C=C+1:IF C<>1 THEN STOP
101 GOTO 30
110 C=C+1:IF C<>2 THEN STOP
111 GOTO 30
120 C=C+1:IF C<>3 THEN STOP
121 GOTO 30
130 C=C+1:IF C<>4 THEN STOP
131 GOTO 30
140 C=C+1:IF C<>5 THEN STOP
141 GOTO 30
200 C=C+1:IF C<>1 THEN STOP
201 RETURN
210 C=C+1:IF C<>2 THEN STOP
211 RETURN
220 C=C+1:IF C<>3 THEN STOP
221 RETURN
230 C=C+1:IF C<>4 THEN STOP
231 RETURN
240 C=C+1:IF C<>5 THEN STOP
241 RETURN
