<APPLET CODE="GDView0.class" WIDTH=560 HEIGHT=540>
<param name=choice_ddl value="ddlA">
<param name=hani0 value="ddlA 0 8 1">
<param name=precommand0 value=" set_ddl ddlA 3">
<param name=command0 value="read hajime">
<param name=hajime value="
   set O 0 0; color 255 255 255; fcircle  O 20;
   read dat1;   read setsub1;  read dat2;
   read setsub1;read dat3;     read set;
">
<param name=dat1 value="
   set A 0 13; set B 0 5; set C 3 5; set D 0 5;
   set E 0 0;  set F 1 0; set G 1 3; set H 2 3; set I 2 5;
   copy IHGF JKLM; set N 3 0;   set O 3 5;  copy ON PQ;
   set R 5 0;   set X -3.5 2;   set Y -3.5 -3;
   hkaiten AEBCDFGHIJKLMNOPQR XY; save 1 AEBCDFGHIJKLMNOPQR;
">
<param name=dat2 value="
   load 1 AEBCDFGHIJKLMNOPQR;  set X 2 -3; set Y 4 -3;
   kaiten MNOJKL XY; kaiten EFGHID LK;
   kaiten ABC IN; kaiten QRP DI; save 2 AEBCDFGHIJKLMNOPQR;
">
<param name=dat3 value="
   load 1 AEBCDFGHIJKLMNOPQR; move ABC 3 1;
   move DEFGHI 2.2 -0.5;  move JKLMNO 2.7 -1;
   move PQR 3 1;   save 3 AEBCDFGHIJKLMNOPQR;
">
<param name=setsub1 value="
   color 255 210 210;  fline ABC;
   color 210 255 210;  fline DEFGHI;
   color 210 210 255;  fline JKLMNO;
   color 255 255 210;  fline PQR;
   color 162 162 162; line ABCA DEFGHID JKLMNOJ PQRP;
">
<param name=set value="
   set b 3.01-a; set c (a - 3.01)(5.01 - a); set d a - 5.01;
   ifread ddlB setset1; ifread ddlC setset2;ifread ddlD setset3;
">
<param name=setset1 value="
   set f 3-a; load 1 ABCDEFGHIJKLMNOPQR; load 3 XY AB;
   set U naibun AX a f; set V naibun BY a f;
   kaiten ABC UV; load 3 XY DE;
   set U naibun DX a f; set V naibun EY a f;
   kaiten DEFGHI UV; load 3 XY JK;
   set U naibun JX a f; set V naibun KY a f;
   kaiten JKLMNO UV;   load 3 XY PQ;
   set U naibun PX a f; set V naibun QY a f;
   kaiten PQR UV; read setsub;
">
<param name=setset2 value="
   set f 5-a; set e a-3; load 3 ABCDEFGHIJKLMNOPQR;
   load 2 XY AB;  set U naibun AX ddlE ddlF;
   set V naibun BY ddlE ddlF;kaiten ABC UV;read setsub;
">
<param name=setset3 value="
   set f 8-a; se e a-4;load 3 DEFGHIJKLMNOPQR;
   load 2 ABC; load 2 XY DE;
   set U naibun DX ddlE ddlF; set V naibun EY ddlE ddlF;
   kaiten DEFGHI UV;  load 2 XY JK;
   set U naibun JX ddlE ddlF; set V naibun KY ddlE ddlF;
   kaiten JKLMNO UV; load 2 XY PQ;
   set U naibun PX ddlE ddlF; set V naibun QY ddlE ddlF;
   kaiten PQR UV;   read setsub;
">
<param name=setsub value="
   color 255 128 128; fline ABC;
   color 128 255 128; fline DEFGHI;
   color 128 128 255; fline JKLMNO;
   color 255 255 128; fline PQR;
   color 0 0 0;line ABCA DEFGHID JKLMNOJ PQRP;
">
</APPLET>