# File: roger.src
#
# This procedure tests the EGSE for debugging purposes only
#
program "@(#) MODULE: roger.src RELEASE: 2.3 CREATED: 04/15/94 18:30:40"
source "/mdisw/cfl/eof/src/roger.src"
descr " roger - test"
queue on
tcb mbdummy
tcb mbflex 1
tcb mbhrmag
queue off
show queue
tcb mbesr
goto done
l1:
log 123456789012345678901234567890123456789012345678901234567890123456789012345
set !GI0 = 8000
disp "%d" !GI0
goto l1
halt
ask !RI "Enter"
if !RI > 0 then
  set !GI0 = !RI
end if
set !GI9 = !GI0 / 4000
disp "%d" !GI9
halt
set !GI9 = !GI9 + 4
disp "%d" !GI9
halt
done: disp "done"
