<table c=2>
hi there
<cbogus>hi there</c>
<c>hi there</c><c name=blah action=test3 fsize=large>fud</c>
<c name=booze>can't see this</c>

<?


function test1 ($a) {
    print "<c name=barf>";
    while ($a < 15) {
	$a++;
	print ($a);
	print "v";
    }
    print "</c>";
    10;
}

$bogonum = 0;

if (1) {
    print "<c>fooo</c>";
}

function test3() {
    global $bogonum;
    cellp ("blah", $bogonum);
    $bogonum++;
}

/*
function do_nothing () {
    13;
}
*/


$a = 13;
$foo = 10;
$bar = 0;
$baz = $foo;

$blah = 10 << 2;
print "<c> ---- $blah ----</c>";

if (!10 == 0) {
    print "<c> ---- well hi there ----</c>";
}

$funny = "13";
$blah = atoi $funny;
$blahf = $blah + 4;

print "<c> FFF ";
print $blahf;
print " FFF</c>";

test1 $a;
test1 ($foo, $bar);

$a = 13;

/* noop($foo); */

10;

function test2 () {
    print $b;
}

 /* this is a comment */

?>
<t>spaz out
<?

$bar = $a * $foo;

if ($a == 13) {
    print $a;
}

if ($a == 14) { /* and this is a comment too */
    print $a;
} else {
    print $bar;
}

$baz = $baz + 1;

$bar = $foo + 20;

print "stuff</c>";
print "\n";
print "foo\n";

$a == 10;

print "<c>";
print 125;
print "</c>";

while ($foo < $bar) {
    /* print "yak\n"; */
    print "<c>";
    print $foo;
    print " f</c>";
    $foo++;
}

/* do_nothing(); */

$a = 2;

print "<c>done</c>\n";

cellp("booze", 99);
cellp("booze", "this sucks");
cellp("scrood", "this does nothing");

?>

