* Modified:  Apr 16, 1996, M.Miller, miller5@uiuc.edu
* Added some title_gl commands so that each page shows the filename
* of the macro being executed.

*close 99

*h/file 99 [1].hbook
*cd //lun99
*message 'You are replaying run # ' [1]

*exec paw[1].kumac
*lcd ../online/
label1:

set ygti 0.7
set yhti 0.8
set gsiz 0.4
set gfon -20
title_gl 'cointime.kumac'
/MACRO/EXEC cointime.kumac
title_gl ' '
IF [2] = 0 THEN
  forback = f
  READ forback 'forwd: anything/backwd: b/quit: q'
  IF (([forback] = b).OR.([forback] = B)) THEN
    GOTO label39
  ELSEIF (([forback] = q).OR.([forback] = Q)) THEN
    GOTO stop
  ELSE
    GOTO label2
  ENDIF
ELSE
  wait ! [2]
ENDIF 
label2:
title_gl 'missingmass.kumac'
/MACRO/EXEC missingmass.kumac
title_gl ' '
IF [2] = 0 THEN
  forback = f
  READ forback 'forwd: anything/backwd: b/quit: q'
  IF (([forback] = b).OR.([forback] = B)) THEN
    GOTO label1
  ELSEIF (([forback] = q).OR.([forback] = Q)) THEN
    GOTO stop
  ELSE
    GOTO label3
  ENDIF
ELSE
  wait ! [2]
ENDIF 
label3:
title_gl 'missingmomentum.kumac'
/MACRO/EXEC missingmomentum.kumac
title_gl ' '
IF [2] = 0 THEN
  forback = f
  READ forback 'forwd: anything/backwd: b/quit: q'
  IF (([forback] = b).OR.([forback] = B)) THEN
    GOTO label2
  ELSEIF (([forback] = q).OR.([forback] = Q)) THEN
    GOTO stop
  ELSE
    GOTO label4
  ENDIF
ELSE
  wait ! [2]
ENDIF 
label4:
title_gl 'phasespace.kumac'
/MACRO/EXEC phasespace.kumac
title_gl ' '
IF [2] = 0 THEN
  forback = f
  READ forback 'forwd: anything/backwd: b/quit: q'
  IF (([forback] = b).OR.([forback] = B)) THEN
    GOTO label3
  ELSEIF (([forback] = q).OR.([forback] = Q)) THEN
    GOTO stop
  ELSE
    GOTO label5
  ENDIF
ELSE
  wait ! [2]
ENDIF 
label5:
title_gl 'beam_raster.kumac'
/MACRO/EXEC beam_raster.kumac
title_gl ' '
IF [2] = 0 THEN
  forback = f
  READ forback 'forwd: anything/backwd: b/quit: q'
  IF (([forback] = b).OR.([forback] = B)) THEN
    GOTO label4
  ELSEIF (([forback] = q).OR.([forback] = Q)) THEN
    GOTO stop
  ELSE
    GOTO label6
  ENDIF
ELSE
  wait ! [2]
ENDIF 
label6:
title_gl 'bpm.kumac'
/MACRO/EXEC bpm.kumac
title_gl ' '
IF [2] = 0 THEN
  forback = f
  READ forback 'forwd: anything/backwd: b/quit: q'
  IF (([forback] = b).OR.([forback] = B)) THEN
    GOTO label5
  ELSEIF (([forback] = q).OR.([forback] = Q)) THEN
    GOTO stop
  ELSE
    GOTO label7
  ENDIF
ELSE
  wait ! [2]
ENDIF 
label7:
title_gl 'hrawcal.kumac'
/MACRO/EXEC hrawcal.kumac
title_gl ' '
IF [2] = 0 THEN
  forback = f
  READ forback 'forwd: anything/backwd: b/quit: q'
  IF (([forback] = b).OR.([forback] = B)) THEN
    GOTO label6
  ELSEIF (([forback] = q).OR.([forback] = Q)) THEN
    GOTO stop
  ELSE
    GOTO label8
  ENDIF
ELSE
  wait ! [2]
ENDIF 
label8:
title_gl 'hcal.kumac'
/MACRO/EXEC hcal.kumac
title_gl ' '
IF [2] = 0 THEN
  forback = f
  READ forback 'forwd: anything/backwd: b/quit: q'
  IF (([forback] = b).OR.([forback] = B)) THEN
    GOTO label7
  ELSEIF (([forback] = q).OR.([forback] = Q)) THEN
    GOTO stop
  ELSE
    GOTO label9
  ENDIF
