Process Data

From Macros Wiki
Jump to: navigation, search

! look at process tiles 1 to 5 and find out if there
! is a process defined and if that process is selected.
! then deselect all processes and select the first
! of these processes that is defined, if there is one.
! ---------------------------------------------------

get_proc_list_shown ishown  ! check to see if process tiles list is shown
if ishown<>1 then show_proc_list
 
msg$ = "First 5 processes" + crlf$
 
iproc = 0
 
for i=1 to 5  ! check first 5 processes
a$ = "Process %i"


get_proc_status i, istatus
if istatus=0 then a$=a$ + " Not Defined"
if istatus<0 then a$=a$ + " Not Complete"


if istatus=1 then get_proc_selected i, isel
if istatus=1 then if isel=0 then a$=a$ + " Not Selected"
if istatus=1 then if isel=1 then a$=a$ + " Is Selected"


if istatus=1 then if iproc=0 then iproc=i


eval_text a$
msg$ = msg$ + crlf$ + a$
next i
 
message msg$
 
deselect_all_procs
if iproc=0 then stop "No processes found"
 
select_proc iproc
redraw_proc_list
 
message "Select the first complete process"