The discussion forum by Martin Verlaan
viewtopic.php?f=13&t=70823
And code by :
Roger Hهgensen , Celtic88(c) & wilbert
You have To include :
1- "bass.pbi"
2- bass.dll
3- bassflac.dll
4- bass_ac3.dll
5- basswma.dll
Feel free to update or add new functions
Code: Select all
UsePNGImageDecoder()
IncludeFile "bass.pbi"
DisableDebugger
Global chans
Structure Sample
l.w
r.w
EndStructure
Procedure UpdateWaveImage(PBImage, *SampleData.Sample, SampleCount)
Protected.i Width, Height, X, VOffsetL, VOffsetR, Mul
Protected.i SamplesPerPixel, Sample
Protected.w MinL, MaxL, MinR, MaxR
Protected.w MinL_, MaxL_, MinR_, MaxR_
If *SampleData And SampleCount
StartDrawing(ImageOutput(PBImage))
Width = OutputWidth() : Height = OutputHeight()
If chans = 1
VOffsetL = Height >> 1
Else
VOffsetL = Height >> 2 : VOffsetR = VOffsetL + Height >> 1
EndIf
Mul = (VOffsetL * $19999) >> 16
If chans = 1
Mul = (VOffsetL * $19999) >> 17
EndIf
Box(0, 0, Width, Height, $ffe0e0e0)
Line(0, VOffsetL, Width, 1, $ffa0a0a0)
If chans = 2
Line(0, VOffsetR, Width, 1, $ffa0a0a0)
EndIf
SamplesPerPixel = (SampleCount + Width - 1) / Width
MinL = $7fff : MaxL = $8000 : MinR = $7fff : MaxR = $8000
MinL_ = $8000 : MaxL_ = $7fff : MinR_ = $8000 : MaxR_ = $7fff
While SampleCount
If *SampleData\l < MinL : MinL = *SampleData\l : ElseIf *SampleData\l > MaxL : MaxL = *SampleData\l : EndIf
If chans = 2
If *SampleData\r < MinR : MinR = *SampleData\r : ElseIf *SampleData\r > MaxR : MaxR = *SampleData\r : EndIf
EndIf
*SampleData + 4
Sample + 1 : SampleCount - 1
If Sample = SamplesPerPixel Or SampleCount = 0
MinL = (MinL * Mul) >> 16 : MaxL = (MaxL * Mul) >> 16
MinR = (MinR * Mul) >> 16 : MaxR = (MaxR * Mul) >> 16
If MinL_ > MaxL : LineXY(X, VOffsetL - MinL_, X, VOffsetL - MaxL, $ffff8000) : EndIf
If MaxL_ < MinL : LineXY(X, VOffsetL - MaxL_, X, VOffsetL - MinL, $ffff8000) : EndIf
If chans = 2
If MinR_ > MaxR : LineXY(X, VOffsetR - MinR_, X, VOffsetR - MaxR, $ffff8000) : EndIf
If MaxR_ < MinR : LineXY(X, VOffsetR - MaxR_, X, VOffsetR - MinR, $ffff8000) : EndIf
EndIf
LineXY(X, VOffsetL - MinL, X, VOffsetL - MaxL, $ffff8000)
If chans = 2
LineXY(X, VOffsetR - MinR, X, VOffsetR - MaxR, $ffff8000)
EndIf
MinL_ = MinL : MaxL_ = MaxL : MinR_ = MinR : MaxR_ = MaxR
MinL = $7fff : MaxL = $8000 : MinR = $7fff : MaxR = $8000
X + 1 : Sample = 0
EndIf
Wend
StopDrawing()
EndIf
EndProcedure
Procedure sizeCB()
ww = WindowWidth(0)
hh = WindowHeight(0)
ResizeGadget(0,10,10,ww-60,hh-70)
ResizeGadget(2,ww-28,hh/2-270/2,18,200)
ResizeGadget(3,10,hh-50,110,40)
ResizeGadget(10,ww/2-100,hh-50,200,18)
EndProcedure
Procedure vsizeCB()
vs = GetGadgetState(2)
ResizeGadget(1,0,0,ww-60,hh-70)
ResizeImage(WaveImage,#PB_Ignore,ImageHeight(WaveImage)*vs)
SetGadgetState(1,ImageID(WaveImage))
EndProcedure
CatchImage(0,?open)
CatchImage(1,?play)
CatchImage(2,?pause)
CatchImage(3,?stop)
OpenWindow(0, 0, 0, 660, 370, "Waveform", #PB_Window_SystemMenu | #PB_Window_MaximizeGadget| #PB_Window_ScreenCentered|#PB_Window_SizeGadget)
WindowBounds(0,660,370,#PB_Ignore,#PB_Ignore)
WaveImage = CreateImage(#PB_Any, 8192, 275)
ScrollAreaGadget(0, 10, 10, 600, 300, ImageWidth(WaveImage), ImageHeight(WaveImage), 1, #PB_ScrollArea_Flat| #PB_ScrollArea_Center)
ImageGadget(1, 0, 0, 600, 300, 0)
CloseGadgetList()
ScrollBarGadget (2, 620, 50, 18, 200 ,1, 10, 2, #PB_ScrollBar_Vertical)
ContainerGadget(3,10,320,110,40,#PB_Container_Flat)
ImageGadget (4,5,5,40,20,ImageID(0))
ImageGadget (5,40,5,40,20,ImageID(1))
ImageGadget (6,75,5,40,20,ImageID(3))
CloseGadgetList()
ScrollBarGadget (10, 250, 320, 200, 18 ,0, 200, 30)
BindEvent(#PB_Event_SizeWindow,@sizeCB())
BindGadgetEvent(2,@vsizeCB())
BASS_Init(-1, 44100, 0, 0, #Null)
BASS_PluginLoad("bassflac.dll", #BASS_UNICODE)
BASS_PluginLoad("bass_ac3.dll", #BASS_UNICODE)
BASS_PluginLoad("basswma.dll", #BASS_UNICODE)
Repeat
Select WaitWindowEvent()
Case #PB_Event_CloseWindow
End
Case #PB_Event_Timer
If channel And BASS_ChannelIsActive(channel) = #BASS_ACTIVE_PLAYING
pos.q = BASS_ChannelGetPosition(channel,#BASS_POS_BYTE)
SetGadgetAttribute(0,#PB_ScrollArea_X,pos.q*8192/length.q)
oldpos.q = pos.q
ElseIf channel And pos = oldpos
BASS_ChannelSetPosition(channel,0,#BASS_POS_BYTE)
SetGadgetAttribute(0,#PB_ScrollArea_X,0)
SetGadgetState(5,ImageID(1))
pos.q = 0
EndIf
Case #PB_Event_Gadget
Select EventGadget()
Case 0
If channel
If BASS_ChannelIsActive(channel) = #BASS_ACTIVE_PLAYING
BASS_ChannelPause(channel)
SetGadgetState(5,ImageID(1))
play = 1
EndIf
x = GetGadgetAttribute(0,#PB_ScrollArea_X)
pos.q = x*length/8192
BASS_ChannelSetPosition(channel,pos,#BASS_POS_BYTE)
If play = 1
play = 0
SetGadgetState(5,ImageID(2))
BASS_ChannelPlay(channel, 0)
EndIf
EndIf
Case 4
Select EventType()
Case #PB_EventType_LeftClick
If BASS_ChannelIsActive(channel) = #BASS_ACTIVE_PLAYING
RemoveWindowTimer(0,125)
BASS_ChannelStop(channel)
BASS_SampleFree(sample)
SetGadgetAttribute(0,#PB_ScrollArea_X,0)
SetGadgetState(5,ImageID(1))
SetGadgetState(1,0)
channel = 0
EndIf
filename.s = OpenFileRequester("","","*.*",0):If filename ="":End 1:EndIf
sample = BASS_SampleLoad(0, @filename, 0, 0, 65535, #BASS_UNICODE| #BASS_SAMPLE_SOFTWARE)
info.BASS_SAMPLE
BASS_SampleGetInfo(sample, @info)
chans = info\chans
length.q = info\length
If chans >= 2
chans = 2
EndIf
Dim Buffer.Sample(Length >> chans)
BASS_SampleGetData(sample,@buffer())
UpdateWaveImage(WaveImage, @Buffer(), Length >> chans)
SetGadgetState(1,ImageID(WaveImage))
channel = BASS_SampleGetChannel(sample,1)
EndSelect
Case 5
Select EventType()
Case #PB_EventType_LeftClick
If channel And GetGadgetState(5) = ImageID(1)
AddWindowTimer(0,125,10)
SetGadgetState(5,ImageID(2))
BASS_ChannelPlay(channel, 0)
ElseIf channel And GetGadgetState(5) = ImageID(2)
RemoveWindowTimer(0,125)
BASS_ChannelPause(channel)
SetGadgetState(5,ImageID(1))
EndIf
EndSelect
Case 6
Select EventType()
Case #PB_EventType_LeftClick
If BASS_ChannelIsActive(channel) = #BASS_ACTIVE_PLAYING
RemoveWindowTimer(0,125)
BASS_ChannelStop(channel)
BASS_SampleFree(sample)
SetGadgetAttribute(0,#PB_ScrollArea_X,0)
SetGadgetState(5,ImageID(1))
SetGadgetState(1,0)
channel = 0
EndIf
EndSelect
EndSelect
EndSelect
ForEver
DataSection
Open:
Data.q $0A1A0A0D474E5089,$524448490D000000,$1800000018000000,$3D77E00000000608,$59487009000000F8
Data.q $0E0000C40E000073,$00001B0E2B9501C4,$8948544144496104,$C61C5554506D95A5,$905605F770BD977F
Data.q $B011406C1500D95D,$731A729517A657A4,$751B4A719CB26346,$C7473218A531D274,$E638D585943E3197
Data.q $4D63A3A98D143698,$A4943A0CA6A6314D,$E0AEB6F10D812438,$7BDEE2C2EEC8BBB2,$BE7AB35972E612FA
Data.q $9CF739EFCE7FF3DD,$E54D10421247BDFF,$0FCF7DFA371C9287,$C634D3C97B722886,$172B64AE04D08109
Data.q $C8E93E35A4F9462D,$68D218D17C7B97A6,$813D5CD3E287E501,$C417E615166143ED,$48FBB48C88A53FDD
Data.q $4AE1EE1BC34086C4,$5FD6D4D50D753D47,$DC4B48C93E151809,$D80BA41757A975B2,$DCE9F3AEBB152958
Data.q $1815E1EF33189F27,$04A85C212B403208,$26661A428F103001,$9F541537D9F04011,$D73BC58D2333B5FE
Data.q $4A91EC9406A31F89,$C61897176BBBC684,$A2FA613D4FD0265B,$CE9812762C40216E,$4A19547F94F38E85
Data.q $BA57C437C3F0B077,$8720E0E2A5FBF580,$04283560D6B95ADF,$2C64A44F9FA20669,$654B6CA769E6D1E4
Data.q $6A2A55DA9E04E268,$9CBAD292AC6C056F,$E9313ACF315D2E5C,$BC75398A8DB4825E,$5D2639C99974D49F
Data.q $AA6B9C593309062D,$721C9CB6D9C77CA1,$CDDD700CA08A9577,$3293D358A78F59F6,$E78F403A4809D209
Data.q $B0364C4938363B26,$068F4886CC2CDBF7,$7C280A730783F9F8,$D8137D49A9A32EA4,$BED376E1C3ED952C
Data.q $063426133885ECB9,$9CCD25B5E0817074,$EB3B25FF3003F1AF,$E0240D2DF51C4DB7,$979DDAB2BE5939F2
Data.q $D73F20B3F7ECBA4B,$FABF5C17FCC26712,$7ADCF09ECE2E9503,$1995916149DFBC3E,$891C7E2ABCEAC733
Data.q $5B33F7F5B172F20E,$86859D939599040E,$C03DB5A13746208A,$F3B44685099B1B7B,$5566C42BAD1C8DAB
Data.q $F1A417A654347374,$5A67E0394CE731F5,$A10E33AA811DAA6A,$AEA0DE7C7AE2FAF2,$EF645F97EB09D036
Data.q $92A04C2C469087A1,$55934E701020E199,$1884431C63467195,$B6BE70B5B73B96D9,$A83B47F7D61F075B
Data.q $6AE826CB459637DC,$D35976371E1C6B16,$08B8C6281D7D3CD0,$A25B9B153F5D4343,$1F933D5569B587C2
Data.q $BDEE3118DB332418,$6B9376B2115546E1,$6110D62DA240BEBE,$3FFE6AE67137CEC8,$B91AAA0C4AC80006
Data.q $B25C048480771EC5,$949299E5D5D0D0A2,$DBD10B5CF430896C,$6C14131C02AEF37D,$63715FBF6311B129
Data.q $6A6C9C314B20D234,$EC308F4BC9CC2DF2,$1577C32FEA95BB7E,$E791A5A595836CB0,$2CB2E3898A075F50
Data.q $267E9FF781B1A473,$5870B96EFE58B168,$5B11C35614D155DF,$539C65F347D1D5D4,$2359CC108491A9F3
Data.q $ECE2D9EEB3E5E455,$705ADB1549DE86BB,$0CA1F151F3FB5939,$41639D3FAD863890,$FFFB2CA4FA4F4E56
Data.q $0D3D52E5689CD782,$3F5DFB6E18F953D9,$D2DDF2F6F2CD2A57,$C13FF58F71C536D5,$3780F6C1F374372F
Data.q $88968A554F478B33,$6EDEFCD225798000,$5373B25662582E0E,$76AA36A9DCFC15FE,$141ECF8A78EA4F0B
Data.q $35DCE65775C78667,$40569AA93B5763D2,$1DF376C93B5CD146,$A3E17D8E3EF6CEC1,$4CF178B3329702F1
Data.q $3FA5EA3EBDBE6895,$EBE652F3EE649567,$C0F3B2D8C9A4F565,$834D16213E226E91,$F8D10EB574837D1B
Data.q $77852D9746FEB40B,$6862E7F4E7B124C6,$4578CD6180D46B24,$CCC0383D98068632,$21A1763F7EF920F0
Data.q $C28A8B898A5C668C,$D44407B5350A710F,$1C61D0D2F54FE60F,$4900000000C89CFF,$826042AE444E45
Openend:
play:
Data.q $0A1A0A0D474E5089,$524448490D000000,$1800000018000000,$3D77E00000000608,$59487009000000F8
Data.q $0E0000C40E000073,$00001B0E2B9501C4,$8948544144498804,$871855536C7D959D,$75656ED76D2F4B9F
Data.q $58C9B81B716BAB2B,$1884BE544A093207,$8BA1F2A250160120,$3326866858C09532,$43128822518B9980
Data.q $90D10100C674C282,$C274420CB087CA28,$3E52B18C64D83714,$7BDED76BB6B1B74A,$F7F412DAD83703FC
Data.q $EF39CF7F7DE73DDF,$553C4108495E737D,$082E77756F5B36EE,$0CAAA1C0E9EE9886,$CE2629DC0AA10217
Data.q $EF79A25311F2F518,$6290F3C677AE4B3B,$FDD7DCDA27772A01,$A05F949C5E11BD15,$48E36D3274F4747D
Data.q $CD3AE4474A811526,$5D6D483FAA9C756D,$792DA67B63AF5FB3,$A01450288EA286FD,$9CC760DF742A4ABC
Data.q $1A39713B9B0F4FC9,$010A370842D0F402,$918186C3A2243400,$8F071360797C11F8,$ABCDD2C6D33975FD
Data.q $52A4DBA501712FC5,$08CD52D2C961F2A1,$B8AE8447537443E3,$73C624858A180425,$D90AA93F2A37EDBA
Data.q $05177C46B2DA2CAD,$CF641030A90BEB78,$804746931A25C5DB,$46325033FFFC40F3,$2ABEB6512F7AB41C
Data.q $DA8A756CCF10F194,$D1776B64B579407E,$451E6194D73E5CE0,$B90CC8A822005680,$B273640C2410C42F
Data.q $73735A278DCA86B1,$86E0190114EADBC9,$E6EC99A54F698A87,$342E0024065C022C,$169DCB2AEEBCD985
Data.q $7C054027BC663FC6,$3F1E93016E42645C,$49D605ACA8D8D995,$AEB4B878F5639F65,$F4F4A809026D39EC
Data.q $19AF3C500B9E3527,$95AD7D7892538980,$8490D209EE194787,$8E3D07C5ABC5D3BB,$3CFCC2C7CFB2EC3C
Data.q $80D2E6BFC30136A3,$2F21ED400C387084,$8A01EF31997B0E27,$140262E9A5B1DAD7,$ED48F238AD93587C
Data.q $372D300FECA666EE,$8ADEA83105151B27,$2EC0ED6034285080,$AC5782CABBEE3F37,$28C6D46CC0CCE6BC
Data.q $77EFDF1B02F8C297,$5BA7A6C63EFD954D,$8304284281512810,$45CB6AA10663E8C1,$658324A8A368ECF6
Data.q $28793BE4683132AB,$65635DFBF15A6564,$1097A5AF5EB86145,$E80D8E1C37B2DB83,$3F3B0379636104E3
Data.q $9C582C390DEAC0BD,$B07AF1693467BFDE,$A7436AEDEA8AAAC8,$A255102F876ABE8F,$1F9C6A33D02DCA58
Data.q $8A0F2DEE4EEDA06F,$FCBB3B5730D59082,$386A89513543A9C9,$26E34FAE9744A282,$DB84C71D9EFA5025
Data.q $2927E3D7AC777C2D,$EEDEDF51D3ACB709,$1C70F3EE894E6D1D,$E4CEDF79AC066B73,$EFEE3A22C6DBE6D9
Data.q $8434B2F53D7A0F66,$F61D728B9D8D8D23,$35ADF0191A88A0A8,$43492FE6548AAAC0,$DD494FF8944448D2
Data.q $ECCB2CB3F025D029,$180D9E3347CF5B3D,$39DF091DBD81C68D,$F43625C591A752D9,$5FAE9A312A2A0D7A
Data.q $2635C06F9C5D6DED,$D295ACC108491A9F,$0CE61767AB3E4726,$374EEDF1F7AA6C08,$D8E3914A6167946F
Data.q $945DB84DBBD36B45,$BC1084916C4FBAFC,$4BE7F1715F252E50,$36FB96D991F6C945,$556D542DC39AA58A
Data.q $A2EDA7F130C673EA,$75A694EF9EB9FFB7,$EB3AA915A287E4DC,$8D7F50DE65FFA683,$713CD9591DFC2B8F
Data.q $B73381A0C1344AB4,$2E16BB1AF3779A54,$F993FED2F272E833,$E9BC267F54ADA3C9,$5BEF1C4BB13C2823
Data.q $5E4F4A5673991A8F,$CFA73202D8F54CB9,$BAE9EBF7B96290B1,$9A7B393BAFFEC5D4,$38B578FE79B2B23F
Data.q $4DEB3FA1CC7EF77F,$564DE75941D5D0C9,$ED58071CD4847C8C,$56E155450D262409,$0EFECE5E96F69057
Data.q $6183E34D4F68E72D,$F60EF44AFB1DB666,$7D259794D3E8098A,$8246A61EC19987A8,$1BD08A84587CFBE4
Data.q $4871D3A33812EB70,$E789111BF6A6A3AB,$67D0BBEC7ABC0FF1,$454900000000DF7C,$826042AE444E
playend:
pause:
Data.q $0A1A0A0D474E5089,$524448490D000000,$1800000018000000,$3D77E00000000608,$59487009000000F8
Data.q $0E0000C40E000073,$00001B0E2B9501C4,$8948544144496F04,$C61465536C7D959D,$B656C7EDEBBDB77F
Data.q $FB26CC36036541D0,$0C4A017E25069942,$8B2446A251174C92,$304D4CB8B0212881,$310C511A07F64240
Data.q $241218094E19288B,$4E24201610153826,$151B18E662264C98,$EFBBB6BB6B76BAE8,$119BBBACB463FD7D
Data.q $E73CF39F79F77FCF,$C992948ABEE7379C,$F82870778E40E1A2,$86E500FF12CE2C5C,$D537C486912934C1
Data.q $CCCEE63D5D9779CD,$699382372BEEF839,$F3CCC81C34191328,$B0B4BCE84B6C88DD,$E41425DCDF76D2A2
Data.q $FA0306241E364BDD,$85BDB671B4F72E0D,$05DD8D7623976D53,$8C980CD6B65BD979,$4DDF6A949A9B064C
Data.q $0B5529D1EC7F2CF6,$F1C45D30CA2560D6,$3C8D132560028821,$3BB7EF648221CC9C,$563C82D5DBF13968
Data.q $6D41A934FE51B87D,$AAB0DBDE0D2B52A3,$D0DA218B35D33AD6,$C9720C80423A4D09,$E3E1A67E7AE73E62
Data.q $94DF3B9597BE78A6,$8EA95CFEDE0C98DF,$6EAC1BB59DFAF8C6,$93F7E4C04B9446AB,$A15C0EE9CA2E2A1E
Data.q $D89E2CF67C534B7E,$2B35360CA54F2755,$E5535BAC5C7DBD79,$A3FFBA5137739D9E,$3388A4E0A0B0EDF0
Data.q $A4BBBA7FBC34AD9D,$DC02AA32755DB284,$F9DDD323F16DB3F4,$C400280AB9448539,$AECD001FA769A484
Data.q $6E3B8D000F75FAB0,$60A0643D6A6B84A6,$164A9281E2FE6100,$05BC53B3A0B6783E,$73F7EBC33FEA566C
Data.q $0C0E0736F3FD7365,$FBAA9D5183C95386,$BA7C3958E770013B,$EF9C521725458014,$2B6FA9AD5BB14A3A
Data.q $C5B6B6BC7D82F859,$A2B30E1ABE465E5F,$AE25BCE07365CCA2,$00244890A2D2C8A4,$30031259D4D42448
Data.q $BDB378C208E5A4B0,$1AA9621A19E19794,$810308B8A4B8B289,$3C7880C3573692C4,$01893CFB7E3C400E
Data.q $7995F9821E731448,$99848D48B7D43E1C,$38BA61122E466337,$9B4E6991D1E1E180,$B0A0890F8C5A4B09
Data.q $82154F37D2244BC0,$791371048DBB7669,$D2716E303A63E844,$9C5CD5848245D03B,$0C355727E0236DCB
Data.q $91336ECD07A8408C,$6D7B7474689D2182,$0614801ED1020C8E,$B94C52E1C5EA1FD0,$08C6AA40847E8303
Data.q $D5864F6C9143077F,$70D8C45C90421244,$86FDBB1D2B462102,$423F80DCE6108231,$EDEF68D3553E1656
Data.q $749132EA99CDCC0D,$1E690838B1EB76E3,$FFC2C131906188C5,$58AABB4EDD8FD979,$9E52595C19D9D638
Data.q $1741D4818C60EE6F,$511E61740C212566,$2AAAA0FC1CD059DB,$A2A7C9E0F9DA3B07,$57A440EF4B4B972E
Data.q $C3C6085D03B9842C,$B4AFA45D2E213DBD,$D97FB2ADABF55682,$9F1B5D2DA3D3E57A,$6B0B766A234E2EAE
Data.q $DFA0B766CE8E8CB6,$8532A8B00312511A,$B2F34C6B9EDF6327,$2F252915D4A348FD,$E5E171F5AFB2526E
Data.q $2AA6B94539FCEC9A,$4BB4D1768F5A24EF,$32DDFBE0B29717B4,$1E2CA75B3F5DFA91,$BDE68F3ACD48E7E8
Data.q $E75FB62FC4BFFDCB,$3A1E22C281916DA3,$554E0F7180FF24DE,$78AFF675FF4CF2AD,$F123BF4D9715A9D5
Data.q $660644FE69BBC733,$8932797EF4FAA4CC,$AF8795EBE5CC9E9B,$964B05255E79A55D,$7DC2AFF9D73532E7
Data.q $39C74832FA1C4257,$F2CD9385E22C2D7E,$6F65FD1F09F3D8D2,$D67EC1F500D0CE28,$F37839714F07B9CD
Data.q $183018606566641D,$E817E3A095DBD18A,$C94FB674CF5E9DFA,$6B5E313217C4F1A1,$C7B15ABE3C648342
Data.q $A31E91661B1A5987,$13BB481A57261C22,$4DA3F1A6BCE0E69F,$F1A64FA93ED4F5A3,$40E7F08C0FBBC50F
Data.q $4E454900000000DC,$826042AE44
pauseend:
stop:
Data.q $0A1A0A0D474E5089,$524448490D000000,$1800000018000000,$3D77E00000000608,$59487009000000F8
Data.q $0E0000C40E000073,$00001B0E2B9501C4,$8948544144490604,$C71465536C6D95A5,$5B2B65F6F4BD777F
Data.q $CA4E986C0742B2B6,$250C6F89518B21BA,$D11312538BA09706,$3532E2C084890310,$314E3507D96600C1
Data.q $60C14474C97C4944,$82016105059898D0,$5B6399809904613A,$1DEDBDAC2FAE8CAD,$D2BAE93083F1F7BD
Data.q $EFFF9CE4F76FFFA1,$2084248F39B9E739,$458CAEB916F6DA9B,$19F1860F2C6A489E,$B14082184084B306
Data.q $5F91D07C8B765383,$3CD9224667D5EFB4,$81DDF37B6D00A9A4,$5697A78A78EB7891,$F7729CB858EF9AD7
Data.q $8D4E106041290A62,$1C5DBD1387B06170,$EE507C28B710B9ED,$9403386D7DB6DC2E,$F32E043521D2D801
Data.q $D7755CCFF703FD71,$802347E824A84C3A,$D8DC147C89800A8E,$D3B4DF27C11C4058,$DE6B3772A1D7F875
Data.q $25DA680AC87E2CDE,$3269AD3637830935,$44521E8C63CFB5CD,$580A4E0660108EB3,$43B77B699FC1C9C2
Data.q $ABE28BC77AB1732B,$926A0D491FCBC00C,$2930E4C9BF595E2F,$64BA4FDFB2039CA8,$5B65A45D0818F8EC
Data.q $166CED0F1E7F3687,$B0F7253A5B002747,$17E63956EBCDB39F,$55FF8D34C0CA86DD,$A6EBEF1C3C36121E
Data.q $3B552F5E0363CDED,$5AD20E5C032A859B,$9502A8ACA3A95F77,$0EEE548900424021,$C6200C2498B024F2
Data.q $27DDE965ADE9DC1F,$52AD8097F4FAFBCA,$6D6E2E4182B887CB,$8002418AC56CD279,$804E5CF8BF53AEA4
Data.q $BE272A07E7CCB673,$7D7E79F88810144D,$D18B1C994557D057,$335DB15B37655D58,$E64C9923C8300097
Data.q $3A003513CDC6A404,$8C94557C2E855C31,$2B79D4AB8E42B18D,$051226F208E8183D,$4957920272D34D02
Data.q $DD6A4B3A70E7FBAB,$A8C78E4CBFDFBD7C,$2A549F4089C73399,$74098CC89681D5A6,$591AFEE3C45DCA2A
Data.q $E3471998B16599D7,$531224EBA532DFC6,$A6D5AE349A924F54,$0D94E20A1330EECB,$D398B1441D142303
Data.q $027355551D711212,$0F11983A908A6A12,$CAB8D908EBA2095F,$298664B0BC68915F,$4E116CDCE865212D
Data.q $10BC793EBA1A1200,$0A2B20202829C60A,$F6C54585A1C3C3BD,$68039A7230DD04B4,$2085FBF01322E81A
Data.q $BEC1C794B2BD0B16,$03BD2CAFAF6AC8BE,$CF69D99E9480FA7D,$7D9965901CAC5009,$BB5447E1EB797A67
Data.q $A6A9E641D0DCAEDD,$460F0D118C98A392,$25BA6AA2FF167739,$6ABEED4A372B0421,$D6E6C59950DA3F36
Data.q $FD367E0279DAFED4,$64CE140321D8A5F4,$CA4778F469C78FFB,$FBFBBCCBFF9C7816,$F788B95BD0F74E7E
Data.q $1754B378FD7586E1,$D7144A1BB5DBE51E,$897BDB3F327FC76C,$1CF70F0AE1E35A77,$9AAB0000D3E710EA
Data.q $59F1A7B12F46C7A4,$C7E64B7A5559529B,$99CD089EF9D00D0F,$78F5C8E23DB1C34B,$CFF7BA51BF5993C6
Data.q $EF5E5F296A6B3A21,$62FFB1A9BB69D8A4,$E9C9399C23BBFD94,$2B6914E91D4F0F0A,$2D920BE57F47CA78
Data.q $B70586CA3225A61A,$FC95995703E95253,$1926895C06181982,$1BFFD02FCCE71FEE,$5D88B33EBCA525C3
Data.q $04A6BD93E3153F87,$C12D1649CF83D75C,$B1D524A96582648A,$8A02362C20614E18,$EE856677C28A5395
Data.q $01BF8F3654899FA3,$DAD8782809CBC4EA,$444E454900000000,$826042AE
stopend:
EndDataSection
Edit 2 :Modified
Edit 3 :Modified