DECLARE SUB AltKeyMenu (row, fc, bc)
CLS
AltKeyMenu 1, 15, 9

SUB AltKeyMenu (row, fc, bc)
col1 = 2
col2 = 12
col3 = 22
col4 = 32
col5 = 42
col6 = 52
col7 = 62
col8 = 72
COLOR fc, bc
LOCATE row, 1: PRINT STRING$(80, 0)
LOCATE row, col8: PRINT "Quit"
LOCATE row, col1: PRINT "Phillies"
LOCATE row, col2: PRINT "Cubs"
LOCATE row, col3: PRINT "Mets"
LOCATE row, col4: PRINT "eXpos"
LOCATE row, col5: PRINT "marLins"
LOCATE row, col6: PRINT "piraTes"
LOCATE row, col7: PRINT "cArds"
DO
DO
keys$ = INKEY$
LOOP WHILE keys$ = ""
keymove = ASC(RIGHT$(keys$, 1))
SELECT CASE keymove
CASE 16: END   'ALT Q
CASE 25: END   'ALT P
CASE 46: END   'ALT C
CASE 50: END   'ALT M
CASE 45: END   'ALT X
CASE 38: END   'ALT L
CASE 20: END   'ALT T
CASE 35: END   'ALT A
END SELECT
LOOP
END
END SUB