PROGRAM label_illustration;

LABEL 274,repeat_loop,help,dog;

VAR counter : BYTE;  (* This limits us to a maximum of 255 *)

BEGIN
  WRITELN('Start here and go to "help"');
  GOTO help;

dog:
  WRITELN('Now go and end this silly program');
  GOTO 274;

repeat_loop:
  FOR counter := 1 TO 4 DO WRITELN('In the repeat loop');
  GOTO dog;

help:
  WRITELN('This is the help section that does nothing');
  GOTO repeat_loop;

274:
  WRITELN('This is the end of this spaghetti code');

END.