\MOVE 'GLOSSARY' TO CURRENT_TOPIC
\OVERLAY 1,A,43,21\CALL MAIN_TITLE
Glossary
\CALL SET_STANDARD_ONKEYS\MOVE 23 TO TUBE_COLORS
\X OPEN_SCRN\ON KEY PG_UP\ON KEY PG_DN JUMP GOSUB5\X TAG14000\IF CURR_PG>14990 OR CURR_PG<14000\MOVE 14000 TO CURR_PG\ENDIF
\MOVE 14100 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 '242919PW' TO FONT_FLNM\CALLM RD_FON
\LOC 40,220\WID 660 DOT\OVER 0,A,44,23
\"
        The Glossary
       is not available
        at this time.
\"
\"
\"
\"
\"
\"
\"
\"
\"
\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 320 DOTS
 Press <ENTER>...
\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\WID 240 DOTS
(This option is not available in this demo.)
\ENDIF
\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
\IF DEMO_MODE='YES'\JUMP MAINPAGE\ENDIF
\MOVE 'PUMPMENU' 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\CALLM SET_ERROR_ONKEYS\RETURN
\X CLEAR_ONKEYS\CLEAR ON KEYS\CALL SET_STANDARD_ONKEYS\RETURN
\X MAIN_TITLE
\MOVE '242919PW' TO FONT_FLNM\CALLM RD_FON
\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
\LINE 0,145,SCREEN_DOT_WIDTH,SCREEN_DOT_HEIGHT,1,BF
\LOCATE 50,61\WIDTH 924 DOTS CENTERED
\RETURN