- GOTO SCREEN begin
*>SCREEN begin
- PUT TEXT AT (1,5): "This program is specifically designed to"
- PUT TEXT AT (6,6): "control the Industrial Drives"
- PUT TEXT AT (14,7): "BDS5 Servo drive"
- PUT LARGE TEXT AT (3,1): "IDUSTRIAL DRIVE"
- PUT LARGE TEXT AT (2,2): "BDS5'S DEMO PROGRM"
- DELAY 4000
  COMAND$="MI 25000 1000"
- GET BACKGROUND STYLE SETUP: 1
- CLEAR SCREEN
- CLEAR GRAPHICS SCREEN
- PUT LARGE TEXT AT (3,2): "PLEASE STAND BY"
- DELAY 2500
- CLEAR GRAPHICS SCREEN
- PUT LARGE TEXT AT (2,2): "PLEASE ENABLE BDS5"
- COM: INIT COM 1 ECHO 1 BAUD 96 HANDSHAKE 0 TIMEOUT 0 STRIP 1
- COM: PUT COM 1 TEXT "EN"
- COM: PUT COM 1 TEXT "PLIM OFF"
- SOFTKEY (1) "START" GOTO SCREEN now
- SOFTKEY WAIT
  
  
*>SCREEN now
- PUT LARGE TEXT AT (4,1): "RUN BDS5 DRIVE"
- PUT TEXT AT (5,4): "POSITION :"
- PUT TEXT AT (5,5): "STATUS :"
- PUT TEXT AT (5,6): "COMMAND :"
- LABEL readprmt
  INPUT$ #1,1,A$
  IF ASC(A$+" ") <> 62 THEN GOTO readprmt
- COM: PUT COM 1 TEXT "PS" STRING RESPONSE bd$
- PUT TEXT AT (20,5): bd$
  
- COM: PUT COM 1 TEXT "P PFB" NUMERIC RESPONSE num&
- PUT NUMBER num& AT (17,4) USING "###########"
  
- PUT TEXT AT (20,6): comand$
  
- SOFTKEY (1) "ZERO" GOTO SCREEN home
- SOFTKEY (2) "MOVE" GOTO SCREEN actuate
- SOFTKEY (3) "STOP" GOTO SCREEN stopjog
- SOFTKEY (4) "EDIT" GOTO SCREEN put1
- SOFTKEY (5) "COMED" GOTO SCREEN put
- SOFTKEY (6) "JOGTO" GOTO SCREEN jogto
- SOFTKEY (9) "EXIT" GOTO SCREEN endscr
- SOFTKEY CHECK
- GOTO LABEL readprmt
  
- LABEL actuate
- COM: PUT COM 1 TEXT comand$
- GOTO LABEL readprmt
  
- LABEL stopjog
- COM: PUT COM 1 TEXT "j 0"
- GOTO LABEL readprmt
  
- LABEL home
- COM: PUT COM 1 TEXT "MCA 10000 1000 200"
- DELAY 250
- COM: PUT COM 1 TEXT "MCA 11000 0"
- DELAY 250
- COM: PUT COM 1 TEXT "MCD 500"
- DELAY 250
- COM: PUT COM 1 TEXT "MCA 0 1000 0"
- DELAY 250
- COM: PUT COM 1 TEXT "MCGO"
- GOTO LABEL readprmt
  
*>SCREEN put
- PUT TEXT AT (11,3): "COMMAND  DISTANCE  RPM"
- PUT TEXT AT (15,4): "\       |      /"
- PUT TEXT AT (17,5): "\     |     /"
- PUT TEXT AT (6,6): "(EXAMPLE)-> MI 25000 1000"
- PUT TEXT AT (6,7): "(DEFAULT)->"
- PUT LARGE TEXT AT (4,1): "ENTER COMMANDS"
- GET STRING comand$ AT (18,7) DEFAULT "MI 25000 1000"
- SOFTKEY (1) "MOVE" GOTO SCREEN jg
- SOFTKEY WAIT
  
*>SCREEN put1
- PUT LARGE TEXT AT (1,1): "ENTER NEW MOVE DATA!"
- PUT TEXT AT (6,4): "NEW DISTANCE:            STEPS"
- GET NUMBER move& AT (20,4) USING "-#########" DEFAULT move&
- PUT TEXT AT (6,5): "NEW VELOCITY:            RPM"
- GET NUMBER vel AT (25,5) USING "#####" DEFAULT vel
  comand$="MI "+str$(move&)+" "+str$(vel)
- SOFTKEY (1) "MOVE" GOTO SCREEN jg
- SOFTKEY WAIT
  
- LABEL jg
- COM: PUT COM 1 TEXT comand$
- GOTO SCREEN now
  
*>SCREEN jogto
- PUT LARGE TEXT AT (7,1): "JOG TO"
- PUT TEXT AT (2,4): "NEW DESTINATION:            STEPS"
- GET NUMBER dest& AT (19,4) USING "-#########" DEFAULT dest&
  comand$="MI "+str$(DEST&)+" 500"
- SOFTKEY (1) "MOVE" GOTO SCREEN jg
- SOFTKEY WAIT
  
  
*>SCREEN endscr
- PUT LARGE TEXT AT (1,1): "THANK YOU FOR USING"
- PUT LARGE TEXT AT (8,2): "EASON"
- PUT LARGE TEXT AT (5,3): "TECHNOLOGY"
  pos 40,7
- DELAY 2500
- CLEAR GRAPHICS SCREEN
- END OF PSEUDOCODE