PRINT
hud = 80
old$ = TIME$
simulador:
a$ = ""
hud = hud + 1
IF VAL(MID$(TIME$, 4, 2)) >= VAL(MID$(old$, 4, 2)) + 3 THEN PRINT : PRINT : PRINT "La humedad relativa dentro del ordenador es del " + STR$(hud) + "%": PRINT : old$ = TIME$

  
PRINT "C:\"; LTRIM$(RTRIM$(ch$)); : INPUT ">", a$
IF RTRIM$(LTRIM$(a$)) = "" THEN GOTO simulador
IF LEFT$(UCASE$(LTRIM$(RTRIM$(a$))), 2) = "" THEN GOTO simulador
IF LEFT$(UCASE$(RTRIM$(a$)), 2) = "CD" AND MID$(UCASE$(RTRIM$(LTRIM$(a$))), 4, 8) = "" THEN PRINT "Comando o nombre de archivo incorrecto": GOTO simulador
IF LEFT$(UCASE$(RTRIM$(a$)), 2) = "CD" AND MID$(UCASE$(RTRIM$(LTRIM$(a$))), 4, 2) = ".." OR MID$(UCASE$(RTRIM$(LTRIM$(a$))), 3, 2) = ".." THEN
                                                          IF LEN(LTRIM$(RTRIM$(ch$))) = 0 THEN GOTO simulador
                                                          con = 0: L = 0: lug = 0: p = 0
                                                          DO
                                                          con = con + 1
                                                          L = L - 1
                                                          IF LEN(LTRIM$(RTRIM$(ch$))) + L - 1 = -1 THEN ch$ = "": vez = 0: GOTO simulador
                                                          IF MID$(LTRIM$(RTRIM$(ch$)), LEN(LTRIM$(RTRIM$(ch$))) + L, 1) = "\" THEN lug = LEN(LTRIM$(RTRIM$(ch$))) + L - 1: con = LEN(LTRIM$(RTRIM$(ch$)))
                                                          LOOP WHILE con <> LEN(LTRIM$(RTRIM$(ch$)))
                                                          IF p = 1 THEN ch$ = "": vez = 0: GOTO simulador ELSE ch$ = MID$(LTRIM$(RTRIM$(ch$)), 1, lug): vez = 1: GOTO simulador
END IF


IF LEFT$(UCASE$(a$), 2) = "CD" AND vez = 0 THEN
                                                sum = 0: l2 = 4
                                                DO
                                                sum = sum + 1
                                                l2 = l2 + 1
                                                IF MID$(LTRIM$(RTRIM$(UCASE$(a$))), l2, 1) = " " THEN GOTO simulador
                                                LOOP WHILE sum <> LEN(LTRIM$(RTRIM$(a$)))
                                                ch$ = LTRIM$(RTRIM$(ch$)) + MID$(UCASE$(a$), 4, 8): vez = 1: GOTO simulador
END IF

IF LEFT$(UCASE$(a$), 2) = "CD" THEN
                                    sum = 0: l2 = 4
                                    DO
                                    sum = sum + 1
                                    l2 = l2 + 1
                                    IF MID$(LTRIM$(RTRIM$(UCASE$(a$))), l2, 1) = " " THEN GOTO simulador
                                    LOOP WHILE sum <> LEN(LTRIM$(RTRIM$(a$)))
                                    IF LEFT$(UCASE$(a$), 2) = "CD" THEN ch$ = ch$ + "\" + MID$(UCASE$(a$), 4, 8): vez = 1: GOTO simulador

END IF
      
'********************************************
'COPIAR DESDE AQUI SI NO SE A¥ADE NADA ARRIBA
'********************************************
RESTORE
B$ = ""
w$ = UCASE$(LTRIM$(RTRIM$(a$)))
WHILE B$ <> "*"
READ B$, wqw$
IF RTRIM$(LEFT$(w$, 4)) = B$ OR RTRIM$(LEFT$(w$, 2)) = B$ THEN GOTO accion
WEND
PRINT "Comando o nombre de archivo incorrecto"
        GOTO simulador

DATA DIR,1,COPY,2,CLS,3,TYPE,4,JD,5,TIME,6,DATE,7
DATA "A:", "Cable de enlace con la unidad A, suelto", "B:", "Cable de enlace con la unidad B, suelto"
DATA *,*

accion:
SELECT CASE VAL(wqw$)
        CASE 1
                PRINT
                PRINT " Volumen en unidad C no tiene etiqueta"
                PRINT " N£mero de serie de volumen es 1138-1600"
                PRINT
                PRINT " Directorio de C:\" + ch$
                PRINT
                PRINT "Archivo no se encontr¢"
                PRINT
                GOTO simulador

        CASE 2
                PRINT "Imposible acceder a unidad requerida"
                GOTO simulador
        CASE 3
                CLS
                PRINT
                GOTO simulador

        CASE 4
                PRINT "Fichero no encontrado"
                GOTO simulador

        CASE 5
                COLOR 6
                PRINT "Virus-Simuler por JD"
                COLOR 7
                GOTO simulador

        CASE 6
                PRINT : PRINT TIME$: GOTO simulador

        CASE 7
                PRINT : PRINT DATE$: GOTO simulador
             
END SELECT
PRINT wqw$
GOTO simulador

END