code:

---

First.lzx
       Main.lzx
       RDB.lzx
       RomUpdate.lzx

C (dir)
       AddBuffers                       
       UNLZX
S (dir)
       startup-sequence

---

code:

---

Libs (dir)
       icon.library
       workbench.library
Devs (dir)
(emty)
C (dir)
       Assign
       SetPatch
       Version

---

code:

---

disk.info
       HDToolBox
       HDToolBox.info
       Mounter
       Mounter.info
       RDBArc
       RDBArc.info
       System.info
System (dir)
       CLI
       Shell.info
Locale (dir)
       Languages (dir)
            deutsch.language                 
Libs (dir)
       asl.library
       commodities.library
       datatypes.library
       diskfont.library
       hdwrench.library
       iffparse.library
       locale.library
       lowlevel.library
       mathieeedoubbas.library
       resource.library
       rexxsyslib.library               
Env (dir)
       Sys (dir)
            def_disk.info
            def_drawer.info
            def_project.info
            def_tool.info
            input.prefs
            locale.prefs
            overscan.prefs
            palette.prefs
            Pointer.prefs
            reaction.prefs
            Screenmode.prefs
            Workbench.prefs
Devs (dir)
       Keymaps (dir)
            d                                
       Datatypes (dir)
            ILBM
Classes (dir)
       window.class
       Images (dir)
            bevel.image
            drawlist.image
            glyph.image
            label.image
       Gadgets (dir)
            button.gadget
            checkbox.gadget
            chooser.gadget
            clicktab.gadget
            fuelgauge.gadget
            integer.gadget
            layout.gadget
            listbrowser.gadget
            radiobutton.gadget
            scroller.gadget
            space.gadget
            speedbar.gadget
            string.gadget                    
       Datatypes (dir)
            ilbm.datatype
            picture.datatype
c (dir)
       AddDataTypes
       check4gb
       ConClip
       Copy
       Ed
       IPrefs
       List
       LoadResource
       loadwb
       MakeDir
       mount
       RDBrecov
       Relabel
       SFScheck
       SFSformat
       SFSSalv

---

code:

---

Devs (dir)
       AmigaOS ROM Update

---

code:

---

;set echo on
C:AddBuffers >NIL: DF0: 250
Df0:c/unlzx >Nil: x Df0:First.lzx Ram:
Ram:c/Version Version 43 scsi.device >Nil:
IF warn
Df0:c/unlzx >Nil: x Df0:RomUpdate.lzx Ram:
EndIf
Ram:c/assign C: Ram:c add
path Ram:c
Assign Sys: Ram:
Cd Sys:
Assign Libs: Ram:Libs
Assign Devs: Ram:Devs
C:setpatch Quiet
Df0:c/unlzx >Nil: x Df0:main.lzx Ram:
Df0:c/unlzx >Nil: x Df0:RDB.lzx Ram:
C:MakeDir Ram:T Ram:Clipboards
Assign T: Ram:T
Assign CLIPS: Ram:Clipboards
Assign ENV: Ram:ENV
Assign Libs: Ram:Classes add
Assign KEYMAPS: Ram:DEVS/Keymaps add
Assign LOCALE: Ram:Locale
Assign System: Ram:System
Assign l: Ram:l
relabel "Ram Disk:" SMH
C:Adddatatypes refresh quiet
C:IPrefs
C:conclip
C:loadwb
endcli

---

code:

---

533333
322223
312123
321113
311113
3333112
    3112
     3112
      322

---

code:

---

3
      313
     31113
    3111113
       1
 3333331333333
 3111111111113
       3
 3111111111113
 3333331333333
       1
    3111113
     31113
      313
       3

---

code:

---

33 33
     31 13
     31 13
   3 31 13 3
  31 31 13 13
 311 31 13 113
311111131111113
 311 31 13 113
  31 31 13 13
   3 31 13 3
     31 13
     31 13
     33 33

---

code:

---

/* convert utf-8 to latin */
Parse Arg File

IF ~SHOW('LIBRARIES','rexxsupport.library') THEN DO
   IF ~ADDLIB('rexxsupport.library',10,-30,0) THEN DO
      SAY 'Kann die <rexxsupport.library> nicht öffnen!'
      EXIT(10)
   END
END

L=SUBWORD(STATEF(File),2,1)
Call Open(File,File,R)
Convertfile="Ram:convert.txt"
Call Open(Convertfile,Convertfile,W)
Do Dl=1 To L
Chr=Readch(File,1)
   If BitTst(Chr,7) Then Do
      Z=0
         Do Until ~BitTst(Chr,7-Z)
         Z=Z+1
         End
      CHR$=Substr(C2B(Chr),8-Z,Z+1)
         Do I = 1 To Z-1
         Chr=Readch(File,1)
         Dl=Dl+1
         CHR$=Chr$ || Substr(C2B(Chr),3,6)
         End
   Chr=D2C(C2D(B2C(Chr$))*1)
   If C2D(Chr) = 8364 Then Chr = D2C(164) /* Euro */
   End
