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>


Copyright © 1999-2006 VIRT Laboratory. All rights reserved.