This is the second disk of the PASCAL TUTOR system. It has the
Submitted By:
WEBMASTER
Rating:
(Not rated) (
Rate It)
(* Chapter 6 - Program 5 *)
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.
