Again a picwin... this time a nice and simple starfield :_)

not much to explain here, but if you have questions, feel free to ask.

(uncomment line 10 if you have whilefix.dll)

alias starfield {
   var %total.w $iif($1 != $null, $1, 800)
   var %total.h $iif($2 != $null, $2, 600)
   window -k0pdf @starfield -1 -1 %total.w %total.h
   var %plane.x $calc(%total.w - 20)
   var %plane.y $calc(%total.h - 20)
   var %halfplane.x $calc(%plane.x * 0.75)
   var %count 0
   while (%count <= 4096) {
;      whilefix
      drawdot -r @starfield $iif($rand(0,3) == 1, $rgb($rand(10, 255),$rand(10, 255),$rand(10, 255)), 16777215) 1 $rand(%halfplane.x, %plane.x) $rand(20, %plane.y)
      drawscroll @starfield -2 0 0 0 %total.w %total.h
      inc %count
   }
}

alias -l whilefix {
   dll WhileFix.dll WhileFix .
}