
/
CONTRL 0        /INPUT CONTROL ROUTINE.
       JMS INPUT
       DAC SAVE10
       TAD CNTRL1
       DAC CNTRL2
       LAC* CNTRL2
       DAC CNTRL2
       LAC SAVE10
       SZA
       JMS ARGS
       JMS* CNTRL2
       LAC ARROW
       JMS STRING
       JMP* CONTRL
SAVE10 0
CNTRL2 0
       /COMMAND JUMP LOCATIONS.
CNTRL1 CNTRL1+1
       COMND0    /COMMAND #0
       COMND1    /COMMAND #1
       COMND2    /COMMAND #2
       COMND3    /COMMAND #3
       COMND4    /COMMAND #4
       COMND5    /COMMAND #5
COMND0 0         /INPUT ERROR
       LAC QM
       JMS TYPE
       JMP* COMND0
QM      277
