{-------------------------------------------------------------------------}
       { Modseek in FALSE, 23 May 1993 v1.0 by the S.D.I. of FASC! }
{-------------------------------------------------------------------------}
[$8221`57480`11008`\255&]n:{(n.l-n>>8,n.b)}
[36,$65535&\8221`18496`11008`65535&$0=~[$w;!]?%w;!]l:{print hex longword}
[\10-'A+,]x:['0+,]y:[$a:4096/$$9>$x;?~y;?a;\4096*-$a:256/$$9>$x;?~y;?
a;\256*-$a:16/$$9>$x;?~y;?a;\16*-$9>$x;?~y;?]w:{print hex word}
"ModSeek by the SDI of FASC. Seeks all Pro-Tracker mdules in chipmem!
Seekin' from 0 to "4;62+;$u:2-l;!"...
"0$t:[2+t:t;u;=~][t;$;11068`19758`19246`=[$1080-$$$
"--> Module found from "l;!40+0s:32a:[a;1-$a:0=~][$;65535&s;+s:30+]#%s;$+@@
952+0h:127a:[a;1_=~][a;4-a:$;[$0=~\n;!@][$h;>[$h:]?%]#%%4+]#%
h;1+1024*1084+@+$2x+1-" to "l;!"
    Length = "l;!"
    Name: "34,6h:[h;1-$h:0=~][$;5i:[i;1-$i:0=~][n;!\]#%,,,,4+]#%34,10,]?]#
"Finished! Have a nice day...
"
