\MOVE 'HOW' 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 TAG11000\IF CURR_PG>12990 OR CURR_PG<12000\MOVE 12000 TO CURR_PG\ENDIF
\MOVE 12100 TO CURR_PG
\MOVE 040 TO Q\MOVE 220 TO R\MOVE 700 TO S\MOVE 652 TO T\MOVE 12 TO U\CALLM TUBE_BOX
\MOVE '242919PW' TO FONT_FLNM\CALLM RD_FON
\MOVE 1 TO MODULE_TWO
\LOC 40,220\WID 660 DOT\OVER 0,A,44,23
\"
        Some Basic Physics.
\"
        Hydraulic Principals.
\"
        Pump Materials.
\"
        Fluid types.
\"
        Priming the Pump.
\"
        Hydraulic Accumulators.
\"
\"
\"
\LOC 120,220\WIDTH 30 DOTS
\"
1.
\"
2.
\"
3.
\"
4.
\"
5.
\"
6.
\MOVE 'ASCOLOGO' TO PIC_FLNM\CALLM RD_PIC
\MOVE '242919PW' TO FONT_FLNM\CALLM RD_FON
\LOC 340,598\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,562 A=0,1 L=47,LASTY_WHERE R=-1\MOVE E TO CURR_SUBLEVEL\MOVE CURR_SUBLEVEL TO LASTY_WHERE
\CALLM WAITOFF
\X GOSUB5
\IF CURR_SUBLEVEL<300\MOVE 'HOW_PHYS' TO TEXT_FLNM\ELSE
\IF CURR_SUBLEVEL<358\MOVE 'HOW_HYDR' TO TEXT_FLNM\ELSE
\IF CURR_SUBLEVEL<416\MOVE 'HOW_MATE' TO TEXT_FLNM\ELSE
\IF CURR_SUBLEVEL<474\MOVE 'HOW_FLUI' TO TEXT_FLNM\ELSE
\MOVE 'HOW_PRIM' 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