PHOTON USE
  p
 
 
 
 
  gr ou x 1
  MSG Velocity vectors
  vec x 1 sh
  msg
  msg Press return to plot pressure contours
  pause
  cont p1 x 1 fil;.01
  msg
  msg Type e to End
  ENDUSE
 
#$B516
TEXT(POT FLOW OVER ELLIPSE;MAGIC GRID:   B517
TITLE
   char(answ)
mesg(Press return to continue
readvdu(answ,char,y)
 
  DISPLAY
   Same as case 516 except that a nearly-orthogonal grid is used.
  ENDDIS
GSET(M,F1,+J+K,1,1,1,LAP5.FFFTFF)
GSET(C,I2,F,I1,+,1,0,0)
NONORT=T