- GOTO SCREEN begin
*>SCREEN begin
- PUT HUGE TEXT AT (2,1): "ROYALITE"
- PUT LARGE TEXT AT (2,3): "ANALOG SENSOR DEMO"
- OPTION: SET D/A 1 TO 2047
- DELAY 2000
- GOTO SCREEN main
*>SCREEN main
- PUT LARGE TEXT AT (2,1): "ANALOG SENSOR DEMO"
- PUT TEXT AT (3,3): "This demo shows how an analog sensor"
- PUT TEXT AT (1,4): "(analog input #1) can be read whenever a"
- PUT TEXT AT (1,5): "switch is closed (input 23). The data is"
- PUT TEXT AT (1,6): "then graphed on the screen. Press 'MORE'"
- PUT TEXT AT (1,7): "to begin the demo!"
- SOFTKEY (6) "MORE" GOTO SCREEN morescr
- SOFTKEY WAIT
*>SCREEN morescr
- PUT TEXT AT (4,1): "TOGGLE INPUT 23 TO TAKE A READING"
- PUT TEXT AT (2,2): "V 10"
- PUT TEXT AT (2,3): "O"
- PUT TEXT AT (2,4): "L  5"
- PUT TEXT AT (2,5): "T"
- PUT TEXT AT (2,6): "S  0"
- PUT TEXT AT (6,7): "0          TIME (S)              30"
  call line(33,9,33,46,1)
  call line(33,46,235,46,1)
- SOFTKEY (1) "EXIT" GOTO SCREEN exitscr
- LABEL holdon
- I/O: GET I/O NUMBER a&
  if bit(23,a&)=1 then goto holdon
- OPTION: READ A/D 1 INTO volts
  pt&=33
  pv&=46.137-(volts/53.675)
  call line(pt&,pv&,pt&,pv&,1)
  call readms(st&)
- LABEL getdata
- I/O: GET I/O NUMBER a&
  if bit(23,a&)=1 then goto getdata
- OPTION: READ A/D 1 INTO v
  call readms(rt&)
  pt&=rt&-st&:if pt&<0 then pt&=pt&+65536
  pt=pt&/1000:if pt>=30 then goto finished
  pt=(pt*6.75)+33:pv&=46.137-(v/53.675):call line(,,pt,pv&,1)
- SOFTKEY CHECK
- GOTO LABEL getdata
- LABEL finished
- PUT REVERSE TEXT AT (1,1): "30 SECOND DEMO TEST PERIOD IS COMPLETE!!"
- SOFTKEY (6) "AGAIN" GOTO SCREEN morescr
- SOFTKEY WAIT
*>SCREEN exitscr
- PUT HUGE TEXT AT (2,1): "BYE BYE!"
- PUT LARGE TEXT AT (3,3): "THANKS FOR USING"
- PUT LARGE TEXT AT (2,4): "EASON TECHNOLOGY!!"
- DELAY 3000
- END OF PSEUDOCODE