1: DECLARE SUB NumbersMenu (boxstyle%, tr%, lc%, fc%, bc%) 2: CLS 3: PRINT STRING$(2080, 219) 4: NumbersMenu 5, 5, 40, 1, 14 5: ' ³ ³ ³ ³ ÀÄÄÄ¿ 6: ' boxstyle%ÄÙ tr% lc% ÀÄfc% bc% 7: 8: ' ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ 9: ' Boxstyle: 10: ' There are five choices of boxstyles (Press F 3 on the Tools Menu 11: ' to see what they look like.) 12: ' ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ 13: ' Tr%: 14: ' Location of row for first line of box. (Placing longer menus below 15: ' rows 12 to 16 will cause them not to properly appear on the screen.) 16: ' ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ 17: ' Lc%: 18: ' Location of first column for first line of box. (Menus are 25 columns 19: ' wide, placing them near the edge of the screen at column 55 or greater 20: ' will cause distortion.) 21: ' ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ 22: ' Fc%: 23: ' Foreground color (Pick any color from 1 to 15) 24: ' ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ 25: ' Bc%: 26: ' Background color (Pick any color from 1 to 15) 27: 28: SUB NumbersMenu (boxstyle%, tr%, lc%, fc%, bc%) 29: DIM menu$(0 TO 11) 30: COLOR fc%, bc% 31: SELECT CASE boxstyle% 32: CASE 1 33: side$ = "³" 34: LOCATE tr%, lc%: PRINT "ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿" 35: LOCATE tr% + 11, lc%: PRINT "ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ" 36: CASE 2 37: side$ = "º" 38: LOCATE tr%, lc%: PRINT "ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»" 39: LOCATE tr% + 11, lc%: PRINT "ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ" 40: CASE 3 41: side$ = "º" 42: LOCATE tr%, lc%: PRINT "ÖÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ·" 43: LOCATE tr% + 11, lc%: PRINT "ÓÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄĽ" 44: CASE 4 45: side$ = "³" 46: LOCATE tr%, lc%: PRINT "ÕÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ͸" 47: LOCATE tr% + 11, lc%: PRINT "ÔÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ;" 48: CASE 5 49: side$ = "Û" 50: LOCATE tr%, lc%: PRINT STRING$(25, 219) 51: LOCATE tr% + 11, lc%: PRINT STRING$(25, 219) 52: END SELECT 53: FOR set = 1 TO 10 54: LOCATE set + tr%, lc%: PRINT side$; SPACE$(23); side$ 55: NEXT 56: menu$(1) = side$ + " 1 QUICKBASIC " + side$ 'spacing for menu items 57: menu$(2) = side$ + " 2 POWERBASIC " + side$ 58: menu$(3) = side$ + " 3 VISUAL BASIC " + side$ 59: menu$(4) = side$ + " 4 TRUE BASIC " + side$ 60: menu$(5) = side$ + " 5 GW BASIC " + side$ 61: menu$(6) = side$ + " 6 Z BASIC " + side$ 62: menu$(7) = side$ + " 7 VB FOR DOS " + side$ 63: menu$(8) = side$ + " 8 GFA BASIC " + side$ 64: menu$(9) = side$ + " 9 LIBERTY BASIC " + side$ 65: menu$(10) = side$ + " 0 EXIT PROGRAM " + side$ 66: FOR set = 0 TO 11 67: LOCATE set + tr%, lc%: COLOR fc%, bc%: PRINT menu$(set) 68: NEXT 69: DO 70: DO 71: key$ = INKEY$ 72: LOOP WHILE key$ = "" 73: keymove = ASC(RIGHT$(key$, 1))' intrprets scancodes from key press 74: SELECT CASE keymove ' edit out END in the cases and place in your own code 75: CASE 49: END ' ASCII code for 1 76: CASE 50: END ' " " " 2 77: CASE 51: END ' " " " 3 78: CASE 52: END ' etc. 79: CASE 53: END 80: CASE 54: END 81: CASE 55: END 82: CASE 56: END 83: CASE 57: END 84: CASE 48: END ' this line might seem to be out of place but 48 is the ASCII 85: END SELECT ' code for 0, which is being used as an exit from the menu 86: LOOP 87: END SUB 88: |