Code: Select all
short success = 0;
do // A little tongue in cheek code.
{
succes = try();
} while( !success );
Code: Select all
short success = 0;
do // A little tongue in cheek code.
{
succes = try();
} while( !success );
Code: Select all
program MoonWalk;
// A Minus Infinite Loop
//from help: "Label should be followed by end of line (CR) otherwise compiler will report an error."
//labels should be highlighted in the syntax (that's when you know there are CR characters after labels):
label
Step1, Step2, Step3, Step4, Step5;
var
x: Integer;
begin
Step1:
Inc(x); goto Step5;
Step2:
Inc(x); goto Step1;
Step3:
Inc(x); goto Step2;
Step4:
Inc(x); goto Step3;
Step5:
Inc(x); goto Step4;
end.