string filename defcolor filename = gettoken() if (filename <> "") tokenize filename call ppepath() + "view.ppe" startdisp fcl defcolor if (filename == "") kbdstuff chr(13)