OPEN (fin,‘/mickey/home/dos/tmp/trial.dat’, INPUT);
OPEN (fout, ‘/mickey/home/dos/tmp/trial.out’, OUTPUT);
CANCEL BREAKPOINT gen_reset ;
WRITE(‘current time = ’, cur_clock,‘\n’) ;
IF rand_iuniform(1,100) = 1
write(fout,‘malfunction occurred
SET BREAKPOINT gen_reset=> EVERY delay DO
CANCEL BREAKPOINT gen_reset;
ns_green_time:=rand_iuniform(30,50) ;
READ(fin, ew_green_time) ;
WRITE(‘Data for ew_green_time exceeds limit.’) ;
WRITE(‘Enter a value for ew_green_time less than
delay:=RAND_IUNIFORM(1,10);
SET BREAKPOINT gen_reset ;