\MOVE 'TYPE' TO CURRENT_TOPIC\MOVE 270 TO LASTY_WHERE
\CALL SET_STANDARD_ONKEYS\MOVE 23 TO TUBE_COLORS\JUMP TAG13000
\X OPEN_SCRN\ON KEY PG_UP\ON KEY PG_DN JUMP GOSUB5\X TAG13000\IF CURR_PG>13990 OR CURR_PG<13000\MOVE 13000 TO CURR_PG\ENDIF
\MOVE 13100 TO CURR_PG
\MOVE 40 TO Q\MOVE 220 TO R\MOVE 680 TO S\MOVE 654 TO T\MOVE 12 TO U\CALLM TUBE_BOX
\MOVE 1 TO MODULE_TWO
\MOVE '242919PW' TO FONT_FLNM\CALLM RD_FON
\LOC 40,220\WID 640 DOT\OVER 0,A,44,23
\"
        Rotary Pumps.
\"
        Reciprocating Pumps.
\"
        Volute Centrifugal Pumps.
\"
        Diffuser Centrifugal Pumps.
\"
        Turbine Pumps.
\"
        Propeller Pumps.
\"
        Some Unique Pumps.
\"
\LOC 120,220\WIDTH 30 DOTS
\"
1.
\"
2.
\"
3.
\"
4.
\"
5.
\"
6.
\"
7.
\"
\MOVE 'ASCOLOGO' TO PIC_FLNM\CALLM RD_PIC
\MOVE '242919PW' TO FONT_FLNM\CALLM RD_FON
\LOC 340,684\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,622 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 'TYP_CENT' TO TEXT_FLNM\ELSE
\IF CURR_SUBLEVEL<358\MOVE 'TYP_ROTA' TO TEXT_FLNM\ELSE
\IF CURR_SUBLEVEL<416\MOVE 'TYP_RECI' TO TEXT_FLNM\ELSE
\IF CURR_SUBLEVEL<474\MOVE 'TYP_FORC' TO TEXT_FLNM\ELSE
\IF CURR_SUBLEVEL<532\MOVE 'TYP_SUCT' TO TEXT_FLNM\ELSE
\MOVE 'TYP_SEAL' 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
\"
\MOVE "IMPDIFF3" TO PIC_FLNM\CALLM RD_PIC\ON KEY 7181 JUMP NEXT1
\ROUNDS 5 SPEED 1\SHOW 80,40,1,9\X NEXT1\ON KEY 7181
\MOVE "GEARPUMP" TO PIC_FLNM\CALLM RD_PIC\ON KEY 7181 JUMP NEXT2
\ROUNDS 18 SPEED 1\SHOW 680,370,1,12\X NEXT2\ON KEY 7181
\MOVE "IMPELDBL" TO PIC_FLNM\CALLM RD_PIC\ON KEY 7181 JUMP NEXT3
\ROUNDS 8 SPEED 1\SHOW 32,490,1,18\X NEXT3\ON KEY 7181
\MOVE "DIAPHRAM" TO PIC_FLNM\CALLM RD_PIC\ON KEY 7181 JUMP NEXT4
\ROUNDS 9 SPEED 1\SHOW 790,580,1,-1\X NEXT4\ON KEY 7181
\MOVE "VANEPUMP" TO PIC_FLNM\CALLM RD_PIC\ON KEY 7181 JUMP NEXT5
\ROUNDS 3 SPEED 1\SHOW 360,510,1,-1\X NEXT5\ON KEY 7181
\MOVE "SIMPLEX" TO PIC_FLNM\CALLM RD_PIC\ON KEY 7181 JUMP NEXT6
\ROUNDS 3 SPEED 1\SHOW 680,40,1,-1\X NEXT6\ON KEY 7181\LINE 0,0,SCREEN_DOT_WIDTH,SCREEN_DOT_HEIGHT,1,BF
\MOVE "LIFTDISK" TO PIC_FLNM\CALLM RD_PIC\ON KEY 7181 JUMP NEXT7
\ROUNDS 6 SPEED 1\SHOW 40,40,1,-1\X NEXT7\ON KEY 7181
\MOVE "CAMROTAR" TO PIC_FLNM\CALLM RD_PIC\ON KEY 7181 JUMP NEXT8
\ROUNDS 6 SPEED 1\SHOW 80,560,1,-1\X NEXT8\ON KEY 7181
\MOVE "DBLFORCE" TO PIC_FLNM\CALLM RD_PIC\ON KEY 7181 JUMP NEXT9
\ROUNDS 3 SPEED 1\SHOW 590,500,1,-1\X NEXT9\ON KEY 7181
\MOVE "FULLLIFT" TO PIC_FLNM\CALLM RD_PIC\ON KEY 7181 JUMP NEXT10
\ROUNDS 5 SPEED 1\SHOW 290,220,1,-1\X NEXT10\ON KEY 7181
\MOVE "PISTDAP6" TO PIC_FLNM\CALLM RD_PIC\ON KEY 7181 JUMP NEXT11
\ROUNDS 5 SPEED 1\SHOW 710,260,1,16\X NEXT11\ON KEY 7181
\MOVE "ARCHIMED" TO PIC_FLNM\CALLM RD_PIC\ON KEY 7181 JUMP NEXT12
\ROUNDS -1 SPEED 1\SHOW 330,0,1,-1\X NEXT12\ON KEY 7181