@prog ansihack.muf 1 99999 d 1 i $def specialparse 1 parse_ansi 3 parse_ansi dup strlen 4 - strcut pop $def ansi_strcut swap specialparse swap \ansi_strcut $def ansi_strlen specialparse \ansi_strlen : main 0 parse_ansi 1 parse_ansi 2 parse_ansi 3 parse_ansi dup strlen 4 - strcut pop ; . c q @register ansihack.muf=ansihack @register #me ansihack.muf=tmp/prog1 @set $tmp/prog1=L @propset $tmp/prog1=str:/_/de:A scroll containing a spell called ansihack.muf @propset #0=str:/_defs/ansi_strcut:swap specialparse swap \ansi_strcut @propset #0=str:/_defs/ansi_strlen:specialparse \ansi_strlen @propset #0=str:/_defs/specialparse:1 parse_ansi 3 parse_ansi dup strlen 4 - dup 0 > if strcut pop else pop then @prog ansihack2.muf 1 99999 d 1 i $def specialparse 3 parse_ansi dup $def ansi_strcut swap specialparse swap \ansi_strcut $def ansi_strlen specialparse \ansi_strlen : main ; . c q @register ansihack2.muf=ansihack2 @register #me ansihack2.muf=tmp/prog1 @set $tmp/prog1=L @set $tmp/prog1=W @set $tmp/prog1=2 @propset $tmp/prog1=str:/_/de:A scroll containing a spell called ansihack.muf @propset $tmp/prog1=str:/_defs/ansi_strcut:swap specialparse swap \ansi_strcut @propset $tmp/prog1=str:/_defs/ansi_strlen:specialparse \ansi_strlen @propset $tmp/prog1=str:/_defs/specialparse:3 parse_ansi dup strlen 4 - strcut pop