Calendrier Astronomique de Poche avec lib suisse en datas

Programmation d'applications complexes
Avatar de l’utilisateur
kernadec
Messages : 1594
Inscription : ven. 25/avr./2008 11:14

Calendrier Astronomique de Poche avec lib suisse en datas

Message par kernadec »

bonsoir
un ptit essai de calendrier astro avec la lib suisse
penser a activer les supports de themes XP

mise a jour juin 2009 vers PB430
pour telechargement du fichier: "swewin32.zip"
qui contient le fichier: swedll32.dll
c'est ici: ftp://ftp.astro.com/pub/swisseph/programs/

Code : Tout sélectionner

;################################################################
;
; Swiss Ephemeris - swedll32.LIB
;
; Interface pour Purebasic 430 et ;; 420
;
; ftp://ftp.astro.com/pub/swisseph/programs/
; http://www.astro.com/swisseph/swephprg.htm
; sites pour obtenir la lib ' swedll32.LIB et swedll32.DLL '
;################################################################
;  Impression d'ephémérides sur 32 jours par Kernadec 09/2008   #
;      voila un petit calendrier astronomique de poche          #
;     maximise et minimise windows et gadgets  MàJ 6/2009       #
;################################################################

Declare calcul()
Global jour.l,jours.l
Global journ.s
Global mois.l,moiss.l
Global annee.l,annees.l
Global minut.d
Global heure.d 
Global Path.s
Global c.s
Global starname.s
Global hdms.s
Global mdms.s
Global sdms.s
Global PoliceID

;################################################################


Path="C:\"  ;  chemin du repertoire principal


Global Dim x.d(6); déclaration du tableau x
Global Dim x2.d(6)
Global Dim cusp.d(13)
Global Dim ascmc.d(10)
Global Dim attr.d(20)
Global Dim tret.d(20)
Global Dim geopos.d(10)
Global Dim geoposx.d(10)
Global Dim xnasc.d(6)
Global Dim xndsc.d(6)
Global Dim xperi.d(6)
Global Dim xaphe.d(6)
Global Dim Position.d(22)
Global Dim retro.s(22)
Global Dim serr.s(255)
Global Dim plnam.s(255)
Global hcusps.d=0
Global pName.s=Space(256)
Global Dim signepl.l(13)
Global Dim degrepl.s(13)
Global Dim minutpl.s(13)
Global Dim seconpl.s(13)
Global Dim zod.s(11)
Global Dim coltx.s(20)


#SEFLG_SWIEPH=2
#SEFLG_SPEED=256


Enumeration 0 Step 1
  #SE_GREG_CAL
  #SE_JUL_CAL
  #ID
EndEnumeration

Enumeration 0 Step 1
  #SE_SUN
  #SE_MOON
  #SE_MERCURY
  #SE_VENUS
  #SE_MARS
  #SE_JUPITER
  #SE_SATURN
  #SE_URANUS
  #SE_NEPTUNE
  #SE_PLUTO
  #SE_MEAN_NODE
  #SE_TRUE_NODE
  #SE_MEAN_APOG
  #SE_OSCU_APOG
  #SE_EARTH
  #SE_CHIRON   
  #SE_PHOLUS
  #SE_CERES
  #SE_PALLAS
  #SE_JUNO
  #SE_VESTA
  #SE_INTP_APOG
  #SE_INTP_PERG
EndEnumeration
Procedure xcm(x.f)
  x = x * (PrinterPageWidth()/21) ; 21cm A4
  ProcedureReturn x
EndProcedure
Procedure ycm(x.f)
  x = x * (PrinterPageHeight()/29.7) ; 29,7cm A4
  ProcedureReturn x
EndProcedure 
Procedure.d Frac(x.d)
  ProcedureReturn x-Int(x)
EndProcedure
Procedure.d dms(x.d)
  ProcedureReturn Int(x)+Frac(Int(Frac(x)*60)/100)+Frac(Frac(Frac(x)*60)*0.006)
EndProcedure



Restore zodiaque
For n=0 To 11
  ;;Read zod.s(n)
  Read.s zod.s(n)
Next n

