paxScript Demo. Embedding scripts into html pages.

paxBasic

<?pax 
Dim num_tries, num_to_guess = 40, Message = ""

If HasProperty("number_tries") Then
  num_tries = number_tries + 1
Else
  num_tries = 0
End If

If Not HasProperty("guess") Then
  Message = "Welcome to the guessing machine !"
ElseIf toInteger(guess) > num_to_guess Then
  Message = guess + " is to big. Try a smaller number"
ElseIf toInteger(guess) < num_to_guess Then
  Message = guess + " is too small. Try a large number"
Else
  Message = "Well done!"
End If
?>

<html>   
<head><title>Guessing machine</title></head>   
<body>   
\%s=Message   
<br>   
Guess number: <?pax print num_tries : ?>    

<form action="<?pax print PAX_SELF : ?>" method="POST">   
type your guess here: <input type="text" name="guess">   
<input type="hidden" name="number_tries" value="<?pax print num_tries; ?>">   
</form>   
</body>   
</html>

paxC

<?pax
var
  num_tries, num_to_guess = 40, Message = "";

if (HasProperty("number_tries"))
  num_tries = number_tries + 1;
else
  num_tries = 0;

if (!HasProperty("guess"))
  Message = "Welcome to the guessing machine !";
else if (toInteger(guess) > num_to_guess)
  Message = guess + " is to big. Try a smaller number";
else if (toInteger(guess) < num_to_guess)
  Message = guess + " is too small. Try a large number";
else
  Message = "Well done!";
?>

<html>   
<head><title>Guessing machine</title></head>   
<body>   
\%s=Message   
<br>   
Guess number: <?pax print num_tries; ?>    

<form action="<?pax print PAX_SELF; ?>" method="POST">   
type your guess here: <input type="text" name="guess">   
<input type="hidden" name="number_tries" value="<?pax print num_tries; ?>">   
</form>   
</body>   
</html>

paxPascal

<?pax   
var
  num_tries, num_to_guess = 40, Message = '';

if HasProperty('number_tries') then
  num_tries := number_tries + 1
else
  num_tries := 0;

if not HasProperty('guess') then
  Message := 'Welcome to the guessing machine !'
else if toInteger(guess) > num_to_guess then
  Message := guess + ' is to big. Try a smaller number'
else if toInteger(guess) < num_to_guess then
  Message := guess + ' is too small. Try a large number'
else
  Message := 'Well done!';
?>

<html>   
<head><title>Guessing machine</title></head>   
<body>   
\%s=Message   
<br>   
Guess number: <?pax print num_tries; ?>    

<form action="<?pax print PAX_SELF; ?>" method="POST">   
type your guess here: <input type="text" name="guess">   
<input type="hidden" name="number_tries" value="<?pax print num_tries; ?>">   
</form>   
</body>   
</html>