if ($read -nl97 events.mrc != $read -nl16 ircN722b.pch) { iecho Patch failed or patch already applied! | .play stop }

if ($read -nl98 events.mrc != $read -nl17 ircN722b.pch) { iecho Patch failed or patch already applied! | .play stop }

if ($read -nl462 identfrs.als != $read -nl18 ircN722b.pch) { iecho Patch failed or patch already applied! | .play stop }

if ($read -nl467 identfrs.als != $read -nl19 ircN722b.pch) { iecho Patch failed or patch already applied! | .play stop }

write -l97 events.mrc $read -nl21 ircN722b.pch

write -l98 events.mrc $read -nl22 ircN722b.pch

.reload -rs events.mrc

write -l462 identfrs.als $read -nl23 ircN722b.pch

write -l467 identfrs.als $read -nl24 ircN722b.pch

.load -a identfrs.als

iecho Queue fix for ircN 7.22 installed successfully!

.timer 1 1 .remove ircN722b.pch

.play stop

iecho You should not see this! Patch data follows...

;Original data

write -c $tp(queue1.txt)

write -c $tp(queue2.txt)

else return $tp($addtok($addtok(queue,$right($ddename,-4),0,a.txt,0))

else return $tp($addtok($addtok(queue,$right($ddename,-4),0,b.txt,0))

;New data

write -c $queue1

write -c $queue2

else return $tp($addtok($addtok(queue,$right($ddename,-4),0),a.txt,0))

else return $tp($addtok($addtok(queue,$right($ddename,-4),0),b.txt,0))