ELSE
  wait ! [2]
ENDIF 
label9:
title_gl 'hcer.kumac'
/MACRO/EXEC hcer.kumac
title_gl ' '
IF [2] = 0 THEN
  forback = f
  READ forback 'forwd: anything/backwd: b/quit: q'
  IF (([forback] = b).OR.([forback] = B)) THEN
    GOTO label8
  ELSEIF (([forback] = q).OR.([forback] = Q)) THEN
    GOTO stop
  ELSE
    GOTO label9a
  ENDIF
ELSE
  wait ! [2]
ENDIF 
label9a:
title_gl 'haero_npe.kumac'
/MACRO/EXEC haero_npe.kumac
title_gl ' '
IF [2] = 0 THEN
  forback = f
  READ forback 'forwd: anything/backwd: b/quit: q'
  IF (([forback] = b).OR.([forback] = B)) THEN
    GOTO label8
  ELSEIF (([forback] = q).OR.([forback] = Q)) THEN
    GOTO stop
  ELSE
    GOTO label10
  ENDIF
ELSE
  wait ! [2]
ENDIF 
label10:
title_gl 'hdc1wiremap.kumac'
/MACRO/EXEC hdc1wiremap.kumac
title_gl ' '
IF [2] = 0 THEN
  forback = f
  READ forback 'forwd: anything/backwd: b/quit: q'
  IF (([forback] = b).OR.([forback] = B)) THEN
    GOTO label9
  ELSEIF (([forback] = q).OR.([forback] = Q)) THEN
    GOTO stop
  ELSE
    GOTO label11
  ENDIF
ELSE
  wait ! [2]
ENDIF 
label11:
title_gl 'hdc2wiremap.kumac'
/MACRO/EXEC hdc2wiremap.kumac
title_gl ' '
IF [2] = 0 THEN
  forback = f
  READ forback 'forwd: anything/backwd: b/quit: q'
  IF (([forback] = b).OR.([forback] = B)) THEN
    GOTO label10
  ELSEIF (([forback] = q).OR.([forback] = Q)) THEN
    GOTO stop
  ELSE
    GOTO label12
  ENDIF
ELSE
  wait ! [2]
ENDIF 
label12:
title_gl 'hdtime.kumac'
/MACRO/EXEC hdtime.kumac
title_gl ' '
IF [2] = 0 THEN
  forback = f
  READ forback 'forwd: anything/backwd: b/quit: q'
  IF (([forback] = b).OR.([forback] = B)) THEN
    GOTO label11
  ELSEIF (([forback] = q).OR.([forback] = Q)) THEN
    GOTO stop
  ELSE
    GOTO label13
  ENDIF
ELSE
  wait ! [2]
ENDIF 
label13:
title_gl 'hdist.kumac'
/MACRO/EXEC hdist.kumac
title_gl ' '
IF [2] = 0 THEN
  forback = f
  READ forback 'forwd: anything/backwd: b/quit: q'
  IF (([forback] = b).OR.([forback] = B)) THEN
    GOTO label12
  ELSEIF (([forback] = q).OR.([forback] = Q)) THEN
    GOTO stop
  ELSE
    GOTO label14
  ENDIF
ELSE
  wait ! [2]
ENDIF 
label14:
title_gl 'hres.kumac'
/MACRO/EXEC hres.kumac
title_gl ' '
IF [2] = 0 THEN
  forback = f
  READ forback 'forwd: anything/backwd: b/quit: q'
  IF (([forback] = b).OR.([forback] = B)) THEN
    GOTO label13
  ELSEIF (([forback] = q).OR.([forback] = Q)) THEN
    GOTO stop
  ELSE
    GOTO label15
  ENDIF
ELSE
  wait ! [2]
ENDIF 
label15:
title_gl 'hpid.kumac'
/MACRO/EXEC hpid.kumac
title_gl ' '
IF [2] = 0 THEN
  forback = f
  READ forback 'forwd: anything/backwd: b/quit: q'
  IF (([forback] = b).OR.([forback] = B)) THEN
    GOTO label14
  ELSEIF (([forback] = q).OR.([forback] = Q)) THEN
    GOTO stop
  ELSE
    GOTO label16
  ENDIF
