{$nodebug} procedure chain(nextprogram : packed array [slow..shigh:integer] of char; entrypoint:integer); { Chain to nextprogram - start execution at line entrypoint (for BASIC) or } { pass it entrypoint as a parameter (other languages - see } { PLIB:ENTRY.PAS). Entrypoint usually is passed as a zero. } { - 1/84 - OMSI/EFM } { requires that the PLIB:FSS library procedure be included BEFORE this one } var firqbfqnent origin 440B : integer; error : boolean; begin fss(nextprogram,error); if not error then begin firqbfqnent := entrypoint; emt(377B); emt(42B) end end; { chain } {$debug}