; Dir2Pics
; 
; (c) 1997 Cyborg 

    {* Include sys:coder/preass/Options.p *}
    {* Include sys:coder/preass/Prozeduren.p *}

    {* String: Version="$VER: Dir2Pics (C) CYBORG 97"*}

    {* IncSysBlock: FIB,300*}
    {* IncSysBlock: Exe_Puffer,1000*}

Start:
    Ok=GetFilename()
;    Copymem("dh3:Voyager/Skypictures",#Filename,?)
    TH=Open("T:xxx",#Mode_new)
    CheckF TH,.ende    
    Dirlock=Lock(#Filename,#Access_read)
    CheckF Dirlock,.close
    OK=Examine(Dirlock,#FIB)
    Ziffer==0
.l1:     
    OK=ExNext(Dirlock,#Fib)
    CheckF Ok,.l2
        Zeiger=8(#FIB)
        Copymem(Zeiger,#name,100)
        ConvertZahl(Ziffer,0)
        jsr bewegen
        Exe_puffer=="Rename "+Filename+"/"+Name+" to "+Filename+"/pics."+zahl
        Execute(#Exe_Puffer,0,0)
        Exe_puffer=="Rename "+Filename+"/pics."+zahl+" to "+Filename+"/"+name+"\$0a"
        Fputs(TH,#Exe_puffer)
        Ziffer==Ziffer+1
        bra .l1
.l2:
    {* FLush *}
    Unlock(Dirlock)
.close:
    Close(TH)
.ende:
    RTS

Bewegen:
    move.l #Zahl,a0
    cmpi.b #` `,(a0)
    beq .rot
    RTS
.rot:
    move.b 1(a0),(a0)
    move.b 2(a0),1(a0)
    move.b 3(a0),2(a0)
    move.b #0,3(a0)
    bra.s Bewegen