// Patch von Turbo-Pascal-Programmen bzgl. Delay-Problemen ==> Runtime Error 200 // // Suchen nach: // // |HF7|HD0|HF7|HD2|HB9|H37 // // und |H37 durch z.B. |H7E ersetzen // // // Delay stimmt dann zwar nicht mehr so ganz, aber egal ... // BoF S("|HF7|HD0|HF7|HD2|HB9|H37",NOERR+ADVANCE) // wenn es gar nicht vorkommt: ende if(Error_Match){ out_OS M("nix") out_OS(CLEAR) exit(1) } // wenn mehr als einmal vorkommt: ende S("|HF7|HD0|HF7|HD2|HB9|H37",NOERR) if(! Error_Match){ exit(2) } BoF R("|HF7|HD0|HF7|HD2|HB9|H37","|HF7|HD0|HF7|HD2|HB9|H7E",NOERR) FS(NOMSG) exit(0)