- GOTO SCREEN begin
*>SCREEN begin
  x=0:y=0:lcl=0:ucl=10 : DIM x%(2220)
- GOTO SCREEN main
  
*>SCREEN main
- SOFTKEY (1) "START" GOTO SCREEN runmode
- SOFTKEY WAIT
  
*>SCREEN runmode
- PUT TEXT AT (19,1): "CURRENT TIME:"
- PUT TEXT AT (2,2): "10"
- PUT TEXT AT (3,7): "0"
  CALL LINE( 239,10,79,10,1) : CALL LINE( 239,54,79,54,1)
  CALL LINE( 79,8,79,54,1)
- SOFTKEY (6) "EXIT" GOTO SCREEN main
  yy=32:xx=80:x = 88
  
- LABEL forever
- SOFTKEY CHECK
  S=RND(11)-1: GOSUB GRAPHIT
- GOTO LABEL forever
  
  
- LABEL graphit
  IF s > ucl THEN s = ucl
  IF s < lcl THEN s = lcl  
  y=54 - (s-lcl) * (44/(ucl-lcl)) : CALL LINE( xx,yy,x,y,1 )
  xx=x : yy=y : x=x+8 : IF x < 248 THEN RETURN
  CALL GETIMAGE(160,8,239,54,X%(1)) : CALL PUTIMAGE(80,8,X%(1))
  CALL BOX(160,11,239,53,100):x=x-80:xx=xx-80
- RETURN
- END OF PSEUDOCODE