Untitled attachment

Notices where this attachment appears

1. beckermatic (beckermatic@mastodon.la)'s status on Saturday, 23-Apr-2022 08:28:51 UTC beckermatic

   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