\LEN #4000\IF A>0\JUMP HRTNXT1\ENDIF\X RESTRT\SCREEN 0,0,19\READ 081119PW.FON\+
\READ SETUPS.MAC\CALLM SETVALS\READ MCGAHART.HUE
\LOC 180,3\HEI 189\OV 1,A,219\WID 140 DOT\MOVE 0 TO #1149
\ON ERROR JUMP RDHRT2\READ LARGEHRT.PIC\SHOW 0,11,1,1\JUMP LRGHRT3
\X RDHRT2\CLEAR ON ERROR\READ MEDHEART.PIC
\SHOW 11,22,1,1\X LRGHRT3\CLEAR PICS
The human heart is an amazing organ.
It is only about the size of your palm and weighs less than 3/4's of a pound,
yet it will beat continuously from long before birth to the moment of death.
If it stops for even a few moments your body cannot get the vital oxygen and
nutrients it needs to survive.
\X HRTNXT1\ON KEY F2 JUMP PR_ORD
\ON KEY F10 JUMP MENU\IF #1149=1\JUMP SKIPWAIT\ENDIF
\WAIT RET #1141 "     Press <RETURN> to continue..."\X SKIPWAIT
\LOC 132,3\HEI 189\OV 1,A,218\WID 188 DOT
  When the heart beats,
  blood flows into the
  upper two chambers
  called the atria, then
  through the tricuspid
  and mitral valves to
  the ventricles.  It
  is then pumped to the
  body, brain, and lungs
  through the pulmonary
  artery and the aorta.
