'S 640,480
$1= 640: $2=480 
IF ($x0): IF ($x0-$1): $1= $x0; 
IF ($y0): IF ($y0-$2): $2= $y0; 
IF (1.5-$pc): IF ($1-$sux): $2= $2*($sux/$1): $1= $sux; 
IF (1.5-$pc): IF ($2-$suy): $1= $1*($suy/$2): $2= $suy; 
SF $1,$2 
AS $x0 

CR
IF ($mc): 
  $003= $mcx-$scx
  $004= $mcy-$scy
; 

IFZ (($k-32)*$c): // [Space] key 
  $019= 100
  $012= $019
  $011= $rnd*640/10+640/4 
  LI $011
    $($012)= $rnd
    $012 +=1
  LO
  $029= 350
  $022= $029
  $021= $rnd*640/10+640/4 
  LI $021
    $($022)= $rnd
    $022 +=1
  LO
  $039= 600
  $032= $039
  $031= $rnd*640/10+640/4 
  LI $031
    $($032)= $rnd
    $032 +=1
  LO
;

IFN ($x0): BC 0,0,200;
IF  ($x0): BC 0,0,0;
FI 0

{ 
  C $003,$004
  LC 255,255,255 D "L1C",30%,80% CD 110%  IF ($x0): CD 120%; 
  IF ($x0):  LC 255,255,255 CD -40%; 
  { 
    IF ($x0): M 50%;
    BL 0,0,0
    {
      { 
        IFN ($x0): LC 255,80,240  CD 35%; 
        IFN ($x0): LC 255,80,240  D "R1C",65%,30%,70%  CD 35%; 
        IF  ($x0): LC 255,120,240  CD 20%;
        IF  ($x0): LC 255,120,240  D "R1C",65%,30%,70%  CD 90%; 
      } PD $011-1,$019
    } 
    {
      IF ($x0): R 0.33*640/10+640/4;
      { 
        IFN ($x0): LC 50,255,0  CD 35%; 
        IFN ($x0): LC 50,255,0  D "R1C",65%,30%,70%  CD 35%; 
        IF  ($x0): LC 50,255,40  CD 25%;
        IF  ($x0): LC 50,255,40  D "R1C",65%,30%,70%  CD 25%; 
      } PD $021-1,$029
    } 
    {
      IF ($x0): R 0.67*640/10+640/4;
      { 
        IFN ($x0): LC 0,150,255  CD 35%; 
        IFN ($x0): LC 0,150,255  D "R1C",65%,30%,70%  CD 35%; 
        IF  ($x0): LC 0,240,255  CD 25%;
        IF  ($x0): LC 0,240,255  D "R1C",65%,30%,70%  CD 25%; 
      } PD $031-1,$039
    } 
  } IF ($x0): CD 30%; 
  // LB 0,0,0
}