Sharp PC1360 |
Dokumentation ansehen/laden
Programmspeicher-Image laden
| 10: | "M" CLEAR |
| 20: | WAIT 0: CLS :RANDOM |
| 30: | PRINT "******* MELODIE *******" |
| 40: | FOR I=15 TO 31 STEP 4 |
| 50: | LINE (0,I)-(149,I) |
| 60: | NEXT I |
| 70: | FOR I=0 TO 140 STEP 10 |
| 80: | Y=RND 31 |
| 90: | IF Y<14 THEN 80 |
| 100: | GCURSOR (I,Y) |
| 110: | GPRINT "C0E0E0603F010200" |
| 120: | BEEP 1,3*Y+15,170 |
| 130: | NEXT I |
| 140: | WAIT 100: GPRINT :CLS :WAIT |
| 150: | "=" INPUT "O(RGEL) / M(ELODIE) ? "; W$ |
| 160: | IF W$="M" THEN "ME" |
| 170: | IF W$="=" THEN END |
| 180: | INPUT "TONDAUER : ";D |
| 190: | PRINT "Tastatur A-K , Halbtoeneentsprechend" |
| 200: | O=2 |
| 210: | CLS :WAIT 0: GPRINT "FF": GCURSOR (3,7): FOR K=1 TO 30 |
| 220: | GPRINT "001FFF1F": GCURSOR (3+4*K,7): NEXT K: GPRINT "00FF": LINE (0,8)-(124,8): GPRINT: WAIT |
| 230: | "C" I$=INKEY$ : IF VAL I$<>0 LET O=VAL I$: GOTO 230 |
| 240: | IF I$="" THEN 230 |
| 250: | IF I$="=" THEN 150 |
| 260: | GOSUB I$+"T" |
| 270: | CURSOR 0,0:CLS |
| 280: | WAIT 0: PRINT O;" OKTAVE": PRINT "TON ";T$: GPRINT : WAIT |
| 290: | IF O=4 LET O=3 |
| 300: | BEEP 1,H,40*D/LN H: GOTO 230 |
| 310: | "AT" T$="c": ON O GOTO 320 ,330 ,340 |
| 320: | H=222: RETURN |
| 330: | H=100: RETURN |
| 340: | H=39: RETURN |
| 350: | "WT" T$="cis": ON O GOTO 360 ,370 ,380 |
| 360: | H=208: RETURN |
| 370: | H=93: RETURN |
| 380 : | H=35: RETURN |
| 390: | "ST" T$="d": ON O GOTO 400 ,410 ,420 |
| 400: | H=195: RETURN |
| 410: | H=86: RETURN |
| 420: | H=32: RETURN |
| 430: | "ET" T$="dis": ON O GOTO 440 ,450 ,460 |
| 440: | H=183: RETURN |
| 450: | H=80: RETURN |
| 460: | H=29: RETURN |
| 470: | "DT" T$="e": ON O GOTO 480 ,490 ,500 |
| 480: | H=172: RETURN |
| 490: | H=75: RETURN |
| 500: | H=26: RETURN |
| 510: | "FT" T$="f": ON O GOTO 520 ,530 ,540 |
| 520: | H=161: RETURN |
| 530: | H=69: RETURN |
| 540: | H=23: RETURN |
| 550: | "TT" T$="fis": ON O GOTO 560 ,570 ,580 |
| 560: | H=150: RETURN |
| 570: | H=64: RETURN |
| 580: | H=21: RETURN |
| 590: | "GT" T$="g": ON O GOTO 600 ,610 ,620 |
| 600: | H=141: RETURN |
| 610: | H=59: RETURN |
| 620: | H=18: RETURN |
| 630: | "YT" T$="gis": ON O GOTO 640 ,650 ,660 |
| 640: | H=132: RETURN |
| 650: | H=55: RETURN |
| 660: | H=16: RETURN |
| 670: | "HT" T$="a": ON O GOTO 680 ,690 ,700 |
| 680: | H=123: RETURN |
| 690: | H=50: RETURN |
| 700: | H=14: RETURN |
| 710: | "UT" T$="ais": ON O GOTO 720 ,730 ,740 |
| 720: | H=115: RETURN |
| 730: | H=46: RETURN |
| 740: | H=12: RETURN |
| 750: | "JT" T$="h": ON O GOTO 760 ,770 ,780 |
| 760: | H=107: RETURN |
| 770: | H=42: RETURN |
| 780: | H=10: RETURN |
| 790: | "KT" ON O GOTO 800 ,800 ,810 |
| 800: | O=O+1: GOTO "AT" |
| 810: | H=8: O=4: RETURN |
| 820: | "ME" WAIT 0: PRINT "E(INGABE)": PRINT "A(BLEGEN)": PRINT "S(PIELEN)": WAIT |
| 830: | INPUT "K(ORREKTUR) ";M$ |
| 840: | IF M$="=" THEN 150 |
| 850: | IF M$="A" THEN "AB" |
| 860: | IF M$="S" THEN "SP" |
| 870: | IF M$="E" THEN 890 |
| 875: | IF M$="K" THEN "KO" |
| 880: | GOTO 820 |
| 890: | CLEAR : INPUT "Anzahl der Toene : ";A |
| 900: | DIM T(1,A-1) |
| 910: | FOR I=0 TO A-1 |
| 920: | INPUT "Ton : ";T$ |
| 930: | INPUT "Oktave : ";O |
| 940: | INPUT "Dauer : ";D |
| 950: | T(0,I)=D |
| 960: | ON O GOTO 970 ,1100 ,1230 ,1360 |
| 970: | IF T$="c" LET T(1,I)=222 |
| 980: | IF T$="cis" LET T(1,I)=208 |
| 990: | IF T$="d" LET T(1,I)=195 |
| 1000: | IF T$="dis" LET T(1,I)=183 |
| 1010: | IF T$="e" LET T(1,I)=172 |
| 1020: | IF T$="f" LET T(1,I)=161 |
| 1030: | IF T$="fis" LET T(1,I)=150 |
| 1040: | IF T$="g" LET T(1,I)=141 |
| 1050: | IF T$="gis" LET T(1,I)=132 |
| 1060: | IF T$="a" LET T(1,I)=123 |
| 1070: | IF T$="ais" LET T(1,I)=115 |
| 1080: | IF T$="h" LET T(1,I)=107 |
| 1090: | GOTO 1370 |
| 1100: | IF T$="c" LET T(1,I)=100 |
| 1110: | IF T$="cis" LET T(1,I)=93 |
| 1120: | IF T$="d" LET T(1,I)=86 |
| 1130: | IF T$="dis" LET T(1,I)=80 |
| 1140: | IF T$="e" LET T(1,I)=75 |
| 1150: | IF T$="f" LET T(1,I)=69 |
| 1160: | IF T$="fis" LET T(1,I)=64 |
| 1170: | IF T$="g" LET T(1,I)=59 |
| 1180: | IF T$="gis" LET T(1,I)=55 |
| 1190: | IF T$="a" LET T(1,I)=50 |
| 1200: | IF T$="ais" LET T(1,I)=46 |
| 1210: | IF T$="h" LET T(1,I)=42 |
| 1220: | GOTO 1370 |
| 1230: | IF T$="c" LET T(1,I)=39 |
| 1240: | IF T$="cis" LET T(1,I)=35 |
| 1250: | IF T$="d" LET T(1,I)=32 |
| 1260: | IF T$="dis" LET T(1,I)=29 |
| 1270: | IF T$="e" LET T(1,I)=26 |
| 1280: | IF T$="f" LET T(1,I)=23 |
| 1290: | IF T$="fis" LET T(1,I)=21 |
| 1300: | IF T$="g" LET T(1,I)=18 |
| 1310: | IF T$="gis" LET T(1,I)=16 |
| 1320: | IF T$="a" LET T(1,I)=14 |
| 1330: | IF T$="ais" LET T(1,I)=12 |
| 1340: | IF T$="h" LET T(1,I)=10 |
| 1350: | GOTO 1370 |
| 1360: | IF T$="c" LET T(1,I)=8 |
| 1370: | IF T(1,I)=0 PRINT "Notenfehler !":GOTO 920 |
| 1380: | NEXT I |
| 1390: | GOTO 820 |
| 1400: | "AB" INPUT "TITEL : ";Q$ |
| 1410: | OPEN "X:"+Q$+".MUS" FOR OUTPUT AS #2 |
| 1420: | PRINT #2,A,T(*) |
| 1430: | CLOSE |
| 1440: | GOTO 820 |
| 1450: | "SP" WAIT 0: PRINT "S(PIELEN)": PRINT "L(ADEN)": WAIT : INPUT R$ |
| 1460: | IF R$="=" THEN 820 |
| 1470: | IF R$="L" GOSUB "LA" |
| 1480: | INPUT "Tondauerfaktor : ";F |
| 1490: | FOR I=0 TO A-1 |
| 1500: | BEEP 1,T(1,I),T(0,I)*F |
| 1510: | NEXT I |
| 1520: | GOTO 1450 |
| 1530: | "LA" CLEAR :INPUT "TITEL : ";Q$ |
| 1540: | OPEN "X:"+Q$+".MUS" FOR INPUT AS #2 |
| 1550: | INPUT #2,A |
| 1560: | DIM T(1,A-1) |
| 1570: | INPUT #2,T(*) |
| 1580: | CLOSE |
| 1590: | RETURN |
| 1600: | "KO" INPUT "Zahl der Korrekturen: ";Z |
| 1610: | FOR I=1 TO Z |
| 1620: | INPUT "Tonnummer : ";N |
| 1630: | INPUT "neue Dauer : ";T(0,N-1) |
| 1640: | NEXT I |
| 1650: | GOTO 820 |
Dokumentation ansehen/laden
Programmspeicher-Image laden
|
|
Falls diese Seite ohne Navigationsleiste angezeigt wird, aktivieren Sie Javascript oder klicken Sie hier!