\"
\"
\BLANK 0,0,139,137
\LOC 0,138\WID 320 DOT C\OV 0,A,229\HEI 82
From THE ENGINE OF LIFE by
John Keenan and Russell Hoffman.
(c) 1984-1992 Hoffman, Keenan, Schorer
\"
\LENGTH #9209\IF A>0
<F2>-Print order form   <F10>-Next demo
\ELSE
<F2>-Print order form    <F10>-Exit
\ENDIF
\ROUND 100 SPE 97\IF #1141<100\ROUND #1141\ENDIF\MOVE 0 TO #1157
\ON ERROR JUMP MEDHRT\READ DAPPLED2.PIC\JUMP LARGEHRT
\X MEDHRT\ON ERROR JUMP SMLHRT\READ MEDDAPPL.PIC\MOVE 24 TO #1157\JUMP LARGEHRT
\X SMLHRT\READ SMALLHRT.PIC\MOVE 32 TO #1157\X LARGEHRT\CLEAR ON ERRORS
\ON KEY 7181 JUMP HRTNEXT1\SHOW #1157+12,#1157,1,8
\X HRTNEXT1\ON KEY 7181\MOVE 0 TO #99
\X BEGIN\MOVE 1 TO H\NAME #4=CORRECT\MOVE 1 TO CORRECT
\NAME #5=CALLED\MOVE 0 TO CALLED\JUMP REAL_START
\X START\CLEAR SPRIT\IF CALLED<>1\MOVE 1 TO H\IF CORRECT=2\ROUNDS 405
\ELSE\ROUNDS 405 SPEED 6\ENDIF
\SPRIT R=13,14 L=16,57\SPRIN 2\SPRIT R=133,133 L=0,20 W=16,57,23,63\SPRIN 5
\SPRIT L=2,20 X=NO A=NO W=0,0,319,199\SPRIT S=1,3 R=16,102 I=2,2\SPRIN 12
\SPRIT S=52,3\SPRIN 12\SPRIT S=98,3 R=16,74 I=4,4\SPRIN 12
\SPRIT S=264,3 R=16,61\SPRIN 12\SPRIT R=71,163 I=4,4 S=169,1\SPRIN 12
\SPRIT S=1,3 I=2,2 R=126,244\SPRIN 7\SPRIT S=53,3 R=130,216\SPRIN 7
\SPRIT S=99,3 R=130,224\SPRIN 7\SPRIT S=264,3 R=130,328\SPRIN 7
\SPRIT R=151,202 S=131,3\SPRIN 7\SPRIT R=151,293 I=4,4 S=169,2\SPRIN 7
\SPRIT R=146,325\SPRIT S=1,12 L=0,20 I=48,48\SPRIN 8
\SPRIT S=192,12 R=147,325\SPRIN 8\SPRIT S=1,3 I=8,8 R=252,449\SPRIN 13
\SPRIT S=192,3 R=254,450\SPRIN 13\SPRIT L=20,50
\X NO_CONDUCT\IF CORRECT=2\ELSE\JUMP NO_EKG\ENDIF
\SPRIT S=6,3 L=10,50 I=7,7 R=0,155\SPRIN 14
\SPRIT R=143,164 I=44,44 S=265,15\SPRIN 14
\SPRIT R=164,225 I=8,8 S=500,8\SPRIN 14
\SPRIT R=226,515 I=5,5 S=600,8\SPRIN 14
\X NO_EKG\RUN FROM H\SUB 1 FROM #1147
\IF #1147>0\IF CALLED=4 OR CALLED=5\JUMP START\ENDIF
\IF CALLED=4\JUMP CONT1\ELSE\IF CALLED=5\JUMP MENU\ENDIF
\X START44\BLANK 0,152,118,187\MOVE C TO H
\IF CALLED=0\JUMP START\ENDIF\MOVE 0 TO CALLED
\RETURN
\X REAL_START\ON ERROR JUMP MENU
\READ HRTELCTR.PIC\APPEND SMALLRED.PIC 1,8\CLEAR ON ERROR
\ON KEY F10 JUMP MENU\IF B=17408\JUMP MENU\ENDIF
\BLANK 0,0,139,199\SHOW 0,20,5
\LOC 140,0\HEI 199\WID 180 DOT\OVE 0,A,223
The conducting system,
shown to the left,
channels the heart's
electrical fire in a
smooth wave across the
atria, down the septum
and up through the
ventricles.  Depolar-
ization, represented
here with white impulses,
takes only 1/5 of a
second. Repolarization,
represented by the
disappearance of the
white impulses, takes
approximately twice as
long.
\LOC 42,187\OVE 0,A,231\WID 281 DOTS\HEI 12
Press <RETURN> to continue text
\ON KEY 7181 JUMP CONT1\MOVE 4 TO CALLED\+
\IF #1141<100 AND #1141>0\MOVE 1 TO #1147\ELSE\MOVE 20 TO #1147\ENDIF\JUMP START
\X CONT1\ON KEY 7181\LOC 20,0\OV 0,A,216\WID 280 DOT C\HEI 12
ANATOMY OF THE CONDUCTING SYSTEM
\DRAW J42,10,C57R234\LOC 140,12\OV 0,A,228\WID 180 DOT\HEI 180
\"
\"
Each heartbeat begins
in a specialized clump
of cells located in the
wall of the right
atrium near the superior
vena cava. This group
of cells is called the
Sinoatrial Node or
SA Node for short.
\BL 120,132,319,185\SHOW 0,20,5\SHOW 16,57,2
\DRAW J140,121,C41R100J140,132,C41R46\DRAW J25,55,C51,U4E1D5R5G1L5E10D1G9
\LOC 20,31\OV 22\HEI 44\WID 55 DOT
SA NODE
\BL 0,187,319,199\WAIT RET #1141
\LOC 140,12\OV 0,A,229\WID 180 DOT\HEI 180
\"
The cells in the SA
node depolarize at a
faster rate than cells
elsewhere in the heart.
While other cells are
still pumping potassium
ions in and sodium ions
out, the flow in the SA
node reverses.  The
depolarization wave that
causes the heart to con-
tract originates in the
\LOC 40,154\OV 0,A,229\WID 280 DOT\HEI 44
the SA node.  For that reason, it is
called the heart's pacemaker.
\LOC 0,31\OV 8\HEI 44\WID 100 DOT
THE PACEMAKER
\WAIT RET #1141
\X CONT4\SHOW 0,20,5\BL 120,12,319,154\BL 0,154,319,199
\ROUNDS 75 SPEED 31\MOVE 1 TO CALLED\MOVE 1 TO H
\CALL START\DRAW J38,82,C53R4F1L5D5H1U5F10U1H8
\LOC 45,98\OV 0\WID 50 DOT\HEI 33
AV Node
\LOC 140,12\OV 0,A,227\WID 180 DOT\HEI 180
\"
When the SA Node fires
off an electrical
impulse, the impulse
spreads across the right
and left atrium, causing
those chambers to
contract.  Before the
artial contraction is
complete, the impulse
reaches the Atrio-
ventricular Node, also
known as the AV Node.
\"
\WAIT RET #1141\CLEAR SPRIT
\SPRIT L=0,20 W=33,82,200,189\SPRIN 5\ROUNDS 1 SPEED 1\RUN
\MOVE 1 TO CALLED\ROUNDS 82 SPEED 5\MOVE 15 TO H\CALL START
\ROUNDS 146 SPEED 27\RUN FROM H
\SHOW 26,130,6\LOC 14,100\OVE 0\WID 70 DOT\HEI 55
Closeup of
AV NODE
\LOC 140,20\OVE 0,A,227\WID 180 DOT\HEI 180
\"
The AV Node, shown in
closeup here, contains
special fibers that slow
down the electrical
signals before trans-
mitting them toward the
ventricles.  This slow-
down gives the atria
time to complete their
contraction before the
ventricles receive their
signal to contract.
\WAIT RET #1141\CLEAR SPRIT\SPRIT L=0,20 W=0,95,200,189
\SPRIN 5\ROUNDS 1 SPEED 1\RUN\BL 0,149,80,179\CLEAR SPRIT
\SPRIT S=247,9 I=32,32 R=1,2 L=0,20\SPRIN 12
\SPRIT R=2,9 S=1,12 L=0,20 I=24,24\SPRIN 8
\SPRIT S=192,12 R=2,9\SPRIN 8\ROUND 9 SPEED 66\RUN\CLEAR SPRIT
\FRAME 0,20,120,130\FRAME ?\MOVE A TO #99\SHOW 0,20,#99
\LOC 83,83\WID 17 DOT\OV 0\HEI 14
AV
\LOC 65,93\WID 50 DOT\OV 0\HEI 14
Bundle
\DRAW J61,90,C56,U4E1D5R5G1L5E10D1G9\LOC 0,98\OVE 0\WID 38 DOTS\HEI 54
Right
\WID 27 DOT
and
\WID 31 DOT
left
\WID 61 DOT
branches
\DRAW J55,114,C56,L5G1R6D5E1U5G10U1E9\LOC 140,13\OV 0,A,222\WID 180 DOT\HEI 180
After the electrical
impulses pass through
the AV Node, they enter
the AV Bundle.  The AV
Bundle divides into the
right and left branches.
The fibers in the bunches
transmit the signal with
great speed down into the
ventricles.  Notice that
the atria are beginning
to repolarize as the
ventricles are starting
to depolarize.
\WAIT RET #1141\SHOW 0,20,#99
\FRAME ?\IF A>=#99 AND #99>0\DELETE FRAME #99\MOVE 0 TO #99\ENDIF
\BL 104,73,110,99\CLEAR SPRIT
\SPRIT S=1,3 I=2,2 R=26,144 L=2,20\SPRIN 7\SPRIT S=53,3 R=30,116\SPRIN 7
\SPRIT S=99,3 R=30,124\SPRIN 7\SPRIT S=264,3 R=30,228\SPRIN 7
\SPRIT R=51,97 S=131,3\SPRIN 7\SPRIT R=51,193 I=4,4 S=169,2\SPRIN 7
\SPRIT R=46,225\SPRIT S=1,12 L=0,20 I=48,48\SPRIN 8
\SPRIT S=192,12 R=47,225\SPRIN 8\ROUNDS 64 SPEED 40\RUN FROM 25
\LOC 140,14\OVE 0,A,228\WID 180 DOT\HEI 180
\"
\"
The impulses pass into
the Purkinje Fibers
which fan out across
the walls of the
ventricles.  The
Purkinje Fibers
transmit the impulses
swiftly through the
ventricles causing
them to contract.
\"
\"
\DRAW J35,141,C52L5D1R5D5R1U5G10U1E10\DRAW J98,141,C52D5R1U5R5D1L5F10U1H10
\LOC 22,157\OVE 0\WID 150 DOT\HEI 12
Purkinje Fibers
\WAIT RET #1141\BL 1,141,45,156\BL 98,141,115,156\BL 0,156,144,166
\LOC 20,0\WID 260 DOT C\OV 0,A,226\HEI 12
THE CONDUCTING SYSTEM IN ACTION
\DRAW J25,10,C0,R13C58,R221C0R20
\LOC 140,15\WID 180 DOT\OV 0,A,227\HEI 180
The electrical impulses
can be displayed with
a machine called an EKG.
The green line shows
a typical EKG wave for
a healthy heart.
\"
\LOC 140,86
Repolarization follows
depolarization in a
lifelong cycle of
electrical activity.
\"
\"
\"
\IF #212>255 OR #212<253 ;if pc, xt or pcjr, too slow for this!
\LOC 190,140\WID 130 DOT C\OVE 0,A,57
Use the arrow
keys to speed up
and slow down
the heart!
\ENDIF
\LOC 0,188\WID 320 DOT C\OV 0,A,54\HEI 12
\LEN #4000\IF A>0
<RETURN>-Menu       <F2>-Print order
\ON KEY 7181 JUMP MENU
\ELSE
<RETURN>-Rerun <F2>-Print order <F10>-Exit
\ON KEY 7181 JUMP RERUN\ON KEY F2 JUMP PR_ORD\ON KEY F10 JUMP MENU
\ENDIF
\MOVE #1141 TO #1147\SHOW 0,20,5\ROUNDS 405 SPEED 2
\X EKGBEGIN\ROUNDS 405 SPEED ?\IF A>15\ROUNDS 405 SPEED 15\ENDIF
\CLEAR SPRIT\SPRIT R=13,14 L=16,57 \SPRIN 2
\SPRIT R=133,133 L=0,20 W=16,57,23,63\SPRIN 5
\SPRIT L=2,20 X=NO A=NO W=0,0,319,199\SPRIT S=1,3 R=16,102 I=2,2\SPRIN 12
\SPRIT S=52,3\SPRIN 12\SPRIT S=98,3 R=16,73 I=4,4\SPRIN 12
\SPRIT S=264,3 R=16,61\SPRIN 12\SPRIT R=71,163 I=4,4 S=169,1\SPRIN 12
\SPRIT S=1,3 I=2,2 R=126,244\SPRIN 7\SPRIT S=53,3 R=130,216\SPRIN 7
\SPRIT S=99,3 R=130,224\SPRIN 7\SPRIT S=264,3 R=130,328\SPRIN 7
\SPRIT R=151,199 S=131,3\SPRIN 7
\SPRIT R=151,293 I=4,4 S=169,2\SPRIN 7\SPRIT R=146,325
\SPRIT S=1,12 L=0,20 I=48,48\SPRIN 8\SPRIT S=192,12 R=147,325\SPRIN 8
\SPRIT S=1,3 I=8,8 R=252,449\SPRIN 13
\SPRIT S=192,3 R=254,450\SPRIN 13\SPRIT L=20,50
\SPRIT S=6,3 L=10,50 I=7,7 R=0,155\SPRIN 14
\SPRIT R=143,164 I=44,44 S=265,15\SPRIN 14\SPRIT R=164,225 I=8,8 S=500,8\SPRIN 14
\SPRIT R=226,515 I=5,5 S=608,8\SPRIN 14\CLEAR SPRIT 0
\SPRIT R=35,400 L=152,138 A=50 F=YES\SPRIN 18 TO 22,15,16,17\SHOW 152,138,17
\RUN\BLANK 0,152,127,188\SUB 1 FROM #1147\IF #1147>1 OR #1147<0\JUMP EKGBEGIN\ENDIF
\X MENU\CLEAR ON KEYS\CLEAR SPRIT\FRAME ?\IF A>22\IF #99>0\DELETE FRAME #99\MOVE 0 TO #99\ENDIF\+
\LEN #4000\IF A>0\CLEAR MACROS\READ /(#4000)/MENU.MAC\READ /(#4000)/MENU.TXT\ELSE\+
\LEN #9209\IF A>0\READ (#9209)\ENDIF\END\X RERUN\CLEAR SCREEN\ON KEY 7181\JUMP RESTRT
\X PR_ORD\ON KEY 7181\CLEAR MACROS\READ EOL_ORDR.MAC\CALLM PR_EOL_ORDER\JUMP RERUN