- GOTO SCREEN begin
*>SCREEN begin
- PUT LARGE TEXT AT (7,1): "EASON"
- PUT LARGE TEXT AT (5,2): "TECHNOLOGY"
- SOFTKEY (1) "TEXT" GOTO SCREEN textscr
- SOFTKEY (2) "BUILD" GOTO SCREEN buildscr
- SOFTKEY (3) "SEND" GOTO SCREEN sendscr
- SOFTKEY (4) "GRAPH" GOTO SCREEN graphscr
- SOFTKEY (5) "BAR" GOTO SCREEN barscr
- SOFTKEY (6) "EXIT" GOTO SCREEN exitscr
- SOFTKEY WAIT
*>SCREEN textscr
- PUT TEXT AT (1,1): "This program demonstrates how to use"
- PUT TEXT AT (1,2): "the ApplicationBuilder to make screens,"
- PUT TEXT AT (1,3): "function keys, enter data, perform"
- PUT TEXT AT (1,4): "serial communications, and to plot"
- PUT TEXT AT (1,5): "graphics information on screen."
- SOFTKEY (1) "CONT" GOTO SCREEN begin
- SOFTKEY WAIT
*>SCREEN buildscr
- PUT TEXT AT (1,1): "THIS SCREEN CONSTRUCTS THE DATA WHICH"
- PUT TEXT AT (1,2): "WILL BE SENT OVER THE SERIAL PORT."
- PUT TEXT AT (1,4): "ENTER DATA:"
- GET BACKGROUND STYLE SETUP: 1
- GET STRING xyz$ AT (13,4) DEFAULT "                      "
- GOTO SCREEN begin
*>SCREEN sendscr
- PUT LARGE TEXT AT (2,1): "TRANSMITTING DATA"
- COM: PUT COM 2 TEXT xyz$
- GOTO SCREEN begin
*>SCREEN graphscr
- PUT TEXT AT (1,1): "PLOT A GRAPH OF RANDOM DATA ON SCREEN."
- SOFTKEY (1) "CONT" GOTO SCREEN begin
  call line(0,32,1,rnd(48)+8,1)
  for x=2 to 239
  call line(,,x,rnd(48)+8,1)
  next
- SOFTKEY WAIT
*>SCREEN barscr
- PUT LARGE TEXT AT (5,1): "BAR GRAPHS:"
- BAR GRAPH UPPER LEFT (0,28) LOWER RIGHT (239,36) ORIENT: 0
- BAR GRAPH SCALE LOWER LIMIT 0 UPPER LIMIT 239
- SOFTKEY (1) "CONT" GOTO SCREEN begin
- LABEL btop
  A=RND(239)
- BAR GRAPH DISPLAY: a
- SOFTKEY CHECK
- GOTO LABEL btop
*>SCREEN exitscr
- PUT LARGE TEXT AT (5,1): "THANK YOU!"
  POS 7,1
  END
- END OF PSEUDOCODE