10  rem star inspector
20  rem 
30  rem ~vidak.
40  rem 
50  rem licence: public domain.
60  rem 
70  rem generates 64 star locations within a 2d grid.
80  rem 
90  rem at the end is a simple routine for revealing the location of
100 rem user-supplied stars.
110 rem
120 rem recommended: copy and paste this file into your emulator.
130 rem 
140 dim g(63,1)
150 print "clearing star positions>>>"
160 for i = 0 to 63
170     for j = 0 to 1
180         let g(i,j) = 0
190     next j
200     print ".";
210 next i
220 print:print
230 print "generating star positions>>>"
240 for s = 0 to 63
250     let g(s,0) = int(rnd(1)*2000)
260     let g(s,1) = int(rnd(1)*2000)
270     print ".";
280 next s    
290 print:print
300 input "input star number (0-63)";s
310 print:print "star ";s;" is at:"
320 print:print "x coordinates: ";g(s,0)
330 print "y coordinates: ";g(s,1)
340 input "again";q$
350 if q$ <> "n" then goto 290
360 end