- GOTO SCREEN begin
*>SCREEN begin
- IDC: INIT COM UNIT 1 TIMEOUT 250
  
  REM EXAMPLE PROGRAM TO ASSEMBLE A IDC SMART STEP PROGRAM
  REM AND THEN SENDING THE PROGRAM TO THE DRIVE
  REM PROGRAM THEN INSERTS OTHER COMMANDS THE USER CAN'T EDIT
  
- PUT TEXT AT (6,2): "ENTER IN PROGRAM VARIABLES:"
- PUT TEXT AT (9,3): "ACCEL:"
- PUT TEXT AT (9,4): "VELOCITY:"
- PUT TEXT AT (9,5): "DISTANCE:"
  
- GET NUMBER accel AT (19,3) USING "###.##" DEFAULT .05
- GET NUMBER vel AT (19,4) USING "###.##" DEFAULT 10
- GET NUMBER dist AT (19,5) USING "###.##" DEFAULT 1
  
  REM PROGRAM IS EXAMPLE FROM IDC PROGRAMMING MANUAL,
  REM AND WILL WILL LOOK LIKE THIS:
  REM AC(accel) VE(vel) DA(dist) DC1 OT1 DC2 OT2,1 DC3 OT3,1 GO
  REM WHERE accel, vel, dist will get inserted with their respective vals.
  
  A$="AC"+STR$(accel)+" "
  V$="VE"+STR$(vel)+" "
  D$="DA"+STR$(dist)+" "
  
  REM THIS ROUTINE ASSEMBLES THE PROGRAM INTO A STRING TO SEND
  PROG$=A$+V$+D$+"DC1 "+"OT1 "+"DC2 "+"OT2,1 "+"DC3 "+"OT3,1 "+"GO"
  
- GOTO LABEL confirm
  
*>SCREEN confirm
  
  REM LET USER CONFIRM PROGRAM BEFORE TRANSMITTING
- PUT REVERSE LARGE TEXT AT (3,1): "CONFIRM PROGRAM:"
  
  REM PUTS UP PROGRAM ON SCREEN, IN REVERSE TEXT FOR EASY READING
  REM IF THE PROGRAM IS OVER ONE LINE IN LENGTH, LABEL BRKUP
  REM WILL SPLIT IT INTO PIECES FOR BETTER DISPLAY
  
  A=LEN(PROG$)
  IF A>39 THEN GOTO BRKUP
  
- LABEL prgdisp
  
  CALL ZA(4,4,2,PROGA$)
  CALL ZA(4,5,2,PROGB$)
  
- SOFTKEY (1) "YES" GOTO SCREEN yes
- SOFTKEY (2) "NO" GOTO SCREEN no
- SOFTKEY WAIT
  
*>SCREEN yes
  
  REM THIS THEN ASSEMBLES THE PROGRAM INTO A PROPER TRANSMISSION
  REM THE IDC WILL RECOGNIZE, and SEND DOWN AS PROGRAM 1
  
  COMP$="DR"+"1"+PROG$+" 1EP"
- IDC: SEND COMMAND UNIT 1 COMMAND comp$
  
  REM COMMAND NOW TELLS PROGRAM TO RUN
- IDC: SEND COMMAND UNIT 1 COMMAND "RN1"
  
  END
  
*>SCREEN no
- GOTO LABEL begin
  
- LABEL brkup
  PROGA$=LEFT$(PROG$,37)
  PROGB$=MID$(PROG$,38,39)
- GOTO LABEL prgdisp
  
- END OF PSEUDOCODE