1: DECLARE SUB decode (t$, s$, o1$, o2$) 2: DECLARE SUB ReadKeys (t$, chrs!) 3: CLS 4: DIM sea(1 TO 10) AS STRING 5: DIM lne(1 TO 10) AS INTEGER 6: OPEN "c:\msdos.sys" FOR INPUT AS #1 7: a = 1 8: IF LOF(1) < 1024 THEN PRINT "MsDos.Sys has been tampered with!!": END 9: 10 LINE INPUT #1, b$: h = h + 1 10: b$ = UCASE$(b$) 11: IF EOF(1) THEN GOTO 20 12: IF LEFT$(b$, 1) = ";" OR LEFT$(b$, 1) = "[" THEN GOTO 10 13: IF MID$(b$, 1, 7) = "WINDIR=" THEN PRINT a; "Windows Directory: "; MID$(b$, 8, LEN(b$) - 7): a = a + 1: sea(a - 1) = MID$(b$, 8, LEN(b$) - 7) + "*Windows Dir": lne(a - 1) = h 14: IF b$ = "BOOTGUI=1" THEN PRINT a; "Boot To: Windows": a = a + 1: sea(a - 1) = "Windows*Boot To": lne(a - 1) = h 15: IF b$ = "BOOTGUI=0" THEN PRINT a; "Boot To: Dos": a = a + 1: sea(a - 1) = "Dos*Boot To": lne(a - 1) = h 16: IF b$ = "NETWORK=0" THEN PRINT a; "Network: No": a = a + 1: sea(a - 1) = "No*Network": lne(a - 1) = h 17: IF b$ = "NETWORK=1" THEN PRINT a; "Network: Yes"; a = a + 1: sea(a - 1) = "Yes*Network": lne(a - 1) = h 18: GOTO 10 19: 20 PRINT "Enter a number to change" 20: 30 c$ = INPUT$(1) 21: IF VAL(c$) < a AND VAL(c$) > 0 THEN ELSE BEEP: GOTO 30 22: decode sea(VAL(c$)), "*", q$, d$ 23: PRINT d$; " ["; q$; "]>"; 24: ReadKeys Ip$, 30 25: 26: END 27: 28: SUB decode (t$, s$, o1$, o2$) 29: o1$ = "" 30: o2$ = "" 31: FOR q = 1 TO LEN(t$) - 1 32: IF MID$(t$, q, 1) = s$ THEN : GOTO 50 33: o1$ = o1$ + MID$(t$, q, 1) 34: NEXT q 35: 50 FOR x = q + 1 TO LEN(t$) 36: o2$ = o2$ + MID$(t$, x, 1) 37: NEXT x 38: END SUB 39: 40: SUB ReadKeys (t$, chrs) 41: t$ = "" 42: DO UNTIL i$ = CHR$(13) OR i$ = CHR$(27) 43: IF i$ = CHR$(8) THEN IF LEN(t$) = 0 THEN i$ = "": GOTO 60 ELSE t$ = MID$(t$, 1, LEN(t$) - 1): LOCATE CSRLIN, POS(0) - 1: PRINT " "; : LOCATE CSRLIN, POS(0) - 1 44: i$ = INPUT$(1) 45: IF i$ = CHR$(8) THEN IF LEN(t$) = 0 THEN i$ = "": GOTO 60 ELSE t$ = MID$(t$, 1, LEN(t$) - 1): LOCATE CSRLIN, POS(0) - 1: PRINT " "; : LOCATE CSRLIN, POS(0) - 1 46: IF i$ = CHR$(13) OR i$ = CHR$(27) THEN GOTO 70 47: PRINT i$; 48: t$ = t$ + i$ 49: IF LEN(t$) >= chrs THEN t$ = MID$(t$, 1, LEN(t$) - 1): LOCATE CSRLIN, POS(0) - 1: PRINT " "; : LOCATE CSRLIN, POS(0) - 1 50: 60 LOOP 51: 70 PRINT "" 52: END SUB 53: |