fl

hex

\ metafunktionen

: (bload)               \ ( cstr -- ) - belatrix-code laden

  52 adm:open .err      \ datei öffnen
  b[
    0 [b!] 63 [b!]                       \ bella-loader starten
    10 0 do 06 [a!] [a@] [b!] loop       \ header einlesen
    0A [a!] 0 [a.l!]                     \ 0 adm:seek
    [b@] <8 [b@] or                      \ dateilänge empfangen
    0 do 06 [a!] [a@] [b!] loop          \ datei senden
  ]b                                     
  adm:close .err       \ datei schließen
;

: bload                 \ name ( -- ) - bellatrix-code laden
  parsenw (bload) ;