'>>> Page 4 of TUNE.BAS begins here.
DO
i = i + 1
a(i) = LEN(sel$(i, 0))
z$ = LTRIM$(sel$(i, 0))
s$ = s$ + UCASE$(LEFT$(z$, 1))
LOOP WHILE sel$(i, 0)  ""
sel = i - 1
LOCATE 1, 1
COLOR fgc, bgc
t = INT((78 - LEN(msg$)) / 2)
IF t * 2 + LEN(msg$) < 78 THEN f$ = STRING$((78 - (t * 2 + LEN(msg$))),_
 "-") ELSE f$ = ""
PRINT "+" + STRING$(t, "-") + msg$ + f$ + STRING$(t, "-") + "+";
PRINT "|" + SPACE$(78) + "|";
LOCATE 2, 2
FOR i = 0 TO sel
PRINT sel$(i, 0);
NEXT
LOCATE 3, 1
PRINT "+" + STRING$(78, "-") + "+";
subsel = 1
subnum = 1
zold = 2
s = 0
x = 2
GOSUB dis.sub
lp:
oldx = x
x = 2
FOR i = 0 TO s
x = x + LEN(sel$(i, 0))
NEXT
x = x - LEN(sel$(i - 1, 0))
COLOR fgc, bgc
LOCATE 2, oldx
PRINT sel$(olds, 0);
COLOR 15, fgc
LOCATE 2, x
PRINT sel$(s, 0);
t = INT((80 - LEN(sel$(s, 10))) / 2)
IF t * 2 + LEN(sel$(s, 10)) < 78 THEN
f$ = STRING$((78 - (t * 2 + LEN(sel$(s, 10)))), "-")
ELSE f$ = ""
END IF
LOCATE 25, 1
COLOR bgc, fgc
PRINT SPACE$(t) + sel$(s, 10) + f$ + SPACE$(t);
COLOR fgc, bgc
get.key:
DO
a$ = INKEY$
LOOP WHILE a$ = ""
IF LEN(a$) > 1 THEN GOTO get.curkey
a$ = UCASE$(a$)
IF a$ = CHR$(27) THEN sel = -1: EXIT SUB
ret:   IF a$  CHR$(13) GOTO test.num
sel = (s * 10) + subnum: EXIT SUB
test.num:
q = VAL(a$)
IF q >= 1 AND q  0 THEN
subsel = q
GOSUB update.sub
a$ = CHR$(13): GOTO ret
END IF
test.ltr:
IF c  0 THEN
c = c + 1
c = INSTR(c, s$, a$)
IF c  0 GOTO tr
END IF
c = INSTR(s$, a$)
IF c = 0 GOTO get.key
tr:
olds = s
s = c - 1
subsel = 1
subnum = 1
GOSUB dis.sub
GOTO lp
get.curkey:
a = ASC(RIGHT$(a$, 1))
IF a  77 AND a  75 AND a  72 AND a  80 GOTO get.key
olds = s
IF a  77 AND a  75 GOTO get.updnkey
IF a = 77 THEN s = s + 1
IF a = 75 THEN s = s - 1
IF s > sel THEN s = 0
IF s < 0 THEN s = sel
c = s
subsel = 1
subnum = 1
GOSUB dis.sub
GOTO lp
get.updnkey:
IF a = 80 THEN subsel = subsel + 1
IF a = 72 THEN subsel = subsel - 1
GOSUB update.sub
'>>> Page 4 of TUNE.BAS ends here. Continued on next page.
___ Blue Wave/DOS v2.30
--- Maximus 3.00
---------------