\CALL SET_STANDARD_ONKEYS
\X INDUSTRIAL\MOVE 11200 TO CURR_PG\ON KEY PG_UP JUMP RESIDENTIAL\ON KEY PG_DN JUMP AGRICULTURAL\+
\IF CURR_PG>=11210\JUMP TAG11210\ENDIF\MOVE 11200 TO CURR_PG
\MOVE 44 TO V\CALLM SUB_HEAD
Industrial Applications
\"
\X TAG11200\IF CURR_PG>=11210\JUMP TAG11210\ENDIF\MOVE 11200 TO CURR_PG
\LINE 40,170,590,680,23,BF
\MOVE 44 TO V\CALLM SETUP_TXT
Pumps are widely used in industrial applications of all types.  They range from miniature precision models to enormous pumps that transfer sewage to processing plants.  Everywhere you look pumps are at work.
\"
One very important type of pump is the Gear Pump.  It is simple and reliable and requires little or no maintenance.
\"
Your car has many pumps within it.  The oil pump is typically a Gear Pump.  Other types of pumps in a car include a Fuel Pump, Radiator Pump, Tire Pump, Windshield Washer Fluid Pump and more.  Automatic transmissions have one or more pumps within them.
\"
\LINE 620,145,1024,660,1,BF
\MOVE 680 TO Q\MOVE 300 TO R\MOVE 950 TO S\MOVE 470 TO T\MOVE 9 TO U\CALLM TUBE_BOX
\MOVE 'GEAR6PUM' TO PIC_FLNM\CALLM RD_PIC\CALLM WAITBOX
\ON KEY PG_UP JUMP RESIDENTIAL\ON KEY 7181 JUMP CAROFF
\ROUNDS -1 SPEED 14\SHOW L=680,300
\IF LAST_ERROR=0\SHOW F=1,-1\ELSE\SHOW F=1,1\WAIT NOW -1\ENDIF
\X CAROFF\CALLM WAITOFF
\X TAG11210\ON KEY 7181\IF CURR_PG>=11220\JUMP TAG11220\ENDIF\MOVE 11210 TO CURR_PG
\MOVE 44 TO V\CALLM SETUP_TXT
\"
The crude oil which is used to produce gas and refined oil for your car is usually removed from the earth using a Sucker Rod Pump, which can lift oil 10,000 feet or more!
\"
The ships that move the raw oil use large pumps to fill and empty their holds.  Pumps move oil through oil pipelines.  Of course, you fill your car's tank with gasoline using a gas pump.
\"
\"
\"
\"
\"
\"
\"
\MOVE 'ROD5PUMP' TO PIC_FLNM\CALLM RD_PIC\LINE 620,270,1024,660,1,BF
\CALLM WAITBOX\ROUNDS -1 SPEED 30\ON KEY 7181 JUMP DONEDERRICK\CLEAR SPRITES
\SPRITE L=620,90 W=620,151,1023,724 A=1\SPRINT 1
\IF LAST_ERROR>0
\ROUNDS 1\RUN\MOVE 'ROD31PUM' TO PIC_FLNM\CALLM RD_PIC
\IF LAST_ERROR=0\SPRITE L=620,90 W=620,151,1023,724 A=1\SPRINT 1\RUN
\WAIT NOW -1\JUMP SHORT_SHOW\ELSE
\WAIT NOW -1\JUMP SHORT_SHOW\ENDIF
\SPRINT 2 TO 30
\SPRITE A=NO L=2000,2000\SPRINT 1\SPRITE L=620,90 A=1\SPRINT 31 TO 60\RUN\X SHORT_SHOW\X DONEDERRICK\CALLM WAITOFF
\X TAG11220\ON KEY 7181\ON KEY PG_UP JUMP INDUSTRIAL\IF CURR_PG>=11230\JUMP TAG11230\ENDIF\MOVE 11220 TO CURR_PG
\MOVE 44 TO V\CALLM SETUP_TXT
\"
Factories use pumps throughout the shop floor.  To compress air, to operate hydraulic power tools, to move liquids and gases, and more.
\"
Food companies use special pumps to pump liquid sugar.  Cities pump water into storage tanks or even lakes with huge submersible pumps.
\"
Pumps are so important in fire fighting that there is even a truck named after them - the Pumper!
\"
\LINE 620,150,1024,650,1,BF
\MOVE 640 TO Q\MOVE 340 TO R\MOVE 980 TO S\MOVE 590 TO T\MOVE 9 TO U\CALLM TUBE_BOX
\MOVE 'PUMPER' TO PIC_FLNM\CALLM RD_PIC\CALLM WAITBOX
\ROUNDS -1 SPEED 22
\ON KEY 7181 JUMP PUMPOFF\SHOW L=600,340 W=640,340,980,590
\IF LAST_ERROR=0\SHOW F=1,-1\ELSE\SHOW F=1,1\WAIT NOW -1\ENDIF
\X PUMPOFF\CALLM WAITOFF
\X TAG11230\ON KEY 7181\IF CURR_PG>=11300\JUMP AGRICULTURAL\ENDIF\MOVE 11230 TO CURR_PG
\MOVE 44 TO V\CALLM SETUP_TXT
\"
\"
\"
This has been just a sampling of industrial uses of pumps.  Later you'll learn about how all these pumps work, and you'll be able to tell what types of pumps are usually best for different applications.
\"
\"
\"
\"
\"
\"
\LINE 620,180,1024,650,1,BF
\MOVE 690 TO Q\MOVE 330 TO R\MOVE 980 TO S\MOVE 460 TO T\MOVE 4 TO U\CALLM TUBE_BOX
\LOCATE 710,370\WIDTH 260 DOTS CENTERED\OVER 1,A,52,1
You have completed this section!
\CALLM WAITBOX\WAIT NOW -1
\X AGRICULTURAL
\IF DEMO_MODE='YES'\CALLM DEMO_MSG\JUMP MAINPAGE\ENDIF
\CALLM WAITOFF\MOVE 'WHE_AGRI' TO TEXT_FLNM\CALLM RD_TXT\JUMP MAINPAGE
\X RESIDENTIAL\CALLM WAITOFF\MOVE 'WHE_RESI' TO TEXT_FLNM\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