RbBFBlokProjPSIVStrn2008.01 ACnmStrnAChpStrnACsvStrnlocalhost:7325 Ver1Strn1 Ver2Strn0 Ver3Strn0 RelsStrn0 NnRlStrn0 RegnStrn0 SVerStrnLVerStrnIVerStrnaiviInt DVewInt xprTpInt DLanInt CLanInt DEncInt BflgInt IconGrup%EndGInt %MacCStrn????BMacStrnMy Application BCarStrn NotePlayer BCMOStrnMy Application BunIStrnBSizInt @BMSzInt BSzSStrn4096BMSSStrn2048MDIcStrnMy Application BWinStrnMy Application.exe BMDIInt WcmNStrnWpNmStrnWiNmStrnBL86Strn MyApplication fTypGrupL%nameStrntextMacCStrnR*chtypeStrnTEXTdefnStrnflagInt EndGInt %DgCLStrnPadnPadn************************************************************************************************************************************************************************************************************************************************************BlokpFTy _NameStrn FileTypes ContInt paswStrnfTypGrup\%nameStrntextMacCStrnR*chtypeStrnTEXTdefnStrnflagInt NameStrnTextEndGInt %PadnPadn0************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************BlokpVewx0NameStrnwndMain ContInt paswStrnbClsInt SuprStrnWindow flagInt bNtrInt CompStrnHInsGrup|%nameStrn MouseDown CompStrnVsblInt sorcGrup0%EncoInt srclStrn9Function MouseDown(X As Integer, Y As Integer) As Boolean srclStrn'if isCMMClick then srclStrn$'edNote.Text = prevNote(edNote.text)srclStrn'else srclStrn$'edNote.Text = nextNote(edNote.text)srclStrn'end if srclStrn 'TurnOnNotessrclStrn End FunctionEndGInt %EndGInt %HInsGrup%nameStrnKeyDown CompStrnVsblInt sorcGrupH%EncoInt srclStrn*Function KeyDown(Key As String) As Boolean srclStrndim num as Integer srclStrndim code as integer srclStrnnum = val(key) srclStrncode = asc(key) srclStrnsrclStrnif keyboard.commandkey then srclStrnif code=32 or code=29 then srclStrn'tpPanel.Value = (tpPanel.Value+1) mod 3 srclStrn return falsesrclStrnelseif code=28 or code=31 then srclStrn'tpPanel.Value = (tpPanel.Value-1) mod 3 srclStrn return falsesrclStrnelseif key="." then srclStrnbtnStopProg.PushsrclStrn btnStop.PushsrclStrnelseif key=chr(13) then srclStrnbtnStartProg.Push srclStrn)elseif num > 0 and num <= numPlayers then srclStrn3chkOctave(num-1).Value = not chkOctave(num-1).Value srclStrn TurnOnNotes srclStrnend if srclStrnend if srclStrn End FunctionEndGInt %EndGInt %HInsGrup0%nameStrnOpenCompStrnVsblInt sorcGrup% EncoInt srclStrn Sub Open() srclStrndim i as integersrclStrnnumPlayers = 6 srclStrntpPanel.Caption(0) = "Note" srclStrntpPanel.Caption(1)="Sequence" srclStrntpPanel.Caption(2)="Options"srclStrnsrclStrnsrclStrnfor i = 0 to numplayers -1 srclStrn+chkOctave(i).Caption = "Octave " + str(i+1) srclStrn.qtPlayers(i).Instrument = 57 'trumpet. horn=61 srclStrnnext i srclStrnsrclStrnedNote.SetFocus srclStrnsrclStrnEnd Sub EndGInt % EndGInt %MethGrup %!nameStrn TurnOnNotes CompStrnVsblInt sorcGrup%"EncoInt srclStrnSub TurnOnNotes() srclStrndim i as integersrclStrndim fundamental as integer srclStrndim tn as StringsrclStrnsrclStrnsrclStrnsrclStrntn =uppercase(edNote.Text) srclStrn)tn = Transpose(tn, val(edTranspose.text)) srclStrn$if tn = "C" then fundamental =36-12srclStrn1if tn = "C#" or tn ="DB" then fundamental =37-12 srclStrn$if tn = "D" then fundamental =38-12srclStrn2if tn = "D#" or tn = "EB" then fundamental =39-12 srclStrn$if tn = "E" then fundamental =40-12srclStrn$if tn = "F" then fundamental =41-12srclStrn1if tn = "F#" or tn= "GB" then fundamental =42-12 srclStrn$if tn = "G" then fundamental =43-12srclStrn2if tn = "G#" or tn = "AB" then fundamental =44-12 srclStrn$if tn = "A" then fundamental =45-12srclStrn1if tn = "A#"or tn = "BB" then fundamental =46-12 srclStrn$if tn = "B" then fundamental =47-12srclStrnsrclStrn8fundamental = ((fundamental + (sldTune.Value/15)) * 256)srclStrnsrclStrnfor i = 0 to numPlayers-1 srclStrn0qtPlayers(i).PlayNote (lastNote + (i*12*256)), 0srclStrn.qtPlayers(i).Instrument = lstVoice.ListIndex+1 srclStrnif chkOctave(i).Value then srclStrn>qtPlayers(i).PlayNote (fundamental+(i*12*256)),sldVolume.Value srclStrnend if srclStrnnext i srclStrnsrclStrnlastNote = fundamental srclStrnsrclStrnEnd Sub EndGInt %"EncoInt AlasStrnflagInt shrdInt parmStrnrsltStrnEndGInt %!MethGrup%#nameStrnNextNoteCompStrnVsblInt sorcGrup%$EncoInt srclStrn+Function NextNote(note as string) As String srclStrnselect case notesrclStrncase "C"srclStrn return "C#" srclStrn case "C#" srclStrn return "D" srclStrn case "DB" srclStrn return "D" srclStrncase "D"srclStrn return "D#" srclStrn case "D#" srclStrn return "E" srclStrn case "EB" srclStrn return "E" srclStrncase "E"srclStrn return "F" srclStrn case "FB" srclStrn return "F" srclStrncase "F"srclStrn return "F#" srclStrn case "F#" srclStrn return "G" srclStrn case "GB" srclStrn return "G" srclStrncase "G"srclStrn return "G#" srclStrn case "G#" srclStrn return "A" srclStrn case "AB" srclStrn return "A" srclStrncase "A"srclStrn return "A#" srclStrn case "A#" srclStrn return "B" srclStrn case "BB" srclStrn return "B" srclStrncase "B"srclStrn return "C" srclStrn case "CB" srclStrn return "C" srclStrn end select srclStrnsrclStrn End FunctionEndGInt %$EncoInt AlasStrnflagInt shrdInt parmStrnnote as string rsltStrnString EndGInt %#MethGrup%%nameStrnPrevNoteCompStrnVsblInt sorcGrup %&EncoInt srclStrn+Function PrevNote(note as String) As String srclStrnselect case notesrclStrncase "C"srclStrn return "B" srclStrncase "B"srclStrn RETURN "A#" srclStrn CASE "A#" srclStrn return "A" srclStrncase "A"srclStrn return "G#" srclStrn case "G#" srclStrn return "G" srclStrncase "G"srclStrn return "F#" srclStrn case "F#" srclStrn return "F" srclStrncase "F"srclStrn return "E" srclStrncase "E"srclStrn return "D#" srclStrn case "D#" srclStrn return "D" srclStrncase "D"srclStrn return "C#" srclStrn case "C#" srclStrn return "C" srclStrn case "CB" srclStrn return "Bb" srclStrn case "DB" srclStrn return "C" srclStrn case "EB" srclStrn return "D" srclStrn case "FB" srclStrn return "Eb" srclStrn case "GB" srclStrn return "F" srclStrn case "AB" srclStrn return "G" srclStrn case "BB" srclStrn return "A" srclStrnsrclStrn end select srclStrnsrclStrn End FunctionEndGInt %&EncoInt AlasStrnflagInt shrdInt parmStrnnote as String rsltStrnString EndGInt %%MethGrup%'nameStrn Transpose CompStrnVsblInt sorcGrup%(EncoInt srclStrnBFunction Transpose(note as string, semitones as integer) As string srclStrndim newnote as string srclStrndim i as integersrclStrnsrclStrnnewnote = note srclStrnsrclStrnfor i = 1 to abs(semitones) srclStrnif semitones < 0 then srclStrnnewnote = prevnote(newnote) srclStrnelsesrclStrnnewnote = nextnote(newnote) srclStrnend if srclStrnnextsrclStrnsrclStrnreturn newnote srclStrn End FunctionEndGInt %(EncoInt AlasStrnflagInt shrdInt parmStrn$note as string, semitones as integerrsltStrnstring EndGInt %'PropGrupX%)EncoInt declStrnnumPlayers As Integer flagInt CompStrnshrdInt EndGInt %)PropGrupT%*EncoInt declStrnbPlaying As Boolean flagInt CompStrnshrdInt EndGInt %*PropGrupT%+EncoInt declStrnlastNote As integer flagInt CompStrnshrdInt EndGInt %+PDefGrup<%,nameStrnImplicitInstanceEncoInt PValStrnTrueEndGInt %,PDefGrup0%-nameStrnMenuBar PValStrn -1138788208 EndGInt %-PDefGrup(%.nameStrn MacProcID PValInt EndGInt %.PDefGrup4%/nameStrn BalloonHelp EncoInt PValStrnEndGInt %/PDefGrup4%0nameStrnMinimizeButton PValStrnFalse EndGInt %0PDefGrup4%1nameStrnMaximizeButton PValStrnFalse EndGInt %1PDefGrup0%2nameStrn LiveResize PValStrnFalse EndGInt %2PDefGrup,%3nameStrn Resizeable PValStrnTrueEndGInt %3PDefGrup,%4nameStrn CloseButton PValStrnTrueEndGInt %4PDefGrup0%5nameStrnMenuBarVisible PValStrnTrueEndGInt %5PDefGrup0%6nameStrn FullScreen PValStrnFalse EndGInt %6PDefGrup(%7nameStrnVisible PValStrnTrueEndGInt %7PDefGrup<%8nameStrnTitle EncoInt PValStrn NotePlayer EndGInt %8PDefGrup(%9nameStrnBackdropPValStrn0 EndGInt %9PDefGrup(%:nameStrn BackColor PValInt EndGInt %:PDefGrup0%;nameStrn HasBackColorPValStrnFalse EndGInt %;PDefGrup0%nameStrn MaxHeight PValInt }EndGInt %>PDefGrup$%?nameStrnMaxWidthPValInt }EndGInt %?PDefGrup(%@nameStrn MinHeight PValInt @EndGInt %@PDefGrup$%AnameStrnMinWidthPValInt @EndGInt %APDefGrup$%BnameStrnHeight PValInt SEndGInt %BPDefGrup$%CnameStrnWidth PValInt EndGInt %CPDefGrup(%DnameStrn Placement PValInt EndGInt %DVwBhGrupt%EVwPrGrupD%FNameStrnNameVsblInt PrGpStrnID CPifStrnWindow EndGInt %FVwPrGrupL%GNameStrn Interfaces VsblInt PrGpStrnID CPifStrnWindow EndGInt %GVwPrGrupH%HNameStrnSuper VsblInt PrGpStrnID CPifStrnWindow EndGInt %HVwPrGrup0%INameStrn Placement VsblInt PrGpStrnPositionPValStrn0 typeStrnInteger vbETStrnEnumCPifStrnWindow EnumGrup%JdefnStrn 0 - Default defnStrn1 - Parent Window defnStrn2 - Main Screen defnStrn3 - Parent Window ScreendefnStrn 4 - Stagger EndGInt %JEndGInt %IVwPrGrupp%KNameStrnWidth VsblInt PrGpStrnPositionPValStrn300 typeStrnInteger CPifStrnWindow EndGInt %KVwPrGrupp%LNameStrnHeight VsblInt PrGpStrnPositionPValStrn300 typeStrnInteger CPifStrnWindow EndGInt %LVwPrGrupp%MNameStrnMinWidthVsblInt PrGpStrnPositionPValStrn64 typeStrnInteger CPifStrnWindow EndGInt %MVwPrGrupt%NNameStrn MinHeight VsblInt PrGpStrnPositionPValStrn64 typeStrnInteger CPifStrnWindow EndGInt %NVwPrGrupt%ONameStrnMaxWidthVsblInt PrGpStrnPositionPValStrn32000 typeStrnInteger CPifStrnWindow EndGInt %OVwPrGrupx%PNameStrn MaxHeight VsblInt PrGpStrnPositionPValStrn32000 typeStrnInteger CPifStrnWindow EndGInt %PVwPrGrup %QNameStrnFrame VsblInt PrGpStrn Appearance PValStrn0 typeStrnInteger vbETStrnEnumCPifStrnWindow EnumGrupp%RdefnStrn 0 - DocumentdefnStrn1 - Movable Modal defnStrn2 - Modal DialogdefnStrn3 - Floating Window defnStrn 4 - Plain Box defnStrn5 - Shadowed BoxdefnStrn6 - Rounded Window defnStrn7 - Global Floating Window defnStrn8 - Sheet WindowdefnStrn9 - Metal WindowdefnStrn10 - Drawer Window defnStrn11 - Modeless DialogEndGInt %REndGInt %QVwPrGrup|%SNameStrn Composite VsblInt PrGpStrn Appearance PValStrnFalse typeStrnBoolean CPifStrnWindow EndGInt %SVwPrGrup|%TNameStrn HasBackColorVsblInt PrGpStrn Appearance PValStrnFalse typeStrnBoolean CPifStrnWindow EndGInt %TVwPrGrup|%UNameStrn BackColor VsblInt PrGpStrn Appearance PValStrn&hFFFFFFtypeStrnColor CPifStrnWindow EndGInt %UVwPrGrupx%VNameStrnBackdropVsblInt PrGpStrn Appearance typeStrnPicture vbETStrnPicture CPifStrnWindow EndGInt %VVwPrGrupx%WNameStrnTitle VsblInt PrGpStrn Appearance PValStrnUntitledtypeStrnString CPifStrnWindow EndGInt %WVwPrGrupt%XNameStrnVisible VsblInt PrGpStrn Appearance PValStrnTruetypeStrnBoolean CPifStrnWindow EndGInt %XVwPrGrup|%YNameStrn FullScreen VsblInt PrGpStrn Appearance PValStrnFalse typeStrnBoolean CPifStrnWindow EndGInt %YVwPrGrup|%ZNameStrnMenuBarVisible VsblInt PrGpStrn Appearance PValStrnTruetypeStrnBoolean CPifStrnWindow EndGInt %ZVwPrGrupx%[NameStrn CloseButton VsblInt PrGpStrn Appearance PValStrnTruetypeStrnBoolean CPifStrnWindow EndGInt %[VwPrGrup|%\NameStrn Resizeable VsblInt PrGpStrn Appearance PValStrnFalse typeStrnBoolean CPifStrnWindow EndGInt %\VwPrGrupx%]NameStrn LiveResize VsblInt PrGpStrn Appearance PValStrnTruetypeStrnBoolean CPifStrnWindow EndGInt %]VwPrGrup%^NameStrnMaximizeButton VsblInt PrGpStrn Appearance PValStrnFalse typeStrnBoolean CPifStrnWindow EndGInt %^VwPrGrup|%_NameStrnMinimizeButton VsblInt PrGpStrn Appearance PValStrnTruetypeStrnBoolean CPifStrnWindow EndGInt %_VwPrGruph%`NameStrn BalloonHelp VsblInt PrGpStrn Appearance typeStrnString CPifStrnWindow EndGInt %`VwPrGrupx%aNameStrn MacProcID VsblInt PrGpStrn Appearance PValStrn0 typeStrnInteger CPifStrnWindow EndGInt %aVwPrGrupx%bNameStrnMenuBar VsblInt PrGpStrn Appearance typeStrnMenuBar vbETStrnMenuBar CPifStrnWindow EndGInt %bVwPrGrup|%cNameStrnImplicitInstanceVsblInt PrGpStrn Appearance PValStrnTruevbETStrnBoolean CPifStrnWindow EndGInt %cEndGInt %ECBhvGrup%dSuprStrnTabPanelEndGInt %dCBhvGrup%eSuprStrn PushButton HInsGrup%fnameStrnAction CompStrnVsblInt sorcGrup%gEncoInt srclStrn Sub Action()srclStrn TurnOnNotes srclStrnme.Default = false srclStrnbtnStop.Default = true srclStrnEnd Sub EndGInt %gEndGInt %fEndGInt %eCBhvGrup%hSuprStrn PushButton HInsGrupt%inameStrnAction CompStrnVsblInt sorcGrup,%jEncoInt srclStrn Sub Action()srclStrndim i as integer, j as integer srclStrnfor i = 0 to numPlayers-1 srclStrn,qtPlayers(i).playNote lastNote+(i*12*256), 0srclStrnnext i srclStrnsrclStrnme.Default = false srclStrnbtnStart.default = true srclStrnEnd Sub EndGInt %jEndGInt %iEndGInt %hCBhvGrup%kSuprStrn StaticText EndGInt %kCBhvGrup%lSuprStrnSlider HInsGrup%mnameStrn ValueChangedCompStrnVsblInt sorcGrup\%nEncoInt srclStrnSub ValueChanged() srclStrn TurnOnNotes srclStrnEnd Sub EndGInt %nEndGInt %mEndGInt %lCBhvGrup%oSuprStrn PushButton HInsGrup%pnameStrnAction CompStrnVsblInt sorcGrup`%qEncoInt srclStrn Sub Action()srclStrnpp.Start edProgram.text srclStrnEnd Sub EndGInt %qEndGInt %pEndGInt %oCBhvGrup%rSuprStrn PushButton HInsGrup%snameStrnAction CompStrnVsblInt sorcGrupP%tEncoInt srclStrn Sub Action()srclStrnpp.Stop srclStrnEnd Sub EndGInt %tEndGInt %sEndGInt %rCBhvGrup%uSuprStrn PopupMenu HInsGrup%vnameStrnChange CompStrnVsblInt sorcGrup%wEncoInt srclStrn Sub Change()srclStrnselect case lowercase(me.text) srclStrn case "warmup" srclStrnedProgram.text = "60,8 c1 d1 e1 f r4 e r4 f r4 gb r4 f r4 eb r4 f r4 g r4 f r4 d r4 f r4 ab r4 f r4 db r4 f r4 a r4 f r4 c r4 f r4 bb r4 f r4 b r4 f r4 b r4 f r4 bb r4 f r4 c r4 f"srclStrncase "buddali1" srclStrn,edprogram.text = "70,3 f1 f1 f1 f gb f gb f"srclStrncase "buddali2" srclStrn6edprogram.text = "70,3 f1 f1 f1 f gb f gb f gb f gb f" srclStrncase "kopprasch1" srclStrnAedprogram.text ="80,1,5 c2 d e f g a b c2 d2 e2 r1 d c b a g f e d c b2 a2 g2 r2 g2 a b c d e f# g2 a2 b2 r1 a g f e d c b a g f2 e d c2 r2 e2 f# g# a b c d e2 f# g# a2 r2 d2 e f# g a b c d2 e f# g2 r2 f e d c b a g#2 e d c b a g f# e d3 e f# g a b c d e f# g2 r2 d e f g a g f e d c b a g f e d c b a g f2 f#2 g f e d c" srclStrn end select srclStrnsrclStrnsrclStrnEnd Sub EndGInt %wEndGInt %vEndGInt %uCBhvGrup%xSuprStrn StaticText EndGInt %xCBhvGrup%ySuprStrnCheckBoxHInsGrup%znameStrnAction CompStrnVsblInt sorcGrupd%{EncoInt srclStrnSub Action(index as Integer)srclStrn TurnOnNotes srclStrnEnd Sub EndGInt %{EndGInt %zEndGInt %yCBhvGrup%|SuprStrn StaticText EndGInt %|CBhvGrup%}SuprStrn EditField HInsGrup%~nameStrnKeyDown CompStrnVsblInt sorcGrupx%EncoInt srclStrn*Function KeyDown(Key As String) As Boolean srclStrn return falsesrclStrn End FunctionEndGInt %EndGInt %~EndGInt %}CBhvGrupt%SuprStrn EditField HInsGrup@%nameStrnKeyDown CompStrnVsblInt sorcGrup%EncoInt srclStrn*Function KeyDown(Key As String) As Boolean srclStrndim num as Integer srclStrnnum = asc(key) srclStrnsrclStrnsrclStrnif not keyboard.CommandKey then srclStrnif num=30 or num=29 thensrclStrnme.text = nextNote(me.text) srclStrnelseif num=31 or num=28 thensrclStrnme.text =prevNote(me.text) srclStrnend if srclStrn TurnOnNotes srclStrnend if srclStrnsrclStrnsrclStrnsrclStrn return falsesrclStrn End FunctionEndGInt %EndGInt %EndGInt %CBhvGrup0%SuprStrn EditField HInsGrup%nameStrnKeyDown CompStrnVsblInt sorcGrup%EncoInt srclStrn*Function KeyDown(Key As String) As Boolean srclStrndim num as Integer srclStrnnum = asc(key) srclStrnsrclStrnif keyboard.commandkey then srclStrnif num=30 or num=29 thensrclStrn%sldVolume.value = sldVolume.value + 5 srclStrnelseif num=31 or num=28 thensrclStrn%sldVolume.value = sldVolume.value - 5 srclStrnend if srclStrnelsesrclStrnif num=30 or num=29 thensrclStrnme.text = nextNote(me.text) srclStrnelseif num=31 or num=28 thensrclStrnme.text =prevNote(me.text) srclStrnend if srclStrnend if srclStrnsrclStrn TurnOnNotes srclStrnsrclStrn return falsesrclStrn End FunctionEndGInt %EndGInt %EndGInt %CBhvGrup%SuprStrn PopupMenu EndGInt %CBhvGrup%SuprStrn StaticText EndGInt %CBhvGrup%SuprStrn StaticText EndGInt %CBhvGrup%SuprStrnSlider EndGInt %CBhvGrup%SuprStrn EditField EndGInt %CBhvGrup%SuprStrn NotePlayer EndGInt %CBhvGrup %SuprStrn ProgramPlayer EndGInt %CtrlGrup%cclsStrnTabPanelnameStrnTabPanelPDefGrup8%nameStrn InitialParent EncoInt PValStrnEndGInt %PDefGrup0%nameStrn Underline PValStrnFalse EndGInt %PDefGrup,%nameStrnItalic PValStrnFalse EndGInt %PDefGrup(%nameStrnBoldPValStrnFalse EndGInt %PDefGrup$%nameStrnTextSizePValInt EndGInt %PDefGrup8%nameStrnTextFontEncoInt PValStrnSystem EndGInt %PDefGrup(%nameStrnEnabled PValStrnTrueEndGInt %PDefGrup0%nameStrnAutoDeactivate PValStrnTrueEndGInt %PDefGrup0%nameStrnHelpTag EncoInt PValStrnEndGInt %PDefGrup(%nameStrnVisible PValStrnTrueEndGInt %PDefGrup$%nameStrnValue PValInt EndGInt %PDefGrup0%nameStrn SmallTabs PValStrnFalse EndGInt %PDefGrup0%nameStrnPanels EncoInt PValStrnEndGInt %PDefGrupP%nameStrn TabDefinition EncoInt PValStrnNote Sequence Options EndGInt %PDefGrup$%nameStrnFacing PValInt EndGInt %PDefGrup$%nameStrnTabIndexPValInt EndGInt %PDefGrup,%nameStrn TabPanelIndex PValInt EndGInt %PDefGrup,%nameStrn LockBottom PValStrnTrueEndGInt %PDefGrup,%nameStrn LockRight PValStrnTrueEndGInt %PDefGrup(%nameStrnLockTop PValStrnTrueEndGInt %PDefGrup(%nameStrnLockLeftPValStrnTrueEndGInt %PDefGrup$%nameStrnHeight PValInt =EndGInt %PDefGrup$%nameStrnWidth PValInt EndGInt %PDefGrup %nameStrnTop PValInt EndGInt %PDefGrup %nameStrnLeftPValInt EndGInt %PDefGrup(%nameStrnScope PValStrn0 EndGInt %PDefGrup8%nameStrnSuper EncoInt PValStrnTabPanelEndGInt %PDefGrup$%nameStrnIndex PValInt EndGInt %PDefGrup4%nameStrnNameEncoInt PValStrntpPanel EndGInt %CBixInt EndGInt %CtrlGrupd%cclsStrn PushButton nameStrn PushButton PDefGrup@%nameStrn InitialParent EncoInt PValStrntpPanel EndGInt %PDefGrup0%nameStrn Underline PValStrnFalse EndGInt %PDefGrup,%nameStrnItalic PValStrnFalse EndGInt %PDefGrup(%nameStrnBoldPValStrnFalse EndGInt %PDefGrup$%nameStrnTextSizePValInt EndGInt %PDefGrup8%nameStrnTextFontEncoInt PValStrnSystem EndGInt %PDefGrup0%nameStrnAutoDeactivate PValStrnTrueEndGInt %PDefGrup0%nameStrnHelpTag EncoInt PValStrnEndGInt %PDefGrup(%nameStrnVisible PValStrnTrueEndGInt %PDefGrup(%nameStrnEnabled PValStrnTrueEndGInt %PDefGrup,%nameStrnCancel PValStrnFalse EndGInt %PDefGrup(%nameStrnDefault PValStrnTrueEndGInt %PDefGrup8%nameStrnCaption EncoInt PValStrnStart EndGInt %PDefGrup$%nameStrnTabIndexPValInt EndGInt %PDefGrup,%nameStrn TabPanelIndex PValInt EndGInt %PDefGrup,%nameStrn LockBottom PValStrnTrueEndGInt %PDefGrup,%nameStrn LockRight PValStrnTrueEndGInt %PDefGrup,%nameStrnLockTop PValStrnFalse EndGInt %PDefGrup(%nameStrnLockLeftPValStrnTrueEndGInt %PDefGrup$%nameStrnHeight PValInt EndGInt %PDefGrup$%nameStrnWidth PValInt EndGInt %PDefGrup %nameStrnTop PValInt EndGInt %PDefGrup %nameStrnLeftPValInt $EndGInt %PDefGrup(%nameStrnScope PValStrn0 EndGInt %PDefGrup<%nameStrnSuper EncoInt PValStrn PushButton EndGInt %PDefGrup$%nameStrnIndex PValInt EndGInt %PDefGrup4%nameStrnNameEncoInt PValStrnbtnStartEndGInt %CBixInt EndGInt %CtrlGrup`%cclsStrn PushButton nameStrn PushButton PDefGrup@%nameStrn InitialParent EncoInt PValStrntpPanel EndGInt %PDefGrup0%nameStrn Underline PValStrnFalse EndGInt %PDefGrup,%nameStrnItalic PValStrnFalse EndGInt %PDefGrup(%nameStrnBoldPValStrnFalse EndGInt %PDefGrup$%nameStrnTextSizePValInt EndGInt %PDefGrup8%nameStrnTextFontEncoInt PValStrnSystem EndGInt %PDefGrup0%nameStrnAutoDeactivate PValStrnTrueEndGInt %PDefGrup0%nameStrnHelpTag EncoInt PValStrnEndGInt %PDefGrup(%nameStrnVisible PValStrnTrueEndGInt %PDefGrup(%nameStrnEnabled PValStrnTrueEndGInt %PDefGrup(%nameStrnCancel PValStrnTrueEndGInt %PDefGrup,%nameStrnDefault PValStrnFalse EndGInt %PDefGrup4%nameStrnCaption EncoInt PValStrnStopEndGInt %PDefGrup$%nameStrnTabIndexPValInt EndGInt %PDefGrup,%nameStrn TabPanelIndex PValInt EndGInt %PDefGrup,%nameStrn LockBottom PValStrnTrueEndGInt %PDefGrup,%nameStrn LockRight PValStrnTrueEndGInt %PDefGrup,%nameStrnLockTop PValStrnFalse EndGInt %PDefGrup(%nameStrnLockLeftPValStrnTrueEndGInt %PDefGrup$%nameStrnHeight PValInt EndGInt %PDefGrup$%nameStrnWidth PValInt EndGInt %PDefGrup %nameStrnTop PValInt EndGInt %PDefGrup %nameStrnLeftPValInt $EndGInt %PDefGrup(%nameStrnScope PValStrn0 EndGInt %PDefGrup<%nameStrnSuper EncoInt PValStrn PushButton EndGInt %PDefGrup$%nameStrnIndex PValInt EndGInt %PDefGrup4%nameStrnNameEncoInt PValStrnbtnStop EndGInt %CBixInt EndGInt %CtrlGrupH%cclsStrn StaticText nameStrn StaticText PDefGrup@%nameStrn InitialParent EncoInt PValStrntpPanel EndGInt %PDefGrup4%nameStrn DataField EncoInt PValStrnEndGInt %PDefGrup4%nameStrn DataSource EncoInt PValStrnEndGInt %PDefGrup0%nameStrn Underline PValStrnFalse EndGInt %PDefGrup,%nameStrnItalic PValStrnFalse EndGInt %PDefGrup(%nameStrnBoldPValStrnFalse EndGInt %PDefGrup$%nameStrnTextSizePValInt EndGInt %PDefGrup8%nameStrnTextFontEncoInt PValStrnSystem EndGInt %PDefGrup0%nameStrnAutoDeactivate PValStrnTrueEndGInt %PDefGrup0%nameStrnHelpTag EncoInt PValStrnEndGInt %PDefGrup(%nameStrnVisible PValStrnTrueEndGInt %PDefGrup(%nameStrnEnabled PValStrnTrueEndGInt %PDefGrup0%nameStrn Multiline PValStrnFalse EndGInt %PDefGrup(%nameStrn TextColor PValInt EndGInt %PDefGrup(%nameStrn TextAlign PValInt EndGInt %PDefGrup4%nameStrnTextEncoInt PValStrnVolume: EndGInt %PDefGrup$%nameStrnTabIndexPValInt EndGInt %PDefGrup,%nameStrn TabPanelIndex PValInt EndGInt %PDefGrup0%nameStrn LockBottom PValStrnFalse EndGInt %PDefGrup0%nameStrn LockRight PValStrnFalse EndGInt %PDefGrup,%nameStrnLockTop PValStrnFalse EndGInt %PDefGrup(%nameStrnLockLeftPValStrnTrueEndGInt %PDefGrup$%nameStrnHeight PValInt EndGInt %PDefGrup$%nameStrnWidth PValInt GEndGInt %PDefGrup %nameStrnTop PValInt eEndGInt %PDefGrup %nameStrnLeftPValInt !EndGInt %PDefGrup(%nameStrnScope PValStrn0 EndGInt %PDefGrup<%nameStrnSuper EncoInt PValStrn StaticText EndGInt %PDefGrup$&nameStrnIndex PValInt EndGInt &PDefGrup8&nameStrnNameEncoInt PValStrn StaticText2 EndGInt &CBixInt EndGInt %CtrlGrup&cclsStrnSlider nameStrnSlider PDefGrup@&nameStrn InitialParent EncoInt PValStrntpPanel EndGInt &PDefGrup,&nameStrn LiveScroll PValStrnTrueEndGInt &PDefGrup$&nameStrnPageStepPValInt EndGInt &PDefGrup$&nameStrnLineStepPValInt EndGInt &PDefGrup$&nameStrnMaximum PValInt EndGInt &PDefGrup$&nameStrnValue PValInt ZEndGInt &PDefGrup$& nameStrnMinimum PValInt EndGInt & PDefGrup0& nameStrnAutoDeactivate PValStrnTrueEndGInt & PDefGrup0& nameStrnHelpTag EncoInt PValStrnEndGInt & PDefGrup(& nameStrnVisible PValStrnTrueEndGInt & PDefGrup(& nameStrnEnabled PValStrnTrueEndGInt & PDefGrup$&nameStrnTabIndexPValInt EndGInt &PDefGrup,&nameStrn TabPanelIndex PValInt EndGInt &PDefGrup0&nameStrn LockBottom PValStrnFalse EndGInt &PDefGrup,&nameStrn LockRight PValStrnTrueEndGInt &PDefGrup(&nameStrnLockTop PValStrnTrueEndGInt &PDefGrup(&nameStrnLockLeftPValStrnTrueEndGInt &PDefGrup$&nameStrnHeight PValInt EndGInt &PDefGrup$&nameStrnWidth PValInt lEndGInt &PDefGrup &nameStrnTop PValInt fEndGInt &PDefGrup &nameStrnLeftPValInt mEndGInt &PDefGrup(&nameStrnScope PValStrn0 EndGInt &PDefGrup8&nameStrnSuper EncoInt PValStrnSlider EndGInt &PDefGrup$&nameStrnIndex PValInt EndGInt &PDefGrup8&nameStrnNameEncoInt PValStrn sldVolume EndGInt &CBixInt EndGInt &CtrlGrupt&cclsStrn PushButton nameStrn PushButton PDefGrup@&nameStrn InitialParent EncoInt PValStrntpPanel EndGInt &PDefGrup0&nameStrn Underline PValStrnFalse EndGInt &PDefGrup,&nameStrnItalic PValStrnFalse EndGInt &PDefGrup(& nameStrnBoldPValStrnFalse EndGInt & PDefGrup$&!nameStrnTextSizePValInt EndGInt &!PDefGrup8&"nameStrnTextFontEncoInt PValStrnSystem EndGInt &"PDefGrup0&#nameStrnAutoDeactivate PValStrnTrueEndGInt &#PDefGrup0&$nameStrnHelpTag EncoInt PValStrnEndGInt &$PDefGrup(&%nameStrnVisible PValStrnTrueEndGInt &%PDefGrup(&&nameStrnEnabled PValStrnTrueEndGInt &&PDefGrup,&'nameStrnCancel PValStrnFalse EndGInt &'PDefGrup,&(nameStrnDefault PValStrnFalse EndGInt &(PDefGrup@&)nameStrnCaption EncoInt PValStrn Start Program EndGInt &)PDefGrup$&*nameStrnTabIndexPValInt EndGInt &*PDefGrup,&+nameStrn TabPanelIndex PValInt EndGInt &+PDefGrup,&,nameStrn LockBottom PValStrnTrueEndGInt &,PDefGrup,&-nameStrn LockRight PValStrnTrueEndGInt &-PDefGrup,&.nameStrnLockTop PValStrnFalse EndGInt &.PDefGrup(&/nameStrnLockLeftPValStrnTrueEndGInt &/PDefGrup$&0nameStrnHeight PValInt EndGInt &0PDefGrup$&1nameStrnWidth PValInt EndGInt &1PDefGrup &2nameStrnTop PValInt EndGInt &2PDefGrup &3nameStrnLeftPValInt 0EndGInt &3PDefGrup(&4nameStrnScope PValStrn0 EndGInt &4PDefGrup<&5nameStrnSuper EncoInt PValStrn PushButton EndGInt &5PDefGrup$&6nameStrnIndex PValInt EndGInt &6PDefGrup8&7nameStrnNameEncoInt PValStrn btnStartProgEndGInt &7CBixInt EndGInt &CtrlGrupp&8cclsStrn PushButton nameStrn PushButton PDefGrup@&9nameStrn InitialParent EncoInt PValStrntpPanel EndGInt &9PDefGrup0&:nameStrn Underline PValStrnFalse EndGInt &:PDefGrup,&;nameStrnItalic PValStrnFalse EndGInt &;PDefGrup(&nameStrnTextFontEncoInt PValStrnSystem EndGInt &>PDefGrup0&?nameStrnAutoDeactivate PValStrnTrueEndGInt &?PDefGrup0&@nameStrnHelpTag EncoInt PValStrnEndGInt &@PDefGrup(&AnameStrnVisible PValStrnTrueEndGInt &APDefGrup(&BnameStrnEnabled PValStrnTrueEndGInt &BPDefGrup,&CnameStrnCancel PValStrnFalse EndGInt &CPDefGrup,&DnameStrnDefault PValStrnFalse EndGInt &DPDefGrup<&EnameStrnCaption EncoInt PValStrn Stop ProgramEndGInt &EPDefGrup$&FnameStrnTabIndexPValInt EndGInt &FPDefGrup,&GnameStrn TabPanelIndex PValInt EndGInt &GPDefGrup,&HnameStrn LockBottom PValStrnTrueEndGInt &HPDefGrup,&InameStrn LockRight PValStrnTrueEndGInt &IPDefGrup,&JnameStrnLockTop PValStrnFalse EndGInt &JPDefGrup(&KnameStrnLockLeftPValStrnTrueEndGInt &KPDefGrup$&LnameStrnHeight PValInt EndGInt &LPDefGrup$&MnameStrnWidth PValInt EndGInt &MPDefGrup &NnameStrnTop PValInt EndGInt &NPDefGrup &OnameStrnLeftPValInt 0EndGInt &OPDefGrup(&PnameStrnScope PValStrn0 EndGInt &PPDefGrup<&QnameStrnSuper EncoInt PValStrn PushButton EndGInt &QPDefGrup$&RnameStrnIndex PValInt EndGInt &RPDefGrup8&SnameStrnNameEncoInt PValStrn btnStopProg EndGInt &SCBixInt EndGInt &8CtrlGrup&TcclsStrn PopupMenu nameStrn PopupMenu PDefGrup@&UnameStrn InitialParent EncoInt PValStrntpPanel EndGInt &UPDefGrup4&VnameStrn DataField EncoInt PValStrnEndGInt &VPDefGrup4&WnameStrn DataSource EncoInt PValStrnEndGInt &WPDefGrup0&XnameStrn Underline PValStrnFalse EndGInt &XPDefGrup,&YnameStrnItalic PValStrnFalse EndGInt &YPDefGrup(&ZnameStrnBoldPValStrnFalse EndGInt &ZPDefGrup$&[nameStrnTextSizePValInt EndGInt &[PDefGrup8&\nameStrnTextFontEncoInt PValStrnSystem EndGInt &\PDefGrup0&]nameStrnAutoDeactivate PValStrnTrueEndGInt &]PDefGrup0&^nameStrnHelpTag EncoInt PValStrnEndGInt &^PDefGrup(&_nameStrnVisible PValStrnTrueEndGInt &_PDefGrup(&`nameStrn ListIndex PValInt EndGInt &`PDefGruph&anameStrn InitialValueEncoInt PValStrn3Save Program... Warmup BuddaLi1 BuddaLi2 Kopprasch1 EndGInt &aPDefGrup(&bnameStrnEnabled PValStrnTrueEndGInt &bPDefGrup$&cnameStrnTabIndexPValInt EndGInt &cPDefGrup,&dnameStrn TabPanelIndex PValInt EndGInt &dPDefGrup0&enameStrn LockBottom PValStrnFalse EndGInt &ePDefGrup,&fnameStrn LockRight PValStrnTrueEndGInt &fPDefGrup(&gnameStrnLockTop PValStrnTrueEndGInt &gPDefGrup(&hnameStrnLockLeftPValStrnTrueEndGInt &hPDefGrup$&inameStrnHeight PValInt EndGInt &iPDefGrup$&jnameStrnWidth PValInt EndGInt &jPDefGrup &knameStrnTop PValInt &EndGInt &kPDefGrup &lnameStrnLeftPValInt $EndGInt &lPDefGrup(&mnameStrnScope PValStrn0 EndGInt &mPDefGrup<&nnameStrnSuper EncoInt PValStrn PopupMenu EndGInt &nPDefGrup$&onameStrnIndex PValInt EndGInt &oPDefGrup8&pnameStrnNameEncoInt PValStrn popProglist EndGInt &pCBixInt EndGInt &TCtrlGrupH&qcclsStrn StaticText nameStrn StaticText PDefGrup@&rnameStrn InitialParent EncoInt PValStrntpPanel EndGInt &rPDefGrup4&snameStrn DataField EncoInt PValStrnEndGInt &sPDefGrup4&tnameStrn DataSource EncoInt PValStrnEndGInt &tPDefGrup0&unameStrn Underline PValStrnFalse EndGInt &uPDefGrup,&vnameStrnItalic PValStrnFalse EndGInt &vPDefGrup(&wnameStrnBoldPValStrnFalse EndGInt &wPDefGrup$&xnameStrnTextSizePValInt EndGInt &xPDefGrup8&ynameStrnTextFontEncoInt PValStrnSystem EndGInt &yPDefGrup0&znameStrnAutoDeactivate PValStrnTrueEndGInt &zPDefGrup0&{nameStrnHelpTag EncoInt PValStrnEndGInt &{PDefGrup(&|nameStrnVisible PValStrnTrueEndGInt &|PDefGrup(&}nameStrnEnabled PValStrnTrueEndGInt &}PDefGrup0&~nameStrn Multiline PValStrnFalse EndGInt &~PDefGrup(&nameStrn TextColor PValInt EndGInt &PDefGrup(&nameStrn TextAlign PValInt EndGInt &PDefGrup8&nameStrnTextEncoInt PValStrn Note Name: EndGInt &PDefGrup$&nameStrnTabIndexPValInt EndGInt &PDefGrup,&nameStrn TabPanelIndex PValInt EndGInt &PDefGrup0&nameStrn LockBottom PValStrnFalse EndGInt &PDefGrup0&nameStrn LockRight PValStrnFalse EndGInt &PDefGrup(&nameStrnLockTop PValStrnTrueEndGInt &PDefGrup(&nameStrnLockLeftPValStrnTrueEndGInt &PDefGrup$&nameStrnHeight PValInt EndGInt &PDefGrup$&nameStrnWidth PValInt IEndGInt &PDefGrup &nameStrnTop PValInt 'EndGInt &PDefGrup &nameStrnLeftPValInt EndGInt &PDefGrup(&nameStrnScope PValStrn0 EndGInt &PDefGrup<&nameStrnSuper EncoInt PValStrn StaticText EndGInt &PDefGrup$&nameStrnIndex PValInt EndGInt &PDefGrup8&nameStrnNameEncoInt PValStrn StaticText5 EndGInt &CBixInt EndGInt &qCtrlGrup&cclsStrnCheckBoxnameStrnCheckBoxPDefGrup@&nameStrn InitialParent EncoInt PValStrntpPanel EndGInt &PDefGrup4&nameStrn DataField EncoInt PValStrnEndGInt &PDefGrup4&nameStrn DataSource EncoInt PValStrnEndGInt &PDefGrup(&nameStrnValue PValStrnTrueEndGInt &PDefGrup0&nameStrn Underline PValStrnFalse EndGInt &PDefGrup,&nameStrnItalic PValStrnFalse EndGInt &PDefGrup(&nameStrnBoldPValStrnFalse EndGInt &PDefGrup$&nameStrnTextSizePValInt EndGInt &PDefGrup8&nameStrnTextFontEncoInt PValStrnSystem EndGInt &PDefGrup0&nameStrnAutoDeactivate PValStrnTrueEndGInt &PDefGrup0&nameStrnHelpTag EncoInt PValStrnEndGInt &PDefGrup(&nameStrnVisible PValStrnTrueEndGInt &PDefGrup(&nameStrnEnabled PValStrnTrueEndGInt &PDefGrup8&nameStrnCaption EncoInt PValStrnOctave 1EndGInt &PDefGrup$&nameStrnTabIndexPValInt EndGInt &PDefGrup,&nameStrn TabPanelIndex PValInt EndGInt &PDefGrup0&nameStrn LockBottom PValStrnFalse EndGInt &PDefGrup0&nameStrn LockRight PValStrnFalse EndGInt &PDefGrup(&nameStrnLockTop PValStrnTrueEndGInt &PDefGrup(&nameStrnLockLeftPValStrnTrueEndGInt &PDefGrup$&nameStrnHeight PValInt EndGInt &PDefGrup$&nameStrnWidth PValInt EEndGInt &PDefGrup &nameStrnTop PValInt EndGInt &PDefGrup &nameStrnLeftPValInt !EndGInt &PDefGrup(&nameStrnScope PValStrn0 EndGInt &PDefGrup8&nameStrnSuper EncoInt PValStrnCheckBoxEndGInt &PDefGrup$&nameStrnIndex PValInt EndGInt &PDefGrup8&nameStrnNameEncoInt PValStrn chkOctave EndGInt &CBixInt EndGInt &CtrlGrup&cclsStrnCheckBoxnameStrnCheckBoxPDefGrup@&nameStrn InitialParent EncoInt PValStrntpPanel EndGInt &PDefGrup4&nameStrn DataField EncoInt PValStrnEndGInt &PDefGrup4&nameStrn DataSource EncoInt PValStrnEndGInt &PDefGrup(&nameStrnValue PValStrnTrueEndGInt &PDefGrup0&nameStrn Underline PValStrnFalse EndGInt &PDefGrup,&nameStrnItalic PValStrnFalse EndGInt &PDefGrup(&nameStrnBoldPValStrnFalse EndGInt &PDefGrup$&nameStrnTextSizePValInt EndGInt &PDefGrup8&nameStrnTextFontEncoInt PValStrnSystem EndGInt &PDefGrup0&nameStrnAutoDeactivate PValStrnTrueEndGInt &PDefGrup0&nameStrnHelpTag EncoInt PValStrnEndGInt &PDefGrup(&nameStrnVisible PValStrnTrueEndGInt &PDefGrup(&nameStrnEnabled PValStrnTrueEndGInt &PDefGrup8&nameStrnCaption EncoInt PValStrnOctave 1EndGInt &PDefGrup$&nameStrnTabIndexPValInt EndGInt &PDefGrup,&nameStrn TabPanelIndex PValInt EndGInt &PDefGrup0&nameStrn LockBottom PValStrnFalse EndGInt &PDefGrup0&nameStrn LockRight PValStrnFalse EndGInt &PDefGrup(&nameStrnLockTop PValStrnTrueEndGInt &PDefGrup(&nameStrnLockLeftPValStrnTrueEndGInt &PDefGrup$&nameStrnHeight PValInt EndGInt &PDefGrup$&nameStrnWidth PValInt EEndGInt &PDefGrup &nameStrnTop PValInt EndGInt &PDefGrup &nameStrnLeftPValInt mEndGInt &PDefGrup(&nameStrnScope PValStrn0 EndGInt &PDefGrup8&nameStrnSuper EncoInt PValStrnCheckBoxEndGInt &PDefGrup$&nameStrnIndex PValInt EndGInt &PDefGrup8&nameStrnNameEncoInt PValStrn chkOctave EndGInt &CBixInt EndGInt &CtrlGrup&cclsStrnCheckBoxnameStrnCheckBoxPDefGrup@&nameStrn InitialParent EncoInt PValStrntpPanel EndGInt &PDefGrup4&nameStrn DataField EncoInt PValStrnEndGInt &PDefGrup4&nameStrn DataSource EncoInt PValStrnEndGInt &PDefGrup(&nameStrnValue PValStrnTrueEndGInt &PDefGrup0&nameStrn Underline PValStrnFalse EndGInt &PDefGrup,&nameStrnItalic PValStrnFalse EndGInt &PDefGrup(&nameStrnBoldPValStrnFalse EndGInt &PDefGrup$&nameStrnTextSizePValInt EndGInt &PDefGrup8&nameStrnTextFontEncoInt PValStrnSystem EndGInt &PDefGrup0&nameStrnAutoDeactivate PValStrnTrueEndGInt &PDefGrup0&nameStrnHelpTag EncoInt PValStrnEndGInt &PDefGrup(&nameStrnVisible PValStrnTrueEndGInt &PDefGrup(&nameStrnEnabled PValStrnTrueEndGInt &PDefGrup8&nameStrnCaption EncoInt PValStrnOctave 1EndGInt &PDefGrup$&nameStrnTabIndexPValInt EndGInt &PDefGrup,&nameStrn TabPanelIndex PValInt EndGInt &PDefGrup0&nameStrn LockBottom PValStrnFalse EndGInt &PDefGrup0&nameStrn LockRight PValStrnFalse EndGInt &PDefGrup(&nameStrnLockTop PValStrnTrueEndGInt &PDefGrup(&nameStrnLockLeftPValStrnTrueEndGInt &PDefGrup$&nameStrnHeight PValInt EndGInt &PDefGrup$&nameStrnWidth PValInt EEndGInt &PDefGrup &nameStrnTop PValInt EndGInt &PDefGrup &nameStrnLeftPValInt !EndGInt &PDefGrup(&nameStrnScope PValStrn0 EndGInt &PDefGrup8&nameStrnSuper EncoInt PValStrnCheckBoxEndGInt &PDefGrup$&nameStrnIndex PValInt EndGInt &PDefGrup8&nameStrnNameEncoInt PValStrn chkOctave EndGInt &CBixInt EndGInt &CtrlGrup&cclsStrnCheckBoxnameStrnCheckBoxPDefGrup@&nameStrn InitialParent EncoInt PValStrntpPanel EndGInt &PDefGrup4&nameStrn DataField EncoInt PValStrnEndGInt &PDefGrup4&nameStrn DataSource EncoInt PValStrnEndGInt &PDefGrup(&nameStrnValue PValStrnTrueEndGInt &PDefGrup0&nameStrn Underline PValStrnFalse EndGInt &PDefGrup,&nameStrnItalic PValStrnFalse EndGInt &PDefGrup(&nameStrnBoldPValStrnFalse EndGInt &PDefGrup$&nameStrnTextSizePValInt EndGInt &PDefGrup8&nameStrnTextFontEncoInt PValStrnSystem EndGInt &PDefGrup0&nameStrnAutoDeactivate PValStrnTrueEndGInt &PDefGrup0&nameStrnHelpTag EncoInt PValStrnEndGInt &PDefGrup(&nameStrnVisible PValStrnTrueEndGInt &PDefGrup(&nameStrnEnabled PValStrnTrueEndGInt &PDefGrup8&nameStrnCaption EncoInt PValStrnOctave 1EndGInt &PDefGrup$&nameStrnTabIndexPValInt EndGInt &PDefGrup,&nameStrn TabPanelIndex PValInt EndGInt &PDefGrup0&nameStrn LockBottom PValStrnFalse EndGInt &PDefGrup0&nameStrn LockRight PValStrnFalse EndGInt &PDefGrup(&nameStrnLockTop PValStrnTrueEndGInt &PDefGrup(&nameStrnLockLeftPValStrnTrueEndGInt &PDefGrup$&nameStrnHeight PValInt EndGInt &PDefGrup$&nameStrnWidth PValInt EEndGInt &PDefGrup &nameStrnTop PValInt EndGInt &PDefGrup &nameStrnLeftPValInt mEndGInt &PDefGrup('nameStrnScope PValStrn0 EndGInt 'PDefGrup8'nameStrnSuper EncoInt PValStrnCheckBoxEndGInt 'PDefGrup$'nameStrnIndex PValInt EndGInt 'PDefGrup8'nameStrnNameEncoInt PValStrn chkOctave EndGInt 'CBixInt EndGInt &CtrlGrup'cclsStrnCheckBoxnameStrnCheckBoxPDefGrup@'nameStrn InitialParent EncoInt PValStrntpPanel EndGInt 'PDefGrup4'nameStrn DataField EncoInt PValStrnEndGInt 'PDefGrup4'nameStrn DataSource EncoInt PValStrnEndGInt 'PDefGrup('nameStrnValue PValStrnTrueEndGInt 'PDefGrup0' nameStrn Underline PValStrnFalse EndGInt ' PDefGrup,' nameStrnItalic PValStrnFalse EndGInt ' PDefGrup(' nameStrnBoldPValStrnFalse EndGInt ' PDefGrup$' nameStrnTextSizePValInt EndGInt ' PDefGrup8' nameStrnTextFontEncoInt PValStrnSystem EndGInt ' PDefGrup0'nameStrnAutoDeactivate PValStrnTrueEndGInt 'PDefGrup0'nameStrnHelpTag EncoInt PValStrnEndGInt 'PDefGrup('nameStrnVisible PValStrnTrueEndGInt 'PDefGrup('nameStrnEnabled PValStrnTrueEndGInt 'PDefGrup8'nameStrnCaption EncoInt PValStrnOctave 1EndGInt 'PDefGrup$'nameStrnTabIndexPValInt EndGInt 'PDefGrup,'nameStrn TabPanelIndex PValInt EndGInt 'PDefGrup0'nameStrn LockBottom PValStrnFalse EndGInt 'PDefGrup0'nameStrn LockRight PValStrnFalse EndGInt 'PDefGrup('nameStrnLockTop PValStrnTrueEndGInt 'PDefGrup('nameStrnLockLeftPValStrnTrueEndGInt 'PDefGrup$'nameStrnHeight PValInt EndGInt 'PDefGrup$'nameStrnWidth PValInt EEndGInt 'PDefGrup 'nameStrnTop PValInt EndGInt 'PDefGrup 'nameStrnLeftPValInt !EndGInt 'PDefGrup('nameStrnScope PValStrn0 EndGInt 'PDefGrup8'nameStrnSuper EncoInt PValStrnCheckBoxEndGInt 'PDefGrup$'nameStrnIndex PValInt EndGInt 'PDefGrup8' nameStrnNameEncoInt PValStrn chkOctave EndGInt ' CBixInt EndGInt 'CtrlGrup'!cclsStrnCheckBoxnameStrnCheckBoxPDefGrup@'"nameStrn InitialParent EncoInt PValStrntpPanel EndGInt '"PDefGrup4'#nameStrn DataField EncoInt PValStrnEndGInt '#PDefGrup4'$nameStrn DataSource EncoInt PValStrnEndGInt '$PDefGrup,'%nameStrnValue PValStrnFalse EndGInt '%PDefGrup0'&nameStrn Underline PValStrnFalse EndGInt '&PDefGrup,''nameStrnItalic PValStrnFalse EndGInt ''PDefGrup('(nameStrnBoldPValStrnFalse EndGInt '(PDefGrup$')nameStrnTextSizePValInt EndGInt ')PDefGrup8'*nameStrnTextFontEncoInt PValStrnSystem EndGInt '*PDefGrup0'+nameStrnAutoDeactivate PValStrnTrueEndGInt '+PDefGrup0',nameStrnHelpTag EncoInt PValStrnEndGInt ',PDefGrup('-nameStrnVisible PValStrnTrueEndGInt '-PDefGrup('.nameStrnEnabled PValStrnTrueEndGInt '.PDefGrup8'/nameStrnCaption EncoInt PValStrnOctave 1EndGInt '/PDefGrup$'0nameStrnTabIndexPValInt EndGInt '0PDefGrup,'1nameStrn TabPanelIndex PValInt EndGInt '1PDefGrup0'2nameStrn LockBottom PValStrnFalse EndGInt '2PDefGrup0'3nameStrn LockRight PValStrnFalse EndGInt '3PDefGrup('4nameStrnLockTop PValStrnTrueEndGInt '4PDefGrup('5nameStrnLockLeftPValStrnTrueEndGInt '5PDefGrup$'6nameStrnHeight PValInt EndGInt '6PDefGrup$'7nameStrnWidth PValInt EEndGInt '7PDefGrup '8nameStrnTop PValInt EndGInt '8PDefGrup '9nameStrnLeftPValInt mEndGInt '9PDefGrup(':nameStrnScope PValStrn0 EndGInt ':PDefGrup8';nameStrnSuper EncoInt PValStrnCheckBoxEndGInt ';PDefGrup$'cclsStrn StaticText nameStrn StaticText PDefGrup@'?nameStrn InitialParent EncoInt PValStrntpPanel EndGInt '?PDefGrup4'@nameStrn DataField EncoInt PValStrnEndGInt '@PDefGrup4'AnameStrn DataSource EncoInt PValStrnEndGInt 'APDefGrup0'BnameStrn Underline PValStrnFalse EndGInt 'BPDefGrup,'CnameStrnItalic PValStrnFalse EndGInt 'CPDefGrup('DnameStrnBoldPValStrnFalse EndGInt 'DPDefGrup$'EnameStrnTextSizePValInt EndGInt 'EPDefGrup8'FnameStrnTextFontEncoInt PValStrnSystem EndGInt 'FPDefGrup0'GnameStrnAutoDeactivate PValStrnTrueEndGInt 'GPDefGrup0'HnameStrnHelpTag EncoInt PValStrnEndGInt 'HPDefGrup('InameStrnVisible PValStrnTrueEndGInt 'IPDefGrup('JnameStrnEnabled PValStrnTrueEndGInt 'JPDefGrup0'KnameStrn Multiline PValStrnFalse EndGInt 'KPDefGrup('LnameStrn TextColor PValInt EndGInt 'LPDefGrup('MnameStrn TextAlign PValInt EndGInt 'MPDefGrup8'NnameStrnTextEncoInt PValStrn Transpose: EndGInt 'NPDefGrup$'OnameStrnTabIndexPValInt EndGInt 'OPDefGrup,'PnameStrn TabPanelIndex PValInt EndGInt 'PPDefGrup0'QnameStrn LockBottom PValStrnFalse EndGInt 'QPDefGrup0'RnameStrn LockRight PValStrnFalse EndGInt 'RPDefGrup('SnameStrnLockTop PValStrnTrueEndGInt 'SPDefGrup('TnameStrnLockLeftPValStrnTrueEndGInt 'TPDefGrup$'UnameStrnHeight PValInt EndGInt 'UPDefGrup$'VnameStrnWidth PValInt EEndGInt 'VPDefGrup 'WnameStrnTop PValInt FEndGInt 'WPDefGrup 'XnameStrnLeftPValInt EndGInt 'XPDefGrup('YnameStrnScope PValStrn0 EndGInt 'YPDefGrup<'ZnameStrnSuper EncoInt PValStrn StaticText EndGInt 'ZPDefGrup$'[nameStrnIndex PValInt EndGInt '[PDefGrup8'\nameStrnNameEncoInt PValStrn StaticText1 EndGInt '\CBixInt EndGInt '>CtrlGrup p']cclsStrn EditField nameStrn EditField PDefGrup@'^nameStrn InitialParent EncoInt PValStrntpPanel EndGInt '^PDefGrup4'_nameStrn DataField EncoInt PValStrnEndGInt '_PDefGrup4'`nameStrn DataSource EncoInt PValStrnEndGInt '`PDefGrup('anameStrn Alignment PValInt EndGInt 'aPDefGrup0'bnameStrn AcceptTabs PValStrnFalse EndGInt 'bPDefGrup('cnameStrn LimitText PValInt EndGInt 'cPDefGrup,'dnameStrnReadOnlyPValStrnFalse EndGInt 'dPDefGrup,'enameStrnMaskEncoInt PValStrnEndGInt 'ePDefGrup,'fnameStrnTextEncoInt PValStrnEndGInt 'fPDefGrup0'gnameStrn Underline PValStrnFalse EndGInt 'gPDefGrup,'hnameStrnItalic PValStrnFalse EndGInt 'hPDefGrup('inameStrnBoldPValStrnFalse EndGInt 'iPDefGrup$'jnameStrnTextSizePValInt EndGInt 'jPDefGrup8'knameStrnTextFontEncoInt PValStrnSystem EndGInt 'kPDefGrup0'lnameStrnAutoDeactivate PValStrnTrueEndGInt 'lPDefGrup0'mnameStrnHelpTag EncoInt PValStrnEndGInt 'mPDefGrup('nnameStrnVisible PValStrnTrueEndGInt 'nPDefGrup0'onameStrnFormat EncoInt PValStrnEndGInt 'oPDefGrup('pnameStrnEnabled PValStrnTrueEndGInt 'pPDefGrup('qnameStrn BackColor PValInt EndGInt 'qPDefGrup('rnameStrn TextColor PValInt EndGInt 'rPDefGrup,'snameStrn UseFocusRingPValStrnTrueEndGInt 'sPDefGrup,'tnameStrnPasswordPValStrnFalse EndGInt 'tPDefGrup,'unameStrnStyled PValStrnFalse EndGInt 'uPDefGrup4'vnameStrnScrollbarVertical PValStrnTrueEndGInt 'vPDefGrup8'wnameStrnScrollbarHorizontal PValStrnFalse EndGInt 'wPDefGrup,'xnameStrn Multiline PValStrnTrueEndGInt 'xPDefGrup('ynameStrnBorder PValStrnTrueEndGInt 'yPDefGrup$'znameStrnTabIndexPValInt EndGInt 'zPDefGrup,'{nameStrn TabPanelIndex PValInt EndGInt '{PDefGrup,'|nameStrn LockBottom PValStrnTrueEndGInt '|PDefGrup,'}nameStrn LockRight PValStrnTrueEndGInt '}PDefGrup('~nameStrnLockTop PValStrnTrueEndGInt '~PDefGrup('nameStrnLockLeftPValStrnTrueEndGInt 'PDefGrup$'nameStrnHeight PValInt EndGInt 'PDefGrup$'nameStrnWidth PValInt EndGInt 'PDefGrup 'nameStrnTop PValInt EEndGInt 'PDefGrup 'nameStrnLeftPValInt $EndGInt 'PDefGrup('nameStrnScope PValStrn0 EndGInt 'PDefGrup<'nameStrnSuper EncoInt PValStrn EditField EndGInt 'PDefGrup$'nameStrnIndex PValInt EndGInt 'PDefGrup8'nameStrnNameEncoInt PValStrn edProgram EndGInt 'CBixInt EndGInt ']CtrlGrup |'cclsStrn EditField nameStrn EditField PDefGrup@'nameStrn InitialParent EncoInt PValStrntpPanel EndGInt 'PDefGrup4'nameStrn DataField EncoInt PValStrnEndGInt 'PDefGrup4'nameStrn DataSource EncoInt PValStrnEndGInt 'PDefGrup('nameStrn Alignment PValInt EndGInt 'PDefGrup0'nameStrn AcceptTabs PValStrnFalse EndGInt 'PDefGrup('nameStrn LimitText PValInt EndGInt 'PDefGrup,'nameStrnReadOnlyPValStrnFalse EndGInt 'PDefGrup,'nameStrnMaskEncoInt PValStrnEndGInt 'PDefGrup0'nameStrnTextEncoInt PValStrnC EndGInt 'PDefGrup0'nameStrn Underline PValStrnFalse EndGInt 'PDefGrup,'nameStrnItalic PValStrnFalse EndGInt 'PDefGrup('nameStrnBoldPValStrnFalse EndGInt 'PDefGrup$'nameStrnTextSizePValInt EndGInt 'PDefGrup8'nameStrnTextFontEncoInt PValStrnSystem EndGInt 'PDefGrup0'nameStrnAutoDeactivate PValStrnTrueEndGInt 'PDefGrup0'nameStrnHelpTag EncoInt PValStrnEndGInt 'PDefGrup('nameStrnVisible PValStrnTrueEndGInt 'PDefGrup0'nameStrnFormat EncoInt PValStrnEndGInt 'PDefGrup('nameStrnEnabled PValStrnTrueEndGInt 'PDefGrup('nameStrn BackColor PValInt EndGInt 'PDefGrup('nameStrn TextColor PValInt EndGInt 'PDefGrup,'nameStrn UseFocusRingPValStrnTrueEndGInt 'PDefGrup,'nameStrnPasswordPValStrnFalse EndGInt 'PDefGrup,'nameStrnStyled PValStrnFalse EndGInt 'PDefGrup4'nameStrnScrollbarVertical PValStrnTrueEndGInt 'PDefGrup8'nameStrnScrollbarHorizontal PValStrnFalse EndGInt 'PDefGrup0'nameStrn Multiline PValStrnFalse EndGInt 'PDefGrup('nameStrnBorder PValStrnTrueEndGInt 'PDefGrup$'nameStrnTabIndexPValInt EndGInt 'PDefGrup,'nameStrn TabPanelIndex PValInt EndGInt 'PDefGrup0'nameStrn LockBottom PValStrnFalse EndGInt 'PDefGrup0'nameStrn LockRight PValStrnFalse EndGInt 'PDefGrup('nameStrnLockTop PValStrnTrueEndGInt 'PDefGrup('nameStrnLockLeftPValStrnTrueEndGInt 'PDefGrup$'nameStrnHeight PValInt EndGInt 'PDefGrup$'nameStrnWidth PValInt 7EndGInt 'PDefGrup 'nameStrnTop PValInt &EndGInt 'PDefGrup 'nameStrnLeftPValInt mEndGInt 'PDefGrup('nameStrnScope PValStrn0 EndGInt 'PDefGrup<'nameStrnSuper EncoInt PValStrn EditField EndGInt 'PDefGrup$'nameStrnIndex PValInt EndGInt 'PDefGrup4'nameStrnNameEncoInt PValStrnedNote EndGInt 'CBixInt EndGInt 'CtrlGrup 'cclsStrn EditField nameStrn EditField PDefGrup@'nameStrn InitialParent EncoInt PValStrntpPanel EndGInt 'PDefGrup4'nameStrn DataField EncoInt PValStrnEndGInt 'PDefGrup4'nameStrn DataSource EncoInt PValStrnEndGInt 'PDefGrup('nameStrn Alignment PValInt EndGInt 'PDefGrup0'nameStrn AcceptTabs PValStrnFalse EndGInt 'PDefGrup('nameStrn LimitText PValInt EndGInt 'PDefGrup,'nameStrnReadOnlyPValStrnFalse EndGInt 'PDefGrup,'nameStrnMaskEncoInt PValStrnEndGInt 'PDefGrup0'nameStrnTextEncoInt PValStrn5 EndGInt 'PDefGrup0'nameStrn Underline PValStrnFalse EndGInt 'PDefGrup,'nameStrnItalic PValStrnFalse EndGInt 'PDefGrup('nameStrnBoldPValStrnFalse EndGInt 'PDefGrup$'nameStrnTextSizePValInt EndGInt 'PDefGrup8'nameStrnTextFontEncoInt PValStrnSystem EndGInt 'PDefGrup0'nameStrnAutoDeactivate PValStrnTrueEndGInt 'PDefGrup0'nameStrnHelpTag EncoInt PValStrnEndGInt 'PDefGrup('nameStrnVisible PValStrnTrueEndGInt 'PDefGrup0'nameStrnFormat EncoInt PValStrnEndGInt 'PDefGrup('nameStrnEnabled PValStrnTrueEndGInt 'PDefGrup('nameStrn BackColor PValInt EndGInt 'PDefGrup('nameStrn TextColor PValInt EndGInt 'PDefGrup,'nameStrn UseFocusRingPValStrnTrueEndGInt 'PDefGrup,'nameStrnPasswordPValStrnFalse EndGInt 'PDefGrup,'nameStrnStyled PValStrnFalse EndGInt 'PDefGrup4'nameStrnScrollbarVertical PValStrnTrueEndGInt 'PDefGrup8'nameStrnScrollbarHorizontal PValStrnFalse EndGInt 'PDefGrup0'nameStrn Multiline PValStrnFalse EndGInt 'PDefGrup('nameStrnBorder PValStrnTrueEndGInt 'PDefGrup$'nameStrnTabIndexPValInt EndGInt 'PDefGrup,'nameStrn TabPanelIndex PValInt EndGInt 'PDefGrup0'nameStrn LockBottom PValStrnFalse EndGInt 'PDefGrup0'nameStrn LockRight PValStrnFalse EndGInt 'PDefGrup('nameStrnLockTop PValStrnTrueEndGInt 'PDefGrup('nameStrnLockLeftPValStrnTrueEndGInt 'PDefGrup$'nameStrnHeight PValInt EndGInt 'PDefGrup$'nameStrnWidth PValInt 7EndGInt 'PDefGrup 'nameStrnTop PValInt FEndGInt 'PDefGrup 'nameStrnLeftPValInt mEndGInt 'PDefGrup('nameStrnScope PValStrn0 EndGInt 'PDefGrup<'nameStrnSuper EncoInt PValStrn EditField EndGInt 'PDefGrup$'nameStrnIndex PValInt EndGInt 'PDefGrup8'nameStrnNameEncoInt PValStrn edTranspose EndGInt 'CBixInt EndGInt 'CtrlGrup 'cclsStrn PopupMenu nameStrn PopupMenu PDefGrup@'nameStrn InitialParent EncoInt PValStrntpPanel EndGInt 'PDefGrup4'nameStrn DataField EncoInt PValStrnEndGInt 'PDefGrup4'nameStrn DataSource EncoInt PValStrnEndGInt 'PDefGrup0'nameStrn Underline PValStrnFalse EndGInt 'PDefGrup,'nameStrnItalic PValStrnFalse EndGInt 'PDefGrup('nameStrnBoldPValStrnFalse EndGInt 'PDefGrup$'nameStrnTextSizePValInt EndGInt 'PDefGrup8'nameStrnTextFontEncoInt PValStrnSystem EndGInt 'PDefGrup0'nameStrnAutoDeactivate PValStrnTrueEndGInt 'PDefGrup0'nameStrnHelpTag EncoInt PValStrnEndGInt 'PDefGrup('nameStrnVisible PValStrnTrueEndGInt 'PDefGrup('nameStrn ListIndex PValInt EndGInt 'PDefGrup|'nameStrn InitialValueEncoInt PValStrnGGrand Piano Bright Piano Electric Piano Honky Tonk Piano Rhodes Piano Chorused Piano Harpsichord Clavinet Celesta Glockenspiel Music Box Vibraphone Marimba Xylophone Tubular Bells Dulcimer Hammond Organ Percussion Organ Rock Organ Church Organ Reed Organ Accordion Harmonica Tango Accordion Guitar (nylon) Guitar (steel) E Guitar (jazz) E Guitar (clean) E Guitar (muted) Overdriven Guitar Distortion Guitar Guitar Harmonics Acoustic Bass Electric Bass fingered Electric Bass picked Fretless Bass Slap Bass 1 Slap Bass 2 Synth Bass 1 Synth Bass 2 Violin Viola Cello Contrabass Tremolo Strings Pizzicato Strings Orchestral Harp Timpani String Ensemble 1 String Ensemble 2 Synth Strings 1 Synth Strings 2 Choir Aahs Voice Oohs Synth Voice Orchestra Hit Trumpet Trombone Tuba Muted Trumpet French Horn Brass Section Synth Brass 1 Synth Brass 2 Soprano Sax Alto Sax Tenor Sax Baritone Sax Oboe English Horn Bassoon Clarinet Piccolo Flute Recorder Pan Flute Blown Bottle Shakuhachi Whistle Ocarina Lead 1 (square) Lead 2 (sawtooth) Lead 3 (calliope) Lead 4 (chiff) Lead 5 (charang) Lead 6 (voice) Lead 7 (fifths) Lead 8 (bass+lead) Pad 1 (new age) Pad 2 (warm) Pad 3 (polysynth) Pad 4 (choir) Pad 5 (bowed) Pad 6 (metallic) Pad 7 (halo) Pad 8 (sweep) FX 1 (rain) FX 2 (soundtrack) FX 3 (crystal) FX 4 (atmosphere) FX 5 (brightness) FX 6 (goblins) FX 7 (echoes) FX 8 (sci-fi) Sitar Banjo Shamisen Koto Kalimba Bagpipe Fiddle Shanai Tinkle Bell Agogo Steel Drums Woodblock Taiko Drum Melodic Tom Synth Drum Reverse Cymbal Guitar Fret Noise Breath Noise Seashore Bird Tweet Telephone Ring Helicopter Applause Gunshot EndGInt 'PDefGrup('nameStrnEnabled PValStrnTrueEndGInt 'PDefGrup$'nameStrnTabIndexPValInt EndGInt 'PDefGrup,'nameStrn TabPanelIndex PValInt EndGInt 'PDefGrup0'nameStrn LockBottom PValStrnFalse EndGInt 'PDefGrup,'nameStrn LockRight PValStrnTrueEndGInt 'PDefGrup('nameStrnLockTop PValStrnTrueEndGInt 'PDefGrup('nameStrnLockLeftPValStrnTrueEndGInt 'PDefGrup$'nameStrnHeight PValInt EndGInt 'PDefGrup$'nameStrnWidth PValInt EndGInt 'PDefGrup 'nameStrnTop PValInt =EndGInt 'PDefGrup 'nameStrnLeftPValInt !EndGInt 'PDefGrup('nameStrnScope PValStrn0 EndGInt 'PDefGrup<'nameStrnSuper EncoInt PValStrn PopupMenu EndGInt 'PDefGrup$'nameStrnIndex PValInt EndGInt 'PDefGrup4'nameStrnNameEncoInt PValStrnlstVoiceEndGInt 'CBixInt EndGInt 'CtrlGrupH'cclsStrn StaticText nameStrn StaticText PDefGrup@'nameStrn InitialParent EncoInt PValStrntpPanel EndGInt 'PDefGrup4'nameStrn DataField EncoInt PValStrnEndGInt 'PDefGrup4'nameStrn DataSource EncoInt PValStrnEndGInt 'PDefGrup0'nameStrn Underline PValStrnFalse EndGInt 'PDefGrup,(nameStrnItalic PValStrnFalse EndGInt (PDefGrup((nameStrnBoldPValStrnFalse EndGInt (PDefGrup$(nameStrnTextSizePValInt EndGInt (PDefGrup8(nameStrnTextFontEncoInt PValStrnSystem EndGInt (PDefGrup0(nameStrnAutoDeactivate PValStrnTrueEndGInt (PDefGrup0(nameStrnHelpTag EncoInt PValStrnEndGInt (PDefGrup((nameStrnVisible PValStrnTrueEndGInt (PDefGrup((nameStrnEnabled PValStrnTrueEndGInt (PDefGrup0(nameStrn Multiline PValStrnFalse EndGInt (PDefGrup(( nameStrn TextColor PValInt EndGInt ( PDefGrup(( nameStrn TextAlign PValInt EndGInt ( PDefGrup8( nameStrnTextEncoInt PValStrn Instrument: EndGInt ( PDefGrup$( nameStrnTabIndexPValInt EndGInt ( PDefGrup,( nameStrn TabPanelIndex PValInt EndGInt ( PDefGrup0(nameStrn LockBottom PValStrnFalse EndGInt (PDefGrup0(nameStrn LockRight PValStrnFalse EndGInt (PDefGrup((nameStrnLockTop PValStrnTrueEndGInt (PDefGrup((nameStrnLockLeftPValStrnTrueEndGInt (PDefGrup$(nameStrnHeight PValInt EndGInt (PDefGrup$(nameStrnWidth PValInt QEndGInt (PDefGrup (nameStrnTop PValInt %EndGInt (PDefGrup (nameStrnLeftPValInt $EndGInt (PDefGrup((nameStrnScope PValStrn0 EndGInt (PDefGrup<(nameStrnSuper EncoInt PValStrn StaticText EndGInt (PDefGrup$(nameStrnIndex PValInt EndGInt (PDefGrup8(nameStrnNameEncoInt PValStrn StaticText3 EndGInt (CBixInt EndGInt 'CtrlGrupD(cclsStrn StaticText nameStrn StaticText PDefGrup@(nameStrn InitialParent EncoInt PValStrntpPanel EndGInt (PDefGrup4(nameStrn DataField EncoInt PValStrnEndGInt (PDefGrup4(nameStrn DataSource EncoInt PValStrnEndGInt (PDefGrup0(nameStrn Underline PValStrnFalse EndGInt (PDefGrup,(nameStrnItalic PValStrnFalse EndGInt (PDefGrup(( nameStrnBoldPValStrnFalse EndGInt ( PDefGrup$(!nameStrnTextSizePValInt EndGInt (!PDefGrup8("nameStrnTextFontEncoInt PValStrnSystem EndGInt ("PDefGrup0(#nameStrnAutoDeactivate PValStrnTrueEndGInt (#PDefGrup0($nameStrnHelpTag EncoInt PValStrnEndGInt ($PDefGrup((%nameStrnVisible PValStrnTrueEndGInt (%PDefGrup((&nameStrnEnabled PValStrnTrueEndGInt (&PDefGrup0('nameStrn Multiline PValStrnFalse EndGInt ('PDefGrup(((nameStrn TextColor PValInt EndGInt ((PDefGrup(()nameStrn TextAlign PValInt EndGInt ()PDefGrup4(*nameStrnTextEncoInt PValStrnTuning: EndGInt (*PDefGrup$(+nameStrnTabIndexPValInt EndGInt (+PDefGrup,(,nameStrn TabPanelIndex PValInt EndGInt (,PDefGrup0(-nameStrn LockBottom PValStrnFalse EndGInt (-PDefGrup0(.nameStrn LockRight PValStrnFalse EndGInt (.PDefGrup((/nameStrnLockTop PValStrnTrueEndGInt (/PDefGrup((0nameStrnLockLeftPValStrnTrueEndGInt (0PDefGrup$(1nameStrnHeight PValInt EndGInt (1PDefGrup$(2nameStrnWidth PValInt QEndGInt (2PDefGrup (3nameStrnTop PValInt qEndGInt (3PDefGrup (4nameStrnLeftPValInt $EndGInt (4PDefGrup((5nameStrnScope PValStrn0 EndGInt (5PDefGrup<(6nameStrnSuper EncoInt PValStrn StaticText EndGInt (6PDefGrup$(7nameStrnIndex PValInt EndGInt (7PDefGrup8(8nameStrnNameEncoInt PValStrn StaticText4 EndGInt (8CBixInt EndGInt (CtrlGrup(9cclsStrnSlider nameStrnSlider PDefGrup@(:nameStrn InitialParent EncoInt PValStrntpPanel EndGInt (:PDefGrup,(;nameStrn LiveScroll PValStrnTrueEndGInt (;PDefGrup$(nameStrnMaximum PValInt EndGInt (>PDefGrup$(?nameStrnValue PValInt EndGInt (?PDefGrup$(@nameStrnMinimum PValInt EndGInt (@PDefGrup0(AnameStrnAutoDeactivate PValStrnTrueEndGInt (APDefGrup0(BnameStrnHelpTag EncoInt PValStrnEndGInt (BPDefGrup((CnameStrnVisible PValStrnTrueEndGInt (CPDefGrup((DnameStrnEnabled PValStrnTrueEndGInt (DPDefGrup$(EnameStrnTabIndexPValInt EndGInt (EPDefGrup,(FnameStrn TabPanelIndex PValInt EndGInt (FPDefGrup0(GnameStrn LockBottom PValStrnFalse EndGInt (GPDefGrup,(HnameStrn LockRight PValStrnTrueEndGInt (HPDefGrup((InameStrnLockTop PValStrnTrueEndGInt (IPDefGrup((JnameStrnLockLeftPValStrnTrueEndGInt (JPDefGrup$(KnameStrnHeight PValInt EndGInt (KPDefGrup$(LnameStrnWidth PValInt EndGInt (LPDefGrup (MnameStrnTop PValInt EndGInt (MPDefGrup (NnameStrnLeftPValInt "EndGInt (NPDefGrup((OnameStrnScope PValStrn0 EndGInt (OPDefGrup8(PnameStrnSuper EncoInt PValStrnSlider EndGInt (PPDefGrup$(QnameStrnIndex PValInt EndGInt (QPDefGrup4(RnameStrnNameEncoInt PValStrnsldTune EndGInt (RCBixInt EndGInt (9CtrlGrup x(ScclsStrn EditField nameStrn EditField PDefGrup@(TnameStrn InitialParent EncoInt PValStrntpPanel EndGInt (TPDefGrup4(UnameStrn DataField EncoInt PValStrnEndGInt (UPDefGrup4(VnameStrn DataSource EncoInt PValStrnEndGInt (VPDefGrup((WnameStrn Alignment PValInt EndGInt (WPDefGrup0(XnameStrn AcceptTabs PValStrnFalse EndGInt (XPDefGrup((YnameStrn LimitText PValInt EndGInt (YPDefGrup((ZnameStrnReadOnlyPValStrnTrueEndGInt (ZPDefGrup,([nameStrnMaskEncoInt PValStrnEndGInt ([PDefGrup0(\nameStrnTextEncoInt PValStrn0 EndGInt (\PDefGrup0(]nameStrn Underline PValStrnFalse EndGInt (]PDefGrup,(^nameStrnItalic PValStrnFalse EndGInt (^PDefGrup((_nameStrnBoldPValStrnFalse EndGInt (_PDefGrup$(`nameStrnTextSizePValInt EndGInt (`PDefGrup8(anameStrnTextFontEncoInt PValStrnSystem EndGInt (aPDefGrup0(bnameStrnAutoDeactivate PValStrnTrueEndGInt (bPDefGrup0(cnameStrnHelpTag EncoInt PValStrnEndGInt (cPDefGrup((dnameStrnVisible PValStrnTrueEndGInt (dPDefGrup0(enameStrnFormat EncoInt PValStrnEndGInt (ePDefGrup((fnameStrnEnabled PValStrnTrueEndGInt (fPDefGrup((gnameStrn BackColor PValInt EndGInt (gPDefGrup((hnameStrn TextColor PValInt EndGInt (hPDefGrup,(inameStrn UseFocusRingPValStrnTrueEndGInt (iPDefGrup,(jnameStrnPasswordPValStrnFalse EndGInt (jPDefGrup,(knameStrnStyled PValStrnFalse EndGInt (kPDefGrup4(lnameStrnScrollbarVertical PValStrnTrueEndGInt (lPDefGrup8(mnameStrnScrollbarHorizontal PValStrnFalse EndGInt (mPDefGrup0(nnameStrn Multiline PValStrnFalse EndGInt (nPDefGrup((onameStrnBorder PValStrnTrueEndGInt (oPDefGrup$(pnameStrnTabIndexPValInt EndGInt (pPDefGrup,(qnameStrn TabPanelIndex PValInt EndGInt (qPDefGrup0(rnameStrn LockBottom PValStrnFalse EndGInt (rPDefGrup0(snameStrn LockRight PValStrnFalse EndGInt (sPDefGrup((tnameStrnLockTop PValStrnTrueEndGInt (tPDefGrup((unameStrnLockLeftPValStrnTrueEndGInt (uPDefGrup$(vnameStrnHeight PValInt EndGInt (vPDefGrup$(wnameStrnWidth PValInt EndGInt (wPDefGrup (xnameStrnTop PValInt EndGInt (xPDefGrup (ynameStrnLeftPValInt $EndGInt (yPDefGrup((znameStrnScope PValStrn0 EndGInt (zPDefGrup<({nameStrnSuper EncoInt PValStrn EditField EndGInt ({PDefGrup$(|nameStrnIndex PValInt EndGInt (|PDefGrup4(}nameStrnNameEncoInt PValStrnedTune EndGInt (}CBixInt EndGInt (SCtrlGrup(~cclsStrn NotePlayer nameStrn NotePlayer PDefGrup,(nameStrn TabPanelIndex PValInt EndGInt (PDefGrup$(nameStrnWidth PValInt EndGInt (PDefGrup$(nameStrnHeight PValInt EndGInt (PDefGrup((nameStrn Instrument PValInt =EndGInt (PDefGrup0(nameStrnTop EncoInt PValStrn97 EndGInt (PDefGrup0(nameStrnLeftEncoInt PValStrn454 EndGInt (PDefGrup((nameStrnScope PValStrn0 EndGInt (PDefGrup<(nameStrnSuper EncoInt PValStrn NotePlayer EndGInt (PDefGrup$(nameStrnIndex PValInt EndGInt (PDefGrup8(nameStrnNameEncoInt PValStrn qtPlayers EndGInt (CBixInt EndGInt (~CtrlGrup(cclsStrn NotePlayer nameStrn NotePlayer PDefGrup,(nameStrn TabPanelIndex PValInt EndGInt (PDefGrup$(nameStrnWidth PValInt EndGInt (PDefGrup$(nameStrnHeight PValInt EndGInt (PDefGrup((nameStrn Instrument PValInt =EndGInt (PDefGrup0(nameStrnTop EncoInt PValStrn97 EndGInt (PDefGrup0(nameStrnLeftEncoInt PValStrn426 EndGInt (PDefGrup((nameStrnScope PValStrn0 EndGInt (PDefGrup<(nameStrnSuper EncoInt PValStrn NotePlayer EndGInt (PDefGrup$(nameStrnIndex PValInt EndGInt (PDefGrup8(nameStrnNameEncoInt PValStrn qtPlayers EndGInt (CBixInt EndGInt (CtrlGrup(cclsStrn NotePlayer nameStrn NotePlayer PDefGrup,(nameStrn TabPanelIndex PValInt EndGInt (PDefGrup$(nameStrnWidth PValInt EndGInt (PDefGrup$(nameStrnHeight PValInt EndGInt (PDefGrup((nameStrn Instrument PValInt =EndGInt (PDefGrup0(nameStrnTop EncoInt PValStrn97 EndGInt (PDefGrup0(nameStrnLeftEncoInt PValStrn394 EndGInt (PDefGrup((nameStrnScope PValStrn0 EndGInt (PDefGrup<(nameStrnSuper EncoInt PValStrn NotePlayer EndGInt (PDefGrup$(nameStrnIndex PValInt EndGInt (PDefGrup8(nameStrnNameEncoInt PValStrn qtPlayers EndGInt (CBixInt EndGInt (CtrlGrup(cclsStrn NotePlayer nameStrn NotePlayer PDefGrup,(nameStrn TabPanelIndex PValInt EndGInt (PDefGrup$(nameStrnWidth PValInt EndGInt (PDefGrup$(nameStrnHeight PValInt EndGInt (PDefGrup((nameStrn Instrument PValInt =EndGInt (PDefGrup0(nameStrnTop EncoInt PValStrn97 EndGInt (PDefGrup0(nameStrnLeftEncoInt PValStrn361 EndGInt (PDefGrup((nameStrnScope PValStrn0 EndGInt (PDefGrup<(nameStrnSuper EncoInt PValStrn NotePlayer EndGInt (PDefGrup$(nameStrnIndex PValInt EndGInt (PDefGrup8(nameStrnNameEncoInt PValStrn qtPlayers EndGInt (CBixInt EndGInt (CtrlGrup(cclsStrn NotePlayer nameStrn NotePlayer PDefGrup,(nameStrn TabPanelIndex PValInt EndGInt (PDefGrup$(nameStrnWidth PValInt EndGInt (PDefGrup$(nameStrnHeight PValInt EndGInt (PDefGrup((nameStrn Instrument PValInt =EndGInt (PDefGrup0(nameStrnTop EncoInt PValStrn97 EndGInt (PDefGrup0(nameStrnLeftEncoInt PValStrn331 EndGInt (PDefGrup((nameStrnScope PValStrn0 EndGInt (PDefGrup<(nameStrnSuper EncoInt PValStrn NotePlayer EndGInt (PDefGrup$(nameStrnIndex PValInt EndGInt (PDefGrup8(nameStrnNameEncoInt PValStrn qtPlayers EndGInt (CBixInt EndGInt (CtrlGrup(cclsStrn NotePlayer nameStrn NotePlayer PDefGrup,(nameStrn TabPanelIndex PValInt EndGInt (PDefGrup$(nameStrnWidth PValInt EndGInt (PDefGrup$(nameStrnHeight PValInt EndGInt (PDefGrup((nameStrn Instrument PValInt =EndGInt (PDefGrup (nameStrnTop PValInt aEndGInt (PDefGrup (nameStrnLeftPValInt /EndGInt (PDefGrup((nameStrnScope PValStrn0 EndGInt (PDefGrup<(nameStrnSuper EncoInt PValStrn NotePlayer EndGInt (PDefGrup$(nameStrnIndex PValInt EndGInt (PDefGrup8(nameStrnNameEncoInt PValStrn qtPlayers EndGInt (CBixInt EndGInt (CtrlGrup$(cclsStrn ProgramPlayer nameStrn ProgramPlayer PDefGrup,(nameStrn TabPanelIndex PValInt EndGInt (PDefGrup$(nameStrnWidth PValInt EndGInt (PDefGrup$(nameStrnHeight PValInt EndGInt (PDefGrup$(nameStrnPeriod PValInt EndGInt (PDefGrup (nameStrnModePValInt EndGInt (PDefGrup0(nameStrnTop EncoInt PValStrn38 EndGInt (PDefGrup0(nameStrnLeftEncoInt PValStrn454 EndGInt (PDefGrup((nameStrnScope PValStrn0 EndGInt (PDefGrup@(nameStrnSuper EncoInt PValStrn ProgramPlayer EndGInt (PDefGrup$(nameStrnIndex PValInt EndGInt (PDefGrup0(nameStrnNameEncoInt PValStrnpp EndGInt (CBixInt EndGInt (PadnPadn************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************BlokpMnux NameStrnMenuBar1ContInt paswStrnMItmGrup(spmuInt nameStrn UntitledMenu1 textStrnindxInt scutStrnmaEnInt EncoInt flagInt SuprStrnMenuItemEndGInt (MItmGrup(spmuInt nameStrnFileMenutextStrn&File indxInt scutStrnmaEnInt EncoInt flagInt SuprStrnMenuItemMItmGrup(spmuInt nameStrnFileQuittextStrnQuitindxInt scutStrnCmd+Q MiSKStrnQ MiMkInt maEnInt EncoInt flagInt SuprStrn QuitMenuItemEndGInt (MItmGrupx(spmuInt nameStrntextStrnindxInt scutStrnmaEnInt EncoInt flagInt SuprStrnMenuItemEndGInt (EndGInt (MItmGrup(spmuInt nameStrnEditMenutextStrn&Edit indxInt scutStrnmaEnInt EncoInt flagInt SuprStrnMenuItemMItmGrup(spmuInt nameStrnEditUndotextStrnUndoindxInt scutStrnCmd+Z MiSKStrnZ MiMkInt maEnInt EncoInt flagInt SuprStrnMenuItemEndGInt (MItmGrup(spmuInt nameStrn UntitledMenu0 textStrn- indxInt scutStrnmaEnInt EncoInt flagInt SuprStrnMenuItemEndGInt (MItmGrup(spmuInt nameStrnEditCut textStrnCut indxInt scutStrnCmd+X MiSKStrnX MiMkInt maEnInt EncoInt flagInt SuprStrnMenuItemEndGInt (MItmGrup(spmuInt nameStrnEditCopytextStrnCopyindxInt scutStrnCmd+C MiSKStrnC MiMkInt maEnInt EncoInt flagInt SuprStrnMenuItemEndGInt (MItmGrup(spmuInt nameStrn EditPaste textStrnPaste indxInt scutStrnCmd+V MiSKStrnV MiMkInt maEnInt EncoInt flagInt SuprStrnMenuItemEndGInt (MItmGrup(spmuInt nameStrn EditClear textStrnClear indxInt scutStrnmaEnInt EncoInt flagInt SuprStrnMenuItemEndGInt (MItmGrupx(spmuInt nameStrntextStrnindxInt scutStrnmaEnInt EncoInt flagInt SuprStrnMenuItemEndGInt (MItmGrup(spmuInt nameStrntextStrnindxInt scutStrnmaEnInt EncoInt flagInt SuprStrn AppleMenuItem EndGInt (EndGInt (MItmGrupx(spmuInt nameStrntextStrnindxInt scutStrnmaEnInt EncoInt flagInt SuprStrnMenuItemEndGInt (PadnPadnl********************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************BlokpObjxNameStrnApp ContInt paswStrnbClsInt SuprStrn Application flagInt bNtrInt bApOInt CompStrnPDefGrup$(nameStrnMenuBar PValInt xEndGInt (VwBhGrup(EndGInt (PadnPadn************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************BlokpObjg,NameStrn ProgramPlayer ContInt paswStrnbClsInt SuprStrnTimer flagInt bNtrInt CompStrnHInsGrupL(nameStrnAction CompStrnVsblInt sorcGrup(EncoInt srclStrn Sub Action()srclStrndim currnote as string srclStrndim currtime as string srclStrndim position as integer srclStrndim nextstring as stringsrclStrnsrclStrndim separatorpos as integer srclStrndim numpos as integer srclStrndim remainderstring as string srclStrnsrclStrnif prog = "" then srclStrnme.Stop srclStrnreturn srclStrnend if srclStrnsrclStrnseparatorpos = instr(prog, " ") srclStrn7remainderstring = right(prog, len(prog) - separatorpos) srclStrnsrclStrnif separatorpos = 0 thensrclStrnseparatorpos = len(prog) + 1srclStrnremainderstring = ""srclStrnend if srclStrnsrclStrnsrclStrn%currnote = left(prog, separatorpos-1) srclStrnsrclStrn!numpos = numberposition(currnote) srclStrnif numpos = 0 then srclStrnnumpos = len(currnote) + 1 srclStrncurrtime = baseTime srclStrnelsesrclStrn currtime = mid(currnote, numpos)srclStrnend if srclStrnsrclStrn#currnote = left(currnote, numpos-1) srclStrnsrclStrn=wndMain.edNote.text = wndmain.transpose(currnote, itranspose) srclStrnsrclStrnif currtime = "1" then srclStrnprog = remainderstring srclStrnelsesrclStrn=prog = currnote + str(val(currtime)-1) + " "+ remainderstring srclStrnend if srclStrnsrclStrn!if lowercase(currnote) = "r" then srclStrnwndMain.btnStop.pushsrclStrnelsesrclStrnwndMain.TurnOnNotes srclStrnend if srclStrnsrclStrnEnd Sub EndGInt (EndGInt (MethGrup(nameStrnStart CompStrnVsblInt sorcGrup(EncoInt srclStrnSub Start(program as string)srclStrnsrclStrnme.enabled = true srclStrnsrclStrnprog = ParseHeader(program) srclStrn me.mode = 2 srclStrnsrclStrnsrclStrnEnd Sub EndGInt (EncoInt AlasStrnflagInt shrdInt parmStrnprogram as string rsltStrnEndGInt (MethGrup<(nameStrnStopCompStrnVsblInt sorcGrup(EncoInt srclStrn Sub Stop() srclStrnmode = 0srclStrn prog = "" srclStrn period = 0 srclStrnsrclStrn//wndMain.btnStop.Push srclStrnEnd Sub EndGInt (EncoInt AlasStrnflagInt shrdInt parmStrnrsltStrnEndGInt (MethGrup(nameStrnPause CompStrnVsblInt sorcGrupH(EncoInt srclStrn Sub Pause() srclStrnsrclStrnEnd Sub EndGInt (EncoInt AlasStrnflagInt shrdInt parmStrnrsltStrnEndGInt (MethGrupd(nameStrnNumberPosition CompStrnVsblInt sorcGrup(EncoInt srclStrn1Function NumberPosition(str as string) As integer srclStrn9// returns the position of the first number. -1 = failure srclStrndim i as integersrclStrndim c as string srclStrnfor i = 1 to len(str) srclStrnc = mid(str,i,1)srclStrn%if asc(c) >= 48 and asc(c) <= 57 then srclStrnreturn isrclStrnend if srclStrnnextsrclStrnsrclStrnreturn 0srclStrn End FunctionEndGInt (EncoInt AlasStrnflagInt shrdInt parmStrn str as string rsltStrninteger EndGInt (MethGrup(nameStrn ParseHeader CompStrnVsblInt sorcGrup(EncoInt srclStrn-Function ParseHeader(str as String) As String srclStrndim separatorpos as integer srclStrndim numberpos as integersrclStrndim remainderstring as string srclStrndim header as stringsrclStrndim tempo as integersrclStrnsrclStrnseparatorpos = instr(str, " ") srclStrnnumberpos = NumberPosition(str) srclStrnitranspose = 0 srclStrnsrclStrnif numberpos = 1 then srclStrn header = left(str, separatorpos)srclStrn%tempo = val(nthfield(header, ",", 1)) srclStrn!me.period = (1000 / (tempo / 60)) srclStrn(baseTime = trim(nthfield(header,",", 2))srclStrn*remainderstring = mid(str, separatorpos+1) srclStrn&if nthfield(header, ",", 3) <> "" then srclStrn*itranspose = val(nthfield(header, ",", 3)) srclStrnend if srclStrnelsesrclStrnbaseTime = "4" srclStrnme.period = 500 srclStrnremainderstring = str srclStrnend if srclStrnsrclStrnreturn remainderstring srclStrnsrclStrn End FunctionEndGInt (EncoInt AlasStrnflagInt shrdInt parmStrn str as String rsltStrnString EndGInt (PropGrupP(EncoInt declStrnprog As String flagInt CompStrnshrdInt EndGInt (PropGrupT(EncoInt declStrnbaseTime As String flagInt CompStrnshrdInt EndGInt (PropGrupX(EncoInt declStrnitranspose As integer flagInt CompStrnshrdInt EndGInt (VwBhGrupp(VwPrGrupD(NameStrnNameVsblInt PrGpStrnID CPifStrnTimer EndGInt (VwPrGrup\(NameStrnIndex VsblInt PrGpStrnID typeStrnInteger CPifStrnTimer EndGInt (VwPrGrupH(NameStrnSuper VsblInt PrGpStrnID CPifStrnTimer EndGInt (VwPrGrupH(NameStrnLeftVsblInt PrGpStrnPositionCPifStrnTimer EndGInt (VwPrGrupH(NameStrnTop VsblInt PrGpStrnPositionCPifStrnTimer EndGInt (VwPrGrup(NameStrnModeVsblInt PrGpStrnBehaviorPValStrn2 typeStrnInteger vbETStrnEnumCPifStrnTimer EnumGrupH(defnStrn0 - Off defnStrn 1 - Single defnStrn 2 - MultipleEndGInt (EndGInt (VwPrGrupp(NameStrnPeriod VsblInt PrGpStrnBehaviorPValStrn1000typeStrnInteger CPifStrnTimer EndGInt (EndGInt (PadnPadn ****************************************************************************************************************************************************************************************************************************************************************************BlokpVewiDNameStrnwndName ContInt paswStrnbClsInt SuprStrnWindow flagInt bNtrInt CompStrnPDefGrup<(nameStrnImplicitInstanceEncoInt PValStrnTrueEndGInt (PDefGrup((nameStrnMenuBar PValStrn0 EndGInt (PDefGrup((nameStrn MacProcID PValInt EndGInt (PDefGrup4(nameStrn BalloonHelp EncoInt PValStrnEndGInt (PDefGrup0(nameStrnMinimizeButton PValStrnTrueEndGInt (PDefGrup0(nameStrnMaximizeButton PValStrnTrueEndGInt (PDefGrup0(nameStrn LiveResize PValStrnFalse EndGInt (PDefGrup,(nameStrn Resizeable PValStrnTrueEndGInt (PDefGrup,(nameStrn CloseButton PValStrnTrueEndGInt (PDefGrup0(nameStrnMenuBarVisible PValStrnTrueEndGInt (PDefGrup0(nameStrn FullScreen PValStrnFalse EndGInt (PDefGrup((nameStrnVisible PValStrnTrueEndGInt (PDefGrup<)nameStrnTitle EncoInt PValStrn Program NameEndGInt )PDefGrup()nameStrnBackdropPValStrn0 EndGInt )PDefGrup()nameStrn BackColor PValInt EndGInt )PDefGrup0)nameStrn HasBackColorPValStrnFalse EndGInt )PDefGrup0)nameStrn Composite PValStrnFalse EndGInt )PDefGrup$)nameStrnFrame PValInt EndGInt )PDefGrup()nameStrn MaxHeight PValInt }EndGInt )PDefGrup$)nameStrnMaxWidthPValInt }EndGInt )PDefGrup()nameStrn MinHeight PValInt @EndGInt )PDefGrup$) nameStrnMinWidthPValInt @EndGInt ) PDefGrup$) nameStrnHeight PValInt ]EndGInt ) PDefGrup$) nameStrnWidth PValInt EndGInt ) PDefGrup() nameStrn Placement PValInt EndGInt ) VwBhGrupt) VwPrGrupD)NameStrnNameVsblInt PrGpStrnID CPifStrnWindow EndGInt )VwPrGrupL)NameStrn Interfaces VsblInt PrGpStrnID CPifStrnWindow EndGInt )VwPrGrupH)NameStrnSuper VsblInt PrGpStrnID CPifStrnWindow EndGInt )VwPrGrup0)NameStrn Placement VsblInt PrGpStrnPositionPValStrn0 typeStrnInteger vbETStrnEnumCPifStrnWindow EnumGrup)defnStrn 0 - Default defnStrn1 - Parent Window defnStrn2 - Main Screen defnStrn3 - Parent Window ScreendefnStrn 4 - Stagger EndGInt )EndGInt )VwPrGrupp)NameStrnWidth VsblInt PrGpStrnPositionPValStrn300 typeStrnInteger CPifStrnWindow EndGInt )VwPrGrupp)NameStrnHeight VsblInt PrGpStrnPositionPValStrn300 typeStrnInteger CPifStrnWindow EndGInt )VwPrGrupp)NameStrnMinWidthVsblInt PrGpStrnPositionPValStrn64 typeStrnInteger CPifStrnWindow EndGInt )VwPrGrupt)NameStrn MinHeight VsblInt PrGpStrnPositionPValStrn64 typeStrnInteger CPifStrnWindow EndGInt )VwPrGrupt)NameStrnMaxWidthVsblInt PrGpStrnPositionPValStrn32000 typeStrnInteger CPifStrnWindow EndGInt )VwPrGrupx)NameStrn MaxHeight VsblInt PrGpStrnPositionPValStrn32000 typeStrnInteger CPifStrnWindow EndGInt )VwPrGrup )NameStrnFrame VsblInt PrGpStrn Appearance PValStrn0 typeStrnInteger vbETStrnEnumCPifStrnWindow EnumGrupp)defnStrn 0 - DocumentdefnStrn1 - Movable Modal defnStrn2 - Modal DialogdefnStrn3 - Floating Window defnStrn 4 - Plain Box defnStrn5 - Shadowed BoxdefnStrn6 - Rounded Window defnStrn7 - Global Floating Window defnStrn8 - Sheet WindowdefnStrn9 - Metal WindowdefnStrn10 - Drawer Window defnStrn11 - Modeless DialogEndGInt )EndGInt )VwPrGrup|)NameStrn Composite VsblInt PrGpStrn Appearance PValStrnFalse typeStrnBoolean CPifStrnWindow EndGInt )VwPrGrup|)NameStrn HasBackColorVsblInt PrGpStrn Appearance PValStrnFalse typeStrnBoolean CPifStrnWindow EndGInt )VwPrGrup|)NameStrn BackColor VsblInt PrGpStrn Appearance PValStrn&hFFFFFFtypeStrnColor CPifStrnWindow EndGInt )VwPrGrupx)NameStrnBackdropVsblInt PrGpStrn Appearance typeStrnPicture vbETStrnPicture CPifStrnWindow EndGInt )VwPrGrupx)NameStrnTitle VsblInt PrGpStrn Appearance PValStrnUntitledtypeStrnString CPifStrnWindow EndGInt )VwPrGrupt) NameStrnVisible VsblInt PrGpStrn Appearance PValStrnTruetypeStrnBoolean CPifStrnWindow EndGInt ) VwPrGrup|)!NameStrn FullScreen VsblInt PrGpStrn Appearance PValStrnFalse typeStrnBoolean CPifStrnWindow EndGInt )!VwPrGrup|)"NameStrnMenuBarVisible VsblInt PrGpStrn Appearance PValStrnTruetypeStrnBoolean CPifStrnWindow EndGInt )"VwPrGrupx)#NameStrn CloseButton VsblInt PrGpStrn Appearance PValStrnTruetypeStrnBoolean CPifStrnWindow EndGInt )#VwPrGrup|)$NameStrn Resizeable VsblInt PrGpStrn Appearance PValStrnFalse typeStrnBoolean CPifStrnWindow EndGInt )$VwPrGrupx)%NameStrn LiveResize VsblInt PrGpStrn Appearance PValStrnTruetypeStrnBoolean CPifStrnWindow EndGInt )%VwPrGrup)&NameStrnMaximizeButton VsblInt PrGpStrn Appearance PValStrnFalse typeStrnBoolean CPifStrnWindow EndGInt )&VwPrGrup|)'NameStrnMinimizeButton VsblInt PrGpStrn Appearance PValStrnTruetypeStrnBoolean CPifStrnWindow EndGInt )'VwPrGruph)(NameStrn BalloonHelp VsblInt PrGpStrn Appearance typeStrnString CPifStrnWindow EndGInt )(VwPrGrupx))NameStrn MacProcID VsblInt PrGpStrn Appearance PValStrn0 typeStrnInteger CPifStrnWindow EndGInt ))VwPrGrupx)*NameStrnMenuBar VsblInt PrGpStrn Appearance typeStrnMenuBar vbETStrnMenuBar CPifStrnWindow EndGInt )*VwPrGrup|)+NameStrnImplicitInstanceVsblInt PrGpStrn Appearance PValStrnTruevbETStrnBoolean CPifStrnWindow EndGInt )+EndGInt ) CBhvGrup),SuprStrn EditField EndGInt ),CBhvGrup)-SuprStrn StaticText EndGInt )-CBhvGrup).SuprStrn PushButton EndGInt ).CBhvGrup)/SuprStrn PushButton EndGInt )/CtrlGrup @)0cclsStrn EditField nameStrn EditField PDefGrup$)1nameStrnTabIndexPValInt EndGInt )1PDefGrup4)2nameStrn DataField EncoInt PValStrnEndGInt )2PDefGrup4)3nameStrn DataSource EncoInt PValStrnEndGInt )3PDefGrup,)4nameStrnTextEncoInt PValStrnEndGInt )4PDefGrup4)5nameStrnEnabled EncoInt PValStrnTrueEndGInt )5PDefGrup<)6nameStrn BackColor EncoInt PValStrn16777215EndGInt )6PDefGrup8)7nameStrn TextColor EncoInt PValStrn0 EndGInt )7PDefGrup8)8nameStrn Alignment EncoInt PValStrn0 EndGInt )8PDefGrup<)9nameStrn AcceptTabs EncoInt PValStrnFalse EndGInt )9PDefGrup8):nameStrn LimitText EncoInt PValStrn0 EndGInt ):PDefGrup8);nameStrnReadOnlyEncoInt PValStrnFalse EndGInt );PDefGrup8)nameStrnStyled EncoInt PValStrnFalse EndGInt )>PDefGrup@)?nameStrnScrollBarVertical EncoInt PValStrnTrueEndGInt )?PDefGrup8)@nameStrn ScrollBar EncoInt PValStrnTrueEndGInt )@PDefGrupD)AnameStrnScrollBarHorizontal EncoInt PValStrnFalse EndGInt )APDefGrup<)BnameStrn MultiLine EncoInt PValStrnFalse EndGInt )BPDefGrup4)CnameStrnBorder EncoInt PValStrnTrueEndGInt )CPDefGrup<)DnameStrn Underline EncoInt PValStrnFalse EndGInt )DPDefGrup8)EnameStrnItalic EncoInt PValStrnFalse EndGInt )EPDefGrup4)FnameStrnBoldEncoInt PValStrnFalse EndGInt )FPDefGrup4)GnameStrnTextSizeEncoInt PValStrn12 EndGInt )GPDefGrup8)HnameStrnTextFontEncoInt PValStrnSystem EndGInt )HPDefGrup<)InameStrn LockBottom EncoInt PValStrnFalse EndGInt )IPDefGrup<)JnameStrn LockRight EncoInt PValStrnFalse EndGInt )JPDefGrup8)KnameStrnLockTop EncoInt PValStrnFalse EndGInt )KPDefGrup8)LnameStrnLockLeftEncoInt PValStrnFalse EndGInt )LPDefGrup<)MnameStrnAutoDeactivate EncoInt PValStrnTrueEndGInt )MPDefGrup<)NnameStrnDisabledBalloonHelp EncoInt PValStrnEndGInt )NPDefGrup4)OnameStrn BalloonHelp EncoInt PValStrnEndGInt )OPDefGrup0)PnameStrnHelpTag EncoInt PValStrnEndGInt )PPDefGrup8)QnameStrn InitialParent EncoInt PValStrnEndGInt )QPDefGrup4)RnameStrnHeight EncoInt PValStrn22 EndGInt )RPDefGrup4)SnameStrnWidth EncoInt PValStrn351 EndGInt )SPDefGrup0)TnameStrnTop EncoInt PValStrn14 EndGInt )TPDefGrup0)UnameStrnLeftEncoInt PValStrn62 EndGInt )UPDefGrup4)VnameStrnVisible EncoInt PValStrnTrueEndGInt )VPDefGrup<)WnameStrn TabPanelIndex EncoInt PValStrn0 EndGInt )WPDefGrup<)XnameStrnIndex EncoInt PValStrn -2147483648 EndGInt )XPDefGrup8)YnameStrnNameEncoInt PValStrn EditField1 EndGInt )YPDefGrup<)ZnameStrnSuper EncoInt PValStrn EditField EndGInt )ZCBixInt EndGInt )0CtrlGrup )[cclsStrn StaticText nameStrn StaticText PDefGrup$)\nameStrnTabIndexPValInt EndGInt )\PDefGrup4)]nameStrn DataField EncoInt PValStrnEndGInt )]PDefGrup4)^nameStrn DataSource EncoInt PValStrnEndGInt )^PDefGrup4)_nameStrnEnabled EncoInt PValStrnTrueEndGInt )_PDefGrup<)`nameStrn MultiLine EncoInt PValStrnFalse EndGInt )`PDefGrup8)anameStrn TextColor EncoInt PValStrn0 EndGInt )aPDefGrup8)bnameStrn TextAlign EncoInt PValStrn0 EndGInt )bPDefGrup4)cnameStrnTextEncoInt PValStrnName: EndGInt )cPDefGrup<)dnameStrn Underline EncoInt PValStrnFalse EndGInt )dPDefGrup8)enameStrnItalic EncoInt PValStrnFalse EndGInt )ePDefGrup4)fnameStrnBoldEncoInt PValStrnFalse EndGInt )fPDefGrup4)gnameStrnTextSizeEncoInt PValStrn12 EndGInt )gPDefGrup8)hnameStrnTextFontEncoInt PValStrnSystem EndGInt )hPDefGrup<)inameStrn LockBottom EncoInt PValStrnFalse EndGInt )iPDefGrup<)jnameStrn LockRight EncoInt PValStrnFalse EndGInt )jPDefGrup8)knameStrnLockTop EncoInt PValStrnFalse EndGInt )kPDefGrup8)lnameStrnLockLeftEncoInt PValStrnFalse EndGInt )lPDefGrup<)mnameStrnAutoDeactivate EncoInt PValStrnTrueEndGInt )mPDefGrup<)nnameStrnDisabledBalloonHelp EncoInt PValStrnEndGInt )nPDefGrup4)onameStrn BalloonHelp EncoInt PValStrnEndGInt )oPDefGrup0)pnameStrnHelpTag EncoInt PValStrnEndGInt )pPDefGrup8)qnameStrn InitialParent EncoInt PValStrnEndGInt )qPDefGrup4)rnameStrnHeight EncoInt PValStrn20 EndGInt )rPDefGrup4)snameStrnWidth EncoInt PValStrn100 EndGInt )sPDefGrup0)tnameStrnTop EncoInt PValStrn15 EndGInt )tPDefGrup0)unameStrnLeftEncoInt PValStrn9 EndGInt )uPDefGrup4)vnameStrnVisible EncoInt PValStrnTrueEndGInt )vPDefGrup<)wnameStrn TabPanelIndex EncoInt PValStrn0 EndGInt )wPDefGrup<)xnameStrnIndex EncoInt PValStrn -2147483648 EndGInt )xPDefGrup8)ynameStrnNameEncoInt PValStrn StaticText1 EndGInt )yPDefGrup<)znameStrnSuper EncoInt PValStrn StaticText EndGInt )zCBixInt EndGInt )[CtrlGrup){cclsStrn PushButton nameStrn PushButton PDefGrup$)|nameStrnTabIndexPValInt EndGInt )|PDefGrup4)}nameStrnEnabled EncoInt PValStrnTrueEndGInt )}PDefGrup8)~nameStrnCancel EncoInt PValStrnFalse EndGInt )~PDefGrup4)nameStrnDefault EncoInt PValStrnTrueEndGInt )PDefGrup4)nameStrnCaption EncoInt PValStrnOK EndGInt )PDefGrup<)nameStrn Underline EncoInt PValStrnFalse EndGInt )PDefGrup8)nameStrnItalic EncoInt PValStrnFalse EndGInt )PDefGrup4)nameStrnBoldEncoInt PValStrnFalse EndGInt )PDefGrup4)nameStrnTextSizeEncoInt PValStrn12 EndGInt )PDefGrup8)nameStrnTextFontEncoInt PValStrnSystem EndGInt )PDefGrup<)nameStrn LockBottom EncoInt PValStrnFalse EndGInt )PDefGrup<)nameStrn LockRight EncoInt PValStrnFalse EndGInt )PDefGrup8)nameStrnLockTop EncoInt PValStrnFalse EndGInt )PDefGrup8)nameStrnLockLeftEncoInt PValStrnFalse EndGInt )PDefGrup<)nameStrnAutoDeactivate EncoInt PValStrnTrueEndGInt )PDefGrup<)nameStrnDisabledBalloonHelp EncoInt PValStrnEndGInt )PDefGrup4)nameStrn BalloonHelp EncoInt PValStrnEndGInt )PDefGrup0)nameStrnHelpTag EncoInt PValStrnEndGInt )PDefGrup8)nameStrn InitialParent EncoInt PValStrnEndGInt )PDefGrup4)nameStrnHeight EncoInt PValStrn20 EndGInt )PDefGrup4)nameStrnWidth EncoInt PValStrn69 EndGInt )PDefGrup0)nameStrnTop EncoInt PValStrn48 EndGInt )PDefGrup0)nameStrnLeftEncoInt PValStrn344 EndGInt )PDefGrup4)nameStrnVisible EncoInt PValStrnTrueEndGInt )PDefGrup<)nameStrn TabPanelIndex EncoInt PValStrn0 EndGInt )PDefGrup<)nameStrnIndex EncoInt PValStrn -2147483648 EndGInt )PDefGrup4)nameStrnNameEncoInt PValStrnbtnSave EndGInt )PDefGrup<)nameStrnSuper EncoInt PValStrn PushButton EndGInt )CBixInt EndGInt ){CtrlGrup)cclsStrn PushButton nameStrn PushButton PDefGrup$)nameStrnTabIndexPValInt EndGInt )PDefGrup4)nameStrnEnabled EncoInt PValStrnTrueEndGInt )PDefGrup4)nameStrnCancel EncoInt PValStrnTrueEndGInt )PDefGrup8)nameStrnDefault EncoInt PValStrnFalse EndGInt )PDefGrup8)nameStrnCaption EncoInt PValStrnCancel EndGInt )PDefGrup<)nameStrn Underline EncoInt PValStrnFalse EndGInt )PDefGrup8)nameStrnItalic EncoInt PValStrnFalse EndGInt )PDefGrup4)nameStrnBoldEncoInt PValStrnFalse EndGInt )PDefGrup4)nameStrnTextSizeEncoInt PValStrn12 EndGInt )PDefGrup8)nameStrnTextFontEncoInt PValStrnSystem EndGInt )PDefGrup<)nameStrn LockBottom EncoInt PValStrnFalse EndGInt )PDefGrup<)nameStrn LockRight EncoInt PValStrnFalse EndGInt )PDefGrup8)nameStrnLockTop EncoInt PValStrnFalse EndGInt )PDefGrup8)nameStrnLockLeftEncoInt PValStrnFalse EndGInt )PDefGrup<)nameStrnAutoDeactivate EncoInt PValStrnTrueEndGInt )PDefGrup<)nameStrnDisabledBalloonHelp EncoInt PValStrnEndGInt )PDefGrup4)nameStrn BalloonHelp EncoInt PValStrnEndGInt )PDefGrup0)nameStrnHelpTag EncoInt PValStrnEndGInt )PDefGrup8)nameStrn InitialParent EncoInt PValStrnEndGInt )PDefGrup4)nameStrnHeight EncoInt PValStrn20 EndGInt )PDefGrup4)nameStrnWidth EncoInt PValStrn69 EndGInt )PDefGrup0)nameStrnTop EncoInt PValStrn48 EndGInt )PDefGrup0)nameStrnLeftEncoInt PValStrn258 EndGInt )PDefGrup4)nameStrnVisible EncoInt PValStrnTrueEndGInt )PDefGrup<)nameStrn TabPanelIndex EncoInt PValStrn0 EndGInt )PDefGrup<)nameStrnIndex EncoInt PValStrn -2147483648 EndGInt )PDefGrup8)nameStrnNameEncoInt PValStrn btncancel EndGInt )PDefGrup<)nameStrnSuper EncoInt PValStrn PushButton EndGInt )CBixInt EndGInt )PadnPadnh************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************BlokpUIsWnStGrup)OTabGrup)ContInt eSptInt EndGInt )OTabGrupX)ContInt xLSptInt RSptInt ScrXInt ScrYInt lstHInt @lstVInt @EndGInt )OTabGrup()ContInt xAltEInt LSptInt EndGInt )OTabGrup()ContInt xAltEInt LSptInt EndGInt )OTabGrup4)ContInt g,AltEInt LSptInt ciIDInt EndGInt )LsLcStrnwndMain Layout rEdtRect 2EndGInt )PadnPadn****************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************EOF!