Revisando entre las cosas viejas encontré este código que es ya una reliquia. Lo escribí en 1994 adaptando el código de una vieja PC Users. Me acuerdo del orgullo que sentí al darle F5 y que todo funcionara de una.
La foto es de cuatro años después, con mi 586 ya añosa mientras le explicaba a mi hermano no sé qué poronga de los archivos batch en DOS.
SCREEN 12
CLS
RANDOMIZE TIMER
DO
LET x = INT(RND * 640) + 1
LET y = INT(RND * 480) + 1
LET r = INT(RND * 25) + 50
LET c = INT(RND * 16)
CIRCLE (x, y), r, c
myKey$ = INKEY$
LOOP UNTIL myKey$ <> ""
END