# oneliner test script for iniquity - by mike fricker (fiend) @ 03/10/96
# ======================================================================
#
# changed 1/3/00 - fixed syntax error - should now compile in iq2.0F+ -jp
{
setcolor[7,0]
clrscr
showtext["onelntop"]
if not showtext["onelnmid"] then outln["no oneliners currently exist."]
showtext["onelnbot"]
cout["|12would you like to add something ? "]
if not inyesno[false,true] then exit
inputstring = instr["","*","*","/nr",76] % get input, 76 chrs, no C/R
if (inputstring = "") then {
outln["[aborted]"]
exit
}
dnln[2]
out["adding '"+inputstring+"' ..."]
menucmd["?T","onelnmid.ans;12"] % add istr to textfile w/ truncate
% usage: ?T <textfile>;<maxlines>
outln[" done."]
}