DECLARE SUB decode (t$, s$, o1$, o2$)
DECLARE SUB ReadKeys (t$, chrs!)
CLS
DIM sea(1 TO 10) AS STRING
DIM lne(1 TO 10) AS INTEGER
OPEN "c:\msdos.sys" FOR INPUT AS #1
a = 1
IF LOF(1) < 1024 THEN PRINT "MsDos.Sys has been tampered with!!": END
10 LINE INPUT #1, b$: h = h + 1
b$ = UCASE$(b$)
IF EOF(1) THEN GOTO 20
IF LEFT$(b$, 1) = ";" OR LEFT$(b$, 1) = "[" THEN GOTO 10
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
IF b$ = "BOOTGUI=1" THEN PRINT a; "Boot To: Windows": a = a + 1: sea(a - 1) = "Windows*Boot To": lne(a - 1) = h
IF b$ = "BOOTGUI=0" THEN PRINT a; "Boot To: Dos": a = a + 1: sea(a - 1) = "Dos*Boot To": lne(a - 1) = h
IF b$ = "NETWORK=0" THEN PRINT a; "Network: No": a = a + 1: sea(a - 1) = "No*Network": lne(a - 1) = h
IF b$ = "NETWORK=1" THEN PRINT a; "Network: Yes"; a = a + 1: sea(a - 1) = "Yes*Network": lne(a - 1) = h
GOTO 10
20 PRINT "Enter a number to change"
30 c$ = INPUT$(1)
IF VAL(c$) < a AND VAL(c$) > 0 THEN  ELSE BEEP: GOTO 30
decode sea(VAL(c$)), "*", q$, d$
PRINT d$; " ["; q$; "]>";
ReadKeys Ip$, 30

END

SUB decode (t$, s$, o1$, o2$)
o1$ = ""
o2$ = ""
FOR q = 1 TO LEN(t$) - 1
IF MID$(t$, q, 1) = s$ THEN : GOTO 50
o1$ = o1$ + MID$(t$, q, 1)
NEXT q
50 FOR x = q + 1 TO LEN(t$)
o2$ = o2$ + MID$(t$, x, 1)
NEXT x
END SUB

SUB ReadKeys (t$, chrs)
t$ = ""
DO UNTIL i$ = CHR$(13) OR i$ = CHR$(27)
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
i$ = INPUT$(1)
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
IF i$ = CHR$(13) OR i$ = CHR$(27) THEN GOTO 70
PRINT i$;
t$ = t$ + i$
IF LEN(t$) >= chrs THEN t$ = MID$(t$, 1, LEN(t$) - 1): LOCATE CSRLIN, POS(0) - 1: PRINT " "; : LOCATE CSRLIN, POS(0) - 1
60 LOOP
70 PRINT ""
END SUB