- GOTO SCREEN begin
*>SCREEN begin
- GET BACKGROUND STYLE SETUP: 1
  ulx%=0:uly%=20:lrx%=239:lry%=30:ornt%=0:uplim=239:lowlim=0
- GOTO SCREEN scr1
*>SCREEN scr1
- PUT TEXT AT (2,2): "UPPER LEFT X:       UPPER LEFT Y:"
- PUT TEXT AT (1,3): "LOWER RIGHT X:      LOWER RIGHT Y:"
- PUT TEXT AT (3,4): "ORIENTATION:      (0 HORZ / 1 VERT)"
- PUT TEXT AT (3,5): "UPPER LIMIT:"
- PUT TEXT AT (3,6): "LOWER LIMIT:"
- GET NUMBER ulx% AT (16,2) USING "###" DEFAULT ulx%
- GET NUMBER uly% AT (36,2) USING "###" DEFAULT uly%
- GET NUMBER lrx% AT (16,3) USING "###" DEFAULT lrx%
- GET NUMBER lry% AT (36,3) USING "###" DEFAULT lry%
- GET NUMBER ornt% AT (16,4) USING "#" DEFAULT ornt%
- GET NUMBER uplim AT (16,5) USING "-#####.##" DEFAULT uplim
- GET NUMBER lowlim AT (16,6) USING "-#####.##" DEFAULT lowlim
- GOTO SCREEN plot
*>SCREEN plot
- BAR GRAPH UPPER LEFT (ulx%,uly%) LOWER RIGHT (lrx%,lry%) ORIENT: ornt%
- BAR GRAPH SCALE LOWER LIMIT lowlim UPPER LIMIT uplim
- PUT TEXT AT (6,5): "Enter plot data:"
- HOT KEY (1) "SETUP" INTERRUPT: GOSUB LABEL sethot
- HOT KEY (2) "DEFLT" INTERRUPT: GOSUB LABEL deflthot
- LABEL topplot
- GET NUMBER pdat AT (23,5) USING "-#####.##" DEFAULT pdat
- BAR GRAPH DISPLAY: pdat
- GOTO LABEL topplot
- LABEL sethot
- HOT KEY (1) DISABLE
  RETURN SCR1
- LABEL deflthot
- HOT KEY (2) DISABLE
  RETURN BEGIN
- END OF PSEUDOCODE