Wr=Writech(Convertfile,Chr)
End
Cl=Close(File)
Cl=Close(Convertfile)

---

Wenn ich nun aber einfach splitte, dann passiert das irgendwo mittendrin und ich habe am Ende ein halbes Lied. Und dann müsste ich wieder neu berechnen und rumfiddeln... Das ist halt alles nicht sehr rund.
Am einfachsten wäre es wenn MakeCD nicht bei 99min aufhören würde, dann würde ich die ermittelten Werte übertragen und fertig ist es.
Mit einer HD soft könnte ich "akkustisch" schneiden, das würde aber stunden dauern.

code:

---

/* cutwavesequence.rexx */
Parse Arg File
say "Startzeit eingeben: "
echo "Eingabeformat min:sek" ; Pull Startzeit
If Pos(":",Startzeit,1)=0 Then Do
say "Doppelpunkt vergessen!" ; Exit(0) ; End
Parse Value Startzeit with min ":" sec
StartAdr=((min*60)+sec)*44100*4+44
say "Spieldauer eingeben: "
echo "Eingabeformat min:sek" ; Pull PT
If Pos(":",PT,1)=0 Then Do
say "Doppelpunkt vergessen!" ; Exit(0) ; End
Parse Value PT with min ":" sec
PT=((min*60)+sec)*44100*4
Echo "SicherungsPfad eingeben :" ;Savepath = READLN(STDIN)
CALL OPEN(File,File,R)
CALL OPEN(Savepath,Savepath,W)
Wr=Writech(Savepath,'524946460000000057415645666d74201000000001000 200'x)
Wr=Writech(Savepath,'44ac000010b10200020010006461746100000000' x)
Durchlauf=PT%65535
Rest=PT//65535
Rpos=SEEK(File,StartAdr,BEGIN)
DO D = 1 TO Durchlauf
Save$=Readch(File,65535)
Wr=WriteCh(Savepath,Save$)
End
Save$=Readch(File,Rest)
Wr=Writech(Savepath,Save$)
Cl=Close(File)
RiffLen=C2X(Reverse(x2c(d2x(PT+36,8))))
RiffLen=X2C(insert("0",RiffLen,Length(RiffLen),8-Length(RiffLen),"0 "))
DataLen=C2X(Reverse(x2c(d2x(PT,8))))
DataLen=X2C(insert("0",DataLen,Length(DataLen),8-Length(DataLen),"0 "))
Rpos=SEEK(Savepath,4,BEGIN)
wr=Writech(Savepath,RiffLen)
Rpos=SEEK(Savepath,40,BEGIN)
wr=Writech(Savepath,DataLen)
Cl=Close(Savepath)
say "Raw-Daten wurden ab Byte " || StartAdr || " gelesen."

---

code:

---

/*extract Wave Header */
Parse Arg File
Z=0
Do Until(SubStr(File,Length(File)-Z,1)=":" | SubStr(File,Length(File)-Z,1)="/")
Z=Z+1
Headername=Right(File,Z)
End
Header="Ram:" || Headername || "-header"
Call Open(File,File,R)
Call Open(Header,Header,W)
Do Until(Read$="data")
Read$=ReadCh(File,4)
Wr=Writech(Header,Read$)
End
Read$=ReadCh(File,4)
Wr=Writech(Header,Read$)
Cl=Close(File)
Cl=Close(Header)

---

code:

---

IF ~SHOW('LIBRARIES','rexxsupport.library') THEN DO
   IF ~ADDLIB('rexxsupport.library',10,-30,0) THEN DO
      SAY 'Kann die <rexxsupport.library> nicht öffnen!'
      EXIT(10)
   END
END

---

code:

---

/* */
Parse Arg File
Laenge=SUBWORD(STATEF(File),2,1)
Call Open(File,File,R)
Do Until(Read$="data")
Read$=ReadCh(File,4)
End
DataPos=Seek(File,0)
DataLen=C2X(Reverse(x2c(d2x(Laenge-Datapos-4,8))))
DataLen=X2C(insert("0",DataLen,Length(DataLen),8-Length(DataLen),"0 "))
RiffLen=C2X(Reverse(x2c(d2x(Laenge-8,8))))
RiffLen=X2C(insert("0",RiffLen,Length(RiffLen),8-Length(RiffLen),"0 "))
Cl=Close(File)
Call Open(File,File,A)
WPos=Seek(File,4,Begin)
Wr=Writech(File,RiffLen)
WPos=Seek(File,DataPos,Begin)
Wr=Writech(File,DataLen)
Cl=Close(File)

---