[Back to DOS SWAG index] [Back to Main SWAG index] [Original]

    {
    SEAN PALMER

    > How would I use this Variable after I Exit the pascal Program??

    You wouldn't. It won't work. What you COULD do though is to have it return an
    errorlevel to Dos if you cancel...
    }

    Program ruSure;
    Uses
      Crt;

    Procedure yes;
    begin
      TextAttr := 12;
      Writeln('Okay.');  {no error here}
    end;

    Procedure no;
    begin
      TextAttr := 26;
      Writeln('Aborted.');
      halt(1);          {report an error to Dos}
    end;

    begin
      TextAttr := 13;
      Write('Do you wish to continue? [Y/N]');
      Case upcase(ReadKey) of
        'Y' : yes;
        'N' : no;
      end;
    end.
    {

     Now the batch file :

    rusure
    REM check For an error from the Program
    if errorlevel 1 Goto NOPE
    goto EXIT
    :NOPE
    cd ..
    etc.

[Back to DOS SWAG index] [Back to Main SWAG index] [Original]