> Is there a way to call your main function from a procedure? I want to
> user to have the option of restarting the program

> > Is there a way to call your main function from a procedure?

> Are you a C programmer?

> > I want to user to have the option of restarting the program

> Declare a label at the very beginning of the main program and jump to it
> whenever you want to restart the program. Note that this will not execute
> the initialization routines of the included routines again, though.

> label restart;

> begin
>   restart:
>   ...
>   ...

>   { Restart the program }
>   goto restart
> end.

> --
> This message will self-destruct in 10 seconds

> I tried... What i want to do is this little bit of code
> procedure yesno;
> var answer : char;
> begin
>     writeln('Try again? y/n?');
>      readln(answer);
>      if answer = 'y' then begin
>     main; {or whatever... however you would call the main function}
>     end
>     else begin
>     end;
> end;

> Once it calls the main procedure/function it would basically go through the
> whole program once again.
> Is there a way you can call a label in your main function from a procedure?

>Of course you'll need to put USES CRT at the top, since ReadKey is used (in my
>example anyway).  Upcase() is useful in cases like this too, as demonstrated.

>function ReadKey : char ; assembler ;
>asm mov AH,0 ; int 16H end {ReadKey} ;

>N.B. that is not an exact replacement for all of Crt.ReadKey; test it
>out.  In fact, subfunction $10 may be more useful.

>OK, put the entire thing in a WHILE...DO or REPEAT...UNTIL loop, so that your
>main procedure looks something like this:

>BEGIN
>    REPEAT
>        MainFlowOfControlEtc;
>        Write('Try again ([Y]/n) ? ');
>        ans:=ReadKey;
>    UNTIL Upcase(ans)='N';
>END.

> >OK, put the entire thing in a WHILE...DO or REPEAT...UNTIL loop, so that your
> >main procedure looks something like this:

> >BEGIN
> >    REPEAT
> >        MainFlowOfControlEtc;
> >        Write('Try again ([Y]/n) ? ');
> >        ans:=ReadKey;
> >    UNTIL Upcase(ans)='N';
> >END.
> One should add:

> if ans=#0 then readkey;

> after the ans:=readkey

> Otherwise it would also react to some special keys.

> Osmo

>>function ReadKey : char ; assembler ;
>>asm mov AH,0 ; int 16H end {ReadKey} ;

>>N.B. that is not an exact replacement for all of Crt.ReadKey; test it
>>out.  In fact, subfunction $10 may be more useful.

>Why don't you want to use Crt? The linker only adds the
>really used procedures to your program. Maybe ...
>I don't have the source for Crt, maybe there's a "big"
>initialization part in it?

> -=Yusuf=- cunningly deprives the user of many options

> PS Of course to catch some silly {*word*81} pressing multiple keys before this choice
> even displays, a loop like

> WHILE KeyPressed DO
>     ReadKey;

> would be a primitive solution.  That would stop inadvertent choosing of the "Y"
> option....