- GOTO SCREEN begin
*>SCREEN begin
- GOTO SCREEN jog
*>SCREEN jog
- PUT TEXT AT (1,5): "JOG keys initially jog slowly, a faster"
- PUT TEXT AT (1,6): "jog then occurs and stops upon release."
- PUT HUGE TEXT AT (4,1): "JOG!"
  key (3),"JOG+"
  key (4),"JOG-"
- COM: INIT COM 1 ECHO 1 BAUD 96 HANDSHAKE 0 TIMEOUT 250 STRIP 1
- COM: PUT COM 1 TEXT "1E K LD3 A100"
- COMMENT "Looks for the which JOG key is depressed"
- LABEL reask
  call scankey (jog%)
  if jog% = 15616 then gosub jogcw
  if jog% = 15872 then gosub jogccw
- GOTO LABEL reask
- COMMENT "Sends out JOG CW command"
- LABEL jogcw
- COM: PUT COM 1 TEXT "MC MPP V.5 H+ G"
- COMMENT "Sets up time delay so speed increase can occur"
- TIMER: WHEN TIMER 5 COUNTS TO 1 SEC GOSUB jogcwfst
- COMMENT "Waits for JOG CW key to be released"
- LABEL waitcw
  call scankey (jog%)
  if jog% <> 15616 then goto done
- GOTO LABEL waitcw
- COMMENT "Increases jog CW speed"
- LABEL jogcwfst
- COM: PUT COM 1 TEXT "V5 NG"
- RETURN
- COMMENT "Sends out JOG CCW command"
- LABEL jogccw
- COM: PUT COM 1 TEXT "MC MPP V.5 H- G"
- TIMER: WHEN TIMER 5 COUNTS TO 1 SEC GOSUB jgccwfst
- LABEL waitccw
  call scankey (jog%)
  if jog% <> 15872 then goto done
- COMMENT "Waits for JOG CCW key to be released"
- GOTO LABEL waitccw
- COMMENT "Increases jog CCW command"
- LABEL jgccwfst
- COM: PUT COM 1 TEXT "V5 NG"
- RETURN
- COMMENT "Sends stop command to motor/drive"
- LABEL done
- TIMER: DISABLE TIMER 5 INTERRUPTS
- COM: PUT COM 1 TEXT "S MN"
  repeat
    n=inkey()
  until n=0
- RETURN
- END OF PSEUDOCODE