ADDTAIL="s:cuntadder.tail"
ADDFAKE="s:cuntadder.fake"
ADDHEAD="s:cuntadder.head"
COPYRIGHT="                                                             [Cunt Adder v1.0]"
EMPTY=""
USER="unreg. version"
parse arg filename
if ~open(fh,filename) then do;say "Usage: CuntAdder <Filename>";exit;END
CLOSE(fh)
say "[0 p"
say ".-------------------------------------------------------------."
say "|CuntAdderv1.0by2fAST/SAD-[Release1]-"USER"|"
say ")------------------------------+------------------------------("
say "|AddHead:waiting...........|AddTail:waiting...........|"
say "`------------------------------+------------------------------'"
address command "copy >nil: "filename" s:cuntadder.fake"
open(fh,filename,W)
say "working"
open(fh1,addhead,R)
open(fh2,addfake,R)
lgth=seek(fh1,0,E)
seek(fh1,0,B)
text=readch(fh1,lgth)
writech(fh,text)
text=readch(fh2,1000000)
writeln(fh,text)
close(fh)
close(fh1)
close(fh2)
address command "delete >nil: "addfake
say "done"
say "working"
open(fh,filename)
open(fh2,addtail)
text=readch(fh2,1000000)
seek(fh,0,E)
writeln(fh,text)
writeln(fh,empty)
writeln(fh,copyright)
close(fh)
close(fh2)
say "done[1 p"
exit;end