00005 declare all real
00006 def FNS(X,Y)=sin(X+Y)*Y*cos(Y)*X
00010 print chr$(12);"Star Gazer (c)1988 Wizard Workshop and Company"
00020 print "v1.0        (c)1988 Walt Stoneburner";chr$(10);chr$(10);"The ultimate in Galaxy mapping."
00030 enable handler RESM, resume at 00999
00100 input prompt "Enter GALAXY co-ordinates (X,Y): ":X,Y
00120 print chr$(12);
00150 for R=-11 to 11
00160   for C=-20 to 20
00170     let I=FNS(Y-R,X+C)
00180     let I=(I-int(I))*100
00181     if R=0 and C=0 then print tab(C*2+41,R+12);"A";
00190     if I>2 and I<20 then print tab(C*2+41,R+12);".";
00200   next C
00210 next R
00220 linput prompt "", noecho, bytes 1:A$
00230 goto 00010
00250 handler RESM
00255   print chr$(12);
00260   resume
00270 end handler
00999 end