\MOVE 'WHICH' TO CURRENT_TOPIC\MOVE 270 TO LASTY_WHERE
\CALL SET_STANDARD_ONKEYS\MOVE 23 TO TUBE_COLORS
\X OPEN_SCRN\ON KEY PG_UP\ON KEY PG_DN JUMP GOSUB5\X TAG15000\IF CURR_PG>15990 OR CURR_PG<15000\MOVE 15000 TO CURR_PG\ENDIF
\MOVE 15100 TO CURR_PG
\MOVE 040 TO Q\MOVE 220 TO R\MOVE 700 TO S\MOVE 594 TO T\MOVE 12 TO U\CALLM TUBE_BOX
\MOVE 1 TO MODULE_FIVE
\MOVE '242919PW' TO FONT_FLNM\CALLM RD_FON
\LOC 40,220\WID 660 DOT\OVER 0,A,44,23
\"
        BIG JOBS.
\"
        little jobs.
\"
        Submersible Pumps.
\"
        Parallel Pumps.
\"
        Serial Pumps.
\"
        Sterile Pumps.
\"
\LOC 120,220\WID 30 DOT
\"
1.
\"
2.
\"
3.
\"
4.
\"
5.
\"
6.
\MOVE 'ASCOLOGO' TO PIC_FLNM\CALLM RD_PIC
\MOVE '242919PW' TO FONT_FLNM\CALLM RD_FON
\LOC 340,628\OVER 1,A,57,23\WIDTH 240 DOTS
 Choose one...
\IF DEMO_MODE='YES'
\MOVE 750 TO Q\MOVE 300 TO R\MOVE 990 TO S\MOVE 416 TO T\MOVE 9 TO U\CALLM TUBE_BOX\LOCATE 750,300\OVER 1,A,60,23
(These options are not available in this demo.)
\ENDIF
\CALLM WAITBOX
\MOUSE FRAME=0,3 W=67,270,67,557 A=0,1 L=47,LASTY_WHERE R=-1\MOVE E TO CURR_SUBLEVEL\MOVE CURR_SUBLEVEL TO LASTY_WHERE
\X GOSUB5\CALLM WAITOFF
\IF CURR_SUBLEVEL<300\MOVE 'WHI_BIGJ' TO TEXT_FLNM\ELSE
\IF CURR_SUBLEVEL<358\MOVE 'WHI_LITT' TO TEXT_FLNM\ELSE
\IF CURR_SUBLEVEL<416\MOVE 'WHI_UNDE' TO TEXT_FLNM\ELSE
\IF CURR_SUBLEVEL<474\MOVE 'WHI_WEIG' TO TEXT_FLNM\ELSE
\IF CURR_SUBLEVEL<532\MOVE 'WHI_OILP' TO TEXT_FLNM\ELSE
\MOVE 'WHI_COWP' TO TEXT_FLNM\ENDIF
\MOVE 40 TO Q\MOVE 170 TO R\MOVE 590 TO S\MOVE 680 TO T\MOVE 12 TO U\LINE Q,R,S,T,23,BF\CALLM NEW_TUBE_BOX
\IF DEMO_MODE='YES'\CALLM DEMO_MSG\JUMP MAINPAGE\ENDIF
\CALLM RD_TXT\JUMP MAINPAGE
\X  MAINPAGE\CALLM WAITOFF\MOVE 'PUMPMENU' TO TEXT_FLNM\CALLM RD_TXT
\X ALT_QUITED\ON ERROR\END
\X SET_STANDARD_ONKEYS\ON KEY F10 JUMP MAINPAGE\ON KEY 4096 JUMP ALT_QUITED\ON KEY F5 JUMP GLOSSARY\CALLM SET_ERROR_ONKEYS\RETURN
\X CLEAR_ONKEYS\CLEAR ON KEYS\CALL SET_STANDARD_ONKEYS\RETURN
\X GLOSSARY\MOVE 'GLOSSARY' TO TEXT_FLNM\CALLM RD_TXT