// Aufr„umen

#98=Buf_Num                                  // akt. Buffer merken
Buf_Switch(3)                                // temp. Buffer
Buf_Empty(OK)                                // leeren
Reg_Ins(100)                                 // und mit Makro selbst f�llen
Search(":STARTRAW:",BEGIN+ADVANCE+COUNT,2)   // Start-Marke suchen
                                 // (Bug: bei COUNT ist ADVANCE zwingend !!!
Line(0)                          // Zeilenanfang
Del_Line(-MAXNUM)                // alle Zeilen davor l”schen
Replace("//|Y|>","",NOERR+ALL)   // alle Kommentare l”schen
                                 // alle anh„ngenden White-Spaces l”schen
//Replace("|W|>","",NOERR+BEGIN+ALL)

                                 // Ausf�hrung nach @98 verlagern, weil
                                 //   ein ablaufendes Reg. nicht modifiziert
                                 //   werden kann: gek�rztes Makro wieder
                                 //   nach @100 kopieren und dort ausf�hren

Reg_Set(98,"BOF Reg_Copy(100,MAXNUM) Buf_Switch(#98) Chain(100)")
Chain(98)

// -------------------------------------------------------------------------

:STARTRAW:
Reg_Empty(98)
S('|@(99)', NOERR+SET)       
return