- GOTO SCREEN begin
*>SCREEN begin
- GET BACKGROUND STYLE SETUP: 1
  start%=0:endv%=2000:ms%=100:ont%=100
  udt&=((endv%-start%)/ms%)*65536
  ddt&=-udt&
- GOTO SCREEN main
*>SCREEN main
- PUT LARGE TEXT AT (3,1): "EASON TECHNOLOGY"
- PUT LARGE TEXT AT (3,2): "ANALOG RAMP DEMO"
- SOFTKEY (1) "VALUE" GOTO SCREEN valuescr
- SOFTKEY (3) "RANDM" GOTO SCREEN randmscr
- SOFTKEY (2) "CONT" GOTO SCREEN contscr
- SOFTKEY (6) "EXIT" GOTO SCREEN exitscr
- SOFTKEY WAIT
*>SCREEN valuescr
- PUT TEXT AT (2,1): "ENTER THE RAMP VALUES:"
- PUT TEXT AT (2,3): "START VALUE:        D/A COUNTS"
- PUT TEXT AT (4,4): "END VALUE:        D/A COUNTS"
- PUT TEXT AT (4,5): "RAMP TIME:        MILLISECONDS"
- PUT TEXT AT (5,6): "ON TIME*:        MILLISECONDS"
- PUT TEXT AT (2,7): "(* For constant ramp time)"
- GET NUMBER start% AT (15,3) USING "+#####" DEFAULT start%
- GET NUMBER endv% AT (15,4) USING "+#####" DEFAULT endv%
- GET NUMBER ms% AT (16,5) USING "#####" DEFAULT ms%
- GET NUMBER ont% AT (16,6) USING "#####" DEFAULT ont%
  udt&=((endv%-start%)/ms%)*65536
  ddt&=-udt&
- GOTO SCREEN main
*>SCREEN randmscr
- PUT TEXT AT (2,1): "GENERATE A RAMP WITH A RANDOM ON TIME"
- PUT TEXT AT (7,4): "PRESS 'START' TO BEGIN"
- PUT TEXT AT (7,5): "PRESS 'EXIT'  FOR MAIN MENU"
- SOFTKEY (1) "START" GOTO SCREEN rstart
- SOFTKEY (6) "EXIT" GOTO SCREEN main
- LABEL rwait
- SOFTKEY WAIT
- LABEL rstart
  call ramp(1,start%,endv%,udt&,ms%)
  delay (rnd(ont%))
  call ramp(1,endv%,start%,ddt&,ms%)
- GOTO LABEL rwait
*>SCREEN contscr
- PUT TEXT AT (2,1): "GENERATE A RAMP WITH A CONSTANT ON TIME"
- PUT TEXT AT (7,4): "PRESS 'START' TO BEGIN"
- PUT TEXT AT (7,5): "PRESS 'EXIT'  FOR MAIN MENU"
- SOFTKEY (1) "START" GOTO SCREEN cstart
- SOFTKEY (6) "EXIT" GOTO SCREEN main
- LABEL cwait
- SOFTKEY WAIT
- LABEL cstart
  call ramp(1,start%,endv%,udt&,ms%)
  delay ont%
  call ramp(1,endv%,start%,ddt&,ms%)
- GOTO LABEL cwait
*>SCREEN exitscr
- PUT LARGE TEXT AT (4,1): "THANK YOU FOR"
- PUT LARGE TEXT AT (8,2): "USING"
- PUT LARGE TEXT AT (3,3): "EASON TECHNOLOGY"
- DELAY 2000
- CLEAR GRAPHICS SCREEN
  end
- END OF PSEUDOCODE