ANIPAUSE.IPS

# configurable animated pause that uses external config files
# by: comatose [idt] 
# coded in ipl (iniquity programming language)
#
# edited by jack phlash for iq2.10 - if anipause is not found will display
# a normal prompt to keep from crashing the whole system... neato huh?

{

@ file ansi
@ str  pause

    fileassign[ansi,"text\anipause.ans"]
    fileopen[ansi]
    if ioerror <> 0 then {
     xoutln["|08(|07pause|08)"]
     exit
     }

       repeat {
        filereadln[ansi,pause]
        posx[1]
        cout[pause]
        coutln[""]
        posup[1] 
        delay[strval[iplpar[1]]]
        if (fileend[ansi]=true) then {
         fileseek[ansi,1]            
         }
       }
       until keypressed
    fileclose[ansi]
}