\ADD 60 TO CURRENT_MAIN_TOPIC
\X MAINPAGE\HEIGHT 690\ROUNDS -1 SPEED 33\CLEAR SPRITES\CLEAR SHOW\ON KEY 4096 JUMP ALT_QUITED\ON KEY F10 JUMP MAINPAGE\ON KEY F2\ON KEY 7181
\MOVE '242919PW' TO FONT_FLNM\CALLM RD_FON\OVERLAY 1,A,43,21
\LOCATE 50,32\WIDTH 924 DOTS CENTERED
\"
All About Pumps.
\"
\MOVE 49 TO Q\MOVE 31 TO R\MOVE 974 TO S\MOVE 119 TO T\MOVE 1 TO U\CALLM NEW_TUBE_BOX
\MOVE 38 TO Q\MOVE 160 TO R\MOVE 460 TO S\MOVE 500 TO T\MOVE 15 TO U\LINE Q,R,S,T,24,BF\CALLM TUBE_BOX
\MOVE '202519PW' TO FONT_FLNM\CALLM RD_FON\LOCATE 58,190\WIDTH 380 DOTS\OVER 0,A,45,24
In this program we will teach you how pumps work, what they do, the different types of pumps that are available, and how pump performance is measured and compared.
\"
You can always return to this main screen from anywhere else in the program by pressing FUNCTION KEY 10 (<F10>).
\"
To exit the program, press the ALT key and while holding the alt key down, press the Q key (<ALT+Q>).
\MOVE 538 TO Q\MOVE 160 TO R\MOVE 988 TO S\MOVE 670 TO T\MOVE 15 TO U\LINE Q,R,S,T,24,BF\CALLM TUBE_BOX
\MOVE '202519PW' TO FONT_FLNM\CALLM RD_FON\LOCATE 618,190\WIDTH 360 DOTS\OVER 0,A,44,24
1)  Where Pumps Are Used.
\"
\"
2)  How Pumps Work.
\"
\"
3)  Types of Pumps.
\"
\"
4)  Measuring Pump Performance.
\"
\"
5)  The Right Pump for the Job.
\"
\"
6)  Historical Background and
         Some Famous Pumps.
