' © JM. :: Hecho en Ronda ' ' ' Procedente de... es.geocities.com/jm00092 ' '______________________________________________________________________ ' RANDOMIZE TIMER SCREEN 12 PEN ON ON PEN GOSUB FIN WHILE INKEY$ = "" LOCATE 30, 10: PRINT "TECLADO = TERMINAR Y SALIR RATàN = SALIDA INSTANTANEA" LOCATE 1, 10: PRINT "PROGRAMA PARA VER ALGO QUE ESTIRA Y ENCOGE HECHO EN RONDA" x = INT(RND * 240) + 200 y = INT(RND * 80) + 200 FOR c = 0 TO 200 CIRCLE (x, y), c, c / 20 + 5 NEXT FOR c = 200 TO 0 STEP -1 CIRCLE (x, y), c, 0 NEXT WEND FIN: END