ELSE
  wait ! [2]
ENDIF 
label16:
title_gl 'hpos.kumac'
/MACRO/EXEC hpos.kumac
title_gl ' '
IF [2] = 0 THEN
  forback = f
  READ forback 'forwd: anything/backwd: b/quit: q'
  IF (([forback] = b).OR.([forback] = B)) THEN
    GOTO label15
  ELSEIF (([forback] = q).OR.([forback] = Q)) THEN
    GOTO stop
  ELSE
    GOTO label17
  ENDIF
ELSE
  wait ! [2]
ENDIF 
label17:
title_gl 'hrawscin.kumac'
/MACRO/EXEC hrawscin.kumac
title_gl ' '
IF [2] = 0 THEN
  forback = f
  READ forback 'forwd: anything/backwd: b/quit: q'
  IF (([forback] = b).OR.([forback] = B)) THEN
    GOTO label16
  ELSEIF (([forback] = q).OR.([forback] = Q)) THEN
    GOTO stop
  ELSE
    GOTO label18
  ENDIF
ELSE
  wait ! [2]
ENDIF 
label18:
title_gl 'hscin.kumac'
/MACRO/EXEC hscin.kumac
title_gl ' '
IF [2] = 0 THEN
  forback = f
  READ forback 'forwd: anything/backwd: b/quit: q'
  IF (([forback] = b).OR.([forback] = B)) THEN
    GOTO label17
  ELSEIF (([forback] = q).OR.([forback] = Q)) THEN
    GOTO stop
  ELSE
    GOTO label19
  ENDIF
ELSE
  wait ! [2]
ENDIF 
label19:
title_gl 'hthreshold.kumac'
/MACRO/EXEC hthreshold.kumac
title_gl ' '
IF [2] = 0 THEN
  forback = f
  READ forback 'forwd: anything/backwd: b/quit: q'
  IF (([forback] = b).OR.([forback] = B)) THEN
    GOTO label18
  ELSEIF (([forback] = q).OR.([forback] = Q)) THEN
    GOTO stop
  ELSE
    GOTO label20
  ENDIF
ELSE
  wait ! [2]
ENDIF 
label20:
title_gl 'htime.kumac'
/MACRO/EXEC htime.kumac
title_gl ' '
IF [2] = 0 THEN
  forback = f
  READ forback 'forwd: anything/backwd: b/quit: q'
  IF (([forback] = b).OR.([forback] = B)) THEN
    GOTO label19
  ELSEIF (([forback] = q).OR.([forback] = Q)) THEN
    GOTO stop
  ELSE
    GOTO label21
  ENDIF
ELSE
  wait ! [2]
ENDIF 
label21:
title_gl 'htof.kumac'
/MACRO/EXEC htof.kumac
title_gl ' '
IF [2] = 0 THEN
  forback = f
  READ forback 'forwd: anything/backwd: b/quit: q'
  IF (([forback] = b).OR.([forback] = B)) THEN
    GOTO label20
  ELSEIF (([forback] = q).OR.([forback] = Q)) THEN
    GOTO stop
  ELSE
    GOTO label22
  ENDIF
ELSE
  wait ! [2]
ENDIF 
label22:
title_gl 'htrack.kumac'
/MACRO/EXEC htrack.kumac
title_gl ' '
IF [2] = 0 THEN
  forback = f
  READ forback 'forwd: anything/backwd: b/quit: q'
  IF (([forback] = b).OR.([forback] = B)) THEN
    GOTO label21
  ELSEIF (([forback] = q).OR.([forback] = Q)) THEN
    GOTO stop
  ELSE
    GOTO label23
  ENDIF
ELSE
  wait ! [2]
ENDIF 
label23:
title_gl 'htrack.kumac'
/MACRO/EXEC hdipoleexit.kumac
title_gl ' '
IF [2] = 0 THEN
  forback = f
  READ forback 'forwd: anything/backwd: b/quit: q'
  IF (([forback] = b).OR.([forback] = B)) THEN
    GOTO label22
  ELSEIF (([forback] = q).OR.([forback] = Q)) THEN
    GOTO stop
  ELSE
    GOTO label24
  ENDIF
ELSE
  wait ! [2]
