- GOTO SCREEN begin
*>SCREEN begin
  call cursor(0)
- PUT LARGE TEXT AT (7,1): "ROLLFEED"
  r=12:xend=70:yend=40
- GOSUB LABEL circle
  call line(xend,yend-r,200,yend-r,1)
  r=6:xend=170:yend=22
- GOSUB LABEL circle
  r=6:xend=170:yend=34
- GOSUB LABEL circle
- SOFTKEY (6) "EXIT" GOTO SCREEN exitscr
  call cursor(0)
- SOFTKEY WAIT
- LABEL circle
  call line(r+xend,yend,r+xend,yend,0)
  for n=0 to 2*pi step .1
  x=r*cos(n) + xend
  y=r*sin(n)+ yend
  call line(,,x,y,1)
  next
- RETURN
*>SCREEN exitscr
- END OF PSEUDOCODE