#!/usr/bin/perl require 'cgi-lib.pl'; $prefix = "http://www.sodan.ecc.u-tokyo.ac.jp/~kei/dla2/"; my %input; &ReadParse(\%input); $side = 400 unless($side = $input{'side'}); $mode = 2 unless($mode = $input{'mode'}); $interval = 100 unless($interval = $input{'interval'}); $points = 10 unless($points = $input{'points'}); $source = $prefix . $source . $mode if($source = $input{'source'}); if($mode == 0) { $checked_m0 = "checked";} elsif($mode == 1){ $checked_m1 = "checked";} elsif($mode == 2){ $checked_m2 = "checked";} elsif($mode == 3){ $checked_m3 = "checked";} if($source){$checked_s1 = "checked";} else {$checked_s0 = "checked";} print &PrintHeader(); print << "_END_";

Dla Applet

mode	0 / 1 / 2 / 3
source	realtime calulation / view calculated data
misc	side:pixel / interval:msec /

back _END_