PxPlus User Forum
Main Board => Discussions => Programming => Topic started by: Jim Morton on August 18, 2023, 01:14:40 PM
-
How can I programmatically tell if a program is passworded?
I have a process that copies all programs and I need to skip the passworded ones since *ufc errors on them.
fin() and fib() don't seem to hold that info.
TIA
-
Jim,
Got this info from program *udv:
passworded=0
open input (hfn,isz=512)"program"; read record (lfo)r$; close(lfo)
if and(r$(90,1),$01$)=$01$ then passworded=1
-
I thought I'd seen that test somewhere but could not find it.
Thanks Ken!