XPSE

...
 {$pushkeyword dt}'als Bsp. per die neuen Datums-Funktionen
 {$NoErr}'per's extreme
...

windowtitle "MIDI TO MUSIC CONVERTER"
windowstyle $1A
window 1024,768
declare m$[]
var a$=loadfile$("MIDI-File auswählen","MIDI-Dateien|*.MID")
case findfirst$(a$)="":end
m$[] = midi("Read", a$)
print
print sizeof(m$[]),"Spur(en) geschrieben"
print
print "Taste drücken, um die eingelesenen Music-Strings mit MUSIC abzuspielen ..."
waitinput
m$[0] = "*"+m$[0]
assign #1,"midiread.txt"
rewrite #1

whileloop 0, sizeof(m$[])-1

    print #1, m$[&loop]

endwhile

close #1
music m$[]

while %playing and  (%umessage <> 16)

    case iskey(27): process("kill", &hMusic, 0)
    case iskey(83): midi("outshort", $B9, 7, 0)
    case iskey(76): midi("outshort", $B9, 7, 100)
    sleep 10
    usebrush 1,rnd(255)*257
    ellipse rnd(1024),rnd(768)-rnd(1024),rnd(768)

endwhile

end

declare thema$,melo1$,melo2$,mecho$,akrd1$,akrd2$,akrd3$,akrd4$,ebass$,drums$
windowtitle "Ludwig van Beethoven - Rondo a Capriccio Op. 129 (Die Wut circa den verlorenen Groschen)"
windowstyle 26
cls
thema$="L8 B4 MS >DDGG MN B4       L16 [2 >DCDC MS <A8 P8 MN] <      " + \
"L8 B4 MS >DDGG MN B4       L16    >DCDC MS <A8 MN ABG4P4 L16 " + \
"BAGF#EF#GA L8 MS BB MN >E4 L16 [2 ED#ED# MS <B8 P8 MN >] <   " + \
"BAGF#EF#GA L8 MS BB MN >E4 L32 [12 C#] L16 <B>C# L4 D<D      "
melo1$="T160 K0 I63 V100 R20  O5    [2 "+thema$+"]"
melo2$="K1 I88 V110 R90  O5    [2 "+thema$+"]"
mecho$="K2 I81 V69  R110 O5 P7 [2 "+thema$+"]"
akrd1$="K3 I28 V100 R110 O3 L8 MN [2 [30G]                  FF   [8E] < [8B] > [8E] < AAAA > DDDD      ]" + \
"V90 D  V80 D  V70 D  V60 D  V50 D  V40 D  V30 D  V20 D  V10 D"
akrd2$="K4 I1  V63  R10  O5 L8 ML [2 [8B] > [8C] < [8B] > CCCC < BBBB   [8G]   [8E]   [8G]   EEEE [4F#]]" + \
"V54 F# V48 F# V42 F# V36 F# V30 F# V24 F# V18 F# V12 F# V6  F#"
akrd3$="K5 I50 V72  R50  O6 L8 ML [2 D1     D1     D1     D2     DP4. < B1     A1     B1     G2   A2   ]"
akrd4$="K6 I1  V81  R100 O6 L8 ML [2 P1     [8F#]  P1     [4F#]  GP4.   P1   < [8B]   P1     AAAA P2   ]"
ebass$="K7 I63 V63  R100 O2 L8  [2 GPP>G<GPPPGPP>F#<GPPPGPP>G<GPPPGPP>F#<GPFPEPP>E<EPPPBPPEBPPPEPP>E<EPPP>DPPD<GPPP]"
drums$="K9 I25 V110 R40  O3 L16 [4 CF#A#F# DF#A#F# [2 [2 CF#A#F# DF#A#F#] CF#A#F# DF# DF#] CF#A#F#DDDD] > C#"
music "*"+melo1$,melo2$,mecho$,akrd1$,akrd2$,akrd3$,akrd4$,ebass$,drums$
settimer 10

while %playing

    waitinput
    usebrush 1,rnd(16000000)
    ellipse rnd(640),rnd(480)-rnd(640),rnd(480)

endwhile

killtimer

 {$pushkeyword midi}
 {$pushkeyword process}
...