- GOTO SCREEN begin
*>SCREEN begin
- COMMENT "c-current, a-actual, t-theoretical"
  dgrepin&=16
  ctsprev&=4000
  ctspdgre!=ctsprev&/360
- PUT TEXT AT (2,4): "Enter the length:"
- PUT TEXT AT (26,4): "in"
- GET NUMBER length! AT (20,4) USING "##.###" DEFAULT 5
  tdegree!=length!/ctspdgre!
- COMMENT "Now set up the I/O interrupt"
  call lowbits(2)
  IO24 "01111"
  ON IO24 GOSUB ioint
  GOTO main
  label top
*>SCREEN main
- PUT LARGE NUMBER tdegree! AT (14,1) USING "###.###"
  LABEL topoloop
- PUT LARGE TEXT AT (1,1): "Clc'd degree:"
- PUT LARGE TEXT AT (1,2): "Act'l degree:"
- PUT LARGE TEXT AT (1,3): "Crn't degree:"
  call readcnt(1,count&)
  cdegree!=count&/ctspdgre!
- PUT LARGE NUMBER cdegree! AT (14,3) USING "###.###"
  goto topoloop
  LABEL ioint
   INP ioin&
   IF BIT(ioin&,5)=1 THEN RETURN
   adegree!=count&/ctspdgre!
- PUT LARGE NUMBER adegree! AT (14,2) USING "###.###"
   IO24 "01111"
  RETURN 
- END OF PSEUDOCODE