' ' © JM. :: Hecho en Ronda ' ' ' Procedente de... es.geocities.com/jm00092 ' '______________________________________________________________________ ' RANDOMIZE TIMER SCREEN 7 PAINT (1, 1), 15 h = 0 v = 200 FOR B = 2 TO 320 STEP 3 PSET (B, 200), 2 hh = h + B vv = v - 26 FOR a = 1 TO 100 SELECT CASE INT(RND * 3) CASE 0: hh = hh + 1 CASE 1: hh = hh - 1 CASE 2: vv = vv - 1 END SELECT SELECT CASE INT(RND * 10) CASE 1: cc = 4 CASE 2: cc = 12 CASE 3: cc = 14 CASE 4 TO 6: cc = 10 CASE ELSE: cc = 2 END SELECT PSET (hh, vv), cc NEXT NEXT