- GOTO SCREEN begin
*>SCREEN begin
- PUT TEXT AT (7,7): "PRESS THE 'MORE' SOFTKEY"
- PUT LARGE TEXT AT (3,3): "TO THE BUILDER"
- PUT HUGE TEXT AT (2,1): "WELCOME"
- SOFTKEY (1) "MORE" GOTO SCREEN morescr
- SOFTKEY (6) "COM" GOTO SCREEN comscr
- SOFTKEY WAIT
*>SCREEN morescr
- PUT LARGE TEXT AT (3,1): "EASON TECHNOLOGY"
- PUT LARGE TEXT AT (2,2): "MAKES  PROGRAMMING"
- PUT HUGE TEXT AT (3,2): "EASY!!"
- DELAY 2000
- GOTO SCREEN begin
*>SCREEN comscr
- PUT TEXT AT (1,5): "ENTER DISTANCE              IN INCHES"
- PUT LARGE TEXT AT (3,1): "COMMUNICATE WITH"
- PUT LARGE TEXT AT (6,2): "COMPUMOTOR"
- GET NUMBER dist AT (16,5) USING "-####.###" DEFAULT dist
  DIST1=DIST*125000
- COM: PUT COM 2 MIXED TEXT "1D" NUMBER dist1
- GOTO SCREEN begin
- END OF PSEUDOCODE