XProfan

Windowtitle "Franks Speeldosje"
Windowstyle 24:Window 30,30-180,31:cls $F0A0A0
'(D) Test des erweiterten Profan-X3 MUSIC Befehls, nur per privaten bzw. internen Gebrauch!
'Musik https://www.youtube.com/watch?v=-N3F-xs4vSk (<<< MÖGLICHERWEISE BESTEHEN RECHTE DRITTER!)

if (left$($ProfVer,2)<"13") and (left$($ProfVer,4)<>"0.9-")

    WindowTitle "Ab XProf-X3":waitinput 5000:end:endif:Declare m$
    m$="*Q96 ML L0 T240 K0 I8 W100 R64 Z11,127 X:96 V54 N77 X:12 V105 N84 X:12 V121 N76 X:24 V100 N77! "+\
    "X:72 V105 N74 X:24 V112 N83 X:12 V100 N84! X:120 V85 N69 V97 N72 X:24 V64 N77 V102 N81 X:12 V100 "+\
    "N76! X:60 N77! X:12 V121 N76 V100 N83! X:36 N74! X:12 V81 N74 X:12 V100 N72! X:12 N81! X:60 V109 N72"+\
    "X:12 V100 N69! X:12 V49 N69 V100 N74! X:12 V74 N74 V77 N81 X:12 V100 N76! X:48 N69! X:24 V123 N76 "+\
    "X:12 V100 N81! X:12 N74! X:24 V18 N69 X:24 V100 N72! V64 N74 X:24 V100 N69! X:36 V112 N72 X:36 V100 "+\
    "N76! X:12 V89 N88 X:48 V18 N69 X:48 V100 N69! X:24 N88! X:12 N74! X:12 V101 N84 X:12 V117 N76 X:72 "+\
    "V100 N84! X:24 V113 N86 X:36 V94 N71 X:24 V72 N64 X:12 V55 N80 X:48 V100 N80! X:12 N86! X:36 V110 N74 "+\
    "V100 N76! X:12 V79 N76 X:12 V103 N84 X:12 V100 N71! X:60 V118 N83 V100 N84! X:24 V95 N71 V100 N72! "+\
    "N76! X:12 V53 N72 X:60 V100 N74! X:24 N83! X:24 N72! X:36 V118 N74 X:12 V49 N72 X:72 V100 N64! X:12 "+\
    "N72! X:24 V58 N65 V111 N84 X:24 V53 N76 X:12 V100 N71! X:12 V73 N71 X:24 V100 N76! X:12 N74! V51 N76 "+\
    "X:12 V107 N74 V100 N84! X:36 N76! X:12 V114 N83 X:84 V122 N81 X:24 V100 N65! X:24 N83! X:84 V97 N69 "+\
    "X:12 V100 N71! X:36 N81! X:84 V120 N83 X:24 V62 N64 X:36 V100 N74! N83! X:12 V80 N74 V67 N81 V106 "+\
    "N83 X:60 V126 N76 X:24 V100 N83! X:12 V62 N83 X:12 V100 N64! N81! X:12 N74! V35 N81 X:24 V100 N69! "+\
    "X:12 V43 N69 X:12 V100 N81! N83! X:12 V114 N74 X:24 V70 N64 X:36 V100 N76! X:48 N69! X:12 V110 N83 "+\
    "X:24 V114 N76 X:120 V111 N81 X:12 V87 N69 X:48 V100 N64! X:36 N83! X:156 V73 N64 X:120 V54 N60 X:36 "+\
    "V100 N76! X:12 V76 N76 X:24 V100 N64! X:24 N69! X:12 V45 N69 X:24 V100 N76! X:12 V78 N64 X:60 V100 "+\
    "N69! X:12 N81! X:12 N74! X:12 V105 N84 X:12 V119 N76 X:108 V105 N74 V114 N83 X:12 V100 N84! X:48 "+\
    "N60! X:12 V14 N60 X:48 V100 N60! X:12 V84 N69 V100 N83! X:12 V101 N72 V56 N83 X:12 V100 N76! V103 "+\
    "N81 X:36 V100 N83! X:48 V117 N76 X:72 V100 N72! X:36 N81! X:24 V92 N84 X:24 V100 N64! V110 N72 X:12 "+\
    "V62 N81 X:12 V100 N84! X:24 N76! X:12 V10 N64 X:12 V100 N81! X:48 N64! X:12 V125 N76 X:24 V100 N69! "+\
    "N74! X:24 N72! X:36 V61 N74 X:24 V114 N72 X:36 V100 N74! X:12 V51 N74 X:12 V100 N76! X:36 N74! X:24 "+\
    "V90 N84 X:12 V118 N76 X:60 V100 N84! X:48 V99 N71 X:12 V109 N86 X:96 V100 N86! X:12 V98 N84 X:12 "+\
    "V111 N74 X:36 V100 N84! X:12 N72! V94 N84 X:12 V100 N71! V75 N72 X:36 V100 N84! X:12 N72! V112 N83 "+\
    "X:24 V100 N71 V52 N80 X:12 V58 N64 V48 N72 X:12 V100 N76! X:12 V53 N76 V100 N83! X:48 N72! N76! "+\
    "X:12 N80! X:12 N74! X:12 V117 N74 X:12 V49 N72 X:108 V54 N65 X:24 V100 N72! V50 N76 X:12 V37 N72 "+\
    "X:12 V104 N84 X:48 V100 N72! N76! X:12 N74! X:12 V108 N74 X:12 V100 N71! X:12 V116 N83 X:12 V100 "+\
    "N64! N84! X:36 V36 N76 X:72 V100 N76! V119 N81 X:36 V49 N76 X:48 V100 N76! X:12 V41 N76 X:24 V94 "+\
    "N69 X:36 V100 N83! X:12 N76! X:12 V34 N76 X:12 V100 N81! X:12 V60 N81 X:24 V100 N65! X:24 N76! "+\
    "X:36 N81! X:12 V56 N64 X:12 V123 N83 X:60 V100 N74! X:12 V73 N74 X:36 V123 N76 X:60 V100 N74! "+\
    "X:24 N64! X:48 N69! V115 N74 X:12 V48 N69 V100 N83! X:12 V64 N64 X:24 V100 N76! X:36 N69! X:48 "+\
    "V111 N83 X:12 V113 N76 X:132 V82 N69 X:24 V103 N72 X:12 V104 N81 X:36 V100 N64! N76! X:12 V95 N76 "+\
    "X:36 V100 N83! X:48 V62 N64 V34 N79 V100 N81! X:12 V91 N81 X:24 V100 N72! X:12 N79! X:48 N74! N76! "+\
    "X:12 V119 N72 V66 N74 V65 N76 X:72 V100 N81! X:48 N69! X:36 V52 N69 V112 N71 V100 N76! X:48 N69! "+\
    "V48 N76 X:12 V23 N70 X:24 V46 N69 X:12 V100 N76! X:12 N70! X:24 N74! X:12 V35 N74 V106 N84 X:48 V100 "+\
    "N74! X:12 N71! X:12 N84! X:12 N69! V117 N83 X:12 V99 N86 X:36 V107 N71 X:12 V100 N64! N83! X:12 N72! "+\
    "X:84 V111 N76 V100 N86! X:12 V108 N72 X:12 V59 N83 X:84 V100 N76! X:12 V106 N76 X:12 V100 N83! "+\
    "X:12 V127 N79 X:24 V100 N72! X:12 N71! V94 N72 X:12 V100 N76! X:60 V82 N84 X:24 V115 N76 X:36 "+\
    "V100 N79! X:48 N84! X:12 V125 N79 X:72 V100 N76! X:12 N72! X:36 V67 N77 X:24 V119 N76 V47 N89 "+\
    "X:12 V112 N72 X:36 V100 N77! N79! X:12 N89! X:72 V121 N79 X:108 N77 X:12 V80 N88 X:24 V104 N83 "+\
    "X:12 V44 N67 X:12 V100 N79! X:36 N88! X:48 V118 N79 V89 N86 X:24 V100 N67! N76! X:24 N83! X:36 V65 "+\
    "N76 X:12 V100 N77! X:36 N76! N86! X:12 V106 N83 X:12 V118 N77 X:12 V99 N74 X:24 V100 N79! X:84 "+\
    "V121 N79 X:12 V100 N72! X:84 N83! X:12 V87 N88 X:24 V105 N71 X:36 V100 N77! X:72 V92 N86 V100 N88! "+\
    "X:12 V125 N77 X:84 V100 N74! N79! X:12 V69 N74 V57 N79 V100 N86! X:12 V115 N76 X:24 V49 N64 V100 N84 "+\
    "X:24 N79! X:24 N74! X:12 V59 N74 X:60 V100 N71! X:12 V123 N79 X:36 V100 N74! N84! X:12 V29 N84 "+\
    "X:36 V50 N74 X:24 V100 N84! X:12 V93 N88 X:12 V54 N67 V100 N74! X:36 V113 N72 X:24 V100 N76! "+\
    "X:84 N88! X:24 V122 N76 X:12 V100 N79! X:12 N64! N77! V59 N79 X:12 V100 N67! X:12 V39 N67 X:36 "+\
    "V100 N79! X:12 V97 N86 X:24 V124 N77 X:72 V100 N86! X:24 V101 N74 X:60 V89 N84 X:12 V100 N76! X:24 "+\
    "N67! X:24 N84! X:24 N72! V111 N83 X:24 V112 N76 X:12 V95 N71 X:48 V36 N72 X:36 V100 N74! X:12 N72! "+\
    "V89 N74 V100 N83! X:12 V45 N72 X:36 V3 N67 X:12 V10 N64 X:24 V100 N74! X:12 N67! X:12 N72! X:36 V113 "+\
    "N74 X:12 V100 N64! X:84 N71! X:24 V90 N86 X:36 V100 N77! X:12 N76! V66 N77 X:12 V100 N86! X:84 "+\
    "N77! V113 N84 X:36 V123 N76 X:84 V100 N74! X:48 N84! X:12 V119 N83 X:24 V110 N74 X:156 V104 N72 "+\
    "V100 N76! V93 N81 X:12 V87 N69 V100 N83! X:12 V63 N83 X:48 V100 N81! N83! X:12 V83 N81 V60 N83 X:60 "+\
    "V123 N76 V100 N83! X:36 N74! X:12 V83 N74 V100 N81! X:36 N72! X:72 V115 N72 X:60 V100 N76! X:60 V123 "+\
    "N76 X:24 V100 N69! N74! X:60 N72! X:60 V112 N72 X:24 V100 N76! V85 N88 X:48 V100 N88! X:36 V119 N76 "+\
    "X:84 V40 N74 X:48 V100 N74! X:24 V110 N86 X:36 V105 N71 X:12 V69 N64 X:84 V100 N86! X:24 V112 N74 "+\
    "X:12 V100 N76! V104 N84 X:60 V100 N71! X:36 V56 N76 X:24 V100 N84! X:24 V104 N71 X:12 V79 N83 X:24 "+\
    "V100 N72! X:12 N76! X:12 N74! X:12 N83! X:48 V114 N74 X:60 V44 N76 X:24 V42 N72 X:24 V114 N84 X:12 "+\
    "V100 N76! X:12 N72! X:60 N71! X:24 V62 N65 X:12 V31 N71 V49 N76 X:48 V100 N71! X:12 N84! X:12 N64! "+\
    "N76! V119 N83 X:12 V100 N74! X:12 V111 N74 X:108 V113 N81 X:24 V39 N79 X:24 V42 N60 X:48 V100 N79! "+\
    "X:48 V95 N69 V100 N81! N83! X:168 N65! V122 N83 X:36 V68 N64 X:24 V37 N79 X:72 V100 N79! X:12 V123 "+\
    "N76 X:24 V100 N69! X:12 N60! V60 N69 V100 N74! X:12 V14 N60 X:48 V100 N64! X:48 N69! N83! X:24 N60! "+\
    "N71 X:12 V111 N74 X:12 V65 N64 X:72 V39 N69 V100 N76! X:12 V6 N60 X:36 V100 N69! X:48 N60! X:24 "+\
    "V114 N83 X:24 V116 N76 X:72 V100 N83! X:12 V103 N83 X:60 V22 N69 V100 N71! V33 N77 X:12 V100 N64! "+\
    "X:60 N77! X:12 N69! X:36 V112 N81 X:12 V100 N83! X:12 V42 N60 V64 N64 X:132 V30 N79 X:72 V100 N79! "+\
    "X:60 V14 N79 X:60 V100 N79! X:48 N76! N81! X:12 V54 N76 X:24 V97 N69 X:48 V100 N76! X:12 V37 N76 "+\
    "X:72 V100 N76! X:12 V33 N76 X:48 V100 N74! X:12 N76! X:48 V26 N74 X:72 V100 N60! N64! N69! N74! "
    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 100

    endwhile

    end