Some people are selling these on ebay, but they are discontinued. :-( Too bad.
Here is a photo.
I also found a link to a video about it. The presenter explains the product and assembles a simple computer circuit.
I'm Carl Gundel and I've been computing since 1977. Here I will journal my experiences using computers and programming them. With 41 years of programming behind me, there will be a lot to say.
Run BASIC - Easy web programming!
Liberty BASIC - Easy Windows programming
dim st(9,1)
gosub [setup]
timer 20, [cycle]
[cycle]
for c=0 to n
xold=st(c,0)
yold=st(c,1)
st(c,0)=xold*1.23
st(c,1)=yold*1.23
x=int(st(c,0))
y=int(st(c,1))
if abs(x)<15 and abs(y)<15 then
gosub [clearStar]
else
if abs(x)>200 or abs(y)>200 then
st(c,0)=(rnd(1)-0.5)*3
st(c,1)=(rnd(1)-0.5)*3
else
gosub [drawStar]
end if
end if
next c
wait
goto [cycle]
[clearStar]
#starfield "color black ; place "; xCenter + xold; " "; yCenter + yold
#starfield "\."
return
[drawStar]
gosub [clearStar]
#starfield "color white ; place "; xCenter + x; " "; yCenter + y
#starfield "\."
return
[setup]
input"# stars (1-10)";n
n=n-1
for x=0 to n
st(x,0)=(rnd(1)-0.5)*200
st(x,1)=(rnd(1)-0.5)*200
next x
open "starfield" for graphics as #starfield
#starfield "home ; posxy xCenter yCenter"
#starfield "down ; fill black ; backcolor black"
#starfield "trapclose [quit]"
return
[quit]
close #starfield
end
10 gosub 500
100 for c=0 to n
110 xold=st(c,0)
120 yold=st(c,1)
130 st(c,0)=xold*1.23
140 st(c,1)=yold*1.23
150 x=int(st(c,0))
160 y=int(st(c,1))
165 if abs(x)<2 and abs(y)<2 then 320
170 if abs(x)>10 or abs(y)>10 thenst(c,0)=(rnd(1)-.5)*3:st(c,1)=(rnd(1)-.5)*3:goto150
180 pstar=center+x+y*22
190 poke center+int(xold)+int(yold)*22,32
200 poke pstar,108
300 next c
310 goto 100
320 poke center+int(xold)+int(yold)*22,32
400 next c
410 goto 100
500 poke 36879,14
501 input"# stars (1-10)";n
502 n=n-1
505 print"{clrscrn}";
510 dim st(9,1)
520 for x=0 to n
530 st(x,0)=(rnd(1)-.5)*10
540 st(x,1)=(rnd(1)-.5)*10
550 next x
590 center=7932
600 return