\READ HARTTEXT.HUE\+
\ON ERROR JUMP NOVGA\SCREEN 0,0,19\CLEAR ON ERRORS
\ON ERROR JUMP WAYSML\READ 081119PW.FON\CLEAR ON ERR\+
\MOVE -1 TO #1141\MOVE 0 TO #775\+
\X PISTON1\MOVE 1 TO #1005\READ OPENPIST.PIC\SHOW 0,0,1\BLANK 0,21,319,199\+
\X SET_ONKEYS\ON KEY F1 JUMP HELP\ON KEY F2 JUMP PR_ORDER\+
\ON KEY F10 JUMP ENDIT\+
\X RESTART\LOC 0,32\WID 214 DOT\HEI 199\OV 1,A,220
\IF #775>=2\JUMP NOTENUF\ELSE\IF #775>2\JUMP NOTENUF2\ENDIF
\ON ERROR JUMP NOTENUF\READ PISTONBL.PIC\ON ERROR\MOVE 1 TO #775\JUMP GO_ON
\X NOTENUF\ON ERROR JUMP NOTENUF2\READ MEDPISBL.PIC\MOVE 2 TO #775\JUMP GO_ON
\X NOTENUF2\ON ERROR JUMP WAY2SML\READ SMLPSTBL.PIC\MOVE 3 TO #775
\X GO_ON\CLEAR ON ERRORS
\"
\"
The four-stroke piston engine
was invented in the 1800's.
In 1861 Nikolaus August Otto
built a working four-stroke
gas engine, having realized
the sequence of events
necessary to establish
a continuous operation.
\"
\"
\"
\LOC 0,183\WID 320 DOT C\OVE 1,A,224
<RETURN> to continue...       <F1> for HELP...
\ON KEY F10 JUMP ENDIT\ON KEY 7181 JUMP NEXT1
\ROUNDS #1141 SPEED 14
\SHOW 220,40,1,24
\X NEXT1\ON KEY 7181
\LOC 0,30\WID 200 DOTS\HEI 199\OVER 1,A,226\SHOW 220,40,2
First, an air-and-fuel mixture (represented by the blue dots) is introduced
into the chamber.  The valve on the right (shown in black)
opens as the piston is drawn down by the revolving
crankshaft.  Higher pressure outside the chamber forces the mixture in.
When the piston is at the
bottom of its stroke the
valve is closed.
\BLANK 0,184,319,199
\WAIT RET #1141 "     Press <RETURN> to continue..."
\ROUNDS 1 SPEED 112
\SHOW 220,40,2,7
\X NEXT3
\LOC 0,30\WID 200 DOTS\HEI 199\OVER 1,A,225
\"
\"
\"
\"
Next the gas mixture is
compressed to a small
fraction of its normal
atmospheric volume.
\"
\"
\"
\"
\"
\WAIT RET #1141
\SHOW 220,40,8,11\SHOW W=0,65,320,199 F=12,12
\IF #775=3\SHOW W=0,52,320,199 F=13,13\ELSE\IF #775=2
\SHOW W=0,60,320,199 F=13,13\ELSE
\SHOW W=0,070,320,199 F=13,13\ENDIF
\X NEXT4
\LOC 0,60\WID 200 DOTS\HEI 139\OVER 1,A,218
As the piston reaches
maximum compression a
spark is introduced,
and the resulting
explosion forces the
piston down.  This is
the power stroke of the
engine and it forces the
crankshaft to turn.
\WAIT RET #1141
\CLEAR SHOW
\SHOW 220,40,13,19
\X NEXT5
\LOC 0,60\WID 200 DOTS\HEI 139\OVER 1,A,222
\"
\"
After the power stroke,
the exhaust valve opens so
that the rapidly cooling
(and decompressing) gases
can be expelled from the
cylinder.
\"
\"
\WAIT RET #1141
\SHOW 220,40,20,24
\X NEXT7
\LOC 0,70\WID 200 DOTS\HEI 199\OVER 1,A,226
\"
The exhaust valve closes
and the intake valve
opens as the cycle begins
to repeat...
\"
\"
\WAIT RET #1141
\LOC 0,70\WID 200 DOTS\HEI 199\OVER 1,A,40
\"
Press the <UP ARROW> to
speed up the piston, or
the <DOWN ARROW> to slow
it down...
\ROUNDS #1141 SPEED 84
\LOC 0,183\WID 320 DOTS\OVE 1,A,230
<RETURN> to restart...            <F10> to exit...
\ON KEY 7181 JUMP MENU\ON KEY F10 JUMP ENDIT
\SHOW 220,40,1,24
\X MENU\CLEAR SHOW\JUMP SET_ONKEYS
\X PR_ORDER\CLEAR ON KEY\CALLM PRINT_ORDER\JUMP SET_ONKEYS
\X WAY2SML\CLEAR ON KEY
\WAIT RET 88 "Not enough RAM or SMLPSTBL.PIC not found  Press <RETURN> for DOS"
\END
\X WAYSML\CLEAR ON KEY
\WAIT RET 88 "Not enough RAM or 081119PW.FON not found  Press <RETURN> for DOS."
\X ENDIT\LENGTH #9209\IF A>0\READ (#9209)\ENDIF\END
\X HELP\ACTIVATE SCREEN 0\SAVE SCRE\READ 081119PW.FON\CLEAR ON KEYS\+
\LOC 0,0\WID 320 DOT C\OVE 1,A,40\HEI 18\CLEAR ON KEY\ON KEY F10 JUMP ENDIT
\CLEAR SCREEN
General Information
\LOC 0,20\OVE 1,A,56\HEI 188
This program illustrates how a 4-stroke piston
engine works.  It is a sample lesson from an
educational product being developed by:
\LOC 0,56\OVE 1,A,44
The Animated Software Company
\"
\LOC 0,69\OVE 1,A,42
If you have a compatible mouse input
device you may use any mouse button
instead of <RETURN> at any time.
\"
\LOC 0,106\OVE 1,A,32
Press <F1> for this message, <F10> to exit.
\"
\LOC 0,124\OVE 1,A,121
Written and produced by Russell D. Hoffman,
The Animated Software Company
America Online ID:RUSSELL DH
CompuServe ID:71333,721
Phone:(800) 551-2726
\WAIT RET #1141 "      Press <RETURN> to continue..."
\RESTORE SCREEN\JUMP SET_ONKEYS
\X NOVGA
\BEEP 51,333\BEEP 144,44\LOC 0,0
\WAIT RET 88 "YOU NEED VGA AND ABOUT 512K RAM! PRESS  <RETURN> TO EXIT TO DOS"
\END