;################################################################
Prototype.d SWE_JulDay(annee.l,mois.l,jour.l,heure.d,flag.l)
Prototype.l SWE_RevJul(juliandate.d,flag.l,*annee.l,*mois.l,*jour.l,*heure.l)
Prototype.l SWE_Day_Of_Week(juliandate.d)
Prototype.d SWE_DegNorm(juliandate.d)
Prototype.d SWE_date_conversion(annee.l,mois.l,jour.l,heure.d,cal.b,tjd.d)
Prototype.l SWE_Calc_ut(tjd.d,ipl.l,Iflag.l,*x,serr.s)
Prototype.s SWE_set_ephe_path(Path.s)
Prototype.l SWE_get_planet_name(ipl.l,pName.s)
Prototype.d SWE_deltat(tjd.d)
Prototype.l SWE_pheno(tjd.d,ipl.l,Iflag.l,*attr,serr.s)
Prototype.l SWE_rise_trans(tjd.d,ipl.l,starname.s,epheflag.l,rsmi.l,*geopos,atpress.d,attemp.d,*tret,serr.s)
Prototype.l SWE_houses_ex(tjd.d,Iflag.l,geolat.d,geolon.d,ihsy.l,*cusp,*ascmc)
Prototype.d SWE_sidtime(tjd.d)
Prototype.l SWE_houses_armc(armc.d,geolat.d,eps.d,ihsy.l,*cusp,*ascmc)
;################################################################
;################### premier mode ###############################
;If OpenLibrary(1,path+"swedll32.dll")
; JulDay.SWE_JulDay = GetFunction(1,"_swe_julday@24")
; RevJul.SWE_RevJul = GetFunction(1,"_swe_revjul@28")
; Day_Of_Week.SWE_Day_Of_Week = GetFunction(1,"_swe_day_of_week@8")
; DegNorm.SWE_DegNorm = GetFunction(1,"_swe_degnorm@8")
; Date_conversion.SWE_date_conversion = GetFunction(1,"_swe_date_conversion@28")
; Calc_ut.SWE_Calc_ut= GetFunction(1,"_swe_calc_ut@24")
; set_ephe_path.SWE_set_ephe_path= GetFunction(1,"_swe_set_ephe_path@4")
; get_planet_name.SWE_get_planet_name= GetFunction(1,"_swe_get_planet_name@8")
; deltat.SWE_deltat= GetFunction(1,"_swe_deltat@8")
; pheno.SWE_pheno= GetFunction(1,"_swe_pheno@24")
; rise_trans.SWE_rise_trans= GetFunction(1,"_swe_rise_trans@52")
; houses_ex.SWE_houses_ex= GetFunction(1,"_swe_houses_ex@40")
; sidtime.SWE_sidtime= GetFunction(1,"_swe_sidtime@8")
; houses_armc.SWE_houses_armc= GetFunction(1,"_swe_houses_armc@36")
; Else
;MessageRequester("Error!","Can't open library!",#MB_ICONERROR)
;End
;EndIf
;################################################################
;################### deuxieme mode ##############################
Import "swedll32.lib"
  julday.d(annee.l,mois.l,jour.l,heure.d,flag.l) As "_swe_julday@24"
  RevJul(juliandate.d,flag.l,*annee.l,*mois.l,*jour.l,*heure.l) As "_swe_revjul@28"
  Day_Of_Week.l(juliandate.d) As "_swe_day_of_week@8"
  DegNorm.d(juliandate.d) As "_swe_degnorm@8"
  Date_conversion.l(annee.l,mois.l,jour.l,heure.d,cal.b,tjd.d) As "_swe_date_conversion@28"
  Calc_ut.l(tjd.d,ipl.l,Iflag.l,*x,serr.s) As "_swe_calc_ut@24";il ne faut pas mettre x sous forme de tableau. ????
  set_ephe_path(Path.s) As "_swe_set_ephe_path@4"
  get_planet_name(ipl.l,pName.s) As "_swe_get_planet_name@8"
  deltat(tjd.d) As "_swe_deltat@8"
  pheno.l(tjd.d,ipl.l,Iflag.l,*attr,serr.s) As "_swe_pheno@24"
  rise_trans.l(tjd.d,ipl.l,starname.s,epheflag.l,rsmi.l,*geopos,atpress.d,attemp.d,*tret,serr.s) As "_swe_rise_trans@52"
  houses_ex.l(tjd.d,Iflag.l,geolat.d,geolon.d,ihsy.l,*cusp,*ascmc) As "_swe_houses_ex@40"
  sidtime.d(tjd.d) As "_swe_sidtime@8"
  houses_armc.l(armc.d,geolat.d,eps.d,ihsy.l,*cusp,*ascmc) As "_swe_houses_armc@36"
EndImport

;##################### date actuelle ############################
annee=Year(Date())
jour=Day(Date())
mois=Month(Date())
Global WinW.l,WinH.l,WinX.l,WinY.l,OldW.l,OldH.l

WinW=915
WinH=495
WinX=(GetSystemMetrics_(#SM_CXSCREEN)-WinW)/2
WinY=(GetSystemMetrics_(#SM_CYSCREEN)-WinH)/2
OldW=WinW
OldH=WinH

Form1_hWnd=OpenWindow (0 , WinX, WinY,WinW, WinH, " Calcul d'Ephémérides pour Oh GMT  par Périodes de 32 Jours   -- Kernadec --" , #PB_Window_ScreenCentered|#PB_Window_SystemMenu|#PB_Window_MinimizeGadget|#PB_Window_MaximizeGadget|#PB_Window_SizeGadget )
SendMessage_(WindowID(0),#WM_SETICON,#False,CatchImage(0,?ephe_ico_Start)) ;icone dans la barre de titre
                                                                           ;;If Form1_hWnd=0 Or CreateGadgetList(Form1_hWnd)=0 : End : EndIf

Global OffW.f : OffW=1
Global OffH.f : OffH=1

Procedure DrawGadgets()
  PoliceID=LoadFont(1,"Arial",5.8*OffW) ;on peut utilise OffH mais seulement pour les ecrans 16/9
  ListIconGadget (100, 5*OffW, 5*OffH, 905*OffW,440*OffH, "Js" ,21*OffW,#PB_ListIcon_GridLines)
  SetGadgetFont(100, PoliceID)
  AddGadgetColumn (100, 1, "Date 0h" , 45*OffW)
  AddGadgetColumn (100, 2, "GMT TU" , 48*OffW)
  AddGadgetColumn (100, 3, "Soleil" , 65*OffW)
  AddGadgetColumn (100, 4, "Lune" , 65*OffW)
  AddGadgetColumn (100, 5, "Mercure" , 58*OffW)
  AddGadgetColumn (100, 6, "Venus" , 58*OffW)
  AddGadgetColumn (100, 7, "Mars" , 58*OffW)
  AddGadgetColumn (100, 8, "Jupiter" , 58*OffW)
  AddGadgetColumn (100, 9, "Saturne" , 58*OffW)
  AddGadgetColumn (100, 10, "Uranus" , 58*OffW)
  AddGadgetColumn (100, 11, "Neptune" , 58*OffW)
  AddGadgetColumn (100, 12, "Pluton" , 58*OffW)
  AddGadgetColumn (100, 13, "NdnMoy" , 58*OffW)
  AddGadgetColumn (100, 14, "NdnVrai" , 58*OffW)
  AddGadgetColumn (100, 15, "LilithM" ,58*OffW)
  ;;ComboBoxGadget(2,340*OffW,455*OffH,37*OffW,140*OffH,#PB_ComboBox_Editable)
  ComboBoxGadget(2,340*OffW,455*OffH,37*OffW,18,#PB_ComboBox_Editable)
  For x = 1 To 31
    AddGadgetItem(2,-1,Str(x))     ;Jour
  Next
  SetGadgetState(2,jour-1)
  ;;ComboBoxGadget(3,380*OffW,455*OffH,37*OffW,140*OffH,#PB_ComboBox_Editable)
  ComboBoxGadget(3,380*OffW,455*OffH,37*OffW,18,#PB_ComboBox_Editable)
  
  For x = 1 To 12
    AddGadgetItem(3,-1,Str(x))     ;mois
  Next
  SetGadgetState(3,mois-1)
  ;;ComboBoxGadget(4,420*OffW,455*OffH,48*OffW,200*OffH,#PB_ComboBox_Editable)
  ComboBoxGadget(4,420*OffW,455*OffH,48*OffW,18,#PB_ComboBox_Editable)
  For x = 1 To 2300           
    AddGadgetItem(4,-1,Str(x))    ;année
  Next
  SetGadgetState(4, Abs(annee-1))
  ;########################### boutons ############################
  ButtonGadget(5, 60*OffW, 455*OffH, 115*OffW, 25*OffH, "Quitter")
  ButtonGadget(6, 200*OffW, 455*OffH, 115*OffW, 25*OffH, "Imprimer")
  ButtonGadget(7, 500*OffW, 455*OffH, 115*OffW, 25*OffH, "Effacer")
  ButtonGadget(8, 640*OffW, 455*OffH, 115*OffW, 25*OffH, "Editions")
  ;########################### titres #############################
  TextGadget(22, 340*OffW, 477*OffH, 120*OffW, 20*OffH, "Jour      Mois       Année")
  ;################################################################
EndProcedure

DrawGadgets()

Repeat
  Event=WaitWindowEvent()
  NewW=WindowWidth(0) : NewH=WindowHeight(0)
  If NewW<>OldW Or NewH<>OldH
    OldW=NewW : OldH=NewH
    OffW=NewW/WinW : OffH=NewH/WinH
    DrawGadgets()
    jour.l=Val(GetGadgetText(2))
    mois.l=Val(GetGadgetText(3))
    annee.l=Val(GetGadgetText(4))
    calcul()
  EndIf
  If Event = #PB_Event_Gadget Or Event = #PB_Event_Menu
    
    Select EventGadget()
      Case 5
        CloseWindow(0):Break
      Case 6
        yhaut = 300
        xleft = 200
        p=0
        If PrintRequester()
          If StartPrinting("Ephemeride ")
            Font=ycm(((4*0.090)/2.5))
            LoadFont(0,"Arial",Font)
            If StartDrawing(PrinterOutput())
              DrawingFont(FontID(0))
              For n=0 To CountGadgetItems(100)
                yhaut=yhaut+(Font*1.5)
                DrawText(xleft,yhaut,GetGadgetItemText(100,n-1,0))
                DrawText(xleft+xcm(8*0.035),yhaut,"| "+GetGadgetItemText(100,n-1,1))
                DrawText(xleft+xcm(34*0.035),yhaut,"| "+GetGadgetItemText(100,n-1,2))
                DrawText(xleft+xcm(62*0.035),yhaut,"| "+GetGadgetItemText(100,n-1,3))
                DrawText(xleft+xcm(106*0.035),yhaut,"| "+GetGadgetItemText(100,n-1,4))
                DrawText(xleft+xcm(148*0.035),yhaut,"| "+GetGadgetItemText(100,n-1,5))
                DrawText(xleft+xcm(186*0.035),yhaut,"| "+GetGadgetItemText(100,n-1,6))
                DrawText(xleft+xcm(224*0.035),yhaut,"| "+GetGadgetItemText(100,n-1,7))
                DrawText(xleft+xcm(262*0.035),yhaut,"| "+GetGadgetItemText(100,n-1,8))
                DrawText(xleft+xcm(300*0.035),yhaut,"| "+GetGadgetItemText(100,n-1,9))
                DrawText(xleft+xcm(338*0.035),yhaut,"| "+GetGadgetItemText(100,n-1,10))
                DrawText(xleft+xcm(376*0.035),yhaut,"| "+GetGadgetItemText(100,n-1,11))
                DrawText(xleft+xcm(414*0.035),yhaut,"| "+GetGadgetItemText(100,n-1,12))
                DrawText(xleft+xcm(452*0.035),yhaut,"| "+GetGadgetItemText(100,n-1,13))
                DrawText(xleft+xcm(490*0.035),yhaut,"| "+GetGadgetItemText(100,n-1,14))
                DrawText(xleft+xcm(528*0.035),yhaut,"| "+GetGadgetItemText(100,n-1,15))
                If yhaut>ycm(780*0.035)   
                  p=p+1                 ; 29.7cm/848pixels=0.035 - 21.0cm/600pixels=0.035             
                  DrawText(xcm(500*0.035),ycm(800*0.035),Str(p))  ;numero de bas page droite
                  NewPrinterPage()
                  yhaut=300
                  DrawText(xleft,yhaut,GetGadgetItemText(100,-1,0))
                  DrawText(xleft+xcm(8*0.035),yhaut,"| "+GetGadgetItemText(100,-1,1))
                  DrawText(xleft+xcm(34*0.035),yhaut,"| "+GetGadgetItemText(100,-1,2))
                  DrawText(xleft+xcm(62*0.035),yhaut,"| "+GetGadgetItemText(100,-1,3))
                  DrawText(xleft+xcm(106*0.035),yhaut,"| "+GetGadgetItemText(100,-1,4))
                  DrawText(xleft+xcm(148*0.035),yhaut,"| "+GetGadgetItemText(100,-1,5))
                  DrawText(xleft+xcm(186*0.035),yhaut,"| "+GetGadgetItemText(100,-1,6))
                  DrawText(xleft+xcm(224*0.035),yhaut,"| "+GetGadgetItemText(100,-1,7))
                  DrawText(xleft+xcm(262*0.035),yhaut,"| "+GetGadgetItemText(100,-1,8))
                  DrawText(xleft+xcm(300*0.035),yhaut,"| "+GetGadgetItemText(100,-1,9))
                  DrawText(xleft+xcm(338*0.035),yhaut,"| "+GetGadgetItemText(100,-1,10))
                  DrawText(xleft+xcm(376*0.035),yhaut,"| "+GetGadgetItemText(100,-1,11))
                  DrawText(xleft+xcm(414*0.035),yhaut,"| "+GetGadgetItemText(100,-1,12))
                  DrawText(xleft+xcm(452*0.035),yhaut,"| "+GetGadgetItemText(100,-1,13))
                  DrawText(xleft+xcm(490*0.035),yhaut,"| "+GetGadgetItemText(100,-1,14))
                  DrawText(xleft+xcm(528*0.035),yhaut,"| "+GetGadgetItemText(100,-1,15))
                EndIf 
              Next n
              p=p+1
              DrawText(xcm(500*0.035),ycm(800*0.035),Str(p))  ;numero de derniere page
              StopDrawing()
            EndIf
            StopPrinting()
          EndIf
        EndIf
      Case 7
        ;;ClearGadgetItemList(100)
        ClearGadgetItems(100) 
      Case 8
        jour.l=Val(GetGadgetText(2))
        mois.l=Val(GetGadgetText(3))
        annee.l=Val(GetGadgetText(4))
        calcul()
      Case #PB_Event_CloseWindow
        CloseWindow(0) :Break
    EndSelect
  EndIf
Until   Event = #PB_Event_CloseWindow
End
Procedure calcul()
  annees=annee
  moiss=mois
  jours=jour
  For ii=0 To 31
    Iflag=#SEFLG_SWIEPH+#SEFLG_SPEED
    heure=0
    tjd_ut.d=julday(annee,mois,jour,heure,#SE_JUL_CAL)
    tsidtu.d=sidtime(tjd_ut)
    For nplanete=#SE_SUN To #SE_INTP_PERG
      Calc_ut.l(tjd_ut,nplanete,Iflag,@x.d(0),serr.s)
      Position(nplanete)=x(0)
      If x(3) < 0
        retro(nplanete)= "r"
      Else
        retro(nplanete)= " "
      EndIf
      If nplanete<14
        signepl(nplanete)=Int(Position(nplanete)/30); nmsigne
        degrepl(nplanete)=Str(Int((Position(nplanete)-(signepl(nplanete)*30))))
        minutpl(nplanete)=Str((Position(nplanete)-Int(Position(nplanete)))*60)
        seconpl(nplanete)=Str(Int((((Position(nplanete)-Int(Position(nplanete)))*60)-Int((Position(nplanete)-Int(Position(nplanete)))*60))*60))
      EndIf
    Next nplanete
    jd1.d = julday(annee,mois,jour,heure,#SE_JUL_CAL)
    Select Day_Of_Week( jd1 )
      Case 0: ;"Lundi"
        journ="Lu"
      Case 1: ;"Mardi"
        journ="Ma"
      Case 2: ;"Mercredi"
        journ="Me"
      Case 3: ;"Jeudi"
        journ="Je"
      Case 4: ;"Vendredi"
        journ="Ve"
      Case 5: ;"Samedi"
        journ="Sa"
      Case 6: ;"Dimanche"
        journ="Di"
    EndSelect
    ; mise à jours pour une coquille furtive qui etait dans la conversion du temps universel
    hdms=Str(Int(tsidtu))
    If Len(hdms)<2:hdms="0"+hdms:EndIf
    
    mdms=StrD(dms(tsidtu))
    mdms=Left(StringField(mdms,2,"."),2)
    If Len(mdms)<2:mdms="0"+mdms:EndIf
    
    sdms=StrD(dms(tsidtu),4)
    sdms=Right(StringField(sdms,2,"."),2)
    If Len(sdms)<2:sdms="0"+sdms:EndIf
    
    
    degrepl(0)=Right(Str(Val(degrepl(0)) + 100) , 2)
    minutpl(0)=Right(Str(Val(minutpl(0)) + 100) , 2)
    seconpl(0)=Right(Str(Val(seconpl(0)) + 100) , 2)
    coltx(0)=degrepl(0)+"° "+minutpl(0)+"' "+seconpl(0)+"' "+zod(signepl(0))
    degrepl(1)=Right(Str(Val(degrepl(1)) + 100) , 2)
    minutpl(1)=Right(Str(Val(minutpl(1)) + 100) , 2)
    seconpl(1)=Right(Str(Val(seconpl(1)) + 100) , 2)
    coltx(1)=degrepl(1)+"° "+minutpl(1)+"' "+seconpl(1)+"' "+zod(signepl(1))
    degrepl(2)=Right(Str(Val(degrepl(2)) + 100) , 2):minutpl(2)=Right(Str(Val(minutpl(2)) + 100) , 2)
    coltx(2)=degrepl(2)+"° "+minutpl(2)+"' "+retro(2)+" "+zod(signepl(2))
    degrepl(3)=Right(Str(Val(degrepl(3)) + 100) , 2):minutpl(3)=Right(Str(Val(minutpl(3)) + 100) , 2)
    coltx(3)=degrepl(3)+"° "+minutpl(3)+"' "+retro(3)+" "+zod(signepl(3))
    degrepl(4)=Right(Str(Val(degrepl(4)) + 100) , 2):minutpl(4)=Right(Str(Val(minutpl(4)) + 100) , 2)
    coltx(4)=degrepl(4)+"° "+minutpl(4)+"' "+retro(4)+" "+zod(signepl(4))
    degrepl(5)=Right(Str(Val(degrepl(5)) + 100) , 2):minutpl(5)=Right(Str(Val(minutpl(5)) + 100) , 2)
    coltx(5)=degrepl(5)+"° "+minutpl(5)+"' "+retro(5)+" "+zod(signepl(5))
    degrepl(6)=Right(Str(Val(degrepl(6)) + 100) , 2):minutpl(6)=Right(Str(Val(minutpl(6)) + 100) , 2)
    coltx(6)=degrepl(6)+"° "+minutpl(6)+"' "+retro(6)+" "+zod(signepl(6))
    degrepl(7)=Right(Str(Val(degrepl(7)) + 100) , 2):minutpl(7)=Right(Str(Val(minutpl(7)) + 100) , 2)
    coltx(7)=degrepl(7)+"° "+minutpl(7)+"' "+retro(7)+" "+zod(signepl(7))
    degrepl(8)=Right(Str(Val(degrepl(8)) + 100) , 2):minutpl(8)=Right(Str(Val(minutpl(8)) + 100) , 2)
    coltx(8)=degrepl(8)+"° "+minutpl(8)+"' "+retro(8)+" "+zod(signepl(8))
    degrepl(9)=Right(Str(Val(degrepl(9)) + 100) , 2):minutpl(9)=Right(Str(Val(minutpl(9)) + 100) , 2)
    coltx(9)=degrepl(9)+"° "+minutpl(9)+"' "+retro(9)+" "+zod(signepl(9))
    degrepl(10)=Right(Str(Val(degrepl(10)) + 100) , 2):minutpl(10)=Right(Str(Val(minutpl(10)) + 100) , 2)
    coltx(10)=degrepl(10)+"° "+minutpl(10)+"' "+retro(10)+" "+zod(signepl(10))
    degrepl(11)=Right(Str(Val(degrepl(11)) + 100) , 2):minutpl(11)=Right(Str(Val(minutpl(11)) + 100) , 2)
    coltx(11)=degrepl(11)+"° "+minutpl(11)+"' "+retro(11)+" "+zod(signepl(11))
    degrepl(12)=Right(Str(Val(degrepl(12)) + 100) , 2):minutpl(12)=Right(Str(Val(minutpl(12)) + 100) , 2)
    coltx(12)=degrepl(12)+"° "+minutpl(12)+"' "+retro(12)+" "+zod(signepl(12))
    coltx(13)=journ
    coltx(14)=Right(Str(jour + 100) , 2)+"/"+Right(Str(mois + 100) , 2)+"/"+Right(Str(annee) , 2)
    coltx(15)=hdms+"h"+t$+mdms+"'"+t$+sdms+"'"
    If coltx(13)="Di"
      AddGadgetItem(100, -1, ""+ Chr(10) +""+ Chr(10) + ""+ Chr(10)+""+ Chr(10) +""+ Chr(10) +""+ Chr(10) +""+ Chr(10) +""+Chr(10) +""+ Chr(10) +""+Chr(10) +""+Chr(10) +""+ Chr(10) +""+Chr(10) +""+Chr(10) +""+ Chr(10) +"")
      AddGadgetItem(100, -1, coltx(13)+ Chr(10) + coltx(14)+ Chr(10) + coltx(15)+ Chr(10)+coltx(0)+ Chr(10) + coltx(1)+ Chr(10) + coltx(2)+ Chr(10) + coltx(3)+ Chr(10) + coltx(4)+Chr(10) + coltx(5)+ Chr(10) + coltx(6)+Chr(10) + coltx(7)+Chr(10) + coltx(8)+ Chr(10) + coltx(9)+Chr(10) + coltx(10)+Chr(10) + coltx(11)+ Chr(10) + coltx(12))
    Else
      AddGadgetItem(100, -1, coltx(13)+ Chr(10) + coltx(14)+ Chr(10) + coltx(15)+ Chr(10)+coltx(0)+ Chr(10) + coltx(1)+ Chr(10) + coltx(2)+ Chr(10) + coltx(3)+ Chr(10) + coltx(4)+Chr(10) + coltx(5)+ Chr(10) + coltx(6)+Chr(10) + coltx(7)+Chr(10) + coltx(8)+ Chr(10) + coltx(9)+Chr(10) + coltx(10)+Chr(10) + coltx(11)+ Chr(10) + coltx(12))
    EndIf
    RevJul( jd1+1, #SE_JUL_CAL, @annee.l, @mois.l, @jour.l, @heure.d)
  Next ii
  annee=annees
  mois=moiss
  jour=jours
  
EndProcedure   
;################################################################
DataSection
  zodiaque:       ;  offset police des astres et objets celeste
  Data.s "Bel","Tau","Gem","Can","Lio","Vie","Bal","Sco","Sag","Cap","Ver","Poi"
EndDataSection

;################################################################
;  IncludeBinary "ephe.ico" [?ephe_ico_Start , ?ephe_ico_End]
;{ Size = 766 bytes
DataSection
  ; PureBin2Data header
  Data.l 766
  Data.b 0
  ; Data
  ephe_ico_Start:
  Data.l $00010000,$20200001,$00010010,$02E80004,$00160000,$00280000,$00200000,$00400000,$00010000,$00000004,$02800000,$00000000
  Data.l $00000000,$00000000,$00000000,$00000000,$00000000,$80000080,$80000000,$00800080,$00800000,$80800080,$80800000,$C0C00080
  Data.l $000000C0,$FF0000FF,$FF000000,$00FF00FF,$00FF0000,$FFFF00FF,$FFFF0000,$000000FF,$77770000,$77777777,$00000070,$00000000
  Data.l $70000000,$00707070,$00000070,$00000000,$07000000,$00000707,$00000070,$00000000,$70000000,$00707070,$00000070,$00000000
  Data.l $00000000,$00000000,$00000070,$00000000,$78000000,$00F0F878,$00000077,$00000000,$88780000,$F0888888,$00007007,$00000000
  Data.l $00887800,$88080000,$000077F0,$00000000,$0F008807,$0800FFFF,$0070078F,$00000000,$FF0F8078,$00FFFFF0,$0070F088,$00000000
  Data.l $FFFF0888,$FF0FFFF0,$00778008,$07000000,$0FFF0F80,$FF0FF8F0,$00078F00,$08000000,$FFFFF880,$FFFFF0FF,$700788F0,$78000000
  Data.l $FF0F8F00,$0FFF80FF,$77F008F0,$88000070,$FFFFF808,$FFFF0FFF,$008008FF,$78000077,$FF8F8F0F,$FFFF0FF8,$88F008FF,$88000007
  Data.l $FF0F0008,$00FF8F80,$0080080F,$78000007,$F8FF8F0F,$FFFF980F,$88F008FF,$88000000,$808FF808,$FF8FF9FF,$008008FF,$78000000
  Data.l $0F0F8F00,$0F98FFFF,$00F008F0,$08000000,$FFF88880,$8FF9FF8F,$000788F0,$07000000,$08F80880,$9F0F8FF0,$00008F00,$00000000
  Data.l $8F8F0888,$FFFFFFF0,$00708008,$00000000,$F8088078,$008F8F80,$0000F088,$00000000,$08008807,$0800F8F8,$00000087,$00000000
  Data.l $00887800,$88080000,$00000070,$00000000,$88780000,$70888888,$00000000,$00000000,$78000000,$00707878,$00000070,$00000000
  Data.l $00000000,$00000000,$00000070,$00000000,$70000000,$00707070,$00000070,$00000000,$07000000,$00000707,$00000070,$00000000
  Data.l $70000000,$00707070,$00000000,$00FF0000,$00FEFF07,$00FEFF07,$00FEFF07,$00FEFF07,$00FEFF07,$00FCFF03,$00F8FF01,$00F0FF00
  Data.l $00E07F00,$00E07F00,$00C03F00,$00C03F00,$00801F00,$00800700,$00800300,$00800300,$00800300,$00800700,$00800F00,$00C03F00
  Data.l $00C03F00,$00E07F00,$00E07F00,$00F0FF00,$00F8FF01,$00FCFF03,$00FEFF07,$00FEFF07,$00FEFF07,$00FEFF07,$00FEFF07
  Data.b $0F,$FF
  ephe_ico_End:
EndDataSection ;}
Dernière modification par kernadec le ven. 17/janv./2020 15:25, modifié 10 fois.
Avatar de l’utilisateur
kernadec
Messages : 1594
Inscription : ven. 25/avr./2008 11:14

swedll32_lib

Message par kernadec »

je suis oblige de la mettre en deux partie pour les datas
j'ai tester la lib cela fonctionne avec le code repris depuis ce site
il faut créer un exécutable pour qu'il intègre la LIB

Code : Tout sélectionner

; German forum: http://www.purebasicforums.com/german/archive/viewtopic.php?t=431 
; Author: Rings (updated for PB4.00 by blbltheworm) 
; Date: 08. April 2003 
; OS: Windows 
; Demo: Yes 

;ExPandBinary (c) 2002 by Siegfried Rings (known as  'CodeGuru' ) 
;expand files which includes via IncludeBinary 

; Zu allem Überfluss (Als es das Catch-Commando noch nicht gab) habe ich mal mein ExpandBinary hier 
; beigefügt. Anstatt das Bild kann man natürlich auch eine EXE nehmen und die dann starten. 

;voila pour la librairie suisse c'est plus rapide 
CatchImage(0,?swedll32_lib_Start) 
Procedure ExpandBinaryfile(Filename.s) 
  If CreateFile(1, Filename) ;Create File      
    ;Use File 1      
    L1= ?swedll32_lib_End-?swedll32_lib_Start    ;get the size of it        
    WriteData(1,?swedll32_lib_Start,L1) ;write it down to the file      
    CloseFile(1); Close Filepointer 
  EndIf 
  ProcedureReturn 
EndProcedure 
ExpandBinaryfile("swedll32.lib") 
;  IncludeBinary "swedll32.lib" [?swedll32_lib_Start , ?swedll32_lib_End]
;{ Size = 27622 bytes
DataSection
; PureBin2Data header
Data.l 27622
Data.b 0
; Data
swedll32_lib_Start:
Data.l $72613C21,$0A3E6863,$2020202F,$20202020,$20202020,$20202020,$36393131,$37323233,$20203633,$20202020,$20202020,$20202020
Data.l $20202030,$20202020,$34313436,$20202020,$0A602020,$F1000000,$A6320000,$D6340000,$0E360000,$3E380000,$3E380000,$AC5C0000
Data.l $AC5C0000,$84610000,$84610000,$1A5A0000,$1A5A0000,$F45A0000,$F45A0000,$5A580000,$5A580000,$38590000,$38590000,$56660000
Data.l $56660000,$44670000,$44670000,$F0560000,$F0560000,$865D0000,$865D0000,$14550000,$14550000,$02560000,$02560000,$34690000
Data.l $34690000,$E4570000,$E4570000,$3E680000,$3E680000,$6A570000,$6A570000,$64370000,$64370000,$D65E0000,$D65E0000,$2E4C0000
Data.l $2E4C0000,$3A540000,$3A540000,$FC5D0000,$FC5D0000,$9E420000,$9E420000,$8A390000,$8A390000,$643A0000,$643A0000,$DC4A0000
Data.l $DC4A0000,$BC4B0000,$BC4B0000,$3E3B0000,$3E3B0000,$2A600000,$2A600000,$10610000,$10610000,$5E4F0000,$5E4F0000,$6A620000
Data.l $6A620000,$164D0000,$164D0000,$744E0000,$744E0000,$22460000,$22460000,$0C650000,$0C650000,$E8650000,$E8650000,$2E640000
Data.l $2E640000,$183C0000,$183C0000,$F83C0000,$F83C0000,$44500000,$44500000,$4E630000,$4E630000,$48450000,$48450000,$14430000
Data.l $14430000,$A6540000,$A6540000,$685E0000,$685E0000,$766B0000,$766B0000,$EA520000,$EA520000,$C8530000,$C8530000,$76520000
Data.l $76520000,$26510000,$26510000,$7C400000,$7C400000,$D6470000,$D6470000,$90490000,$90490000,$FC460000,$FC460000,$B2480000
Data.l $B2480000,$5A410000,$5A410000,$34420000,$34420000,$966A0000,$966A0000,$FC430000,$FC430000,$9E3F0000,$9E3F0000,$BA3E0000
Data.l $BA3E0000,$D83D0000,$D83D0000,$AC690000,$AC690000,$CC660000,$CC660000,$B8680000,$B8680000,$C0670000,$C0670000,$8A550000
Data.l $8A550000,$78560000,$78560000,$865A0000,$865A0000,$625B0000,$625B0000,$185D0000,$185D0000,$D0370000,$D0370000,$AE380000
Data.l $AE380000,$465F0000,$465F0000,$C8580000,$C8580000,$A8590000,$A8590000,$B6500000,$B6500000,$04520000,$04520000,$98510000
Data.l $98510000,$58530000,$58530000,$D43A0000,$D43A0000,$B85F0000,$B85F0000,$9E600000,$9E600000,$8A4D0000,$8A4D0000,$F8610000
Data.l $F8610000,$A44C0000,$A44C0000,$004E0000,$004E0000,$C0630000,$C0630000,$EA4E0000,$EA4E0000,$6E4A0000,$6E4A0000,$4C4B0000
Data.l $4C4B0000,$20390000,$20390000,$F6390000,$F6390000,$086B0000,$086B0000,$DC440000,$DC440000,$405C0000,$405C0000,$D44F0000
Data.l $D44F0000,$DE620000,$DE620000,$10400000,$10400000,$6A470000,$6A470000,$22490000,$22490000,$90460000,$90460000,$44480000
Data.l $44480000,$004A0000,$004A0000,$EA400000,$EA400000,$CC410000,$CC410000,$8C430000,$8C430000,$2E3F0000,$2E3F0000,$483E0000
Data.l $483E0000,$6A3D0000,$6A3D0000,$266A0000,$266A0000,$6E440000,$6E440000,$D25B0000,$D25B0000,$AA3B0000,$AA3B0000,$883C0000
Data.l $883C0000,$B6450000,$B6450000,$9E640000,$9E640000,$7C650000,$7C650000,$4D495F5F,$54524F50,$5345445F,$50495243,$5F524F54
Data.l $64657773,$32336C6C,$4E5F5F00,$5F4C4C55,$4F504D49,$445F5452,$52435345,$4F545049,$737F0052,$6C646577,$5F32336C,$4C4C554E
Data.l $5548545F,$445F4B4E,$00415441,$6D695F5F,$735F5F70,$615F6577,$746C617A,$7665725F,$00343240,$6577735F,$617A615F,$725F746C
Data.l $32407665,$5F5F0034,$5F706D69,$6577735F,$6665725F,$40636172,$5F003832,$5F657773,$72666572,$32406361,$5F5F0038,$5F706D69
Data.l $6577735F,$7465735F,$70616C5F,$725F6573,$40657461,$735F0038,$735F6577,$6C5F7465,$65737061,$7461725F,$00384065,$6D695F5F
Data.l $735F5F70,$705F6577,$6F6E6568,$00343240,$6577735F,$6568705F,$32406F6E,$5F5F0034,$5F706D69,$6577735F,$6568705F,$755F6F6E
Data.l $34324074,$77735F00,$68705F65,$5F6F6E65,$32407475,$5F5F0034,$5F706D69,$6577735F,$646F6E5F,$7370615F,$00303440,$6577735F
Data.l $646F6E5F,$7370615F,$00303440,$6D695F5F,$735F5F70,$6E5F6577,$615F646F,$755F7370,$30344074,$77735F00,$6F6E5F65,$70615F64
Data.l $74755F73,$00303440,$6D695F5F,$735F5F70,$735F6577,$655F6C6F,$70696C63,$685F6573,$3240776F,$735F0034,$735F6577,$655F6C6F
Data.l $70696C63,$685F6573,$3240776F,$5F5F0034,$5F706D69,$6577735F,$6C6F735F,$6C63655F,$65737069,$6568775F,$6C675F6E,$3240626F
Data.l $735F0038,$735F6577,$655F6C6F,$70696C63,$775F6573,$5F6E6568,$626F6C67,$00383240,$6D695F5F,$735F5F70,$6C5F6577,$6F5F6E75
Data.l $6C756363,$68775F74,$675F6E65,$40626F6C,$5F003633,$5F657773,$5F6E756C,$7563636F,$775F746C,$5F6E6568,$626F6C67,$00363340
Data.l $6D695F5F,$735F5F70,$725F6577,$61726665,$78655F63,$646E6574,$34406465,$735F0038,$725F6577,$61726665,$78655F63,$646E6574
Data.l $34406465,$5F5F0038,$5F706D69,$6577735F,$6E756C5F,$6C63655F,$65737069,$776F685F,$00343240,$6577735F,$6E756C5F,$6C63655F
Data.l $65737069,$776F685F,$00343240,$6D695F5F,$735F5F70,$6C5F6577,$655F6E75,$70696C63,$775F6573,$406E6568,$5F003832,$5F657773
Data.l $5F6E756C,$696C6365,$5F657370,$6E656877,$00383240,$6D695F5F,$735F5F70,$735F6577,$655F6C6F,$70696C63,$775F6573,$65726568
Data.l $00343240,$6577735F,$6C6F735F,$6C63655F,$65737069,$6568775F,$32406572,$5F5F0034,$5F706D69,$6577735F,$6E756C5F,$63636F5F
Data.l $5F746C75,$72656877,$32334065,$77735F00,$756C5F65,$636F5F6E,$746C7563,$6568775F,$33406572,$5F5F0032,$5F706D69,$6577735F
Data.l $6C6F735F,$6C63655F,$65737069,$6568775F,$6F6C5F6E,$32334063,$77735F00,$6F735F65,$63655F6C,$7370696C,$68775F65,$6C5F6E65
Data.l $3340636F,$5F5F0032,$5F706D69,$6577735F,$6E756C5F,$63636F5F,$5F746C75,$6E656877,$636F6C5F,$00303440,$6577735F,$6E756C5F
Data.l $63636F5F,$5F746C75,$6E656877,$636F6C5F,$00303440,$6D695F5F,$735F5F70,$615F6577,$746C617A,$00303440,$6577735F,$617A615F
Data.l $3440746C,$5F5F0030,$5F706D69,$6577735F,$7369725F,$72745F65,$40736E61,$5F003235,$5F657773,$65736972,$6172745F,$3540736E
Data.l $5F5F0032,$5F706D69,$6577735F,$7561675F,$6C657571,$735F6E69,$6F746365,$32354072,$77735F00,$61675F65,$65757175,$5F6E696C
Data.l $74636573,$3540726F,$5F5F0032,$5F706D69,$6577735F,$6C756A5F,$40796164,$5F003432,$5F657773,$646C756A,$32407961,$5F5F0034
Data.l $5F706D69,$6577735F,$7665725F,$406C756A,$5F003832,$5F657773,$6A766572,$32406C75,$5F5F0038,$5F706D69,$6577735F,$7461645F
Data.l $6F635F65,$7265766E,$6E6F6973,$00383240,$6577735F,$7461645F,$6F635F65,$7265766E,$6E6F6973,$00383240,$6D695F5F,$735F5F70
Data.l $635F6577,$5F636C61,$30324064,$77735F00,$61635F65,$645F636C,$00303240,$6D695F5F,$735F5F70,$635F6577,$5F636C61,$645F7475
Data.l $00303240,$6577735F,$6C61635F,$74755F63,$3240645F,$5F5F0030,$5F706D69,$6577735F,$7869665F,$72617473,$3240645F,$735F0030
Data.l $665F6577,$74737869,$645F7261,$00303240,$6D695F5F,$735F5F70,$665F6577,$74737869,$755F7261,$40645F74,$5F003032,$5F657773
Data.l $73786966,$5F726174,$645F7475,$00303240,$6D695F5F,$735F5F70,$635F6577,$65736F6C,$3440645F,$77735F00,$6C635F65,$5F65736F
Data.l $00344064,$6D695F5F,$735F5F70,$735F6577,$655F7465,$5F656870,$68746170,$3440645F,$77735F00,$65735F65,$70655F74,$705F6568
Data.l $5F687461,$00344064,$6D695F5F,$735F5F70,$735F6577,$6A5F7465,$665F6C70,$5F656C69,$00344064,$6577735F,$7465735F,$6C706A5F
Data.l $6C69665F,$40645F65,$5F5F0034,$5F706D69,$6577735F,$7465675F,$616C705F,$5F74656E,$656D616E,$3840645F,$77735F00,$65675F65
Data.l $6C705F74,$74656E61,$6D616E5F,$40645F65,$5F5F0038,$5F706D69,$6577735F,$7465735F,$6469735F,$646F6D5F,$40645F65,$5F003231
Data.l $5F657773,$5F746573,$5F646973,$65646F6D,$3140645F,$5F5F0032,$5F706D69,$6577735F,$7465675F,$6179615F,$736D616E,$40645F61
Data.l $735F0038,$675F6577,$615F7465,$616E6179,$5F61736D,$00384064,$6D695F5F,$735F5F70,$675F6577,$615F7465,$616E6179,$5F61736D
Data.l $645F7475,$5F003840,$5F657773,$5F746567,$6E617961,$61736D61,$5F74755F,$00384064,$6D695F5F,$735F5F70,$645F6577,$61746C65
Data.l $40645F74,$735F0038,$645F6577,$61746C65,$40645F74,$5F5F0038,$5F706D69,$6577735F,$6469735F,$656D6974,$40645F30,$5F003631
Data.l $5F657773,$74646973,$30656D69,$3140645F,$5F5F0036,$5F706D69,$6577735F,$6469735F,$656D6974,$3840645F,$77735F00,$69735F65
Data.l $6D697464,$40645F65,$5F5F0038,$5F706D69,$6577735F,$7465735F,$706F745F,$40645F6F,$5F003231,$5F657773,$5F746573,$6F706F74
Data.l $3140645F,$5F5F0032,$5F706D69,$6577735F,$746F635F,$736E6172,$3140645F,$735F0032,$635F6577,$6172746F,$645F736E,$00323140
Data.l $6D695F5F,$735F5F70,$635F6577,$6172746F,$735F736E,$40645F70,$5F003231,$5F657773,$72746F63,$5F736E61,$645F7073,$00323140
Data.l $6D695F5F,$735F5F70,$675F6577,$745F7465,$615F6469,$645F6363,$5F003440,$5F657773,$5F746567,$5F646974,$5F636361,$00344064
Data.l $6D695F5F,$735F5F70,$735F6577,$745F7465,$615F6469,$645F6363,$5F003440,$5F657773,$5F746573,$5F646974,$5F636361,$00344064
Data.l $6D695F5F,$735F5F70,$645F6577,$6F6E6765,$645F6D72,$5F003440,$5F657773,$6E676564,$5F6D726F,$00344064,$6D695F5F,$735F5F70
Data.l $645F6577,$5F657461,$766E6F63,$69737265,$645F6E6F,$00343240,$6577735F,$7461645F,$6F635F65,$7265766E,$6E6F6973,$3240645F
Data.l $5F5F0034,$5F706D69,$6577735F,$6C756A5F,$5F796164,$34324064,$77735F00,$756A5F65,$7961646C,$3240645F,$5F5F0034,$5F706D69
Data.l $6577735F,$7665725F,$5F6C756A,$34324064,$77735F00,$65725F65,$6C756A76,$3240645F,$5F5F0034,$5F706D69,$6577735F,$6D69745F
Data.l $71655F65,$40645F75,$5F003231,$5F657773,$656D6974,$7571655F,$3140645F,$5F5F0032,$5F706D69,$6577735F,$756F685F,$5F736573
Data.l $34324064,$77735F00,$6F685F65,$73657375,$3240645F,$5F5F0034,$5F706D69,$6577735F,$756F685F,$5F736573,$645F7865,$00383240
Data.l $6577735F,$756F685F,$5F736573,$645F7865,$00383240,$6D695F5F,$735F5F70,$685F6577,$6573756F,$72615F73,$645F636D,$00343240
Data.l $6577735F,$756F685F,$5F736573,$636D7261,$3240645F,$5F5F0034,$5F706D69,$6577735F,$756F685F,$705F6573,$645F736F,$00383240
Data.l $6577735F,$756F685F,$705F6573,$645F736F,$00383240,$6D695F5F,$735F5F70,$635F6577,$726F6E73,$40645F6D,$735F0034,$635F6577
Data.l $726F6E73,$40645F6D,$5F5F0034,$5F706D69,$6577735F,$6669645F,$5F6E7363,$00384064,$6577735F,$6669645F,$5F6E7363,$00384064
Data.l $6D695F5F,$735F5F70,$645F6577,$65646669,$645F6E67,$00323140,$6577735F,$6669645F,$6E676564,$3140645F,$5F5F0032,$5F706D69
Data.l $6577735F,$6669645F,$6E327363,$3840645F,$77735F00,$69645F65,$32736366,$40645F6E,$5F5F0038,$5F706D69,$6577735F,$6669645F
Data.l $32676564,$40645F6E,$5F003231,$5F657773,$64666964,$6E326765,$3140645F,$5F5F0032,$5F706D69,$6577735F,$7273635F,$646E756F
Data.l $5F636573,$00344064,$6577735F,$7273635F,$646E756F,$5F636573,$00344064,$6D695F5F,$735F5F70,$645F6577,$645F6C32,$5F003440
Data.l $5F657773,$5F6C3264,$00344064,$6D695F5F,$735F5F70,$735F6577,$74696C70,$6765645F,$3240645F,$735F0038,$735F6577,$74696C70
Data.l $6765645F,$3240645F,$5F5F0038,$5F706D69,$6577735F,$7961645F,$5F666F5F,$6B656577,$3440645F,$77735F00,$61645F65,$666F5F79
Data.l $6565775F,$40645F6B,$5F5F0034,$5F706D69,$6577735F,$3273635F,$656D6974,$5F727473,$36314064,$77735F00,$73635F65,$6D697432
Data.l $72747365,$3140645F,$5F5F0036,$5F706D69,$6577735F,$3273635F,$6C6E6F6C,$74737461,$40645F72,$5F003631,$5F657773,$6C327363
Data.l $616C6E6F,$72747374,$3140645F,$5F5F0036,$5F706D69,$6577735F,$3273635F,$73676564,$645F7274,$5F003840,$5F657773,$64327363
Data.l $74736765,$40645F72,$5F5F0038,$5F706D69,$6577735F,$6C6F735F,$6C63655F,$65737069,$6568775F,$645F6572,$00303240,$6577735F
Data.l $6C6F735F,$6C63655F,$65737069,$6568775F,$645F6572,$00303240,$6D695F5F,$735F5F70,$735F6577,$655F6C6F,$70696C63,$685F6573
Data.l $645F776F,$00303240,$6577735F,$6C6F735F,$6C63655F,$65737069,$776F685F,$3240645F,$5F5F0030,$5F706D69,$6577735F,$6C6F735F
Data.l $6C63655F,$65737069,$6568775F,$6F6C5F6E,$40645F63,$5F003832,$5F657773,$5F6C6F73,$696C6365,$5F657370,$6E656877,$636F6C5F
Data.l $3240645F,$5F5F0038,$5F706D69,$6577735F,$6C6F735F,$6C63655F,$65737069,$6568775F,$6C675F6E,$645F626F,$00343240,$6577735F
Data.l $6C6F735F,$6C63655F,$65737069,$6568775F,$6C675F6E,$645F626F,$00343240,$6D695F5F,$735F5F70,$6C5F6577,$655F6E75,$70696C63
Data.l $685F6573,$645F776F,$00303240,$6577735F,$6E756C5F,$6C63655F,$65737069,$776F685F,$3240645F,$5F5F0030,$5F706D69,$6577735F
Data.l $6E756C5F,$6C63655F,$65737069,$6568775F,$40645F6E,$5F003432,$5F657773,$5F6E756C,$696C6365,$5F657370,$6E656877,$3240645F
Data.l $5F5F0034,$5F706D69,$6577735F,$6568705F,$645F6F6E,$00303240,$6577735F,$6568705F,$645F6F6E,$00303240,$6D695F5F,$735F5F70
Data.l $705F6577,$6F6E6568,$5F74755F,$30324064,$77735F00,$68705F65,$5F6F6E65,$645F7475,$00303240,$6D695F5F,$735F5F70,$725F6577
Data.l $61726665,$40645F63,$5F003032,$5F657773,$72666572,$645F6361,$00303240,$6D695F5F,$735F5F70,$615F6577,$746C617A,$3240645F
Data.l $735F0038,$615F6577,$746C617A,$3240645F,$5F5F0038,$5F706D69,$6577735F,$617A615F,$725F746C,$645F7665,$00303240,$6577735F
Data.l $617A615F,$725F746C,$645F7665,$00303240,$6D695F5F,$735F5F70,$725F6577,$5F657369,$6E617274,$40645F73,$5F003034,$5F657773
Data.l $65736972,$6172745F,$645F736E,$00303440,$6D695F5F,$735F5F70,$6E5F6577,$615F646F,$645F7370,$00363340,$6577735F,$646F6E5F
Data.l $7370615F,$3340645F,$5F5F0036,$5F706D69,$6577735F,$646F6E5F,$7370615F,$5F74755F,$36334064,$77735F00,$6F6E5F65,$70615F64
Data.l $74755F73,$3340645F,$5F5F0036,$5F706D69,$6577735F,$756F685F,$705F6573,$3340736F,$735F0036,$685F6577,$6573756F,$736F705F
Data.l $00363340,$6D695F5F,$735F5F70,$685F6577,$6573756F,$72615F73,$3340636D,$735F0036,$685F6577,$6573756F,$72615F73,$3340636D
Data.l $5F5F0036,$5F706D69,$6577735F,$756F685F,$40736573,$5F003633,$5F657773,$73756F68,$33407365,$5F5F0036,$5F706D69,$6577735F
Data.l $756F685F,$5F736573,$34407865,$735F0030,$685F6577,$6573756F,$78655F73,$00303440,$6D695F5F,$735F5F70,$635F6577,$65736F6C
Data.l $5F003040,$5F657773,$736F6C63,$00304065,$6D695F5F,$735F5F70,$735F6577,$655F7465,$5F656870,$68746170,$5F003440,$5F657773
Data.l $5F746573,$65687065,$7461705F,$00344068,$6D695F5F,$735F5F70,$735F6577,$6A5F7465,$665F6C70,$40656C69,$735F0034,$735F6577
Data.l $6A5F7465,$665F6C70,$40656C69,$5F5F0034,$5F706D69,$6577735F,$7465675F,$6179615F,$736D616E,$616E5F61,$3440656D,$77735F00
Data.l $65675F65,$79615F74,$6D616E61,$6E5F6173,$40656D61,$5F5F0034,$5F706D69,$6577735F,$7465735F,$6469735F,$646F6D5F,$30324065
Data.l $77735F00,$65735F65,$69735F74,$6F6D5F64,$32406564,$5F5F0030,$5F706D69,$6577735F,$7465675F,$6179615F,$736D616E,$00384061
Data.l $6577735F,$7465675F,$6179615F,$736D616E,$00384061,$6D695F5F,$735F5F70,$675F6577,$615F7465,$616E6179,$5F61736D,$38407475
Data.l $77735F00,$65675F65,$79615F74,$6D616E61,$755F6173,$00384074,$6D695F5F,$735F5F70,$735F6577,$745F7465,$406F706F,$5F003432
Data.l $5F657773,$5F746573,$6F706F74,$00343240,$6D695F5F,$735F5F70,$675F6577,$705F7465,$656E616C,$616E5F74,$3840656D,$77735F00
Data.l $65675F65,$6C705F74,$74656E61,$6D616E5F,$00384065,$6D695F5F,$735F5F70,$665F6577,$74737869,$32407261,$735F0034,$665F6577
Data.l $74737869,$32407261,$5F5F0034,$5F706D69,$6577735F,$7869665F,$72617473,$4074755F,$5F003432,$5F657773,$73786966,$5F726174
Data.l $32407475,$5F5F0034,$5F706D69,$6577735F,$6C61635F,$34324063,$77735F00,$61635F65,$3240636C,$5F5F0034,$5F706D69,$6577735F
Data.l $6C61635F,$74755F63,$00343240,$6577735F,$6C61635F,$74755F63,$00343240,$6D695F5F,$735F5F70,$745F6577,$5F656D69,$40757165
Data.l $5F003631,$5F657773,$656D6974,$7571655F,$00363140,$6D695F5F,$735F5F70,$645F6577,$6F6E6765,$38406D72,$77735F00,$65645F65
Data.l $726F6E67,$0038406D,$6D695F5F,$735F5F70,$725F6577,$6F6E6461,$38406D72,$77735F00,$61725F65,$726F6E64,$0038406D,$6D695F5F
Data.l $735F5F70,$675F6577,$745F7465,$615F6469,$30406363,$77735F00,$65675F65,$69745F74,$63615F64,$00304063,$6D695F5F,$735F5F70
Data.l $735F6577,$745F7465,$615F6469,$38406363,$77735F00,$65735F65,$69745F74,$63615F64,$00384063,$6D695F5F,$735F5F70,$635F6577
Data.l $726F6E73,$0034406D,$6577735F,$6E73635F,$406D726F,$5F5F0034,$5F706D69,$6577735F,$6669645F,$406E7363,$735F0038,$645F6577
Data.l $73636669,$0038406E,$6D695F5F,$735F5F70,$645F6577,$65646669,$31406E67,$735F0036,$645F6577,$65646669,$31406E67,$5F5F0036
Data.l $5F706D69,$6577735F,$6669645F,$6E327363,$5F003840,$5F657773,$63666964,$406E3273,$5F5F0038,$5F706D69,$6577735F,$6669645F
Data.l $32676564,$3631406E,$77735F00,$69645F65,$67656466,$31406E32,$5F5F0036,$5F706D69,$6577735F,$6669645F,$32646172,$3631406E
Data.l $77735F00,$69645F65,$64617266,$31406E32,$5F5F0036,$5F706D69,$6577735F,$7273635F,$646E756F,$40636573,$735F0034,$635F6577
Data.l $756F7273,$6573646E,$00344063,$6D695F5F,$735F5F70,$645F6577,$38406C32,$77735F00,$32645F65,$0038406C,$6D695F5F,$735F5F70
Data.l $645F6577,$6F5F7961,$65775F66,$38406B65,$77735F00,$61645F65,$666F5F79,$6565775F,$0038406B,$6D695F5F,$735F5F70,$635F6577
Data.l $69743273,$7473656D,$36314072,$77735F00,$73635F65,$6D697432,$72747365,$00363140,$6D695F5F,$735F5F70,$635F6577,$6F6C3273
Data.l $74616C6E,$40727473,$5F003631,$5F657773,$6C327363,$616C6E6F,$72747374,$00363140,$6D695F5F,$735F5F70,$635F6577,$65643273
Data.l $72747367,$5F003840,$5F657773,$64327363,$74736765,$00384072,$6D695F5F,$735F5F70,$735F6577,$74696C70,$6765645F,$00323340
Data.l $6577735F,$6C70735F,$645F7469,$33406765,$5F5F0032,$5F706D69,$6577735F,$6765645F,$64696D5F,$36314070,$77735F00,$65645F65
Data.l $696D5F67,$31407064,$5F5F0036,$5F706D69,$6577735F,$6461725F,$64696D5F,$36314070,$77735F00,$61725F65,$696D5F64,$31407064
Data.l $5F5F0036,$5F706D69,$6577735F,$746F635F,$736E6172,$00363140,$6577735F,$746F635F,$736E6172,$00363140,$6D695F5F,$735F5F70
Data.l $635F6577,$6172746F,$735F736E,$36314070,$77735F00,$6F635F65,$6E617274,$70735F73,$00363140,$6D695F5F,$735F5F70,$645F6577
Data.l $61746C65,$00384074,$6577735F,$6C65645F,$40746174,$5F5F0038,$5F706D69,$6577735F,$6469735F,$656D6974,$34324030,$77735F00
Data.l $69735F65,$6D697464,$32403065,$5F5F0034,$5F706D69,$6577735F,$6469735F,$656D6974,$5F003840,$5F657773,$74646973,$40656D69
Data.l $202F0038,$20202020,$20202020,$20202020,$31312020,$32333639,$36333732,$20202020,$20202020,$20202020,$20302020,$20202020
Data.l $34362020,$20203432,$20202020,$007A0A60,$32A60000,$34D60000,$360E0000,$383E0000,$5CAC0000,$61840000,$5A1A0000,$5AF40000
Data.l $585A0000,$59380000,$66560000,$67440000,$56F00000,$5D860000,$55140000,$56020000,$69340000,$57E40000,$683E0000,$576A0000
Data.l $37640000,$5ED60000,$4C2E0000,$543A0000,$5DFC0000,$429E0000,$398A0000,$3A640000,$4ADC0000,$4BBC0000,$3B3E0000,$602A0000
Data.l $61100000,$4F5E0000,$626A0000,$4D160000,$4E740000,$46220000,$650C0000,$65E80000,$642E0000,$3C180000,$3CF80000,$50440000
Data.l $634E0000,$45480000,$43140000,$54A60000,$5E680000,$6B760000,$52EA0000,$53C80000,$52760000,$51260000,$407C0000,$47D60000
Data.l $49900000,$46FC0000,$48B20000,$415A0000,$42340000,$6A960000,$43FC0000,$3F9E0000,$3EBA0000,$3DD80000,$69AC0000,$66CC0000
Data.l $68B80000,$67C00000,$558A0000,$56780000,$5A860000,$5B620000,$5D180000,$37D00000,$38AE0000,$5F460000,$58C80000,$59A80000
Data.l $50B60000,$52040000,$51980000,$53580000,$3AD40000,$5FB80000,$609E0000,$4D8A0000,$61F80000,$4CA40000,$4E000000,$63C00000
Data.l $4EEA0000,$4A6E0000,$4B4C0000,$39200000,$39F60000,$6B080000,$44DC0000,$5C400000,$4FD40000,$62DE0000,$40100000,$476A0000
Data.l $49220000,$46900000,$48440000,$4A000000,$40EA0000,$41CC0000,$438C0000,$3F2E0000,$3E480000,$3D6A0000,$6A260000,$446E0000
Data.l $5BD20000,$3BAA0000,$3C880000,$45B60000,$649E0000,$657C0000,$00F10000,$00010000,$00150002,$0004004C,$0060004D,$0061001B
Data.l $0055001C,$0076001F,$0077002A,$0072002B,$00710042,$00700041,$00670040,$006D0037,$006E003C,$001A003D,$006F002F,$0074003F
Data.l $002E0063,$00260078,$003A006A,$00380068,$003B006B,$00390069,$005E006C,$005F001D,$0017001E,$0024005A,$005B0058,$005D0025
Data.l $00650022,$0051002C,$00530036,$00350052,$00540033,$00180034,$000F0030,$00100047,$000D0048,$00120014,$004F0009,$0050000A
Data.l $00490007,$004A0008,$00640075,$004B0005,$0019000E,$00160031,$0056004E,$00570020,$00060021,$00230059,$002D0066,$0029005C
Data.l $00270079,$0028007A,$0044000B,$0046000C,$00450013,$00430011,$003E0073,$00320062,$004C0015,$004D0004,$001B0060,$001C0061
Data.l $001F0055,$002A0076,$002B0077,$00420072,$00410071,$00400070,$00370067,$003C006D,$003D006E,$002F001A,$003F006F,$00630074
Data.l $0078002E,$006A0026,$0068003A,$006B0038,$0069003B,$006C0039,$001D005E,$001E005F,$005A0017,$00580024,$0025005B,$0022005D
Data.l $002C0065,$00360051,$00520053,$00330035,$00340054,$00300018,$0047000F,$00480010,$0014000D,$00090012,$000A004F,$00070050
Data.l $00080049,$0075004A,$00050064,$000E004B,$00310019,$004E0016,$00200056,$00210057,$00590006,$00660023,$005C002D,$00790029
Data.l $007A0027,$000B0028,$000C0044,$00130046,$00110045,$00730043,$0062003E,$00030032,$4D495F5F,$54524F50,$5345445F,$50495243
Data.l $5F524F54,$64657773,$32336C6C,$4E5F5F00,$5F4C4C55,$4F504D49,$445F5452,$52435345,$4F545049,$5F5F0052,$5F706D69,$6577735F
Data.l $617A615F,$3440746C,$5F5F0030,$5F706D69,$6577735F,$617A615F,$645F746C,$00383240,$6D695F5F,$735F5F70,$615F6577,$746C617A
Data.l $7665725F,$00343240,$6D695F5F,$735F5F70,$615F6577,$746C617A,$7665725F,$3240645F,$5F5F0030,$5F706D69,$6577735F,$6C61635F
Data.l $34324063,$695F5F00,$5F5F706D,$5F657773,$636C6163,$3240645F,$5F5F0030,$5F706D69,$6577735F,$6C61635F,$74755F63,$00343240
Data.l $6D695F5F,$735F5F70,$635F6577,$5F636C61,$645F7475,$00303240,$6D695F5F,$735F5F70,$635F6577,$65736F6C,$5F003040,$706D695F
Data.l $77735F5F,$6C635F65,$5F65736F,$00344064,$6D695F5F,$735F5F70,$635F6577,$6172746F,$3140736E,$5F5F0036,$5F706D69,$6577735F
Data.l $746F635F,$736E6172,$3140645F,$5F5F0032,$5F706D69,$6577735F,$746F635F,$736E6172,$4070735F,$5F003631,$706D695F,$77735F5F
Data.l $6F635F65,$6E617274,$70735F73,$3140645F,$5F5F0032,$5F706D69,$6577735F,$3273635F,$73676564,$38407274,$695F5F00,$5F5F706D
Data.l $5F657773,$64327363,$74736765,$40645F72,$5F5F0038,$5F706D69,$6577735F,$3273635F,$6C6E6F6C,$74737461,$36314072,$695F5F00
Data.l $5F5F706D,$5F657773,$6C327363,$616C6E6F,$72747374,$3140645F,$5F5F0036,$5F706D69,$6577735F,$3273635F,$656D6974,$40727473
Data.l $5F003631,$706D695F,$77735F5F,$73635F65,$6D697432,$72747365,$3140645F,$5F5F0036,$5F706D69,$6577735F,$6E73635F,$406D726F
Data.l $5F5F0034,$5F706D69,$6577735F,$6E73635F,$5F6D726F,$00344064,$6D695F5F,$735F5F70,$635F6577,$756F7273,$6573646E,$00344063
Data.l $6D695F5F,$735F5F70,$635F6577,$756F7273,$6573646E,$40645F63,$5F5F0034,$5F706D69,$6577735F,$6C32645F,$5F003840,$706D695F
Data.l $77735F5F,$32645F65,$40645F6C,$5F5F0034,$5F706D69,$6577735F,$7461645F,$6F635F65,$7265766E,$6E6F6973,$00383240,$6D695F5F
Data.l $735F5F70,$645F6577,$5F657461,$766E6F63,$69737265,$645F6E6F,$00343240,$6D695F5F,$735F5F70,$645F6577,$6F5F7961,$65775F66
Data.l $38406B65,$695F5F00,$5F5F706D,$5F657773,$5F796164,$775F666F,$5F6B6565,$00344064,$6D695F5F,$735F5F70,$645F6577,$6D5F6765
Data.l $40706469,$5F003631,$706D695F,$77735F5F,$65645F65,$726F6E67,$0038406D,$6D695F5F,$735F5F70,$645F6577,$6F6E6765,$645F6D72
Data.l $5F003440,$706D695F,$77735F5F,$65645F65,$7461746C,$5F003840,$706D695F,$77735F5F,$65645F65,$7461746C,$3840645F,$695F5F00
Data.l $5F5F706D,$5F657773,$63666964,$406E3273,$5F5F0038,$5F706D69,$6577735F,$6669645F,$6E327363,$3840645F,$695F5F00,$5F5F706D
Data.l $5F657773,$63666964,$38406E73,$695F5F00,$5F5F706D,$5F657773,$63666964,$645F6E73,$5F003840,$706D695F,$77735F5F,$69645F65
Data.l $67656466,$31406E32,$5F5F0036,$5F706D69,$6577735F,$6669645F,$32676564,$40645F6E,$5F003231,$706D695F,$77735F5F,$69645F65
Data.l $67656466,$3631406E,$695F5F00,$5F5F706D,$5F657773,$64666964,$5F6E6765,$32314064,$695F5F00,$5F5F706D,$5F657773,$72666964
Data.l $6E326461,$00363140,$6D695F5F,$735F5F70,$665F6577,$74737869,$32407261,$5F5F0034,$5F706D69,$6577735F,$7869665F,$72617473
Data.l $3240645F,$5F5F0030,$5F706D69,$6577735F,$7869665F,$72617473,$4074755F,$5F003432,$706D695F,$77735F5F,$69665F65,$61747378
Data.l $74755F72,$3240645F,$5F5F0030,$5F706D69,$6577735F,$7561675F,$6C657571,$735F6E69,$6F746365,$32354072,$695F5F00,$5F5F706D
Data.l $5F657773,$5F746567,$6E617961,$61736D61,$5F003840,$706D695F,$77735F5F,$65675F65,$79615F74,$6D616E61,$645F6173,$5F003840
Data.l $706D695F,$77735F5F,$65675F65,$79615F74,$6D616E61,$6E5F6173,$40656D61,$5F5F0034,$5F706D69,$6577735F,$7465675F,$6179615F
Data.l $736D616E,$74755F61,$5F003840,$706D695F,$77735F5F,$65675F65,$79615F74,$6D616E61,$755F6173,$40645F74,$5F5F0038,$5F706D69
Data.l $6577735F,$7465675F,$616C705F,$5F74656E,$656D616E,$5F003840,$706D695F,$77735F5F,$65675F65,$6C705F74,$74656E61,$6D616E5F
Data.l $40645F65,$5F5F0038,$5F706D69,$6577735F,$7465675F,$6469745F,$6363615F,$5F003040,$706D695F,$77735F5F,$65675F65,$69745F74
Data.l $63615F64,$40645F63,$5F5F0034,$5F706D69,$6577735F,$756F685F,$705F6573,$3340736F,$5F5F0036,$5F706D69,$6577735F,$756F685F
Data.l $705F6573,$645F736F,$00383240,$6D695F5F,$735F5F70,$685F6577,$6573756F,$36334073,$695F5F00,$5F5F706D,$5F657773,$73756F68
Data.l $615F7365,$40636D72,$5F003633,$706D695F,$77735F5F,$6F685F65,$73657375,$6D72615F,$40645F63,$5F003432,$706D695F,$77735F5F
Data.l $6F685F65,$73657375,$3240645F,$5F5F0034,$5F706D69,$6577735F,$756F685F,$5F736573,$34407865,$5F5F0030,$5F706D69,$6577735F
Data.l $756F685F,$5F736573,$645F7865,$00383240,$6D695F5F,$735F5F70,$6A5F6577,$61646C75,$34324079,$695F5F00,$5F5F706D,$5F657773
Data.l $646C756A,$645F7961,$00343240,$6D695F5F,$735F5F70,$6C5F6577,$655F6E75,$70696C63,$685F6573,$3240776F,$5F5F0034,$5F706D69
Data.l $6577735F,$6E756C5F,$6C63655F,$65737069,$776F685F,$3240645F,$5F5F0030,$5F706D69,$6577735F,$6E756C5F,$6C63655F,$65737069
Data.l $6568775F,$3832406E,$695F5F00,$5F5F706D,$5F657773,$5F6E756C,$696C6365,$5F657370,$6E656877,$3240645F,$5F5F0034,$5F706D69
Data.l $6577735F,$6E756C5F,$63636F5F,$5F746C75,$6E656877,$6F6C675F,$36334062,$695F5F00,$5F5F706D,$5F657773,$5F6E756C,$7563636F
Data.l $775F746C,$5F6E6568,$40636F6C,$5F003034,$706D695F,$77735F5F,$756C5F65,$636F5F6E,$746C7563,$6568775F,$33406572,$5F5F0032
Data.l $5F706D69,$6577735F,$646F6E5F,$7370615F,$00303440,$6D695F5F,$735F5F70,$6E5F6577,$615F646F,$645F7370,$00363340,$6D695F5F
Data.l $735F5F70,$6E5F6577,$615F646F,$755F7370,$30344074,$695F5F00,$5F5F706D,$5F657773,$5F646F6E,$5F737061,$645F7475,$00363340
Data.l $6D695F5F,$735F5F70,$705F6577,$6F6E6568,$00343240,$6D695F5F,$735F5F70,$705F6577,$6F6E6568,$3240645F,$5F5F0030,$5F706D69
Data.l $6577735F,$6568705F,$755F6F6E,$34324074,$695F5F00,$5F5F706D,$5F657773,$6E656870,$74755F6F,$3240645F,$5F5F0030,$5F706D69
Data.l $6577735F,$6461725F,$64696D5F,$36314070,$695F5F00,$5F5F706D,$5F657773,$6E646172,$406D726F,$5F5F0038,$5F706D69,$6577735F
Data.l $6665725F,$40636172,$5F003832,$706D695F,$77735F5F,$65725F65,$63617266,$3240645F,$5F5F0030,$5F706D69,$6577735F,$6665725F
Data.l $5F636172,$65747865,$6465646E,$00383440,$6D695F5F,$735F5F70,$725F6577,$756A7665,$3832406C,$695F5F00,$5F5F706D,$5F657773
Data.l $6A766572,$645F6C75,$00343240,$6D695F5F,$735F5F70,$725F6577,$5F657369,$6E617274,$32354073,$695F5F00,$5F5F706D,$5F657773
Data.l $65736972,$6172745F,$645F736E,$00303440,$6D695F5F,$735F5F70,$735F6577,$655F7465,$5F656870,$68746170,$5F003440,$706D695F
Data.l $77735F5F,$65735F65,$70655F74,$705F6568,$5F687461,$00344064,$6D695F5F,$735F5F70,$735F6577,$6A5F7465,$665F6C70,$40656C69
Data.l $5F5F0034,$5F706D69,$6577735F,$7465735F,$6C706A5F,$6C69665F,$40645F65,$5F5F0034,$5F706D69,$6577735F,$7465735F,$70616C5F
Data.l $725F6573,$40657461,$5F5F0038,$5F706D69,$6577735F,$7465735F,$6469735F,$646F6D5F,$30324065,$695F5F00,$5F5F706D,$5F657773
Data.l $5F746573,$5F646973,$65646F6D,$3140645F,$5F5F0032,$5F706D69,$6577735F,$7465735F,$6469745F,$6363615F,$5F003840,$706D695F
Data.l $77735F5F,$65735F65,$69745F74,$63615F64,$40645F63,$5F5F0034,$5F706D69,$6577735F,$7465735F,$706F745F,$3432406F,$695F5F00
Data.l $5F5F706D,$5F657773,$5F746573,$6F706F74,$3140645F,$5F5F0032,$5F706D69,$6577735F,$6469735F,$656D6974,$34324030,$695F5F00
Data.l $5F5F706D,$5F657773,$74646973,$30656D69,$3140645F,$5F5F0036,$5F706D69,$6577735F,$6469735F,$656D6974,$5F003840,$706D695F
Data.l $77735F5F,$69735F65,$6D697464,$40645F65,$5F5F0038,$5F706D69,$6577735F,$6C6F735F,$6C63655F,$65737069,$776F685F,$00343240
Data.l $6D695F5F,$735F5F70,$735F6577,$655F6C6F,$70696C63,$685F6573,$645F776F,$00303240,$6D695F5F,$735F5F70,$735F6577,$655F6C6F
Data.l $70696C63,$775F6573,$5F6E6568,$626F6C67,$00383240,$6D695F5F,$735F5F70,$735F6577,$655F6C6F,$70696C63,$775F6573,$5F6E6568
Data.l $626F6C67,$3240645F,$5F5F0034,$5F706D69,$6577735F,$6C6F735F,$6C63655F,$65737069,$6568775F,$6F6C5F6E,$32334063,$695F5F00
Data.l $5F5F706D,$5F657773,$5F6C6F73,$696C6365,$5F657370,$6E656877,$636F6C5F,$3240645F,$5F5F0038,$5F706D69,$6577735F,$6C6F735F
Data.l $6C63655F,$65737069,$6568775F,$32406572,$5F5F0034,$5F706D69,$6577735F,$6C6F735F,$6C63655F,$65737069,$6568775F,$645F6572
Data.l $00303240,$6D695F5F,$735F5F70,$735F6577,$74696C70,$6765645F,$00323340,$6D695F5F,$735F5F70,$735F6577,$74696C70,$6765645F
Data.l $3240645F,$5F5F0038,$5F706D69,$6577735F,$6D69745F,$71655F65,$36314075,$695F5F00,$5F5F706D,$5F657773,$656D6974,$7571655F
Data.l $3140645F,$735F0032,$615F6577,$746C617A,$00303440,$6577735F,$617A615F,$645F746C,$00383240,$6577735F,$617A615F,$725F746C
Data.l $32407665,$735F0034,$615F6577,$746C617A,$7665725F,$3240645F,$735F0030,$635F6577,$40636C61,$5F003432,$5F657773,$636C6163
Data.l $3240645F,$735F0030,$635F6577,$5F636C61,$32407475,$735F0034,$635F6577,$5F636C61,$645F7475,$00303240,$6577735F,$6F6C635F
Data.l $30406573,$77735F00,$6C635F65,$5F65736F,$00344064,$6577735F,$746F635F,$736E6172,$00363140,$6577735F,$746F635F,$736E6172
Data.l $3140645F,$735F0032,$635F6577,$6172746F,$735F736E,$36314070,$77735F00,$6F635F65,$6E617274,$70735F73,$3140645F,$735F0032
Data.l $635F6577,$65643273,$72747367,$5F003840,$5F657773,$64327363,$74736765,$40645F72,$735F0038,$635F6577,$6F6C3273,$74616C6E
Data.l $40727473,$5F003631,$5F657773,$6C327363,$616C6E6F,$72747374,$3140645F,$735F0036,$635F6577,$69743273,$7473656D,$36314072
Data.l $77735F00,$73635F65,$6D697432,$72747365,$3140645F,$735F0036,$635F6577,$726F6E73,$0034406D,$6577735F,$6E73635F,$5F6D726F
Data.l $00344064,$6577735F,$7273635F,$646E756F,$40636573,$735F0034,$635F6577,$756F7273,$6573646E,$40645F63,$735F0034,$645F6577
Data.l $38406C32,$77735F00,$32645F65,$40645F6C,$735F0034,$645F6577,$5F657461,$766E6F63,$69737265,$32406E6F,$735F0038,$645F6577
Data.l $5F657461,$766E6F63,$69737265,$645F6E6F,$00343240,$6577735F,$7961645F,$5F666F5F,$6B656577,$5F003840,$5F657773,$5F796164
Data.l $775F666F,$5F6B6565,$00344064,$6577735F,$6765645F,$64696D5F,$36314070,$77735F00,$65645F65,$726F6E67,$0038406D,$6577735F
Data.l $6765645F,$6D726F6E,$3440645F,$77735F00,$65645F65,$7461746C,$5F003840,$5F657773,$746C6564,$645F7461,$5F003840,$5F657773
Data.l $63666964,$406E3273,$735F0038,$645F6577,$73636669,$645F6E32,$5F003840,$5F657773,$63666964,$38406E73,$77735F00,$69645F65
Data.l $6E736366,$3840645F,$77735F00,$69645F65,$67656466,$31406E32,$735F0036,$645F6577,$65646669,$5F6E3267,$32314064,$77735F00
Data.l $69645F65,$67656466,$3631406E,$77735F00,$69645F65,$67656466,$40645F6E,$5F003231,$5F657773,$72666964,$6E326461,$00363140
Data.l $6577735F,$7869665F,$72617473,$00343240,$6577735F,$7869665F,$72617473,$3240645F,$735F0030,$665F6577,$74737869,$755F7261
Data.l $34324074,$77735F00,$69665F65,$61747378,$74755F72,$3240645F,$735F0030,$675F6577,$75717561,$6E696C65,$6365735F,$40726F74
Data.l $5F003235,$5F657773,$5F746567,$6E617961,$61736D61,$5F003840,$5F657773,$5F746567,$6E617961,$61736D61,$3840645F,$77735F00
Data.l $65675F65,$79615F74,$6D616E61,$6E5F6173,$40656D61,$735F0034,$675F6577,$615F7465,$616E6179,$5F61736D,$38407475,$77735F00
Data.l $65675F65,$79615F74,$6D616E61,$755F6173,$40645F74,$735F0038,$675F6577,$705F7465,$656E616C,$616E5F74,$3840656D,$77735F00
Data.l $65675F65,$6C705F74,$74656E61,$6D616E5F,$40645F65,$735F0038,$675F6577,$745F7465,$615F6469,$30406363,$77735F00,$65675F65
Data.l $69745F74,$63615F64,$40645F63,$735F0034,$685F6577,$6573756F,$736F705F,$00363340,$6577735F,$756F685F,$705F6573,$645F736F
Data.l $00383240,$6577735F,$756F685F,$40736573,$5F003633,$5F657773,$73756F68,$615F7365,$40636D72,$5F003633,$5F657773,$73756F68
Data.l $615F7365,$5F636D72,$34324064,$77735F00,$6F685F65,$73657375,$3240645F,$735F0034,$685F6577,$6573756F,$78655F73,$00303440
Data.l $6577735F,$756F685F,$5F736573,$645F7865,$00383240,$6577735F,$6C756A5F,$40796164,$5F003432,$5F657773,$646C756A,$645F7961
Data.l $00343240,$6577735F,$6E756C5F,$6C63655F,$65737069,$776F685F,$00343240,$6577735F,$6E756C5F,$6C63655F,$65737069,$776F685F
Data.l $3240645F,$735F0030,$6C5F6577,$655F6E75,$70696C63,$775F6573,$406E6568,$5F003832,$5F657773,$5F6E756C,$696C6365,$5F657370
Data.l $6E656877,$3240645F,$735F0034,$6C5F6577,$6F5F6E75,$6C756363,$68775F74,$675F6E65,$40626F6C,$5F003633,$5F657773,$5F6E756C
Data.l $7563636F,$775F746C,$5F6E6568,$40636F6C,$5F003034,$5F657773,$5F6E756C,$7563636F,$775F746C,$65726568,$00323340,$6577735F
Data.l $646F6E5F,$7370615F,$00303440,$6577735F,$646F6E5F,$7370615F,$3340645F,$735F0036,$6E5F6577,$615F646F,$755F7370,$30344074
Data.l $77735F00,$6F6E5F65,$70615F64,$74755F73,$3340645F,$735F0036,$705F6577,$6F6E6568,$00343240,$6577735F,$6568705F,$645F6F6E
Data.l $00303240,$6577735F,$6568705F,$755F6F6E,$34324074,$77735F00,$68705F65,$5F6F6E65,$645F7475,$00303240,$6577735F,$6461725F
Data.l $64696D5F,$36314070,$77735F00,$61725F65,$726F6E64,$0038406D,$6577735F,$6665725F,$40636172,$5F003832,$5F657773,$72666572
Data.l $645F6361,$00303240,$6577735F,$6665725F,$5F636172,$65747865,$6465646E,$00383440,$6577735F,$7665725F,$406C756A,$5F003832
Data.l $5F657773,$6A766572,$645F6C75,$00343240,$6577735F,$7369725F,$72745F65,$40736E61,$5F003235,$5F657773,$65736972,$6172745F
Data.l $645F736E,$00303440,$6577735F,$7465735F,$6870655F,$61705F65,$34406874,$77735F00,$65735F65,$70655F74,$705F6568,$5F687461
Data.l $00344064,$6577735F,$7465735F,$6C706A5F,$6C69665F,$00344065,$6577735F,$7465735F,$6C706A5F,$6C69665F,$40645F65,$735F0034
Data.l $735F6577,$6C5F7465,$65737061,$7461725F,$00384065,$6577735F,$7465735F,$6469735F,$646F6D5F,$30324065,$77735F00,$65735F65
Data.l $69735F74,$6F6D5F64,$645F6564,$00323140,$6577735F,$7465735F,$6469745F,$6363615F,$5F003840,$5F657773,$5F746573,$5F646974
Data.l $5F636361,$00344064,$6577735F,$7465735F,$706F745F,$3432406F,$77735F00,$65735F65,$6F745F74,$645F6F70,$00323140,$6577735F
Data.l $6469735F,$656D6974,$34324030,$77735F00,$69735F65,$6D697464,$645F3065,$00363140,$6577735F,$6469735F,$656D6974,$5F003840
Data.l $5F657773,$74646973,$5F656D69,$00384064,$6577735F,$6C6F735F,$6C63655F,$65737069,$776F685F,$00343240,$6577735F,$6C6F735F
Data.l $6C63655F,$65737069,$776F685F,$3240645F,$735F0030,$735F6577,$655F6C6F,$70696C63,$775F6573,$5F6E6568,$626F6C67,$00383240
Data.l $6577735F,$6C6F735F,$6C63655F,$65737069,$6568775F,$6C675F6E,$645F626F,$00343240,$6577735F,$6C6F735F,$6C63655F,$65737069
Data.l $6568775F,$6F6C5F6E,$32334063,$77735F00,$6F735F65,$63655F6C,$7370696C,$68775F65,$6C5F6E65,$645F636F,$00383240,$6577735F
Dernière modification par kernadec le ven. 05/juin/2009 17:57, modifié 2 fois.
Avatar de l’utilisateur
kernadec
Messages : 1594
Inscription : ven. 25/avr./2008 11:14

suite

Message par kernadec »

Code : Tout sélectionner

Data.l $6C6F735F,$6C63655F,$65737069,$6568775F,$32406572,$735F0034,$735F6577,$655F6C6F,$70696C63,$775F6573,$65726568,$3240645F
Data.l $735F0030,$735F6577,$74696C70,$6765645F,$00323340,$6577735F,$6C70735F,$645F7469,$645F6765,$00383240,$6577735F,$6D69745F
Data.l $71655F65,$36314075,$77735F00,$69745F65,$655F656D,$645F7571,$00323140,$6577737F,$336C6C64,$554E5F32,$545F4C4C,$4B4E5548
Data.l $5441445F,$77730041,$6C6C6465,$642E3233,$202F6C6C,$31312020,$32333639,$36333732,$20202020,$20202020,$20202020,$20302020
Data.l $20202020,$39342020,$20202039,$20202020,$014C0A60,$6FB00003,$010F474E,$00080000,$00000000,$642E0100,$67756265,$00005324
Data.l $00000000,$00430000,$008C0000,$00000000,$00000000,$00000000,$00400000,$692E4210,$61746164,$00003224,$00000000,$00140000
Data.l $00CF0000,$00E30000,$00000000,$00030000,$00400000,$692EC030,$61746164,$00003624,$00000000,$000E0000,$01010000,$00E30000
Data.l $00000000,$00000000,$00400000,$0002C020,$00130000,$00000009,$730C0000,$6C646577,$2E32336C,$286C6C64,$07101300,$03000000
Data.l $00000000,$07000000,$8E000A00,$694D1217,$736F7263,$2074666F,$20295228,$4B4E494C,$00000000,$00000000,$00000000,$00000000
Data.l $00000000,$00000C00,$00000300,$00000700,$04000000,$07000000,$00001000,$00000500,$73000700,$6C646577,$2E32336C,$006C6C64
Data.l $6F634000,$692E706D,$5D178E64,$00FFFF00,$00000300,$04000000,$00000000,$02000000,$02000000,$64692E00,$24617461,$00004032
Data.l $000002C0,$2E006800,$74616469,$00362461,$03000000,$03000000,$64692E00,$24617461,$00004034,$000000C0,$2E006800,$74616469
Data.l $40352461,$00C00000,$68000000,$00000000,$00002100,$00000000,$00000000,$00000200,$3A000000,$00000000,$00000000,$02000000
Data.l $00005400,$495F5F00,$524F504D,$45445F54,$49524353,$524F5450,$6577735F,$336C6C64,$5F5F0032,$4C4C554E,$504D495F,$5F54524F
Data.l $43534544,$54504952,$7F00524F,$64657773,$32336C6C,$4C554E5F,$48545F4C,$5F4B4E55,$41544144,$77730A00,$6C6C6465,$642E3233
Data.l $202F6C6C,$31312020,$32333639,$36333732,$20202020,$20202020,$20202020,$20302020,$20202020,$35322020,$20202032,$20202020
Data.l $014C0A60,$6FB00002,$00BB474E,$00020000,$00000000,$642E0100,$67756265,$00005324,$00000000,$00430000,$00640000,$00000000
Data.l $00000000,$00000000,$00400000,$692E4210,$61746164,$00003324,$00000000,$00140000,$00A70000,$00000000,$00000000,$00000000
Data.l $00400000,$0002C030,$00130000,$00000009,$730C0000,$6C646577,$2E32336C,$286C6C64,$07101300,$03000000,$00000000,$07000000
Data.l $8E000A00,$694D1217,$736F7263,$2074666F,$20295228,$4B4E494C,$00000000,$00000000,$00000000,$00000000,$00000000,$6F634000
Data.l $692E706D,$5D178E64,$00FFFF00,$00000300,$04000000,$00000000,$02000000,$02000000,$00001D00,$4E5F5F00,$5F4C4C55,$4F504D49
Data.l $445F5452,$52435345,$4F545049,$77730052,$6C6C6465,$642E3233,$202F6C6C,$31312020,$32333639,$36333732,$20202020,$20202020
Data.l $20202020,$20302020,$20202020,$38322020,$20202031,$20202020,$014C0A60,$6FB00003,$00D7474E,$00020000,$00000000,$642E0100
Data.l $67756265,$00005324,$00000000,$00430000,$008C0000,$00000000,$00000000,$00000000,$00400000,$692E4210,$61746164,$00003524
Data.l $00000000,$00040000,$00CF0000,$00000000,$00000000,$00000000,$00400000,$692EC030,$61746164,$00003424,$00000000,$00040000
Data.l $00D30000,$00000000,$00000000,$00000000,$00400000,$0002C030,$00130000,$00000009,$730C0000,$6C646577,$2E32336C,$286C6C64
Data.l $07101300,$03000000,$00000000,$07000000,$8E000A00,$694D1217,$736F7263,$2074666F,$20295228,$4B4E494C,$00000000,$00000000
Data.l $6F634000,$692E706D,$5D178E64,$00FFFF00,$00000300,$04000000,$00000000,$02000000,$02000000,$00001E00,$77737F00,$6C6C6465
Data.l $4E5F3233,$5F4C4C55,$4E554854,$41445F4B,$0A004154,$64657773,$32336C6C,$6C6C642E,$2020202F,$36393131,$37323233,$20203633
Data.l $20202020,$20202020,$20202020,$20202030,$20202020,$20203734,$20202020,$0A602020,$FFFF0000,$014C0000,$474E6FB0,$0000001B
Data.l $00040000,$6577735F,$617A615F,$3440746C,$77730030,$6C6C6465,$642E3233,$0A006C6C,$64657773,$32336C6C,$6C6C642E,$2020202F
Data.l $36393131,$37323233,$20203633,$20202020,$20202020,$20202020,$20202030,$20202020,$20203934,$20202020,$0A602020,$FFFF0000
Data.l $014C0000,$474E6FB0,$0000001D,$00040001,$6577735F,$617A615F,$645F746C,$00383240,$64657773,$32336C6C,$6C6C642E,$77730A00
Data.l $6C6C6465,$642E3233,$202F6C6C,$31312020,$32333639,$36333732,$20202020,$20202020,$20202020,$20302020,$20202020,$31352020
Data.l $20202020,$20202020,$00000A60,$0000FFFF,$6FB0014C,$001F474E,$00020000,$735F0004,$615F6577,$746C617A,$7665725F,$00343240
Data.l $64657773,$32336C6C,$6C6C642E,$77730A00,$6C6C6465,$642E3233,$202F6C6C,$31312020,$32333639,$36333732,$20202020,$20202020
Data.l $20202020,$20302020,$20202020,$33352020,$20202020,$20202020,$00000A60,$0000FFFF,$6FB0014C,$0021474E,$00030000,$735F0004
Data.l $615F6577,$746C617A,$7665725F,$3240645F,$77730030,$6C6C6465,$642E3233,$0A006C6C,$64657773,$32336C6C,$6C6C642E,$2020202F
Data.l $36393131,$37323233,$20203633,$20202020,$20202020,$20202020,$20202030,$20202020,$20203634,$20202020,$0A602020,$FFFF0000
Data.l $014C0000,$474E6FB0,$0000001A,$00040004,$6577735F,$6C61635F,$34324063,$65777300,$336C6C64,$6C642E32,$7773006C,$6C6C6465
Data.l $642E3233,$202F6C6C,$31312020,$32333639,$36333732,$20202020,$20202020,$20202020,$20302020,$20202020,$38342020,$20202020
Data.l $20202020,$00000A60,$0000FFFF,$6FB0014C,$001C474E,$00050000,$735F0004,$635F6577,$5F636C61,$30324064,$65777300,$336C6C64
Data.l $6C642E32,$7773006C,$6C6C6465,$642E3233,$202F6C6C,$31312020,$32333639,$36333732,$20202020,$20202020,$20202020,$20302020
Data.l $20202020,$39342020,$20202020,$20202020,$00000A60,$0000FFFF,$6FB0014C,$001D474E,$00060000,$735F0004,$635F6577,$5F636C61
Data.l $32407475,$77730034,$6C6C6465,$642E3233,$0A006C6C,$64657773,$32336C6C,$6C6C642E,$2020202F,$36393131,$37323233,$20203633
Data.l $20202020,$20202020,$20202020,$20202030,$20202020,$20203135,$20202020,$0A602020,$FFFF0000,$014C0000,$474E6FB0,$0000001F
Data.l $00040007,$6577735F,$6C61635F,$74755F63,$3240645F,$77730030,$6C6C6465,$642E3233,$0A006C6C,$64657773,$32336C6C,$6C6C642E
Data.l $2020202F,$36393131,$37323233,$20203633,$20202020,$20202020,$20202020,$20202030,$20202020,$20203634,$20202020,$0A602020
Data.l $FFFF0000,$014C0000,$474E6FB0,$0000001A,$00040008,$6577735F,$6F6C635F,$30406573,$65777300,$336C6C64,$6C642E32,$7773006C
Data.l $6C6C6465,$642E3233,$202F6C6C,$31312020,$32333639,$36333732,$20202020,$20202020,$20202020,$20302020,$20202020,$38342020
Data.l $20202020,$20202020,$00000A60,$0000FFFF,$6FB0014C,$001C474E,$00090000,$735F0004,$635F6577,$65736F6C,$3440645F,$65777300
Data.l $336C6C64,$6C642E32,$7773006C,$6C6C6465,$642E3233,$202F6C6C,$31312020,$32333639,$36333732,$20202020,$20202020,$20202020
Data.l $20302020,$20202020,$39342020,$20202020,$20202020,$00000A60,$0000FFFF,$6FB0014C,$001D474E,$000A0000,$735F0004,$635F6577
Data.l $6172746F,$3140736E,$77730036,$6C6C6465,$642E3233,$0A006C6C,$64657773,$32336C6C,$6C6C642E,$2020202F,$36393131,$37323233
Data.l $20203633,$20202020,$20202020,$20202020,$20202030,$20202020,$20203135,$20202020,$0A602020,$FFFF0000,$014C0000,$474E6FB0
Data.l $0000001F,$0004000B,$6577735F,$746F635F,$736E6172,$3140645F,$77730032,$6C6C6465,$642E3233,$0A006C6C,$64657773,$32336C6C
Data.l $6C6C642E,$2020202F,$36393131,$37323233,$20203633,$20202020,$20202020,$20202020,$20202030,$20202020,$20203235,$20202020
Data.l $0A602020,$FFFF0000,$014C0000,$474E6FB0,$00000020,$0004000C,$6577735F,$746F635F,$736E6172,$4070735F,$73003631,$6C646577
Data.l $2E32336C,$006C6C64,$64657773,$32336C6C,$6C6C642E,$2020202F,$36393131,$37323233,$20203633,$20202020,$20202020,$20202020
Data.l $20202030,$20202020,$20203435,$20202020,$0A602020,$FFFF0000,$014C0000,$474E6FB0,$00000022,$0004000D,$6577735F,$746F635F
Data.l $736E6172,$5F70735F,$32314064,$65777300,$336C6C64,$6C642E32,$7773006C,$6C6C6465,$642E3233,$202F6C6C,$31312020,$32333639
Data.l $36333732,$20202020,$20202020,$20202020,$20302020,$20202020,$30352020,$20202020,$20202020,$00000A60,$0000FFFF,$6FB0014C
Data.l $001E474E,$000E0000,$735F0004,$635F6577,$65643273,$72747367,$73003840,$6C646577,$2E32336C,$006C6C64,$64657773,$32336C6C
Data.l $6C6C642E,$2020202F,$36393131,$37323233,$20203633,$20202020,$20202020,$20202020,$20202030,$20202020,$20203235,$20202020
Data.l $0A602020,$FFFF0000,$014C0000,$474E6FB0,$00000020,$0004000F,$6577735F,$3273635F,$73676564,$645F7274,$73003840,$6C646577
Data.l $2E32336C,$006C6C64,$64657773,$32336C6C,$6C6C642E,$2020202F,$36393131,$37323233,$20203633,$20202020,$20202020,$20202020
Data.l $20202030,$20202020,$20203435,$20202020,$0A602020,$FFFF0000,$014C0000,$474E6FB0,$00000022,$00040010,$6577735F,$3273635F
Data.l $6C6E6F6C,$74737461,$36314072,$65777300,$336C6C64,$6C642E32,$7773006C,$6C6C6465,$642E3233,$202F6C6C,$31312020,$32333639
Data.l $36333732,$20202020,$20202020,$20202020,$20302020,$20202020,$36352020,$20202020,$20202020,$00000A60,$0000FFFF,$6FB0014C
Data.l $0024474E,$00110000,$735F0004,$635F6577,$6F6C3273,$74616C6E,$5F727473,$36314064,$65777300,$336C6C64,$6C642E32,$7773006C
Data.l $6C6C6465,$642E3233,$202F6C6C,$31312020,$32333639,$36333732,$20202020,$20202020,$20202020,$20302020,$20202020,$32352020
Data.l $20202020,$20202020,$00000A60,$0000FFFF,$6FB0014C,$0020474E,$00120000,$735F0004,$635F6577,$69743273,$7473656D,$36314072
Data.l $65777300,$336C6C64,$6C642E32,$7773006C,$6C6C6465,$642E3233,$202F6C6C,$31312020,$32333639,$36333732,$20202020,$20202020
Data.l $20202020,$20302020,$20202020,$34352020,$20202020,$20202020,$00000A60,$0000FFFF,$6FB0014C,$0022474E,$00130000,$735F0004
Data.l $635F6577,$69743273,$7473656D,$40645F72,$73003631,$6C646577,$2E32336C,$006C6C64,$64657773,$32336C6C,$6C6C642E,$2020202F
Data.l $36393131,$37323233,$20203633,$20202020,$20202020,$20202020,$20202030,$20202020,$20203734,$20202020,$0A602020,$FFFF0000
Data.l $014C0000,$474E6FB0,$0000001B,$00040014,$6577735F,$6E73635F,$406D726F,$77730034,$6C6C6465,$642E3233,$0A006C6C,$64657773
Data.l $32336C6C,$6C6C642E,$2020202F,$36393131,$37323233,$20203633,$20202020,$20202020,$20202020,$20202030,$20202020,$20203934
Data.l $20202020,$0A602020,$FFFF0000,$014C0000,$474E6FB0,$0000001D,$00040015,$6577735F,$6E73635F,$5F6D726F,$00344064,$64657773
Data.l $32336C6C,$6C6C642E,$77730A00,$6C6C6465,$642E3233,$202F6C6C,$31312020,$32333639,$36333732,$20202020,$20202020,$20202020
Data.l $20302020,$20202020,$31352020,$20202020,$20202020,$00000A60,$0000FFFF,$6FB0014C,$001F474E,$00160000,$735F0004,$635F6577
Data.l $756F7273,$6573646E,$00344063,$64657773,$32336C6C,$6C6C642E,$77730A00,$6C6C6465,$642E3233,$202F6C6C,$31312020,$32333639
Data.l $36333732,$20202020,$20202020,$20202020,$20302020,$20202020,$33352020,$20202020,$20202020,$00000A60,$0000FFFF,$6FB0014C
Data.l $0021474E,$00170000,$735F0004,$635F6577,$756F7273,$6573646E,$40645F63,$77730034,$6C6C6465,$642E3233,$0A006C6C,$64657773
Data.l $32336C6C,$6C6C642E,$2020202F,$36393131,$37323233,$20203633,$20202020,$20202020,$20202020,$20202030,$20202020,$20203434
Data.l $20202020,$0A602020,$FFFF0000,$014C0000,$474E6FB0,$00000018,$00040018,$6577735F,$6C32645F,$73003840,$6C646577,$2E32336C
Data.l $006C6C64,$64657773,$32336C6C,$6C6C642E,$2020202F,$36393131,$37323233,$20203633,$20202020,$20202020,$20202020,$20202030
Data.l $20202020,$20203634,$20202020,$0A602020,$FFFF0000,$014C0000,$474E6FB0,$0000001A,$00040019,$6577735F,$6C32645F,$3440645F
Data.l $65777300,$336C6C64,$6C642E32,$7773006C,$6C6C6465,$642E3233,$202F6C6C,$31312020,$32333639,$36333732,$20202020,$20202020
Data.l $20202020,$20302020,$20202020,$37352020,$20202020,$20202020,$00000A60,$0000FFFF,$6FB0014C,$0025474E,$001A0000,$735F0004
Data.l $645F6577,$5F657461,$766E6F63,$69737265,$32406E6F,$77730038,$6C6C6465,$642E3233,$0A006C6C,$64657773,$32336C6C,$6C6C642E
Data.l $2020202F,$36393131,$37323233,$20203633,$20202020,$20202020,$20202020,$20202030,$20202020,$20203935,$20202020,$0A602020
Data.l $FFFF0000,$014C0000,$474E6FB0,$00000027,$0004001B,$6577735F,$7461645F,$6F635F65,$7265766E,$6E6F6973,$3240645F,$77730034
Data.l $6C6C6465,$642E3233,$0A006C6C,$64657773,$32336C6C,$6C6C642E,$2020202F,$36393131,$37323233,$20203633,$20202020,$20202020
Data.l $20202020,$20202030,$20202020,$20203235,$20202020,$0A602020,$FFFF0000,$014C0000,$474E6FB0,$00000020,$0004001C,$6577735F
Data.l $7961645F,$5F666F5F,$6B656577,$73003840,$6C646577,$2E32336C,$006C6C64,$64657773,$32336C6C,$6C6C642E,$2020202F,$36393131
Data.l $37323233,$20203633,$20202020,$20202020,$20202020,$20202030,$20202020,$20203435,$20202020,$0A602020,$FFFF0000,$014C0000
Data.l $474E6FB0,$00000022,$0004001D,$6577735F,$7961645F,$5F666F5F,$6B656577,$3440645F,$65777300,$336C6C64,$6C642E32,$7773006C
Data.l $6C6C6465,$642E3233,$202F6C6C,$31312020,$32333639,$36333732,$20202020,$20202020,$20202020,$20302020,$20202020,$30352020
Data.l $20202020,$20202020,$00000A60,$0000FFFF,$6FB0014C,$001E474E,$001E0000,$735F0004,$645F6577,$6D5F6765,$40706469,$73003631
Data.l $6C646577,$2E32336C,$006C6C64,$64657773,$32336C6C,$6C6C642E,$2020202F,$36393131,$37323233,$20203633,$20202020,$20202020
Data.l $20202020,$20202030,$20202020,$20203834,$20202020,$0A602020,$FFFF0000,$014C0000,$474E6FB0,$0000001C,$0004001F,$6577735F
Data.l $6765645F,$6D726F6E,$73003840,$6C646577,$2E32336C,$006C6C64,$64657773,$32336C6C,$6C6C642E,$2020202F,$36393131,$37323233
Data.l $20203633,$20202020,$20202020,$20202020,$20202030,$20202020,$20203035,$20202020,$0A602020,$FFFF0000,$014C0000,$474E6FB0
Data.l $0000001E,$00040020,$6577735F,$6765645F,$6D726F6E,$3440645F,$65777300,$336C6C64,$6C642E32,$7773006C,$6C6C6465,$642E3233
Data.l $202F6C6C,$31312020,$32333639,$36333732,$20202020,$20202020,$20202020,$20302020,$20202020,$37342020,$20202020,$20202020
Data.l $00000A60,$0000FFFF,$6FB0014C,$001B474E,$00210000,$735F0004,$645F6577,$61746C65,$00384074,$64657773,$32336C6C,$6C6C642E
Data.l $77730A00,$6C6C6465,$642E3233,$202F6C6C,$31312020,$32333639,$36333732,$20202020,$20202020,$20202020,$20302020,$20202020
Data.l $39342020,$20202020,$20202020,$00000A60,$0000FFFF,$6FB0014C,$001D474E,$00220000,$735F0004,$645F6577,$61746C65,$40645F74
Data.l $77730038,$6C6C6465,$642E3233,$0A006C6C,$64657773,$32336C6C,$6C6C642E,$2020202F,$36393131,$37323233,$20203633,$20202020
Data.l $20202020,$20202020,$20202030,$20202020,$20203834,$20202020,$0A602020,$FFFF0000,$014C0000,$474E6FB0,$0000001C,$00040023
Data.l $6577735F,$6669645F,$6E327363,$73003840,$6C646577,$2E32336C,$006C6C64,$64657773,$32336C6C,$6C6C642E,$2020202F,$36393131
Data.l $37323233,$20203633,$20202020,$20202020,$20202020,$20202030,$20202020,$20203035,$20202020,$0A602020,$FFFF0000,$014C0000
Data.l $474E6FB0,$0000001E,$00040024,$6577735F,$6669645F,$6E327363,$3840645F,$65777300,$336C6C64,$6C642E32,$7773006C,$6C6C6465
Data.l $642E3233,$202F6C6C,$31312020,$32333639,$36333732,$20202020,$20202020,$20202020,$20302020,$20202020,$37342020,$20202020
Data.l $20202020,$00000A60,$0000FFFF,$6FB0014C,$001B474E,$00250000,$735F0004,$645F6577,$73636669,$0038406E,$64657773,$32336C6C
Data.l $6C6C642E,$77730A00,$6C6C6465,$642E3233,$202F6C6C,$31312020,$32333639,$36333732,$20202020,$20202020,$20202020,$20302020
Data.l $20202020,$39342020,$20202020,$20202020,$00000A60,$0000FFFF,$6FB0014C,$001D474E,$00260000,$735F0004,$645F6577,$73636669
Data.l $40645F6E,$77730038,$6C6C6465,$642E3233,$0A006C6C,$64657773,$32336C6C,$6C6C642E,$2020202F,$36393131,$37323233,$20203633
Data.l $20202020,$20202020,$20202020,$20202030,$20202020,$20203035,$20202020,$0A602020,$FFFF0000,$014C0000,$474E6FB0,$0000001E
Data.l $00040027,$6577735F,$6669645F,$32676564,$3631406E,$65777300,$336C6C64,$6C642E32,$7773006C,$6C6C6465,$642E3233,$202F6C6C
Data.l $31312020,$32333639,$36333732,$20202020,$20202020,$20202020,$20302020,$20202020,$32352020,$20202020,$20202020,$00000A60
Data.l $0000FFFF,$6FB0014C,$0020474E,$00280000,$735F0004,$645F6577,$65646669,$5F6E3267,$32314064,$65777300,$336C6C64,$6C642E32
Data.l $7773006C,$6C6C6465,$642E3233,$202F6C6C,$31312020,$32333639,$36333732,$20202020,$20202020,$20202020,$20302020,$20202020
Data.l $39342020,$20202020,$20202020,$00000A60,$0000FFFF,$6FB0014C,$001D474E,$00290000,$735F0004,$645F6577,$65646669,$31406E67
Data.l $77730036,$6C6C6465,$642E3233,$0A006C6C,$64657773,$32336C6C,$6C6C642E,$2020202F,$36393131,$37323233,$20203633,$20202020
Data.l $20202020,$20202020,$20202030,$20202020,$20203135,$20202020,$0A602020,$FFFF0000,$014C0000,$474E6FB0,$0000001F,$0004002A
Data.l $6577735F,$6669645F,$6E676564,$3140645F,$77730032,$6C6C6465,$642E3233,$0A006C6C,$64657773,$32336C6C,$6C6C642E,$2020202F
Data.l $36393131,$37323233,$20203633,$20202020,$20202020,$20202020,$20202030,$20202020,$20203035,$20202020,$0A602020,$FFFF0000
Data.l $014C0000,$474E6FB0,$0000001E,$0004002B,$6577735F,$6669645F,$32646172,$3631406E,$65777300,$336C6C64,$6C642E32,$7773006C
Data.l $6C6C6465,$642E3233,$202F6C6C,$31312020,$32333639,$36333732,$20202020,$20202020,$20202020,$20302020,$20202020,$39342020
Data.l $20202020,$20202020,$00000A60,$0000FFFF,$6FB0014C,$001D474E,$002C0000,$735F0004,$665F6577,$74737869,$32407261,$77730034
Data.l $6C6C6465,$642E3233,$0A006C6C,$64657773,$32336C6C,$6C6C642E,$2020202F,$36393131,$37323233,$20203633,$20202020,$20202020
Data.l $20202020,$20202030,$20202020,$20203135,$20202020,$0A602020,$FFFF0000,$014C0000,$474E6FB0,$0000001F,$0004002D,$6577735F
Data.l $7869665F,$72617473,$3240645F,$77730030,$6C6C6465,$642E3233,$0A006C6C,$64657773,$32336C6C,$6C6C642E,$2020202F,$36393131
Data.l $37323233,$20203633,$20202020,$20202020,$20202020,$20202030,$20202020,$20203235,$20202020,$0A602020,$FFFF0000,$014C0000
Data.l $474E6FB0,$00000020,$0004002E,$6577735F,$7869665F,$72617473,$4074755F,$73003432,$6C646577,$2E32336C,$006C6C64,$64657773
Data.l $32336C6C,$6C6C642E,$2020202F,$36393131,$37323233,$20203633,$20202020,$20202020,$20202020,$20202030,$20202020,$20203435
Data.l $20202020,$0A602020,$FFFF0000,$014C0000,$474E6FB0,$00000022,$0004002F,$6577735F,$7869665F,$72617473,$5F74755F,$30324064
Data.l $65777300,$336C6C64,$6C642E32,$7773006C,$6C6C6465,$642E3233,$202F6C6C,$31312020,$32333639,$36333732,$20202020,$20202020
Data.l $20202020,$20302020,$20202020,$38352020,$20202020,$20202020,$00000A60,$0000FFFF,$6FB0014C,$0026474E,$00300000,$735F0004
Data.l $675F6577,$75717561,$6E696C65,$6365735F,$40726F74,$73003235,$6C646577,$2E32336C,$006C6C64,$64657773,$32336C6C,$6C6C642E
Data.l $2020202F,$36393131,$37323233,$20203633,$20202020,$20202020,$20202020,$20202030,$20202020,$20203335,$20202020,$0A602020
Data.l $FFFF0000,$014C0000,$474E6FB0,$00000021,$00040031,$6577735F,$7465675F,$6179615F,$736D616E,$00384061,$64657773,$32336C6C
Data.l $6C6C642E,$77730A00,$6C6C6465,$642E3233,$202F6C6C,$31312020,$32333639,$36333732,$20202020,$20202020,$20202020,$20302020
Data.l $20202020,$35352020,$20202020,$20202020,$00000A60,$0000FFFF,$6FB0014C,$0023474E,$00320000,$735F0004,$675F6577,$615F7465
Data.l $616E6179,$5F61736D,$00384064,$64657773,$32336C6C,$6C6C642E,$77730A00,$6C6C6465,$642E3233,$202F6C6C,$31312020,$32333639
Data.l $36333732,$20202020,$20202020,$20202020,$20302020,$20202020,$38352020,$20202020,$20202020,$00000A60,$0000FFFF,$6FB0014C
Data.l $0026474E,$00330000,$735F0004,$675F6577,$615F7465,$616E6179,$5F61736D,$656D616E,$73003440,$6C646577,$2E32336C,$006C6C64
Data.l $64657773,$32336C6C,$6C6C642E,$2020202F,$36393131,$37323233,$20203633,$20202020,$20202020,$20202020,$20202030,$20202020
Data.l $20203635,$20202020,$0A602020,$FFFF0000,$014C0000,$474E6FB0,$00000024,$00040034,$6577735F,$7465675F,$6179615F,$736D616E
Data.l $74755F61,$73003840,$6C646577,$2E32336C,$006C6C64,$64657773,$32336C6C,$6C6C642E,$2020202F,$36393131,$37323233,$20203633
Data.l $20202020,$20202020,$20202020,$20202030,$20202020,$20203835,$20202020,$0A602020,$FFFF0000,$014C0000,$474E6FB0,$00000026
Data.l $00040035,$6577735F,$7465675F,$6179615F,$736D616E,$74755F61,$3840645F,$65777300,$336C6C64,$6C642E32,$7773006C,$6C6C6465
Data.l $642E3233,$202F6C6C,$31312020,$32333639,$36333732,$20202020,$20202020,$20202020,$20302020,$20202020,$36352020,$20202020
Data.l $20202020,$00000A60,$0000FFFF,$6FB0014C,$0024474E,$00360000,$735F0004,$675F6577,$705F7465,$656E616C,$616E5F74,$3840656D
Data.l $65777300,$336C6C64,$6C642E32,$7773006C,$6C6C6465,$642E3233,$202F6C6C,$31312020,$32333639,$36333732,$20202020,$20202020
Data.l $20202020,$20302020,$20202020,$38352020,$20202020,$20202020,$00000A60,$0000FFFF,$6FB0014C,$0026474E,$00370000,$735F0004
Data.l $675F6577,$705F7465,$656E616C,$616E5F74,$645F656D,$73003840,$6C646577,$2E32336C,$006C6C64,$64657773,$32336C6C,$6C6C642E
Data.l $2020202F,$36393131,$37323233,$20203633,$20202020,$20202020,$20202020,$20202030,$20202020,$20203235,$20202020,$0A602020
Data.l $FFFF0000,$014C0000,$474E6FB0,$00000020,$00040038,$6577735F,$7465675F,$6469745F,$6363615F,$73003040,$6C646577,$2E32336C
Data.l $006C6C64,$64657773,$32336C6C,$6C6C642E,$2020202F,$36393131,$37323233,$20203633,$20202020,$20202020,$20202020,$20202030
Data.l $20202020,$20203435,$20202020,$0A602020,$FFFF0000,$014C0000,$474E6FB0,$00000022,$00040039,$6577735F,$7465675F,$6469745F
Data.l $6363615F,$3440645F,$65777300,$336C6C64,$6C642E32,$7773006C,$6C6C6465,$642E3233,$202F6C6C,$31312020,$32333639,$36333732
Data.l $20202020,$20202020,$20202020,$20302020,$20202020,$31352020,$20202020,$20202020,$00000A60,$0000FFFF,$6FB0014C,$001F474E
Data.l $003A0000,$735F0004,$685F6577,$6573756F,$736F705F,$00363340,$64657773,$32336C6C,$6C6C642E,$77730A00,$6C6C6465,$642E3233
Data.l $202F6C6C,$31312020,$32333639,$36333732,$20202020,$20202020,$20202020,$20302020,$20202020,$33352020,$20202020,$20202020
Data.l $00000A60,$0000FFFF,$6FB0014C,$0021474E,$003B0000,$735F0004,$685F6577,$6573756F,$736F705F,$3240645F,$77730038,$6C6C6465
Data.l $642E3233,$0A006C6C,$64657773,$32336C6C,$6C6C642E,$2020202F,$36393131,$37323233,$20203633,$20202020,$20202020,$20202020
Data.l $20202030,$20202020,$20203834,$20202020,$0A602020,$FFFF0000,$014C0000,$474E6FB0,$0000001C,$0004003C,$6577735F,$756F685F
Data.l $40736573,$73003633,$6C646577,$2E32336C,$006C6C64,$64657773,$32336C6C,$6C6C642E,$2020202F,$36393131,$37323233,$20203633
Data.l $20202020,$20202020,$20202020,$20202030,$20202020,$20203335,$20202020,$0A602020,$FFFF0000,$014C0000,$474E6FB0,$00000021
Data.l $0004003D,$6577735F,$756F685F,$5F736573,$636D7261,$00363340,$64657773,$32336C6C,$6C6C642E,$77730A00,$6C6C6465,$642E3233
Data.l $202F6C6C,$31312020,$32333639,$36333732,$20202020,$20202020,$20202020,$20302020,$20202020,$35352020,$20202020,$20202020
Data.l $00000A60,$0000FFFF,$6FB0014C,$0023474E,$003E0000,$735F0004,$685F6577,$6573756F,$72615F73,$645F636D,$00343240,$64657773
Data.l $32336C6C,$6C6C642E,$77730A00,$6C6C6465,$642E3233,$202F6C6C,$31312020,$32333639,$36333732,$20202020,$20202020,$20202020
Data.l $20302020,$20202020,$30352020,$20202020,$20202020,$00000A60,$0000FFFF,$6FB0014C,$001E474E,$003F0000,$735F0004,$685F6577
Data.l $6573756F,$40645F73,$73003432,$6C646577,$2E32336C,$006C6C64,$64657773,$32336C6C,$6C6C642E,$2020202F,$36393131,$37323233
Data.l $20203633,$20202020,$20202020,$20202020,$20202030,$20202020,$20203135,$20202020,$0A602020,$FFFF0000,$014C0000,$474E6FB0
Data.l $0000001F,$00040040,$6577735F,$756F685F,$5F736573,$34407865,$77730030,$6C6C6465,$642E3233,$0A006C6C,$64657773,$32336C6C
Data.l $6C6C642E,$2020202F,$36393131,$37323233,$20203633,$20202020,$20202020,$20202020,$20202030,$20202020,$20203335,$20202020
Data.l $0A602020,$FFFF0000,$014C0000,$474E6FB0,$00000021,$00040041,$6577735F,$756F685F,$5F736573,$645F7865,$00383240,$64657773
Data.l $32336C6C,$6C6C642E,$77730A00,$6C6C6465,$642E3233,$202F6C6C,$31312020,$32333639,$36333732,$20202020,$20202020,$20202020
Data.l $20302020,$20202020,$38342020,$20202020,$20202020,$00000A60,$0000FFFF,$6FB0014C,$001C474E,$00420000,$735F0004,$6A5F6577
Data.l $61646C75,$34324079,$65777300,$336C6C64,$6C642E32,$7773006C,$6C6C6465,$642E3233,$202F6C6C,$31312020,$32333639,$36333732
Data.l $20202020,$20202020,$20202020,$20302020,$20202020,$30352020,$20202020,$20202020,$00000A60,$0000FFFF,$6FB0014C,$001E474E
Data.l $00430000,$735F0004,$6A5F6577,$61646C75,$40645F79,$73003432,$6C646577,$2E32336C,$006C6C64,$64657773,$32336C6C,$6C6C642E
Data.l $2020202F,$36393131,$37323233,$20203633,$20202020,$20202020,$20202020,$20202030,$20202020,$20203735,$20202020,$0A602020
Data.l $FFFF0000,$014C0000,$474E6FB0,$00000025,$00040044,$6577735F,$6E756C5F,$6C63655F,$65737069,$776F685F,$00343240,$64657773
Data.l $32336C6C,$6C6C642E,$77730A00,$6C6C6465,$642E3233,$202F6C6C,$31312020,$32333639,$36333732,$20202020,$20202020,$20202020
Data.l $20302020,$20202020,$39352020,$20202020,$20202020,$00000A60,$0000FFFF,$6FB0014C,$0027474E,$00450000,$735F0004,$6C5F6577
Data.l $655F6E75,$70696C63,$685F6573,$645F776F,$00303240,$64657773,$32336C6C,$6C6C642E,$77730A00,$6C6C6465,$642E3233,$202F6C6C
Data.l $31312020,$32333639,$36333732,$20202020,$20202020,$20202020,$20302020,$20202020,$38352020,$20202020,$20202020,$00000A60
Data.l $0000FFFF,$6FB0014C,$0026474E,$00460000,$735F0004,$6C5F6577,$655F6E75,$70696C63,$775F6573,$406E6568,$73003832,$6C646577
Data.l $2E32336C,$006C6C64,$64657773,$32336C6C,$6C6C642E,$2020202F,$36393131,$37323233,$20203633,$20202020,$20202020,$20202020
Data.l $20202030,$20202020,$20203036,$20202020,$0A602020,$FFFF0000,$014C0000,$474E6FB0,$00000028,$00040047,$6577735F,$6E756C5F
Data.l $6C63655F,$65737069,$6568775F,$40645F6E,$73003432,$6C646577,$2E32336C,$006C6C64,$64657773,$32336C6C,$6C6C642E,$2020202F
Data.l $36393131,$37323233,$20203633,$20202020,$20202020,$20202020,$20202030,$20202020,$20203236,$20202020,$0A602020,$FFFF0000
Data.l $014C0000,$474E6FB0,$0000002A,$00040048,$6577735F,$6E756C5F,$63636F5F,$5F746C75,$6E656877,$6F6C675F,$36334062,$65777300
Data.l $336C6C64,$6C642E32,$7773006C,$6C6C6465,$642E3233,$202F6C6C,$31312020,$32333639,$36333732,$20202020,$20202020,$20202020
Data.l $20302020,$20202020,$31362020,$20202020,$20202020,$00000A60,$0000FFFF,$6FB0014C,$0029474E,$00490000,$735F0004,$6C5F6577
Data.l $6F5F6E75,$6C756363,$68775F74,$6C5F6E65,$3440636F,$77730030,$6C6C6465,$642E3233,$0A006C6C,$64657773,$32336C6C,$6C6C642E
Data.l $2020202F,$36393131,$37323233,$20203633,$20202020,$20202020,$20202020,$20202030,$20202020,$20203835,$20202020,$0A602020
Data.l $FFFF0000,$014C0000,$474E6FB0,$00000026,$0004004A,$6577735F,$6E756C5F,$63636F5F,$5F746C75,$72656877,$32334065,$65777300
Data.l $336C6C64,$6C642E32,$7773006C,$6C6C6465,$642E3233,$202F6C6C,$31312020,$32333639,$36333732,$20202020,$20202020,$20202020
Data.l $20302020,$20202020,$39342020,$20202020,$20202020,$00000A60,$0000FFFF,$6FB0014C,$001D474E,$004B0000,$735F0004,$6E5F6577
Data.l $615F646F,$34407370,$77730030,$6C6C6465,$642E3233,$0A006C6C,$64657773,$32336C6C,$6C6C642E,$2020202F,$36393131,$37323233
Data.l $20203633,$20202020,$20202020,$20202020,$20202030,$20202020,$20203135,$20202020,$0A602020,$FFFF0000,$014C0000,$474E6FB0
Data.l $0000001F,$0004004C,$6577735F,$646F6E5F,$7370615F,$3340645F,$77730036,$6C6C6465,$642E3233,$0A006C6C,$64657773,$32336C6C
Data.l $6C6C642E,$2020202F,$36393131,$37323233,$20203633,$20202020,$20202020,$20202020,$20202030,$20202020,$20203235,$20202020
Data.l $0A602020,$FFFF0000,$014C0000,$474E6FB0,$00000020,$0004004D,$6577735F,$646F6E5F,$7370615F,$4074755F,$73003034,$6C646577
Data.l $2E32336C,$006C6C64,$64657773,$32336C6C,$6C6C642E,$2020202F,$36393131,$37323233,$20203633,$20202020,$20202020,$20202020
Data.l $20202030,$20202020,$20203435,$20202020,$0A602020,$FFFF0000,$014C0000,$474E6FB0,$00000022,$0004004E,$6577735F,$646F6E5F
Data.l $7370615F,$5F74755F,$36334064,$65777300,$336C6C64,$6C642E32,$7773006C,$6C6C6465,$642E3233,$202F6C6C,$31312020,$32333639
Data.l $36333732,$20202020,$20202020,$20202020,$20302020,$20202020,$37342020,$20202020,$20202020,$00000A60,$0000FFFF,$6FB0014C
Data.l $001B474E,$004F0000,$735F0004,$705F6577,$6F6E6568,$00343240,$64657773,$32336C6C,$6C6C642E,$77730A00,$6C6C6465,$642E3233
Data.l $202F6C6C,$31312020,$32333639,$36333732,$20202020,$20202020,$20202020,$20302020,$20202020,$39342020,$20202020,$20202020
Data.l $00000A60,$0000FFFF,$6FB0014C,$001D474E,$00500000,$735F0004,$705F6577,$6F6E6568,$3240645F,$77730030,$6C6C6465,$642E3233
Data.l $0A006C6C,$64657773,$32336C6C,$6C6C642E,$2020202F,$36393131,$37323233,$20203633,$20202020,$20202020,$20202020,$20202030
Data.l $20202020,$20203035,$20202020,$0A602020,$FFFF0000,$014C0000,$474E6FB0,$0000001E,$00040051,$6577735F,$6568705F,$755F6F6E
Data.l $34324074,$65777300,$336C6C64,$6C642E32,$7773006C,$6C6C6465,$642E3233,$202F6C6C,$31312020,$32333639,$36333732,$20202020
Data.l $20202020,$20202020,$20302020,$20202020,$32352020,$20202020,$20202020,$00000A60,$0000FFFF,$6FB0014C,$0020474E,$00520000
Data.l $735F0004,$705F6577,$6F6E6568,$5F74755F,$30324064,$65777300,$336C6C64,$6C642E32,$7773006C,$6C6C6465,$642E3233,$202F6C6C
Data.l $31312020,$32333639,$36333732,$20202020,$20202020,$20202020,$20302020,$20202020,$30352020,$20202020,$20202020,$00000A60
Data.l $0000FFFF,$6FB0014C,$001E474E,$00530000,$735F0004,$725F6577,$6D5F6461,$40706469,$73003631,$6C646577,$2E32336C,$006C6C64
Data.l $64657773,$32336C6C,$6C6C642E,$2020202F,$36393131,$37323233,$20203633,$20202020,$20202020,$20202020,$20202030,$20202020
Data.l $20203834,$20202020,$0A602020,$FFFF0000,$014C0000,$474E6FB0,$0000001C,$00040054,$6577735F,$6461725F,$6D726F6E,$73003840
Data.l $6C646577,$2E32336C,$006C6C64,$64657773,$32336C6C,$6C6C642E,$2020202F,$36393131,$37323233,$20203633,$20202020,$20202020
Data.l $20202020,$20202030,$20202020,$20203834,$20202020,$0A602020,$FFFF0000,$014C0000,$474E6FB0,$0000001C,$00040055,$6577735F
Data.l $6665725F,$40636172,$73003832,$6C646577,$2E32336C,$006C6C64,$64657773,$32336C6C,$6C6C642E,$2020202F,$36393131,$37323233
Data.l $20203633,$20202020,$20202020,$20202020,$20202030,$20202020,$20203035,$20202020,$0A602020,$FFFF0000,$014C0000,$474E6FB0
Data.l $0000001E,$00040056,$6577735F,$6665725F,$5F636172,$30324064,$65777300,$336C6C64,$6C642E32,$7773006C,$6C6C6465,$642E3233
Data.l $202F6C6C,$31312020,$32333639,$36333732,$20202020,$20202020,$20202020,$20302020,$20202020,$37352020,$20202020,$20202020
Data.l $00000A60,$0000FFFF,$6FB0014C,$0025474E,$00570000,$735F0004,$725F6577,$61726665,$78655F63,$646E6574,$34406465,$77730038
Data.l $6C6C6465,$642E3233,$0A006C6C,$64657773,$32336C6C,$6C6C642E,$2020202F,$36393131,$37323233,$20203633,$20202020,$20202020
Data.l $20202020,$20202030,$20202020,$20203834,$20202020,$0A602020,$FFFF0000,$014C0000,$474E6FB0,$0000001C,$00040058,$6577735F
Data.l $7665725F,$406C756A,$73003832,$6C646577,$2E32336C,$006C6C64,$64657773,$32336C6C,$6C6C642E,$2020202F,$36393131,$37323233
Data.l $20203633,$20202020,$20202020,$20202020,$20202030,$20202020,$20203035,$20202020,$0A602020,$FFFF0000,$014C0000,$474E6FB0
Data.l $0000001E,$00040059,$6577735F,$7665725F,$5F6C756A,$34324064,$65777300,$336C6C64,$6C642E32,$7773006C,$6C6C6465,$642E3233
Data.l $202F6C6C,$31312020,$32333639,$36333732,$20202020,$20202020,$20202020,$20302020,$20202020,$32352020,$20202020,$20202020
Data.l $00000A60,$0000FFFF,$6FB0014C,$0020474E,$005A0000,$735F0004,$725F6577,$5F657369,$6E617274,$32354073,$65777300,$336C6C64
Data.l $6C642E32,$7773006C,$6C6C6465,$642E3233,$202F6C6C,$31312020,$32333639,$36333732,$20202020,$20202020,$20202020,$20302020
Data.l $20202020,$34352020,$20202020,$20202020,$00000A60,$0000FFFF,$6FB0014C,$0022474E,$005B0000,$735F0004,$725F6577,$5F657369
Data.l $6E617274,$40645F73,$73003034,$6C646577,$2E32336C,$006C6C64,$64657773,$32336C6C,$6C6C642E,$2020202F,$36393131,$37323233
Data.l $20203633,$20202020,$20202020,$20202020,$20202030,$20202020,$20203435,$20202020,$0A602020,$FFFF0000,$014C0000,$474E6FB0
Data.l $00000022,$0004005C,$6577735F,$7465735F,$6870655F,$61705F65,$34406874,$65777300,$336C6C64,$6C642E32,$7773006C,$6C6C6465
Data.l $642E3233,$202F6C6C,$31312020,$32333639,$36333732,$20202020,$20202020,$20202020,$20302020,$20202020,$36352020,$20202020
Data.l $20202020,$00000A60,$0000FFFF,$6FB0014C,$0024474E,$005D0000,$735F0004,$735F6577,$655F7465,$5F656870,$68746170,$3440645F
Data.l $65777300,$336C6C64,$6C642E32,$7773006C,$6C6C6465,$642E3233,$202F6C6C,$31312020,$32333639,$36333732,$20202020,$20202020
Data.l $20202020,$20302020,$20202020,$33352020,$20202020,$20202020,$00000A60,$0000FFFF,$6FB0014C,$0021474E,$005E0000,$735F0004
Data.l $735F6577,$6A5F7465,$665F6C70,$40656C69,$77730034,$6C6C6465,$642E3233,$0A006C6C,$64657773,$32336C6C,$6C6C642E,$2020202F
Data.l $36393131,$37323233,$20203633,$20202020,$20202020,$20202020,$20202030,$20202020,$20203535,$20202020,$0A602020,$FFFF0000
Data.l $014C0000,$474E6FB0,$00000023,$0004005F,$6577735F,$7465735F,$6C706A5F,$6C69665F,$40645F65,$77730034,$6C6C6465,$642E3233
Data.l $0A006C6C,$64657773,$32336C6C,$6C6C642E,$2020202F,$36393131,$37323233,$20203633,$20202020,$20202020,$20202020,$20202030
Data.l $20202020,$20203535,$20202020,$0A602020,$FFFF0000,$014C0000,$474E6FB0,$00000023,$00040060,$6577735F,$7465735F,$70616C5F
Data.l $725F6573,$40657461,$77730038,$6C6C6465,$642E3233,$0A006C6C,$64657773,$32336C6C,$6C6C642E,$2020202F,$36393131,$37323233
Data.l $20203633,$20202020,$20202020,$20202020,$20202030,$20202020,$20203435,$20202020,$0A602020,$FFFF0000,$014C0000,$474E6FB0
Data.l $00000022,$00040061,$6577735F,$7465735F,$6469735F,$646F6D5F,$30324065,$65777300,$336C6C64,$6C642E32,$7773006C,$6C6C6465
Data.l $642E3233,$202F6C6C,$31312020,$32333639,$36333732,$20202020,$20202020,$20202020,$20302020,$20202020,$36352020,$20202020
Data.l $20202020,$00000A60,$0000FFFF,$6FB0014C,$0024474E,$00620000,$735F0004,$735F6577,$735F7465,$6D5F6469,$5F65646F,$32314064
Data.l $65777300,$336C6C64,$6C642E32,$7773006C,$6C6C6465,$642E3233,$202F6C6C,$31312020,$32333639,$36333732,$20202020,$20202020
Data.l $20202020,$20302020,$20202020,$32352020,$20202020,$20202020,$00000A60,$0000FFFF,$6FB0014C,$0020474E,$00630000,$735F0004
Data.l $735F6577,$745F7465,$615F6469,$38406363,$65777300,$336C6C64,$6C642E32,$7773006C,$6C6C6465,$642E3233,$202F6C6C,$31312020
Data.l $32333639,$36333732,$20202020,$20202020,$20202020,$20302020,$20202020,$34352020,$20202020,$20202020,$00000A60,$0000FFFF
Data.l $6FB0014C,$0022474E,$00640000,$735F0004,$735F6577,$745F7465,$615F6469,$645F6363,$73003440,$6C646577,$2E32336C,$006C6C64
Data.l $64657773,$32336C6C,$6C6C642E,$2020202F,$36393131,$37323233,$20203633,$20202020,$20202020,$20202020,$20202030,$20202020
Data.l $20203035,$20202020,$0A602020,$FFFF0000,$014C0000,$474E6FB0,$0000001E,$00040065,$6577735F,$7465735F,$706F745F,$3432406F
Data.l $65777300,$336C6C64,$6C642E32,$7773006C,$6C6C6465,$642E3233,$202F6C6C,$31312020,$32333639,$36333732,$20202020,$20202020
Data.l $20202020,$20302020,$20202020,$32352020,$20202020,$20202020,$00000A60,$0000FFFF,$6FB0014C,$0020474E,$00660000,$735F0004
Data.l $735F6577,$745F7465,$5F6F706F,$32314064,$65777300,$336C6C64,$6C642E32,$7773006C,$6C6C6465,$642E3233,$202F6C6C,$31312020
Data.l $32333639,$36333732,$20202020,$20202020,$20202020,$20302020,$20202020,$30352020,$20202020,$20202020,$00000A60,$0000FFFF
Data.l $6FB0014C,$001E474E,$00670000,$735F0004,$735F6577,$69746469,$4030656D,$73003432,$6C646577,$2E32336C,$006C6C64,$64657773
Data.l $32336C6C,$6C6C642E,$2020202F,$36393131,$37323233,$20203633,$20202020,$20202020,$20202020,$20202030,$20202020,$20203235
Data.l $20202020,$0A602020,$FFFF0000,$014C0000,$474E6FB0,$00000020,$00040068,$6577735F,$6469735F,$656D6974,$40645F30,$73003631
Data.l $6C646577,$2E32336C,$006C6C64,$64657773,$32336C6C,$6C6C642E,$2020202F,$36393131,$37323233,$20203633,$20202020,$20202020
Data.l $20202020,$20202030,$20202020,$20203834,$20202020,$0A602020,$FFFF0000,$014C0000,$474E6FB0,$0000001C,$00040069,$6577735F
Data.l $6469735F,$656D6974,$73003840,$6C646577,$2E32336C,$006C6C64,$64657773,$32336C6C,$6C6C642E,$2020202F,$36393131,$37323233
Data.l $20203633,$20202020,$20202020,$20202020,$20202030,$20202020,$20203035,$20202020,$0A602020,$FFFF0000,$014C0000,$474E6FB0
Data.l $0000001E,$0004006A,$6577735F,$6469735F,$656D6974,$3840645F,$65777300,$336C6C64,$6C642E32,$7773006C,$6C6C6465,$642E3233
Data.l $202F6C6C,$31312020,$32333639,$36333732,$20202020,$20202020,$20202020,$20302020,$20202020,$37352020,$20202020,$20202020
Data.l $00000A60,$0000FFFF,$6FB0014C,$0025474E,$006B0000,$735F0004,$735F6577,$655F6C6F,$70696C63,$685F6573,$3240776F,$77730034
Data.l $6C6C6465,$642E3233,$0A006C6C,$64657773,$32336C6C,$6C6C642E,$2020202F,$36393131,$37323233,$20203633,$20202020,$20202020
Data.l $20202020,$20202030,$20202020,$20203935,$20202020,$0A602020,$FFFF0000,$014C0000,$474E6FB0,$00000027,$0004006C,$6577735F
Data.l $6C6F735F,$6C63655F,$65737069,$776F685F,$3240645F,$77730030,$6C6C6465,$642E3233,$0A006C6C,$64657773,$32336C6C,$6C6C642E
Data.l $2020202F,$36393131,$37323233,$20203633,$20202020,$20202020,$20202020,$20202030,$20202020,$20203336,$20202020,$0A602020
Data.l $FFFF0000,$014C0000,$474E6FB0,$0000002B,$0004006D,$6577735F,$6C6F735F,$6C63655F,$65737069,$6568775F,$6C675F6E,$3240626F
Data.l $77730038,$6C6C6465,$642E3233,$0A006C6C,$64657773,$32336C6C,$6C6C642E,$2020202F,$36393131,$37323233,$20203633,$20202020
Data.l $20202020,$20202020,$20202030,$20202020,$20203536,$20202020,$0A602020,$FFFF0000,$014C0000,$474E6FB0,$0000002D,$0004006E
Data.l $6577735F,$6C6F735F,$6C63655F,$65737069,$6568775F,$6C675F6E,$645F626F,$00343240,$64657773,$32336C6C,$6C6C642E,$77730A00
Data.l $6C6C6465,$642E3233,$202F6C6C,$31312020,$32333639,$36333732,$20202020,$20202020,$20202020,$20302020,$20202020,$32362020
Data.l $20202020,$20202020,$00000A60,$0000FFFF,$6FB0014C,$002A474E,$006F0000,$735F0004,$735F6577,$655F6C6F,$70696C63,$775F6573
Data.l $5F6E6568,$40636F6C,$73003233,$6C646577,$2E32336C,$006C6C64,$64657773,$32336C6C,$6C6C642E,$2020202F,$36393131,$37323233
Data.l $20203633,$20202020,$20202020,$20202020,$20202030,$20202020,$20203436,$20202020,$0A602020,$FFFF0000,$014C0000,$474E6FB0
Data.l $0000002C,$00040070,$6577735F,$6C6F735F,$6C63655F,$65737069,$6568775F,$6F6C5F6E,$40645F63,$73003832,$6C646577,$2E32336C
Data.l $006C6C64,$64657773,$32336C6C,$6C6C642E,$2020202F,$36393131,$37323233,$20203633,$20202020,$20202020,$20202020,$20202030
Data.l $20202020,$20203935,$20202020,$0A602020,$FFFF0000,$014C0000,$474E6FB0,$00000027,$00040071,$6577735F,$6C6F735F,$6C63655F
Data.l $65737069,$6568775F,$32406572,$77730034,$6C6C6465,$642E3233,$0A006C6C,$64657773,$32336C6C,$6C6C642E,$2020202F,$36393131
Data.l $37323233,$20203633,$20202020,$20202020,$20202020,$20202030,$20202020,$20203136,$20202020,$0A602020,$FFFF0000,$014C0000
Data.l $474E6FB0,$00000029,$00040072,$6577735F,$6C6F735F,$6C63655F,$65737069,$6568775F,$645F6572,$00303240,$64657773,$32336C6C
Data.l $6C6C642E,$77730A00,$6C6C6465,$642E3233,$202F6C6C,$31312020,$32333639,$36333732,$20202020,$20202020,$20202020,$20302020
Data.l $20202020,$31352020,$20202020,$20202020,$00000A60,$0000FFFF,$6FB0014C,$001F474E,$00730000,$735F0004,$735F6577,$74696C70
Data.l $6765645F,$00323340,$64657773,$32336C6C,$6C6C642E,$77730A00,$6C6C6465,$642E3233,$202F6C6C,$31312020,$32333639,$36333732
Data.l $20202020,$20202020,$20202020,$20302020,$20202020,$33352020,$20202020,$20202020,$00000A60,$0000FFFF,$6FB0014C,$0021474E
Data.l $00740000,$735F0004,$735F6577,$74696C70,$6765645F,$3240645F,$77730038,$6C6C6465,$642E3233,$0A006C6C,$64657773,$32336C6C
Data.l $6C6C642E,$2020202F,$36393131,$37323233,$20203633,$20202020,$20202020,$20202020,$20202030,$20202020,$20203035,$20202020
Data.l $0A602020,$FFFF0000,$014C0000,$474E6FB0,$0000001E,$00040075,$6577735F,$6D69745F,$71655F65,$36314075,$65777300,$336C6C64
Data.l $6C642E32,$7773006C,$6C6C6465,$642E3233,$202F6C6C,$31312020,$32333639,$36333732,$20202020,$20202020,$20202020,$20302020
Data.l $20202020,$32352020,$20202020,$20202020,$00000A60,$0000FFFF,$6FB0014C,$0020474E,$00760000,$735F0004,$745F6577,$5F656D69
Data.l $5F757165,$32314064,$65777300,$336C6C64,$6C642E32
Data.b $6C,$00
swedll32_lib_End:
EndDataSection ;}
Avatar de l’utilisateur
kernadec
Messages : 1594
Inscription : ven. 25/avr./2008 11:14

Re: Calendrier Astronomique de Poche avec lib suisse en data

Message par kernadec »

bonjour
mise à jour du code pour PB 5.31
Mise en mode global des variables Prototype
je remercie "User_Russian" du forum english pour cette astuce

Cordialement

Code : Tout sélectionner

;################################################################
;
; Swiss Ephemeris - swedll32.LIB
;
; Interface pour Purebasic 4.0.x mis à jour PB 5.31
;
; ftp://ftp.astro.com/pub/sweph/
; http://www.astro.com/swisseph/swephprg.htm
; sites pour obtenir la lib ' swedll32.LIB '
;################################################################
;  Impression d'ephémérides sur 32 jours par Kernadec 09/2008   #
;      voila un petit calendrier astronomique de poche          #
;         maximise et minimise windows et gadgets               #
;################################################################

Declare calcul()
Global jour.l,jours.l
Global journ.s
Global mois.l,moiss.l
Global annee.l,annees.l
Global minut.d
Global heure.d 
Global Path.s
Global c.s
Global starname.s
Global hdms.s
Global mdms.s
Global sdms.s
Global PoliceID

;################################################################


Path.s="C:\Purebasic"  ;  chemin du repertoire principal


Global Dim x.d(6); déclaration du tableau x
Global Dim x2.d(6)
Global Dim cusp.d(13)
Global Dim ascmc.d(10)
Global Dim attr.d(20)
Global Dim tret.d(20)
Global Dim geopos.d(10)
Global Dim geoposx.d(10)
Global Dim xnasc.d(6)
Global Dim xndsc.d(6)
Global Dim xperi.d(6)
Global Dim xaphe.d(6)
Global Dim Position.d(22)
Global Dim retro.s(22)
Global Dim serr.s(255)
Global Dim plnam.s(255)
Global hcusps.d=0
Global pName.s=Space(256)
Global Dim signepl.l(13)
Global Dim degrepl.s(13)
Global Dim minutpl.s(13)
Global Dim seconpl.s(13)
Global Dim zod.s(11)
Global Dim coltx.s(20)


#SEFLG_SWIEPH=2
#SEFLG_SPEED=256


Enumeration 0 Step 1
  #SE_GREG_CAL
  #SE_JUL_CAL
  #ID
EndEnumeration

Enumeration 0 Step 1
  #SE_SUN
  #SE_MOON
  #SE_MERCURY
  #SE_VENUS
  #SE_MARS
  #SE_JUPITER
  #SE_SATURN
  #SE_URANUS
  #SE_NEPTUNE
  #SE_PLUTO
  #SE_MEAN_NODE
  #SE_TRUE_NODE
  #SE_MEAN_APOG
  #SE_OSCU_APOG
  #SE_EARTH
  #SE_CHIRON   
  #SE_PHOLUS
  #SE_CERES
  #SE_PALLAS
  #SE_JUNO
  #SE_VESTA
  #SE_INTP_APOG
  #SE_INTP_PERG
EndEnumeration
Procedure xcm(x.f)
  x = x * (PrinterPageWidth()/21) ; 21cm A4
  ProcedureReturn x
EndProcedure
Procedure ycm(x.f)
  x = x * (PrinterPageHeight()/29.7) ; 29,7cm A4
  ProcedureReturn x
EndProcedure 
Procedure.d Frac(x.d)
  ProcedureReturn x-Int(x)
EndProcedure
Procedure.d dms(x.d)
  ProcedureReturn Int(x)+Frac(Int(Frac(x)*60)/100)+Frac(Frac(Frac(x)*60)*0.006)
EndProcedure



Restore zodiaque
For n=0 To 11
  Read.s zod.s(n)
Next n

;################################################################
Prototype.d trueSWE_JulDay(annee.l,mois.l,jour.l,heure.d,flag.l)
Prototype.l trueSWE_RevJul(juliandate.d,flag.l,annee.l,mois.l,jour.l,heure.l)
Prototype.l trueSWE_Day_Of_Week(juliandate.d)
Prototype.d trueSWE_DegNorm(juliandate.d)
Prototype.d trueSWE_date_conversion(annee.l,mois.l,jour.l,heure.d,cal.b,tjd.d)
Prototype.l trueSWE_Calc_ut(tjd.d,ipl.l,Iflag.l,*x,serr.s)
Prototype.s trueSWE_set_ephe_path(Path.s)
Prototype.l trueSWE_get_planet_name(ipl.l,pName.s)
Prototype.d trueSWE_deltat(tjd.d)
Prototype.l trueSWE_pheno(tjd.d,ipl.l,Iflag.l,*attr,serr.s)
Prototype.l trueSWE_rise_trans(tjd.d,ipl.l,starname.s,epheflag.l,rsmi.l,*geopos,atpress.d,attemp.d,*tret,serr.s)
Prototype.l trueSWE_houses_ex(tjd.d,Iflag.l,geolat.d,geolon.d,ihsy.l,*cusp,*ascmc)
Prototype.d trueSWE_sidtime(tjd.d)
Prototype.l trueSWE_houses_armc(armc.d,geolat.d,eps.d,ihsy.l,*cusp,*ascmc)

;######Prototype.d SWE_JulDay(annee.l,mois.l,jour.l,heure.d,flag.l)
Global SWE_RevJul.trueSWE_RevJul = 0
Global SWE_Day_Of_Week.trueSWE_Day_Of_Week = 0
Global SWE_DegNorm.trueSWE_DegNorm = 0
Global SWE_date_conversion.trueSWE_date_conversion = 0
Global SWE_Calc_ut.trueSWE_Calc_ut = 0
Global SWE_set_ephe_path.trueSWE_set_ephe_path = 0
Global SWE_get_planet_name.trueSWE_get_planet_name = 0
Global SWE_deltat.trueSWE_deltat = 0
Global SWE_pheno.trueSWE_pheno = 0
Global SWE_rise_trans.trueSWE_rise_trans = 0
Global SWE_houses_ex.trueSWE_houses_ex = 0
Global SWE_sidtime.trueSWE_sidtime = 0
Global SWE_houses_armc.trueSWE_houses_armc = 0
;################### premier mode ###############################
;If OpenLibrary(1,path+"swedll32.dll")
; JulDay.SWE_JulDay = GetFunction(1,"_swe_julday@24")
; RevJul.SWE_RevJul = GetFunction(1,"_swe_revjul@28")
; Day_Of_Week.SWE_Day_Of_Week = GetFunction(1,"_swe_day_of_week@8")
; DegNorm.SWE_DegNorm = GetFunction(1,"_swe_degnorm@8")
; Date_conversion.SWE_date_conversion = GetFunction(1,"_swe_date_conversion@28")
; Calc_ut.SWE_Calc_ut= GetFunction(1,"_swe_calc_ut@24")
; set_ephe_path.SWE_set_ephe_path= GetFunction(1,"_swe_set_ephe_path@4")
; get_planet_name.SWE_get_planet_name= GetFunction(1,"_swe_get_planet_name@8")
; deltat.SWE_deltat= GetFunction(1,"_swe_deltat@8")
; pheno.SWE_pheno= GetFunction(1,"_swe_pheno@24")
; rise_trans.SWE_rise_trans= GetFunction(1,"_swe_rise_trans@52")
; houses_ex.SWE_houses_ex= GetFunction(1,"_swe_houses_ex@40")
; sidtime.SWE_sidtime= GetFunction(1,"_swe_sidtime@8")
; houses_armc.SWE_houses_armc= GetFunction(1,"_swe_houses_armc@36")
; Else
;MessageRequester("Error!","Can't open library!",#MB_ICONERROR)
;End
;;EndIf
;################################################################
;################### deuxieme mode ##############################
Import "swedll32.lib"
  julday.d(annee.l,mois.l,jour.l,heure.d,flag.l) As "_swe_julday@24"
  RevJul(juliandate.d,flag.l,annee.l,mois.l,jour.l,heure.l) As "_swe_revjul@28"
  Day_Of_Week.l(juliandate.d) As "_swe_day_of_week@8"
  DegNorm.d(juliandate.d) As "_swe_degnorm@8"
  Date_conversion.l(annee.l,mois.l,jour.l,heure.d,cal.b,tjd.d) As "_swe_date_conversion@28"
  Calc_ut.l(tjd.d,ipl.l,Iflag.l,*x,serr.s) As "_swe_calc_ut@24";il ne faut pas mettre x sous forme de tableau. ????
  set_ephe_path(Path.s) As "_swe_set_ephe_path@4"
  get_planet_name(ipl.l,pName.s) As "_swe_get_planet_name@8"
  deltat(tjd.d) As "_swe_deltat@8"
  pheno.l(tjd.d,ipl.l,Iflag.l,*attr,serr.s) As "_swe_pheno@24"
  rise_trans.l(tjd.d,ipl.l,starname.s,epheflag.l,rsmi.l,*geopos,atpress.d,attemp.d,*tret,serr.s) As "_swe_rise_trans@52"
  houses_ex.l(tjd.d,Iflag.l,geolat.d,geolon.d,ihsy.l,*cusp,*ascmc) As "_swe_houses_ex@40"
  sidtime.d(tjd.d) As "_swe_sidtime@8"
  houses_armc.l(armc.d,geolat.d,eps.d,ihsy.l,*cusp,*ascmc) As "_swe_houses_armc@36"
EndImport

;##################### date actuelle ############################
annee=Year(Date())
jour=Day(Date())
mois=Month(Date())
Global WinW.l,WinH.l,WinX.l,WinY.l,OldW.l,OldH.l

WinW=915
WinH=495
WinX=(GetSystemMetrics_(#SM_CXSCREEN)-WinW)/2
WinY=(GetSystemMetrics_(#SM_CYSCREEN)-WinH)/2
OldW=WinW
OldH=WinH

Form1_hWnd=OpenWindow (0 , WinX, WinY,WinW, WinH, " Calcul d'Ephémérides pour Oh GMT  par Périodes de 32 Jours depuis la date choisie" , #PB_Window_ScreenCentered|#PB_Window_SystemMenu|#PB_Window_MinimizeGadget|#PB_Window_MaximizeGadget|#PB_Window_SizeGadget )
SendMessage_(WindowID(0),#WM_SETICON,#False,CatchImage(0,?ephe_ico_Start)) ;icone dans la barre de titre
If Form1_hWnd = 0 : End : EndIf

Global OffW.f : OffW=1
Global OffH.f : OffH=1

Procedure DrawGadgets()
  PoliceID=LoadFont(1,"Arial",6*OffW) ;on peut utilise OffH mais seulement pour les ecran 16/9
  ListIconGadget (100, 5*OffW, 5*OffH, 905*OffW,440*OffH, "Js" ,21*OffW,#PB_ListIcon_GridLines)
  SetGadgetFont(100, PoliceID)
  AddGadgetColumn (100, 1, "Date 0h" , 45*OffW)
  AddGadgetColumn (100, 2, "GMT TU" , 48*OffW)
  AddGadgetColumn (100, 3, "Soleil" , 65*OffW)
  AddGadgetColumn (100, 4, "Lune" , 65*OffW)
  AddGadgetColumn (100, 5, "Mercure" , 58*OffW)
  AddGadgetColumn (100, 6, "Venus" , 58*OffW)
  AddGadgetColumn (100, 7, "Mars" , 58*OffW)
  AddGadgetColumn (100, 8, "Jupiter" , 58*OffW)
  AddGadgetColumn (100, 9, "Saturne" , 58*OffW)
  AddGadgetColumn (100, 10, "Uranus" , 58*OffW)
  AddGadgetColumn (100, 11, "Neptune" , 58*OffW)
  AddGadgetColumn (100, 12, "Pluton" , 58*OffW)
  AddGadgetColumn (100, 13, "NdnMoy" , 58*OffW)
  AddGadgetColumn (100, 14, "NdnVrai" , 58*OffW)
  AddGadgetColumn (100, 15, "LilithM" ,58*OffW)
  ComboBoxGadget(2,340*OffW,455*OffH,37*OffW,20,#PB_ComboBox_Editable)
  For x = 1 To 31
    AddGadgetItem(2,-1,Str(x))     ;Jour
  Next
  SetGadgetState(2,jour-1)
  ComboBoxGadget(3,380*OffW,455*OffH,37*OffW,20,#PB_ComboBox_Editable)
  For x = 1 To 12
    AddGadgetItem(3,-1,Str(x))     ;mois
  Next
  SetGadgetState(3,mois-1)
  ComboBoxGadget(4,420*OffW,455*OffH,48*OffW,20,#PB_ComboBox_Editable)
  For x = 1 To 2300           
    AddGadgetItem(4,-1,Str(x))    ;année
  Next
  SetGadgetState(4, Abs(annee-1))
  ;########################### boutons ############################
  ButtonGadget(5, 60*OffW, 455*OffH, 115*OffW, 25*OffH, "Quitter")
  ButtonGadget(6, 200*OffW, 455*OffH, 115*OffW, 25*OffH, "Imprimer")
  ButtonGadget(7, 500*OffW, 455*OffH, 115*OffW, 25*OffH, "Effacer")
  ButtonGadget(8, 640*OffW, 455*OffH, 115*OffW, 25*OffH, "Confirmer")
  ;########################### titres #############################
  TextGadget(22, 340*OffW, 477*OffH, 40*OffW, 20*OffH, "Jour")
  TextGadget(23, 380*OffW, 477*OffH, 40*OffW, 20*OffH, "Mois")
  TextGadget(24, 420*OffW, 477*OffH, 50*OffW, 20*OffH, "Année")
  ;################################################################
EndProcedure

DrawGadgets()

Repeat
  Event=WaitWindowEvent()
  NewW=WindowWidth(0) : NewH=WindowHeight(0)
  If NewW<>OldW Or NewH<>OldH
    OldW=NewW : OldH=NewH
    OffW=NewW/WinW : OffH=NewH/WinH
    DrawGadgets()
    jour.l=Val(GetGadgetText(2))
    mois.l=Val(GetGadgetText(3))
    annee.l=Val(GetGadgetText(4))
    calcul()
  EndIf
  If Event = #PB_Event_Gadget Or Event = #PB_Event_Menu
    
    Select EventGadget()
      Case 5
        CloseWindow(0) :  quit = 1
      Case 6
        yhaut = 300
        xleft = 200
        p=0
        If PrintRequester()
          If StartPrinting("Ephemeride ")
            Font=ycm(((4*0.090)/2.5))
            LoadFont(0,"Arial",Font)
            If StartDrawing(PrinterOutput())
              DrawingFont(FontID(0))
              For n=0 To CountGadgetItems(100)
                yhaut=yhaut+(Font*1.5)
                DrawText(xleft,yhaut,GetGadgetItemText(100,n-1,0))
                DrawText(xleft+xcm(8*0.035),yhaut,"| "+GetGadgetItemText(100,n-1,1))
                DrawText(xleft+xcm(34*0.035),yhaut,"| "+GetGadgetItemText(100,n-1,2))
                DrawText(xleft+xcm(62*0.035),yhaut,"| "+GetGadgetItemText(100,n-1,3))
                DrawText(xleft+xcm(106*0.035),yhaut,"| "+GetGadgetItemText(100,n-1,4))
                DrawText(xleft+xcm(148*0.035),yhaut,"| "+GetGadgetItemText(100,n-1,5))
                DrawText(xleft+xcm(186*0.035),yhaut,"| "+GetGadgetItemText(100,n-1,6))
                DrawText(xleft+xcm(224*0.035),yhaut,"| "+GetGadgetItemText(100,n-1,7))
                DrawText(xleft+xcm(262*0.035),yhaut,"| "+GetGadgetItemText(100,n-1,8))
                DrawText(xleft+xcm(300*0.035),yhaut,"| "+GetGadgetItemText(100,n-1,9))
                DrawText(xleft+xcm(338*0.035),yhaut,"| "+GetGadgetItemText(100,n-1,10))
                DrawText(xleft+xcm(376*0.035),yhaut,"| "+GetGadgetItemText(100,n-1,11))
                DrawText(xleft+xcm(414*0.035),yhaut,"| "+GetGadgetItemText(100,n-1,12))
                DrawText(xleft+xcm(452*0.035),yhaut,"| "+GetGadgetItemText(100,n-1,13))
                DrawText(xleft+xcm(490*0.035),yhaut,"| "+GetGadgetItemText(100,n-1,14))
                DrawText(xleft+xcm(528*0.035),yhaut,"| "+GetGadgetItemText(100,n-1,15))
                If yhaut>ycm(780*0.035)   
                  p=p+1                 ; 29.7cm/848pixels=0.035 - 21.0cm/600pixels=0.035             
                  DrawText(xcm(500*0.035),ycm(800*0.035),Str(p))  ;numero de bas page droite
                  NewPrinterPage()
                  yhaut=300
                  DrawText(xleft,yhaut,GetGadgetItemText(100,-1,0))
                  DrawText(xleft+xcm(8*0.035),yhaut,"| "+GetGadgetItemText(100,-1,1))
                  DrawText(xleft+xcm(34*0.035),yhaut,"| "+GetGadgetItemText(100,-1,2))
                  DrawText(xleft+xcm(62*0.035),yhaut,"| "+GetGadgetItemText(100,-1,3))
                  DrawText(xleft+xcm(106*0.035),yhaut,"| "+GetGadgetItemText(100,-1,4))
                  DrawText(xleft+xcm(148*0.035),yhaut,"| "+GetGadgetItemText(100,-1,5))
                  DrawText(xleft+xcm(186*0.035),yhaut,"| "+GetGadgetItemText(100,-1,6))
                  DrawText(xleft+xcm(224*0.035),yhaut,"| "+GetGadgetItemText(100,-1,7))
                  DrawText(xleft+xcm(262*0.035),yhaut,"| "+GetGadgetItemText(100,-1,8))
                  DrawText(xleft+xcm(300*0.035),yhaut,"| "+GetGadgetItemText(100,-1,9))
                  DrawText(xleft+xcm(338*0.035),yhaut,"| "+GetGadgetItemText(100,-1,10))
                  DrawText(xleft+xcm(376*0.035),yhaut,"| "+GetGadgetItemText(100,-1,11))
                  DrawText(xleft+xcm(414*0.035),yhaut,"| "+GetGadgetItemText(100,-1,12))
                  DrawText(xleft+xcm(452*0.035),yhaut,"| "+GetGadgetItemText(100,-1,13))
                  DrawText(xleft+xcm(490*0.035),yhaut,"| "+GetGadgetItemText(100,-1,14))
                  DrawText(xleft+xcm(528*0.035),yhaut,"| "+GetGadgetItemText(100,-1,15))
                EndIf 
              Next n
              p=p+1
              DrawText(xcm(500*0.035),ycm(800*0.035),Str(p))  ;numero de derniere page
              StopDrawing()
            EndIf
            StopPrinting()
          EndIf
        EndIf
      Case 7
        ClearGadgetItems(100) 
      Case 8
        jour.l=Val(GetGadgetText(2))
        mois.l=Val(GetGadgetText(3))
        annee.l=Val(GetGadgetText(4))
        calcul()
      Case #PB_Event_CloseWindow
        CloseWindow(0) :  quit = 1
    EndSelect
  EndIf
Until quit = 1
End
Procedure calcul()
  annees=annee
  moiss=mois
  jours=jour
  For ii=0 To 31
    Iflag=#SEFLG_SWIEPH+#SEFLG_SPEED
    heure=0
    tjd_ut.d=julday(annee,mois,jour,heure,#SE_JUL_CAL)
    tsidtu.d=sidtime(tjd_ut)
    For nplanete=#SE_SUN To #SE_INTP_PERG
      Calc_ut(tjd_ut, nplanete, Iflag, @x.d(0),serr.s)
      Position(nplanete)=x(0)
      If x(3) < 0
        retro(nplanete)= "r"
      Else
        retro(nplanete)= " "
      EndIf
      If nplanete<14
        signepl(nplanete)=Int(Position(nplanete)/30); nmsigne
        degrepl(nplanete)=Str(Int((Position(nplanete)-(signepl(nplanete)*30))))
        minutpl(nplanete)=Str((Position(nplanete)-Int(Position(nplanete)))*60)
        seconpl(nplanete)=Str(Int((((Position(nplanete)-Int(Position(nplanete)))*60)-Int((Position(nplanete)-Int(Position(nplanete)))*60))*60))
      EndIf
    Next nplanete
    jd1.d = julday(annee,mois,jour,heure,#SE_JUL_CAL)
    Select Day_Of_Week( jd1 )
      Case 0: ;"Lundi"
        journ="Lu"
      Case 1: ;"Mardi"
        journ="Ma"
      Case 2: ;"Mercredi"
        journ="Me"
      Case 3: ;"Jeudi"
        journ="Je"
      Case 4: ;"Vendredi"
        journ="Ve"
      Case 5: ;"Samedi"
        journ="Sa"
      Case 6: ;"Dimanche"
        journ="Di"
    EndSelect
    ; mise a jour des conversion pour petit bug sur quelques resultats du temps universel
    hdms=Str(Int(tsidtu))
    If Len(hdms)<2:hdms="0"+hdms:EndIf
    
    mdms=StrD(dms(tsidtu))
    mdms=Left(StringField(mdms,2,"."),2)
    If Len(mdms)<2:mdms="0"+mdms:EndIf
    
    sdms=StrD(dms(tsidtu),4)
    sdms=Right(StringField(sdms,2,"."),2)
    If Len(sdms)<2:sdms="0"+sdms:EndIf
    
    
    degrepl(0)=Right(Str(Val(degrepl(0)) + 100) , 2)
    minutpl(0)=Right(Str(Val(minutpl(0)) + 100) , 2)
    seconpl(0)=Right(Str(Val(seconpl(0)) + 100) , 2)
    coltx(0)=degrepl(0)+"° "+minutpl(0)+"' "+seconpl(0)+"' "+zod(signepl(0))
    degrepl(1)=Right(Str(Val(degrepl(1)) + 100) , 2)
    minutpl(1)=Right(Str(Val(minutpl(1)) + 100) , 2)
    seconpl(1)=Right(Str(Val(seconpl(1)) + 100) , 2)
    coltx(1)=degrepl(1)+"° "+minutpl(1)+"' "+seconpl(1)+"' "+zod(signepl(1))
    degrepl(2)=Right(Str(Val(degrepl(2)) + 100) , 2):minutpl(2)=Right(Str(Val(minutpl(2)) + 100) , 2)
    coltx(2)=degrepl(2)+"° "+minutpl(2)+"' "+retro(2)+" "+zod(signepl(2))
    degrepl(3)=Right(Str(Val(degrepl(3)) + 100) , 2):minutpl(3)=Right(Str(Val(minutpl(3)) + 100) , 2)
    coltx(3)=degrepl(3)+"° "+minutpl(3)+"' "+retro(3)+" "+zod(signepl(3))
    degrepl(4)=Right(Str(Val(degrepl(4)) + 100) , 2):minutpl(4)=Right(Str(Val(minutpl(4)) + 100) , 2)
    coltx(4)=degrepl(4)+"° "+minutpl(4)+"' "+retro(4)+" "+zod(signepl(4))
    degrepl(5)=Right(Str(Val(degrepl(5)) + 100) , 2):minutpl(5)=Right(Str(Val(minutpl(5)) + 100) , 2)
    coltx(5)=degrepl(5)+"° "+minutpl(5)+"' "+retro(5)+" "+zod(signepl(5))
    degrepl(6)=Right(Str(Val(degrepl(6)) + 100) , 2):minutpl(6)=Right(Str(Val(minutpl(6)) + 100) , 2)
    coltx(6)=degrepl(6)+"° "+minutpl(6)+"' "+retro(6)+" "+zod(signepl(6))
    degrepl(7)=Right(Str(Val(degrepl(7)) + 100) , 2):minutpl(7)=Right(Str(Val(minutpl(7)) + 100) , 2)
    coltx(7)=degrepl(7)+"° "+minutpl(7)+"' "+retro(7)+" "+zod(signepl(7))
    degrepl(8)=Right(Str(Val(degrepl(8)) + 100) , 2):minutpl(8)=Right(Str(Val(minutpl(8)) + 100) , 2)
    coltx(8)=degrepl(8)+"° "+minutpl(8)+"' "+retro(8)+" "+zod(signepl(8))
    degrepl(9)=Right(Str(Val(degrepl(9)) + 100) , 2):minutpl(9)=Right(Str(Val(minutpl(9)) + 100) , 2)
    coltx(9)=degrepl(9)+"° "+minutpl(9)+"' "+retro(9)+" "+zod(signepl(9))
    degrepl(10)=Right(Str(Val(degrepl(10)) + 100) , 2):minutpl(10)=Right(Str(Val(minutpl(10)) + 100) , 2)
    coltx(10)=degrepl(10)+"° "+minutpl(10)+"' "+retro(10)+" "+zod(signepl(10))
    degrepl(11)=Right(Str(Val(degrepl(11)) + 100) , 2):minutpl(11)=Right(Str(Val(minutpl(11)) + 100) , 2)
    coltx(11)=degrepl(11)+"° "+minutpl(11)+"' "+retro(11)+" "+zod(signepl(11))
    degrepl(12)=Right(Str(Val(degrepl(12)) + 100) , 2):minutpl(12)=Right(Str(Val(minutpl(12)) + 100) , 2)
    coltx(12)=degrepl(12)+"° "+minutpl(12)+"' "+retro(12)+" "+zod(signepl(12))
    coltx(13)=journ
    coltx(14)=Right(Str(jour + 100) , 2)+"/"+Right(Str(mois + 100) , 2)+"/"+Right(Str(annee) , 2)
    coltx(15)=hdms+"h"+t$+mdms+"'"+t$+sdms+"'"
    If coltx(13)="Di"
      AddGadgetItem(100, -1, ""+ Chr(10) +""+ Chr(10) + ""+ Chr(10)+""+ Chr(10) +""+ Chr(10) +""+ Chr(10) +""+ Chr(10) +""+Chr(10) +""+ Chr(10) +""+Chr(10) +""+Chr(10) +""+ Chr(10) +""+Chr(10) +""+Chr(10) +""+ Chr(10) +"")
      AddGadgetItem(100, -1, coltx(13)+ Chr(10) + coltx(14)+ Chr(10) + coltx(15)+ Chr(10)+coltx(0)+ Chr(10) + coltx(1)+ Chr(10) + coltx(2)+ Chr(10) + coltx(3)+ Chr(10) + coltx(4)+Chr(10) + coltx(5)+ Chr(10) + coltx(6)+Chr(10) + coltx(7)+Chr(10) + coltx(8)+ Chr(10) + coltx(9)+Chr(10) + coltx(10)+Chr(10) + coltx(11)+ Chr(10) + coltx(12))
    Else
      AddGadgetItem(100, -1, coltx(13)+ Chr(10) + coltx(14)+ Chr(10) + coltx(15)+ Chr(10)+coltx(0)+ Chr(10) + coltx(1)+ Chr(10) + coltx(2)+ Chr(10) + coltx(3)+ Chr(10) + coltx(4)+Chr(10) + coltx(5)+ Chr(10) + coltx(6)+Chr(10) + coltx(7)+Chr(10) + coltx(8)+ Chr(10) + coltx(9)+Chr(10) + coltx(10)+Chr(10) + coltx(11)+ Chr(10) + coltx(12))
    EndIf
    RevJul( jd1+1, #SE_JUL_CAL, @annee.l, @mois.l, @jour.l, @heure.d)
  Next ii
  annee=annees
  mois=moiss
  jour=jours
  
EndProcedure   
;################################################################
DataSection
  zodiaque:       ;  offset police des astres et objets celeste
  Data.s "Bel","Tau","Gem","Can","Lio","Vie","Bal","Sco","Sag","Cap","Ver","Poi"
EndDataSection

;################################################################
;  IncludeBinary "ephe.ico" [?ephe_ico_Start , ?ephe_ico_End]
;{ Size = 766 bytes
DataSection
  ; PureBin2Data header
  Data.l 766
  Data.b 0
  ; Data
  ephe_ico_Start:
  Data.l $00010000,$20200001,$00010010,$02E80004,$00160000,$00280000,$00200000,$00400000,$00010000,$00000004,$02800000,$00000000
  Data.l $00000000,$00000000,$00000000,$00000000,$00000000,$80000080,$80000000,$00800080,$00800000,$80800080,$80800000,$C0C00080
  Data.l $000000C0,$FF0000FF,$FF000000,$00FF00FF,$00FF0000,$FFFF00FF,$FFFF0000,$000000FF,$77770000,$77777777,$00000070,$00000000
  Data.l $70000000,$00707070,$00000070,$00000000,$07000000,$00000707,$00000070,$00000000,$70000000,$00707070,$00000070,$00000000
  Data.l $00000000,$00000000,$00000070,$00000000,$78000000,$00F0F878,$00000077,$00000000,$88780000,$F0888888,$00007007,$00000000
  Data.l $00887800,$88080000,$000077F0,$00000000,$0F008807,$0800FFFF,$0070078F,$00000000,$FF0F8078,$00FFFFF0,$0070F088,$00000000
  Data.l $FFFF0888,$FF0FFFF0,$00778008,$07000000,$0FFF0F80,$FF0FF8F0,$00078F00,$08000000,$FFFFF880,$FFFFF0FF,$700788F0,$78000000
  Data.l $FF0F8F00,$0FFF80FF,$77F008F0,$88000070,$FFFFF808,$FFFF0FFF,$008008FF,$78000077,$FF8F8F0F,$FFFF0FF8,$88F008FF,$88000007
  Data.l $FF0F0008,$00FF8F80,$0080080F,$78000007,$F8FF8F0F,$FFFF980F,$88F008FF,$88000000,$808FF808,$FF8FF9FF,$008008FF,$78000000
  Data.l $0F0F8F00,$0F98FFFF,$00F008F0,$08000000,$FFF88880,$8FF9FF8F,$000788F0,$07000000,$08F80880,$9F0F8FF0,$00008F00,$00000000
  Data.l $8F8F0888,$FFFFFFF0,$00708008,$00000000,$F8088078,$008F8F80,$0000F088,$00000000,$08008807,$0800F8F8,$00000087,$00000000
  Data.l $00887800,$88080000,$00000070,$00000000,$88780000,$70888888,$00000000,$00000000,$78000000,$00707878,$00000070,$00000000
  Data.l $00000000,$00000000,$00000070,$00000000,$70000000,$00707070,$00000070,$00000000,$07000000,$00000707,$00000070,$00000000
  Data.l $70000000,$00707070,$00000000,$00FF0000,$00FEFF07,$00FEFF07,$00FEFF07,$00FEFF07,$00FEFF07,$00FCFF03,$00F8FF01,$00F0FF00
  Data.l $00E07F00,$00E07F00,$00C03F00,$00C03F00,$00801F00,$00800700,$00800300,$00800300,$00800300,$00800700,$00800F00,$00C03F00
  Data.l $00C03F00,$00E07F00,$00E07F00,$00F0FF00,$00F8FF01,$00FCFF03,$00FEFF07,$00FEFF07,$00FEFF07,$00FEFF07,$00FEFF07
  Data.b $0F,$FF
  ephe_ico_End:
EndDataSection ;}
Dernière modification par kernadec le ven. 17/janv./2020 15:20, modifié 1 fois.
Avatar de l’utilisateur
MetalOS
Messages : 1492
Inscription : mar. 20/juin/2006 22:17
Localisation : Lorraine
Contact :

Re: Calendrier Astronomique de Poche avec lib suisse en data

Message par MetalOS »

Merci pour cet mise â jour. Super ce code.
Avatar de l’utilisateur
kernadec
Messages : 1594
Inscription : ven. 25/avr./2008 11:14

Re: Calendrier Astronomique de Poche avec lib suisse en data

Message par kernadec »

bonjour MetalOS
je suis heureux que ce code te plaise :D
pour ceux qui souhaiteraient avoir les coordonnées en Ascension Droite avec ce code

Ajouter en début de code la constante:
#SEFLG_EQUATORIAL = 2048

Puis modifier la ligne 350

Code : Tout sélectionner

 Iflag=#SEFLG_SWIEPH+#SEFLG_SPEED|#SEFLG_EQUATORIAL
Cordialement
Avatar de l’utilisateur
MetalOS
Messages : 1492
Inscription : mar. 20/juin/2006 22:17
Localisation : Lorraine
Contact :

Re: Calendrier Astronomique de Poche avec lib suisse en data

Message par MetalOS »

Nikel, j'ai un pote qui fait de l'astronomie ça va lui servir.
Répondre