you may be interested in this screen capture of me doing C64 dev?

#retrocomputing #commodore64

i gotta go to work, this is as far as i got this morning:

10 rem starmap.bas
20
30 rem the galaxy array
40 
50 dim g(255,255)
60 
70 rem the arrays for galaxy element coords
80 
90 dim e(20)
100 dim f(20)
110 
120 rem initialise the galaxy
130 
140 rem blank out every array element in g
150 
160 for b = 0 to 255
170     for c = 0 to 255
180         let g(b,c) = 0
190     next c
200 next b
210 
220 rem generate the positions of some stars
230 
240 for i = 0 to 19
250     b = int(rnd(1)*255)
260     c = int(rnd(1)*255)
270     if g(b,c) <> 0 then goto 250 
280     g(b,c) = 2 rem element is a star
290     e(i)=b
300     f(i)=c
310 next i
320 
330 

https://basiclang.solarpunk.au/d/10-starmapbas