🚀 go-pugleaf

$B$O$8$a$F!"Ej9F$7$^$9!#(J

>> 
>> $B$H$$$&$N$O!"!V(JJIS X 3008-1990 $BEE;R7W;;5!%W%m%0%i%`8@8l(J PASCAL (ISO
>> 7185:1983)$B!W$N!V(J6.4.3.3 $B%l%3!<%I7?!W$N$H$3$m$r8+$k$H!"!V%?%07?$rD>@\(J
>> $B$K4^$`2DJQIt$KD>@\$K4^$^$l$kA*BrDj?t$,I=$9CM$O!"$9$Y$F0[$J$C$F$$$J$1(J
>> $B$l$P$J$i$J$$!#99$K!"$=$NCMA4BN$+$i@.$k=89g$O!"$=$N%?%07?$NCM$N=89g$H(J
>> $BEy$7$/$J$1$l$P$J$i$J$$!#!W$H$"$j$^$9$+$i!#(J
>> 
>> $B2DJQMWAG$r(J 3$B$D$K$7$?$1$l$P!"(J
>> 
>> type color = (red, green, blue);
>> 
>>     record
>>         case color of
>>         red : (word : integer);
>>         green : (byte0, byte1, byte2, byte3 : char);
>>         blue : (flaot : real)
>>     end;
>> 
>> $B$H$$$C$?$H$3$m$G$7$g$&$+(J :-)
>> 
>> end $B$ND>A0$N(J ; $B$O!"$"$C$F$b$J$/$F$b$+$^$$$^$;$s$M!#(J
>> 
>> --
>> $B:dK\CRI'(J        sakamoto@sm.sony.co.jp

$BA*BrDj?t$H$O>e$NNc$G$O!"(J
 red green blue

$B$KAjEv$9$k$H;W$&$N$G$9$,!";XDj$9$k$H$-$K$O$=$N$h$&$J;XDj$O$7$^$;$s$h$M!)(J
$BNc$($P!"(J
 sample.word = 0;
$B$N$h$&$K!#(J
$B#C$J$I$G$O!"A*BrDj?t$H$$$&35G0$9$iB8:_$7$J$$$N$G$9$,!"(J
$B$3$l$O!"$I$N$h$&$J;~$K;H$&$b$N$J$N$G$7$g$&$+!)(J