108 lines
4.3 KiB
QBasic
108 lines
4.3 KiB
QBasic
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<74>"
|
||
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
|
||
|