home *** CD-ROM | disk | FTP | other *** search
- .SET #8(*1, *)
- .LET (*#34=#34+#8*) TEXT
- .LET (*#21=#21+#6*)
- @LAB:SCREEN10
- .SCR 0
- .SNA(*(.INF 39)0*)
- .COL 7,0
- .LOC 2,46(*10*)
- .COL 0,3
- .LOC 5,11(* Newton's Laws *)
- .PAU(**)#4
- .COL 14,0
- .LOC 8,11(*For centuries, attempts had been made to develop a theory*)
- .LOC 10,11(*that would explain why the planets, the moon and the sun*)
- .LOC 12,11(*move as they do when seen from earth.*)
- .PAU(**)#4
- .COL 10,0
- .LOC 15,11(*In particular, a theory was sought that would allow the*)
- .LOC 17,11(*precise prediction of eclipses of the sun and moon.*)
- .PAU(**)#4
- .COL 0,3
- .LOC 24,64(*SPACE >>*)
- .PAU(**)
- @LAB:SCREEN11
- .SNA(*(.INF 39)0*)
- .COL 7,0
- .LOC 2,46(*11*)
- .COL 10,0
- .LOC 6,22(*Isaac Newton discovered such a theory.*)
- .PAU(**)#4
- .COL 12,0
- .LOC 9,11(*Newton's three laws of motion are part of this theory.*)
- .PAU(**)#4
- .COL 14,0
- .LOC 12,11(*The laws cannot be proved in the conventional sense, but*)
- .LOC 14,11(*their truth is assumed because they predict and explain,*)
- .LOC 16,11(*accurately, the behaviour of moving bodies.*)
- .PAU(**)#4
- .COL 0,3
- .LOC 24,64(*SPACE >>*)
- .PAU(**)
- @LAB:SCREEN12
- .SNA(*(.INF 39)0*)
- .COL 7,0
- .LOC 2,46(*12*)
- .COL 12,0
- .LOC 5,11(*Newton's First Law states:*)
- .PAU(**)#4
- .COL 11,0
- .LOC 8,21(*Every body remains in a state of rest or*)
- .LOC 10,21(*uniform motion in a straight line unless*)
- .LOC 12,21(*it is acted on by an external force.*)
- .SPE PLAY (*AM090110.SPE*) WAIT
- .PAU(**)#4
- .COL 10,0
- .LOC 16,11(*It is essential to the understanding of Newton's Laws that*)
- .LOC 18,11(*you accept that a body will remain at rest unless an*)
- .LOC 20,11(*external force acts upon it.*)
- .PAU(**)#4
- .COL 0,3
- .LOC 24,64(*SPACE >>*)
- .PAU(**)
- @LAB:SCREEN13
- .SNA(*(.INF 39)0*)
- .COL 7,0
- .LOC 2,46(*13*)
- .COL 10,0
- .LOC 6,11(*It is equally essential that you accept that a moving body*)
- .LOC 8,11(*continues to move in a straight line in the same direction*)
- .LOC 10,11(*and with the same speed (uniform motion in a straight line)*)
- .LOC 12,11(*unless acted upon by an external force.*)
- .COL 11,0
- .COL 14,0
- .COL 11,0
- .PAU(**)#4
- .COL 13,0
- .PAU(**)#4
- .COL 10,0
- .PAU(**)#4
- .COL 0,3
- .LOC 24,64(*SPACE >>*)
- .PAU(**)
- @LAB:SCREEN14
- .SNA(*(.INF 39)0*)
- .COL 7,0
- .LOC 2,46(*14*)
- .COL 10,0
- .LOC 6,14(*A body moving in any other way to that described above*)
- .COL 11,0
- .LOC 10,22(*IS BEING ACTED ON BY AN EXTERNAL FORCE*)
- .PAU(**)#4
- .COL 14,0
- .LOC 14,14(*Uniform motion in a straight line means that the*)
- .PAU(**)#4
- .COL 12,0
- .LOC 16,31(*SPEED*)
- .PAU(**)#4
- .LOC 18,31(*DIRECTION*)
- .PAU(**)#4
- .COL 14,0
- .LOC 20,23(*and*)
- .COL 12,0
- .LOC 20,31(*SENSE OF MOVEMENT*)
- .PAU(**)#4
- .COL 11,0
- .LOC 22,51(*ARE ALL CONSTANT*)
- .SPE PLAY (*AM090111.SPE*) WAIT
- .COL 0,3
- .LOC 24,64(*C / R >>*)
- @SIN(*"C"=L:SCREEN15,"c"=L:SCREEN15,"R"=L:-SCREEN10,"r"=L:-SCREEN10*)
- @LAB:SCREEN15
- .SCR 0
- .SNA(*(.INF 39)0*)
- .COL 7,0
- .LOC 2,46(*15*)
- .COL 14,0
- .PAU(**)#4
- .COL 10,0
- .LOC 12,11(*It is when a force is acting on a body that it will change*)
- .LOC 14,12(*its state from rest or from uniform motion in a straight line.*)
- .COL 14,0
- .LOC 12,17(*ONLY*)
- .PAU(**)#4
- .COL 11,0
- .LOC 18,24(*NO FORCE*)
- .COL 14,0
- .LOC 18,39(*<===>*)
- .COL 11,0
- .LOC 18,50(*NO CHANGE*)
- .PAU(**)#4
- .COL 0,3
- .LOC 24,64(*SPACE >>*)
- .PAU(**)
- @LAB:SCREEN16
- .SNA(*(.INF 39)0*)
- .COL 7,0
- .LOC 2,46(*16*)
- .COL 10,0
- .LOC 8,21(*BODY AT*)
- .LOC 10,23(*REST*)
- .COL 14,0
- .LOC 9,31(*--->*)
- .COL 11,0
- .LOC 8,38(*FORCE ACTS*)
- .LOC 10,39(*ON BODY*)
- .COL 14,0
- .LOC 9,51(*--->*)
- .COL 13,0
- .LOC 9,58(*BODY MOVES*)
- .PAU(**)#4
- .COL 10,0
- .LOC 16,17(*BODY MOVING*)
- .COL 14,0
- .LOC 16,31(*--->*)
- .COL 11,0
- .LOC 15,38(*FORCE ACTS*)
- .LOC 17,39(*ON BODY*)
- .COL 14,0
- .LOC 16,51(*--->*)
- .COL 13,0
- .LOC 16,58(*MOTION CHANGES*)
- .PAU(**)#4
- .COL 14,0
- .LOC 18,11(*`Motion changes' mean :*)
- .LOC 18,35(*changes of speed;*)
- .COL 12,0
- .LOC 20,32(*or changes of direction;*)
- .COL 14,0
- .LOC 22,32(*or both.*)
- .PAU(**)#4
- .COL 0,3
- .LOC 24,64(*SPACE >>*)
- .PAU(**)
- @LAB:SCREEN17
- .SCR 2
- .SNA(*(.INF 39)2*)
- .LOC 2,46(*17*)
- .LOC 5,11(*Some examples:*)
- .PAU(**)#4
- .PUT 120,58 PART=6
- .LOC 10,21(*Cue*)
- .PUT 304,54 PART=7
- .LOC 10,35(*Snooker ball*)
- .LOC 11,37(*at rest*)
- .PAU(**)#4
- .LOC 13,21(*Cue imparts force to ball*)
- .PAU(**)#4
- .LOC 13,49(*ยป ball moves*)
- .PAU(**)#2
- .PUT 120,58 PART=6
- .MOV (120,58)-(200,58) STEPS=40
- .PUT 304,54 PART=7
- .MOV (304,54)-(560,54) STEPS=64
- .PAU(**)#4
- .PUT 100,124 PART=8
- .LOC 20,10(*Moving football*)
- .PAU(**)#2
- .PUT 100,124
- .MOV (100,124)-(280,124) STEPS=45
- .LOC 20,34(*Boot imparts a kick*)
- .PUT 324,117 PART=9
- .PUT 280,124 PART=8
- .MOV (280,124)-(60,70) STEPS=55
- .LOC 16,61(*Ball changes*)
- .LOC 17,61(*direction*)
- .USE PROG=PAUSE.USE
- .WIP (4,2)-(23,79) #9
- .LOC 2,46(*17a*)
- .PAU(**)#2
- .PUT 120,135 PART=7
- .LOC 20,12(*Hockey ball*)
- .LOC 21,14(*moving*)
- .PUT 120,135
- .MOV (120,135)-(324,135) STEPS=51
- .PUT 330,118 PART=10
- .LOC 20,37(*Hockey stick imparts*)
- .LOC 21,39(*force to the ball*)
- .PAU(**)#4
- .LOC 16,64(*Ball at*)
- .LOC 17,66(*rest*)
- .PUT 500,187 PART=2 PSET
- @SIN(*"C"=L:SCREEN17Z,"c"=L:SCREEN17Z,"R"=L:-SCREEN15,"r"=L:-SCREEN15*)
- @LAB:SCREEN17Z
- @GOB:SCREEN18 PROG=AM0901B1.CHA
-
-