First commit ~0,10

2021-09-03 17:42:07 +02:00
commit 474d98379e
57 changed files with 16968 additions and 0 deletions
--- a/BAS/Q2.BAS
+++ b/BAS/Q2.BAS
@ -0,0 +1,107 @@
+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
+