'>>> Page 5 of TUNE.BAS begins here.
GOTO lp
dis.sub:
i = 0
a = 0
xtemp = x
COLOR fgc, bgc
FOR i = 1 TO cv + 2
LOCATE 3 + i, zold - 1
PRINT STRING$(aold + 6, "X")
NEXT
i = 0
DO
i = i + 1
IF LEN(sel$(s, i)) > a THEN a = LEN(sel$(s, i))
LOOP WHILE sel$(s, i)  "" AND i < 10
cv = 0
IF i = 1 THEN RETURN
aold = a
cvold = cv
cv = i - 1
cvold = cv
x = 2
FOR i = 0 TO s
x = x + LEN(sel$(i, 0))
NEXT
x = x - LEN(sel$(i - 1, 0))
IF x + a > 78 THEN z = 76 - a ELSE z = x - 5
IF z < 2 THEN z = 2
zold = z
LOCATE 4, z - 1: PRINT "+" + STRING$(x - z, "-");
LOCATE 4, x: PRINT "+" + SPACE$(LEN(sel$(s, 0)) - 2) + "+";
b = x + LEN(sel$(s, 0)) - 1
n = z + a + 3
PRINT STRING$((n) - b, "-") + "+";
FOR i = 1 TO cv
LOCATE i + 4, z - 1: PRINT "|";
PRINT LTRIM$(STR$(i)) + ". " + sel$(s, i) + SPACE$(a - (LEN(sel$(s, i))_
 - 1)) + "|";
NEXT
LOCATE i + 4, z - 1: PRINT "+" + STRING$(a + 4, "-") + "+";
x = xtemp
update.sub:
IF cv = 0 THEN RETURN
IF subsel > cv THEN subsel = 1
IF subsel < 1 THEN subsel = cv
LOCATE subnum + 4, z
PRINT LTRIM$(STR$(subnum)) + ". " + sel$(s, subnum);
LOCATE subsel + 4, z
COLOR 15, fgc
PRINT LTRIM$(STR$(subsel)) + ". " + sel$(s, subsel);
subnum = subsel
RETURN
END SUB
SUB WWYAMC
PLAY "o2T159MNDMSGMNP64G8A8G8F#8EMSE"
PLAY "MNP32EMSAMNP64A8B8A8G8F#MSDMN"
PLAY "P32DMSBMNP64B8o3C8o2B8A8GMSEMN"
PLAY "P32D8D8EAF#G2.P4"
PLAY "DGGGMLF#2MNP32F#GF#ED2P32ABAG8"
PLAY "G8o3MSDP64o2DMNP64D8D8EAF#G2.P4o3"
END SUB
'>>> Page 5 of TUNE.BAS ends here. Last page.
___ Blue Wave/DOS v2.30
--- Maximus 3.00
---------------