archive/share/unknown/asymp.dm3

   1 writefile(dsk,adk)$
   2 delay:read("Please enter delay time in form [hours,minutes]");
   3 delay_secs:first(delay)*3600+second(delay)*60;
   4 loadfile(asymp,fasl,dsk,adk)$
   5 showtime:true$
   6 graph11:diagram(line(a,b,1,mu),line(b,c,2,mu),line(c,d,3,mu),line(d,e,4,mu),
   7     line(e,f,5,mu),line(f,i,14,mu),line(i,a,6,mu),line(b,g,7,mu),line(c,g,8,mm),
   8     line(e,h,9,mu),line(h,f,10,mm),line(g,h,11,mm),extline(a,12,-p),extline(d,13,p-q),
   9     extline(i,15,q))$
  10 ttyoff:true$
  11 ?sleep(delay_secs);
  12 bound_finite_region_only(graph11,[[mu,p],mm,inf]);
  13 closefile(asymp,demou3);
  14 mail(adk,"Demo3 completed execution.")$
  15 logout();