\MOVE 'WHERE' 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>11990 OR CURR_PG<11000\MOVE 11000 TO CURR_PG\ENDIF
\MOVE 11100 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_ONE
\MOVE '242919PW' TO FONT_FLNM\CALLM RD_FON
\LOC 40,220\WIDTH 660 DOTS\OVER 0,A,44,23
\"
        Residential Applications.
\"
        Industrial Applications.
\"
        Agricultural Applications.
\"
        Scientific Applications.
\"
        Medical Applications.
\"
\"
\"
\LOC 120,220\WID 30 DOT
\"
1.
\"
2.
\"
3.
\"
4.
\"
5.
\MOVE 'ASCOLOGO' TO PIC_FLNM\CALLM RD_PIC
\MOVE '242919PW' TO FONT_FLNM\CALLM RD_FON
\LOC 340,538\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 445 TO T\MOVE 9 TO U\CALLM TUBE_BOX\LOCATE 750,300\OVER 1,A,60,23
(Some of these options are not available in this demo.)
\ENDIF
\CALLM WAITBOX
\MOUSE FRAME=0,3 W=67,270,67,504 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 'WHE_RESI' TO TEXT_FLNM\ELSE
\IF CURR_SUBLEVEL<358\MOVE 'WHE_INDU' TO TEXT_FLNM\ELSE
\IF CURR_SUBLEVEL<416\MOVE 'WHE_AGRI' TO TEXT_FLNM\ELSE
\IF CURR_SUBLEVEL<474\MOVE 'WHE_SCIE' TO TEXT_FLNM\ELSE
\MOVE 'WHE_MEDI' 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' AND CURR_SUBLEVEL>=416\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