1: SUB Menu 2: DIM txt(10) AS STRING 3: 53 c1 = RND * 15 4: c2 = RND * 15 5: IF c1 = c2 THEN GOTO 53 6: COLOR c1, c2 7: FOR Z = 1 TO 10 8: INPUT txt(Z) 9: NEXT Z 10: 11: CLS 12: 13: FOR q = 1 TO 10 14: PRINT txt(q) 15: NEXT q 16: 17: d = 1 18: 1 a$ = INKEY$ 19: IF a$ = "" THEN GOTO 1 20: IF a$ = CHR$(0) + "H" AND d > 1 THEN d = d - 1: a = 1 21: IF a$ = CHR$(0) + "P" AND d < 10 THEN d = d + 1: a = -1 22: IF a$ = CHR$(13) THEN b$ = txt(d): END 23: COLOR c1, c2: LOCATE d + a, 1: PRINT txt(d + a) 24: COLOR c2, c1: LOCATE d, 1: PRINT txt(d) 25: GOTO 1 26: 27: 28: 29: 30: 31: 32: 33: END SUB 34: |