subroutine load(*) c c NU PRIME TIME FACILITY V 2.0 c Northeastern University Academic Computer Services c 360 Huntington Avenue c Boston, Mass 02115 c c David Bernardo, Author c c This routine is called when the operator wishes to force c PT_MONITOR to reload information from one of the c permanent data bases. c common /valid/valid_commands,group,level_line character message*5,level_line*80,levels*4 integer*4 group byte level_line_len,loc,valid_commands(14) data levels/'CDTU'/ c level_line_len=0 do while (level_line_len.eq.0) if(level_line.eq.' ')then print 5 5 format(1x,'Cluster,Defaults,Terminal,User: ',$) read(5,10,end=999)level_line_len,level_line 10 format(q,a) else level_line_len=80 endif call upcase(level_line) call squash(level_line,level_line_len) if(level_line_len.ne.0)then level=index(levels,level_line(1:1)) if(level.gt.0)then message='LOAD' // level_line(1:1) call send_mail(message,*998) print*,'PTC-LOAD Request complete.' return 1 endif print*,'PTC-LOAD Invalid entry.' level_line_len=0 level_line=' ' endif enddo 998 print*,'PTC-LOAD Request aborted.' 999 return 1 end