' ' © JM. :: Hecho en Ronda ' ' ' Procedente de... es.geocities.com/jm00092 ' '______________________________________________________________________ ' PALETA GIGANTE CON SCROLL DIM hola(0 TO 31, 0 TO 7) SCREEN 13 h = -1 FOR C = 0 TO 255 h = h + 1 IF h = 32 THEN h = 0 v = v + 1 END IF hola(h, v) = C NEXT FOR h = 0 TO 31 FOR v = 0 TO 7 LINE ((h * 9) + 10, (v * 9) + 30)-STEP(7, 7), hola(h, v), BF NEXT NEXT LOCATE 16, 2: PRINT "PROGRAMA QUE PERMITE MOVERSE POR UNA" LOCATE 17, 2: PRINT "PALETA DE 256 COLORES COMO ESTA PERO" LOCATE 18, 2: PRINT "MAS GRANDE QUE NO CABE ENTERA DENTRO" LOCATE 19, 2: PRINT "DE LA PANTALLA PULSANDO LAS FLECHAS" LOCATE 21, 2: PRINT " PULSA CUALQUIER TECLA PARA EMPEZAR" LOCATE 23, 2: PRINT " HECHO EN RONDA" SLEEP FOR C = 31 TO 16 STEP -1 COLOR C LOCATE 16, 2: PRINT "PROGRAMA QUE PERMITE MOVERSE POR UNA" LOCATE 17, 2: PRINT "PALETA DE 256 COLORES COMO ESTA PERO" LOCATE 18, 2: PRINT "MAS GRANDE QUE NO CABE ENTERA DENTRO" LOCATE 19, 2: PRINT "DE LA PANTALLA PULSANDO LAS FLECHAS" LOCATE 21, 2: PRINT " PULSA CUALQUIER TECLA PARA EMPEZAR" LOCATE 23, 2: PRINT " HECHO EN RONDA" FOR DELAY = 1 TO 10000: NEXT NEXT CLS COLOR 45 altototal = 8 largototal = 32 largo = 8 alto = 5 DO DO kbd$ = INKEY$ LOOP WHILE kbd$ = "" XOR ini = 0 ini = 1 SELECT CASE kbd$ CASE CHR$(0) + "H": pv = pv - 1 CASE CHR$(0) + "P": pv = pv + 1 CASE CHR$(0) + "K": ph = ph - 1 CASE CHR$(0) + "M": ph = ph + 1 END SELECT IF ph < 0 THEN : ph = 0: SOUND 1400, 1 IF ph > largototal - largo THEN : ph = largototal - largo: SOUND 1400, 1 IF pv < 0 THEN : pv = 0: SOUND 1400, 1 IF pv > altototal - alto THEN : pv = altototal - alto: SOUND 1400, 1 FOR h = ph TO ph + largo - 1 FOR v = pv TO pv + alto - 1 LINE ((h - ph) * 40, (v - pv) * 40)-STEP(38, 38), hola(h, v), BF NEXT NEXT LOOP UNTIL kbd$ = CHR$(27)