Program coins;
Uses crt;
Var
pick,c:Char;                 {from ASCII characters}
Head,Tail,Flip:Byte;     {0..255}
 
Begin
   Head:=0;
   Tail:=1;
   Repeat
      Write ('choose the outcome of the toss of the coin H or T: ');
      ReadLn (pick);
      Case (pick) of
         'H','h':Begin
                    WriteLn('You choose: Head: ',Head);
                    Randomize;  {shuffling..}
                    Flip:=Random(2);  {generate}
                    WriteLn('Computer: ',Flip);
                    If (Flip = Head) Then  {analize it}
                       Begin
                          WriteLn('You Win!!!'); {notify the user}
                       End
                    Else WriteLn('You Lose...');
                 End;{of begin}
         'T','t':Begin
                    WriteLn('You choose: Tail:',Tail);
                    Randomize;
                    Flip:=Random(2);
                    WriteLn('Computer: ',Flip);
                    If (Flip= Tail) Then
                       Begin
                          WriteLn('You Win!!!');
                       End
                    Else WriteLn('You Lose...');
                 End{of begin}
      Else Begin {of case else}
              Write('Wrong answer...');
              ReadLn;
              Halt;
           End;
      End;{of case}
   WriteLn('Do you want to continue?Press ESC for quit.');
   c:=ReadKey;
   Until c=#27;
   ReadLn;
End.{main}
 
{
-=Note By FlamingClaw=-
 
You have to choose between 'H' or 'T'.
This little program run again and again while you do not press
'Esc' button. The '#27' is the code of the Esc button from ASCII table.
Sorry for rewrite your program...
 
-=Created By FlamingClaw=-
2009.03.15
}