ENDIF 
label24:
title_gl 'srawcal.kumac'
/MACRO/EXEC srawcal.kumac
title_gl ' '
IF [2] = 0 THEN
  forback = f
  READ forback 'forwd: anything/backwd: b/quit: q'
  IF (([forback] = b).OR.([forback] = B)) THEN
    GOTO label23
  ELSEIF (([forback] = q).OR.([forback] = Q)) THEN
    GOTO stop
  ELSE
    GOTO label25
  ENDIF
ELSE
  wait ! [2]
ENDIF 
label25:
title_gl 'scal.kumac'
/MACRO/EXEC scal.kumac
title_gl ' '
IF [2] = 0 THEN
  forback = f
  READ forback 'forwd: anything/backwd: b/quit: q'
  IF (([forback] = b).OR.([forback] = B)) THEN
    GOTO label24
  ELSEIF (([forback] = q).OR.([forback] = Q)) THEN
    GOTO stop
  ELSE
    GOTO label26
  ENDIF
ELSE
  wait ! [2]
ENDIF 
label26:
title_gl 'scer.kumac'
/MACRO/EXEC scer.kumac
title_gl ' '
IF [2] = 0 THEN
  forback = f
  READ forback 'forwd: anything/backwd: b/quit: q'
  IF (([forback] = b).OR.([forback] = B)) THEN
    GOTO label25
  ELSEIF (([forback] = q).OR.([forback] = Q)) THEN
    GOTO stop
  ELSE
    GOTO label27
  ENDIF
ELSE
  wait ! [2]
ENDIF 
label27:
title_gl 'sdc1wiremap.kumac'
/MACRO/EXEC sdc1wiremap.kumac
title_gl ' '
IF [2] = 0 THEN
  forback = f
  READ forback 'forwd: anything/backwd: b/quit: q'
  IF (([forback] = b).OR.([forback] = B)) THEN
    GOTO label26
  ELSEIF (([forback] = q).OR.([forback] = Q)) THEN
    GOTO stop
  ELSE
    GOTO label28
  ENDIF
ELSE
  wait ! [2]
ENDIF 
label28:
title_gl 'sdc2wiremap.kumac'
/MACRO/EXEC sdc2wiremap.kumac
title_gl ' '
IF [2] = 0 THEN
  forback = f
  READ forback 'forwd: anything/backwd: b/quit: q'
  IF (([forback] = b).OR.([forback] = B)) THEN
    GOTO label27
  ELSEIF (([forback] = q).OR.([forback] = Q)) THEN
    GOTO stop
  ELSE
    GOTO label29
  ENDIF
ELSE
  wait ! [2]
ENDIF 
label29:
title_gl 'sdtime.kumac'
/MACRO/EXEC sdtime.kumac
title_gl ' '
IF [2] = 0 THEN
  forback = f
  READ forback 'forwd: anything/backwd: b/quit: q'
  IF (([forback] = b).OR.([forback] = B)) THEN
    GOTO label28
  ELSEIF (([forback] = q).OR.([forback] = Q)) THEN
    GOTO stop
  ELSE
    GOTO label30
  ENDIF
ELSE
  wait ! [2]
ENDIF 
label30:
title_gl 'sdist.kumac'
/MACRO/EXEC sdist.kumac
title_gl ' '
IF [2] = 0 THEN
  forback = f
  READ forback 'forwd: anything/backwd: b/quit: q'
  IF (([forback] = b).OR.([forback] = B)) THEN
    GOTO label29
  ELSEIF (([forback] = q).OR.([forback] = Q)) THEN
    GOTO stop
  ELSE
    GOTO label31
  ENDIF
ELSE
  wait ! [2]
ENDIF 
label31:
title_gl 'sres.kumac'
/MACRO/EXEC sres.kumac
title_gl ' '
IF [2] = 0 THEN
  forback = f
  READ forback 'forwd: anything/backwd: b/quit: q'
  IF (([forback] = b).OR.([forback] = B)) THEN
    GOTO label30
  ELSEIF (([forback] = q).OR.([forback] = Q)) THEN
    GOTO stop
  ELSE
    GOTO label32
  ENDIF
ELSE
  wait ! [2]
ENDIF 
label32:
title_gl 'spid.kumac'
/MACRO/EXEC spid.kumac
title_gl ' '
IF [2] = 0 THEN
  forback = f
  READ forback 'forwd: anything/backwd: b/quit: q'
  IF (([forback] = b).OR.([forback] = B)) THEN
    GOTO label31
  ELSEIF (([forback] = q).OR.([forback] = Q)) THEN
    GOTO stop
  ELSE
    GOTO label33
  ENDIF
