home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Collection of Hack-Phreak Scene Programs
/
cleanhpvac.zip
/
cleanhpvac
/
PASCSRC.ZIP
/
LABELS.PAS
< prev
next >
Wrap
Pascal/Delphi Source File
|
1988-01-15
|
580b
|
27 lines
(* 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.