\"
7)  The Most Amazing Pump of All.
\"
\"
8)  Exit to DOS.
\"
\"
\MOVE 'ASCOLOGO' TO PIC_FLNM\CALLM RD_PIC
\CALLM WAITBOX
\MOVE 140 TO Q\MOVE 555 TO R\MOVE 370 TO S\MOVE 680 TO T\MOVE 5 TO U\CALLM TUBE_BOX
\CALL SHOW_DONE_ONES\CALL INTRO_BOX
\ON KEY F3 CALL TOGGLE_SOUND
\MOVE CURRENT_MAIN_TOPIC TO E\ON KEY 7181 JUMP FIRST_PUMP
\MOUSE FRAME=0,1 L=596,CURRENT_MAIN_TOPIC W=596,206,596,626 ACCURACY=0,1 ROUNDS=0
\ON KEY F10\ROUNDS -1 SPEED 22\CLEAR SPRITES\SPRITE L=160,575 A=1
\IF LAST_ERROR=0\SPRINT 4 TO 18\ELSE\SPRINT 4,4\ENDIF\RUN MOUSE
\X FIRST_PUMP\MOVE E TO CURRENT_MAIN_TOPIC\CLEAR MOUSE\ON KEY 7181
\CALLM WAITOFF\LINE 40,530,500,740,1,BF\MOVE '242919PW' TO FONT_FLNM\CALLM RD_FON
\IF CURRENT_MAIN_TOPIC<260\MOVE 1 TO MODULE_ONE
\OVERLAY 1,A,43,21\CALL MAIN_TITLE
Where are pumps used?
\MOVE 11000 TO CURR_PG\MOVE 'WHEREPUM' TO TEXT_FLNM\CALLM RD_TXT
\ELSE
\IF CURRENT_MAIN_TOPIC<320\MOVE 1 TO MODULE_TWO
\OVERLAY 1,A,43,21\CALL MAIN_TITLE
How Pumps Work.
\MOVE 12000 TO CURR_PG\MOVE 'HOW_PUMP' TO TEXT_FLNM\CALLM RD_TXT
\ELSE
\IF CURRENT_MAIN_TOPIC<380\MOVE 1 TO MODULE_THREE
\OVERLAY 1,A,43,21\CALL MAIN_TITLE
Types of Pumps.
\MOVE 13000 TO CURR_PG\MOVE 'TYPEPUMP' TO TEXT_FLNM\CALLM RD_TXT
\ELSE
\IF CURRENT_MAIN_TOPIC<440\MOVE 1 TO MODULE_FOUR
\OVERLAY 1,A,43,21\CALL MAIN_TITLE
Measuring Pump Performance.
\MOVE 14000 TO CURR_PG\MOVE 'MEASURE' TO TEXT_FLNM\CALLM RD_TXT
\ELSE
\IF CURRENT_MAIN_TOPIC<500\MOVE 1 TO MODULE_FIVE
\OVERLAY 1,A,43,21\CALL MAIN_TITLE
The Right Pump for the Job.
\MOVE 15000 TO CURR_PG\MOVE 'WHICHPUM' TO TEXT_FLNM\CALLM RD_TXT
\ELSE
\IF CURRENT_MAIN_TOPIC<560\MOVE 1 TO MODULE_SIX
\OVERLAY 1,A,43,21\CALL MAIN_TITLE
Historical Background and Some Famous Pumps.
\MOVE 16000 TO CURR_PG\MOVE 'HISTORY' TO TEXT_FLNM\CALLM RD_TXT
\ELSE
\IF CURRENT_MAIN_TOPIC<620\MOVE 1 TO MODULE_SEVEN
\OVERLAY 1,A,43,21\CALL MAIN_TITLE
The Most Amazing Pump of All.
\MOVE 17000 TO CURR_PG
\IF DEMO_MODE='YES'\CALLM DEMO_MSG\JUMP MAINPAGE\ELSE
\MOVE 'AMAZINGP' TO TEXT_FLNM\CALLM RD_TXT
\ELSE
\IF CURRENT_MAIN_TOPIC<680\MOVE 1 TO MODULE_EIGHT
\OVERLAY 1,A,43,21\CALL MAIN_TITLE
Thank you and Goodbye!
\ON KEY 7181\CALL END_ROUTINE
\JUMP ALT_QUITED
\ELSE
\BEEP 33,99\JUMP MAINPAGE
\ENDIF
\X QUITIT\END
\X MAIN_TITLE
\MOVE 49 TO Q\MOVE 31 TO R\MOVE 974 TO S\MOVE 119 TO T\MOVE 8 TO U\LINE Q,R,S,T,21,BF\CALLM TUBE_BOX
\MOVE '242919PW' TO FONT_FLNM\CALLM RD_FON
\LINE 0,145,1023,720,1,BF\LINE 0,721,569,768,1,BF
\LOCATE 50,61\WIDTH 924 DOTS CENTERED
\RETURN
\X END_ROUTINE\ON KEY F10 JUMP MAINPAGE
\MOVE 'GOOD_BYE' TO SOUND\CALLM PLAYSOUND
\LOC 110,190\WIDTH 800 DOTS CENTERED\OVER 1,A,53,21\MOVE '242919PW' TO FONT_FLNM\CALLM RD_FON
\MOVE 110 TO Q\MOVE 190 TO R\MOVE 910 TO S\MOVE 420 TO T\MOVE 7 TO U\LINE Q,R,S,T,21,BF\CALLM NEW_TUBE_BOX
\"
Thank you for using our products!
See you next time!
\"
\LOCATE 110,300\OVER 1,A,44,21
<RETURN>: Exit to DOS.
\IF DEMO_MODE='YES'
<F2>: Order ALL ABOUT PUMPS.
\ELSE
\<F2>: Order additional copies.
\ENDIF
<F10>: Back to program.
\ON KEY 7181 JUMP ALT_QUITED
\"
\MOVE 130 TO Q\MOVE 540 TO R\MOVE 310 TO S\MOVE 654 TO T\MOVE 9 TO U\CALLM TUBE_BOX
\LOC 130,540\WIDTH 180 DOTS CENTERED\OVER 1,A,44,21
The Animated Software Company
\MOVE 700 TO Q\MOVE 540 TO R\MOVE 880 TO S\MOVE 654 TO T\MOVE 9 TO U\CALLM TUBE_BOX\LOCATE 700,540\OVER 1,A,48,21
Developed
in
the
U.S.A.
\MOVE 450 TO Q\MOVE 550 TO R\MOVE 560 TO S\MOVE 650 TO T\MOVE 9 TO U\LINE Q,R,S,T,27,BF\CALLM TUBE_BOX
\IF EMM_AVBL=0\MOVE 'ONE_FLAG' TO PIC_FLNM\CALLM RD_PIC\SHOW 480,582,1\ON KEY F2 CALL PR_ORDER\WAIT NOW -1\JUMP BYE_DONE\ENDIF
\MOVE 'USA_FLAG' TO PIC_FLNM\CALLM RD_PIC
\IF LAST_ERROR>0\WAIT NOW -1\JUMP BYE_DONE\ENDIF
\CLEAR SPRITES\ON ERROR JUMP NOVARIABLE_SPD
\ROUNDS 2229 SPEE [25,R]\JUMP VARSPEED\X NOVARIABLE_SPD
\ROUNDS 2229 SPEED 32\X VARSPEED\ON ERROR
\SPRITE A=1 F=Y L=480,582
\SCREEN LINE=580,630 ;this version fails in 8.26/8.27!
\SAVE SCREEN
\SPRINT 1,2,3,5,7,9,12,13,14,15,17,19,20,21,24,2,4,5,7,10,12,14,15,17,19,20
\SPRINT 21,23,1,2,5,8,9,11,14,16,17,18,19,21,22,24,1,2,3,4,6,10,11,12,14,15
\SPRINT 16,18,19,21,22,23,24,2,3,4,6,7,8,10,11,12,14,16,17,20,21,22,23,24
\ON KEY F2 CALL PR_ORDER\RUN
\X BYE_DONE\RETURN
\X PR_ORDER\CALLM PRINT_ORDER\RETURN
\X TOGGLE_SOUND\IF SOUND_CONTROL='OFF'\MOVE 'ON' TO SOUND_CONTROL\ELSE\MOVE 'OFF' TO SOUND_CONTROL\ENDIF\RETURN
\X GLOSSARY\LINE 0,0,SCREEN_DOT_WIDTH,SCREEN_DOT_HEIGHT,1,BF\MOVE 'GLOSSARY' TO TEXT_FLNM\CALLM RD_TXT
\X ALT_QUITED\ON ERROR\END
\X SHOW_DONE_ONES\MOVE 544 TO Q\MOVE 195 TO R\MOVE 60 TO S
\IF MODULE_ONE>0    \SHOW Q,R,2\ENDIF\ADD S TO R
\IF MODULE_TWO>0    \SHOW Q,R,2\ENDIF\ADD S TO R
\IF MODULE_THREE>0  \SHOW Q,R,2\ENDIF\ADD S TO R
\IF MODULE_FOUR>0   \SHOW Q,R,2\ENDIF\ADD S TO R
\IF MODULE_FIVE>0   \SHOW Q,R,2\ENDIF\ADD S TO R
\IF MODULE_SIX>0    \SHOW Q,R,2\ENDIF\ADD S TO R
\IF MODULE_SEVEN>0  \SHOW Q,R,2\ENDIF\ADD S TO R
\IF MODULE_EIGHT>0  \SHOW Q,R,2\ENDIF\ADD S TO R
\IF MODULE_NINE>0   \SHOW Q,R,2\ENDIF\ADD S TO R
\IF MODULE_TEN>0    \SHOW Q,R,2\ENDIF\ADD S TO R
\IF MODULE_ELEVEN>0 \SHOW Q,R,2\ENDIF\ADD S TO R
\IF MODULE_TWELVE>0 \SHOW Q,R,2\ENDIF\ADD S TO R
\RETURN
\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
\END
\X INTRO_BOX
\MOVE 49 TO Q\MOVE 31 TO R\MOVE 974 TO S\MOVE 119 TO T\MOVE 93 TO V\MOVE 1 TO U
\X LOOP1\LINE 49,R,564-Q,31,V\LINE 449+Q,31,974,R,V
\LINE 49,150-R,564-Q,119,V\LINE 449+Q,119,974,150-R,V\ADD U TO V\IF V>101\MOVE -1 TO U\ENDIF\IF V<90\MOVE 1 TO U\ENDIF
\ADD 3 TO R\ADD 16 TO Q\IF R<119\JUMP LOOP1\ENDIF
\RETURN