ELSE
  wait ! [2]
ENDIF 
label33:
title_gl 'spos.kumac'
/MACRO/EXEC spos.kumac
title_gl ' '
IF [2] = 0 THEN
  forback = f
  READ forback 'forwd: anything/backwd: b/quit: q'
  IF (([forback] = b).OR.([forback] = B)) THEN
    GOTO label32
  ELSEIF (([forback] = q).OR.([forback] = Q)) THEN
    GOTO stop
  ELSE
    GOTO label34
  ENDIF
ELSE
  wait ! [2]
ENDIF 
label34:
title_gl 'srawscin.kumac'
/MACRO/EXEC srawscin.kumac
title_gl ' '
IF [2] = 0 THEN
  forback = f
  READ forback 'forwd: anything/backwd: b/quit: q'
  IF (([forback] = b).OR.([forback] = B)) THEN
    GOTO label33
  ELSEIF (([forback] = q).OR.([forback] = Q)) THEN
    GOTO stop
  ELSE
    GOTO label35
  ENDIF
ELSE
  wait ! [2]
ENDIF 
label35:
title_gl 'sscin.kumac'
/MACRO/EXEC sscin.kumac
title_gl ' '
IF [2] = 0 THEN
  forback = f
  READ forback 'forwd: anything/backwd: b/quit: q'
  IF (([forback] = b).OR.([forback] = B)) THEN
    GOTO label34
  ELSEIF (([forback] = q).OR.([forback] = Q)) THEN
    GOTO stop
  ELSE
    GOTO label36
  ENDIF
ELSE
  wait ! [2]
ENDIF 
label36:
title_gl 'sthreshold.kumac'
/MACRO/EXEC sthreshold.kumac
title_gl ' '
IF [2] = 0 THEN
  forback = f
  READ forback 'forwd: anything/backwd: b/quit: q'
  IF (([forback] = b).OR.([forback] = B)) THEN
    GOTO label35
  ELSEIF (([forback] = q).OR.([forback] = Q)) THEN
    GOTO stop
  ELSE
    GOTO label37
  ENDIF
ELSE
  wait ! [2]
ENDIF 
label37:
title_gl 'stime.kumac'
/MACRO/EXEC stime.kumac
title_gl ' '
IF [2] = 0 THEN
  forback = f
  READ forback 'forwd: anything/backwd: b/quit: q'
  IF (([forback] = b).OR.([forback] = B)) THEN
    GOTO label36
  ELSEIF (([forback] = q).OR.([forback] = Q)) THEN
    GOTO stop
  ELSE
    GOTO label38
  ENDIF
ELSE
  wait ! [2]
ENDIF 
label38:
title_gl 'stof.kumac'
/MACRO/EXEC stof.kumac
title_gl ' '
IF [2] = 0 THEN
  forback = f
  READ forback 'forwd: anything/backwd: b/quit: q'
  IF (([forback] = b).OR.([forback] = B)) THEN
    GOTO label37
  ELSEIF (([forback] = q).OR.([forback] = Q)) THEN
    GOTO stop
  ELSE
    GOTO label39
  ENDIF
ELSE
  wait ! [2]
ENDIF 
label39:
title_gl 'strack.kumac'
/MACRO/EXEC strack.kumac
title_gl ' '
IF [2] = 0 THEN
  forback = f
  READ forback 'forwd: anything/backwd: b/quit: q'
  IF (([forback] = b).OR.([forback] = B)) THEN
    GOTO label38
  ELSEIF (([forback] = q).OR.([forback] = Q)) THEN
    GOTO stop
  ELSE
    GOTO label1
  ENDIF
ELSE
  wait ! [2]
ENDIF 
label40:
title_gl 'rf.kumac'
/MACRO/EXEC rf.kumac
title_gl ' '
* lcd ~cdaq/fpi/paw/
IF [2] = 0 THEN
  forback = f
  READ forback 'forwd: anything/backwd: b/quit: q'
  IF (([forback] = b).OR.([forback] = B)) THEN
    GOTO label39
  ELSEIF (([forback] = q).OR.([forback] = Q)) THEN
    GOTO stop
  ELSE
    GOTO label1
  ENDIF
ELSE
  wait ! [2]
  GOTO label1
ENDIF 

stop:
* lcd .
return