' ' © JM. :: Hecho en Ronda ' ' ' Procedente de... es.geocities.com/jm00092 ' '______________________________________________________________________ ' VISOR DE DIRECTORIOS DECLARE FUNCTION Archivo$ () PALETTE 6, 62 PALETTE 1, 8 PALETTE 4, 36 nombre$ = Archivo$ CLS PRINT nombre$ ' ' © JM. :: Hecho en Ronda ' ' ' Procedente de... www.jm-web.tk :: es.geocities.com/jm00092 ' '______________________________________________________________________ ' FUNCTION Archivo$ ruta$ = "C:\" DO COLOR 14, 1: CLS LOCATE 1, 1: PRINT STRING$(80, 196); LOCATE 25, 1: PRINT STRING$(80, 196); COLOR 1, 6: LOCATE 1, 6: PRINT " Directorio " COLOR 15, 4: LOCATE 25, 7: PRINT SPACE$(50); LOCATE 25, 8: PRINT ruta$; LOCATE 25, 57: COLOR 1, 6: PRINT " Hecho en Ronda "; COLOR 15, 1 VIEW PRINT 2 TO 24 FILES ruta$ VIEW PRINT lin = 2 col = 1 alin = 1 acol = 1 nomb$ = "" anomb$ = "" DO DO kbd$ = INKEY$ LOOP WHILE kbd$ = "" alin = lin acol = col SELECT CASE kbd$ CASE CHR$(0) + "H": lin = lin - 1 CASE CHR$(0) + "P": lin = lin + 1 CASE CHR$(0) + "K": col = col - 18 CASE CHR$(0) + "M": col = col + 18 CASE CHR$(13) IF nomb$ = " ..