Follow along with the video below to see how to install our site as a web app on your home screen.
Note: This feature may not be available in some browsers.
003000 PERFORM VARYING SUB FROM +1 BY +1 UNTIL SUB > T - 1 AFTER
003100 SUB2 FROM T BY -1 UNTIL SUB2 < SUB + 1
003200 IF XT-FACTOR (SUB) > XT-FACTOR (SUB2)
003300 MOVE XT-FACTOR (SUB) TO HELP-XT-FACTOR
003400 MOVE XT-FACTOR (SUB2) TO XT-FACTOR (SUB)
003500 MOVE HELP-XT-FACTOR TO XT-FACTOR (SUB2)
003600 END-IF
003700 END-PERFORM.