19 lines
264 B
Text
19 lines
264 B
Text
PROGRAM GOTO_ERR
|
|
|
|
LABEL 99,100
|
|
|
|
PROCEDURE P1
|
|
INPUT(I)
|
|
IF I=0 THEN GOTO 99 END IF
|
|
END PROCEDURE
|
|
|
|
PROCEDURE P2
|
|
99: PRINT("I'm in procdedure P2")
|
|
END PROCEDURE
|
|
|
|
BEGIN
|
|
100:
|
|
INPUT(J)
|
|
IF J=1 THEN GOTO 99 END IF
|
|
IF J<>0 THEN GOTO 100 END IF
|
|
END PROGRAM
|