1: DECLARE SUB AltKeyMenu (row, fc, bc) 2: CLS 3: AltKeyMenu 1, 15, 9 4: 5: SUB AltKeyMenu (row, fc, bc) 6: col1 = 2 7: col2 = 12 8: col3 = 22 9: col4 = 32 10: col5 = 42 11: col6 = 52 12: col7 = 62 13: col8 = 72 14: COLOR fc, bc 15: LOCATE row, 1: PRINT STRING$(80, 0) 16: LOCATE row, col8: PRINT "Quit" 17: LOCATE row, col1: PRINT "Phillies" 18: LOCATE row, col2: PRINT "Cubs" 19: LOCATE row, col3: PRINT "Mets" 20: LOCATE row, col4: PRINT "eXpos" 21: LOCATE row, col5: PRINT "marLins" 22: LOCATE row, col6: PRINT "piraTes" 23: LOCATE row, col7: PRINT "cArds" 24: DO 25: DO 26: keys$ = INKEY$ 27: LOOP WHILE keys$ = "" 28: keymove = ASC(RIGHT$(keys$, 1)) 29: SELECT CASE keymove 30: CASE 16: END 'ALT Q 31: CASE 25: END 'ALT P 32: CASE 46: END 'ALT C 33: CASE 50: END 'ALT M 34: CASE 45: END 'ALT X 35: CASE 38: END 'ALT L 36: CASE 20: END 'ALT T 37: CASE 35: END 'ALT A 38: END SELECT 39: LOOP 40: END 41: END SUB 42: |