DECLARE SUB tecka (x AS INTEGER, y AS INTEGER, barva AS INTEGER) DECLARE SUB vypis (oo1 AS INTEGER, od1 AS INTEGER, oo2 AS INTEGER, od2 AS INTEGER) CLS SCREEN 12 DIM o1 AS INTEGER: o1 = 3 DIM o2 AS INTEGER: o2 = 2 DIM d1 AS INTEGER: d1 = 6 DIM d2 AS INTEGER: d2 = 6 DIM a1 AS STRING: a1 = " 2 3 5 6 7 9 0 =" DIM a2 AS STRING: a2 = "Q W E R T Y U I O P / ( " DIM a3 AS STRING: a3 = " A S F G H K L ;" DIM a4 AS STRING: a4 = "* Z X C V B N M , . / " 'LOCATE 2, 2: PRINT a1 'LOCATE 3, 2: PRINT a2 DIM x AS INTEGER: x = -50 DIM y AS INTEGER: y = 0 COLOR 2 FOR i = 0 TO 11 LINE (20 + i * 50, 20)-(20 + (i + 1) * 50, 120), 11, B LINE (20 + i * 50, 195)-(20 + (i + 1) * 50, 295), 11, B IF i <> 2 AND i <> 6 AND i <> 9 AND i <> 11 THEN LINE (50 + i * 50, 20)-(50 + (i + 1) * 50 - 10, 80), 11, BF LINE (50 + i * 50, 195)-(50 + (i + 1) * 50 - 10, 255), 11, BF END IF NEXT COLOR 10 vypis o1, d1, o2, d2 i$ = "Q" DO DO i$ = UCASE$(INKEY$) LOOP UNTIL i$ <> "" SELECT CASE i$ 'prepinani CASE CHR$(0) + CHR$(59): o1 = o1 + 1 IF o1 = 5 THEN o1 = 1 vypis o1, d1, o2, d2 CASE CHR$(0) + CHR$(60): d1 = d1 + 1 IF d1 = 7 THEN d1 = 1 vypis o1, d1, o2, d2 CASE CHR$(0) + CHR$(62): o2 = o2 + 1 IF o2 = 5 THEN o2 = 1 vypis o1, d1, o2, d2 CASE CHR$(0) + CHR$(63): d2 = d2 + 1 IF d2 = 7 THEN d2 = 1 vypis o1, d1, o2, d2 'hrani CASE "Q": PLAY "o" + STR$(o1) + " c" + STR$(d1 * 3) tecka x, y, 0: tecka 1, 2, 4: x = 1: y = 2 CASE "W": PLAY "o" + STR$(o1) + " d" + STR$(d1 * 3) tecka x, y, 0: tecka 2, 2, 4: x = 2: y = 2 CASE "E": PLAY "o" + STR$(o1) + " e" + STR$(d1 * 3) tecka x, y, 0: tecka 3, 2, 4: x = 3: y = 2 CASE "R": PLAY "o" + STR$(o1) + " f" + STR$(d1 * 3) tecka x, y, 0: tecka 4, 2, 4: x = 4: y = 2 CASE "T": PLAY "o" + STR$(o1) + " g" + STR$(d1 * 3) tecka x, y, 0: tecka 5, 2, 4: x = 5: y = 2 CASE "Y": PLAY "o" + STR$(o1) + " a" + STR$(d1 * 3) tecka x, y, 0: tecka 6, 2, 4: x = 6: y = 2 CASE "U": PLAY "o" + STR$(o1) + " b" + STR$(d1 * 3) tecka x, y, 0: tecka 7, 2, 4: x = 7: y = 2 CASE "I": PLAY "o" + STR$(o1 + 1) + " c" + STR$(d1 * 3) tecka x, y, 0: tecka 8, 2, 4: x = 8: y = 2 CASE "O": PLAY "o" + STR$(o1 + 1) + " d" + STR$(d1 * 3) tecka x, y, 0: tecka 9, 2, 4: x = 9: y = 2 CASE "P": PLAY "o" + STR$(o1 + 1) + " e" + STR$(d1 * 3) tecka x, y, 0: tecka 10, 2, 4: x = 10: y = 2 CASE "[": PLAY "o" + STR$(o1 + 1) + " f" + STR$(d1 * 3) tecka x, y, 0: tecka 11, 2, 4: x = 11: y = 2 CASE "]": PLAY "o" + STR$(o1 + 1) + " g" + STR$(d1 * 3) tecka x, y, 0: tecka 12, 2, 4: x = 12: y = 2 CASE "2": PLAY "o" + STR$(o1) + " c+" + STR$(d1 * 3) tecka x, y, 0: tecka 1, 1, 4: x = 1: y = 1 CASE "3": PLAY "o" + STR$(o1) + " d+" + STR$(d1 * 3) tecka x, y, 0: tecka 2, 1, 4: x = 2: y = 1 CASE "5": PLAY "o" + STR$(o1) + " f+" + STR$(d1 * 3) tecka x, y, 0: tecka 4, 1, 4: x = 4: y = 1 CASE "6": PLAY "o" + STR$(o1) + " g+" + STR$(d1 * 3) tecka x, y, 0: tecka 5, 1, 4: x = 5: y = 1 CASE "7": PLAY "o" + STR$(o1) + " a+" + STR$(d1 * 3) tecka x, y, 0: tecka 6, 1, 4: x = 6: y = 1 CASE "9": PLAY "o" + STR$(o1 + 1) + " c+" + STR$(d1 * 3) tecka x, y, 0: tecka 8, 1, 4: x = 8: y = 1 CASE "0": PLAY "o" + STR$(o1 + 1) + " d+" + STR$(d1 * 3) tecka x, y, 0: tecka 9, 1, 4: x = 9: y = 1 CASE "=": PLAY "o" + STR$(o1 + 1) + " f+" + STR$(d1 * 3) tecka x, y, 0: tecka 11, 1, 4: x = 11: y = 1 'dolni CASE "\": PLAY "o" + STR$(o2) + " c" + STR$(d2 * 3) tecka x, y, 0: tecka 1, 4, 4: x = 1: y = 4 CASE "Z": PLAY "o" + STR$(o2) + " d" + STR$(d2 * 3) tecka x, y, 0: tecka 2, 4, 4: x = 2: y = 4 CASE "X": PLAY "o" + STR$(o2) + " e" + STR$(d2 * 3) tecka x, y, 0: tecka 3, 4, 4: x = 3: y = 4 CASE "C": PLAY "o" + STR$(o2) + " f" + STR$(d2 * 3) tecka x, y, 0: tecka 4, 4, 4: x = 4: y = 4 CASE "V": PLAY "o" + STR$(o2) + " g" + STR$(d2 * 3) tecka x, y, 0: tecka 5, 4, 4: x = 5: y = 4 CASE "B": PLAY "o" + STR$(o2) + " a" + STR$(d2 * 3) tecka x, y, 0: tecka 6, 4, 4: x = 6: y = 4 CASE "N": PLAY "o" + STR$(o2) + " b" + STR$(d2 * 3) tecka x, y, 0: tecka 7, 4, 4: x = 7: y = 4 CASE "M": PLAY "o" + STR$(o2 + 1) + " c" + STR$(d2 * 3) tecka x, y, 0: tecka 8, 4, 4: x = 8: y = 4 CASE ",": PLAY "o" + STR$(o2 + 1) + " d" + STR$(d2 * 3) tecka x, y, 0: tecka 9, 4, 4: x = 9: y = 4 CASE ".": PLAY "o" + STR$(o2 + 1) + " e" + STR$(d2 * 3) tecka x, y, 0: tecka 10, 4, 4: x = 10: y = 4 CASE "/": PLAY "o" + STR$(o2 + 1) + " f" + STR$(d2 * 3) tecka x, y, 0: tecka 11, 4, 4: x = 11: y = 4 CASE "A": PLAY "o" + STR$(o2) + " c+" + STR$(d2 * 3) tecka x, y, 0: tecka 1, 3, 4: x = 1: y = 3 CASE "S": PLAY "o" + STR$(o2) + " d+" + STR$(d2 * 3) tecka x, y, 0: tecka 2, 3, 4: x = 2: y = 3 CASE "F": PLAY "o" + STR$(o2) + " f+" + STR$(d2 * 3) tecka x, y, 0: tecka 4, 3, 4: x = 4: y = 3 CASE "G": PLAY "o" + STR$(o2) + " g+" + STR$(d2 * 3) tecka x, y, 0: tecka 5, 3, 4: x = 5: y = 3 CASE "H": PLAY "o" + STR$(o2) + " a+" + STR$(d2 * 3) tecka x, y, 0: tecka 6, 3, 4: x = 6: y = 3 CASE "K": PLAY "o" + STR$(o2 + 1) + " c+" + STR$(d2 * 3) tecka x, y, 0: tecka 8, 3, 4: x = 8: y = 3 CASE "L": PLAY "o" + STR$(o2 + 1) + " d+" + STR$(d2 * 3) tecka x, y, 0: tecka 9, 3, 4: x = 9: y = 3 CASE "'": PLAY "o" + STR$(o2 + 1) + " f+" + STR$(d2 * 3) tecka x, y, 0: tecka 11, 3, 4: x = 11: y = 3 END SELECT LOOP UNTIL i$ = CHR$(27) CLS SUB tecka (x AS INTEGER, y AS INTEGER, barva AS INTEGER) q = x * 50 + 21 IF y = 1 THEN a = 63: IF barva = 0 THEN barva = 11 IF y = 2 THEN a = 102: q = q - 24 IF y = 3 THEN a = 238: IF barva = 0 THEN barva = 11 IF y = 4 THEN a = 277: q = q - 24 CIRCLE (q, a), 9, barva PAINT (q, a), barva END SUB SUB vypis (oo1 AS INTEGER, od1 AS INTEGER, oo2 AS INTEGER, od2 AS INTEGER) LOCATE 9, 4: PRINT "Oktava: "; oo1; " [F1]" LOCATE 10, 4: PRINT "Delka: "; od1; " [F2]" LOCATE 20, 4: PRINT "Oktava: "; oo2; " [F4]" LOCATE 21, 4: PRINT "Delka: "; od2; " [F5]" END SUB