home *** CD-ROM | disk | FTP | other *** search
/ Pegasus Graphics Universe / Pegasus_Graphics_Universe.iso / p11 / piston / piston91.txt < prev    next >
Text File  |  1992-05-25  |  2KB  |  82 lines
  1. \ON KEY F10 JUMP MENU
  2. \ON KEY 7181 JUMP NEXT1
  3. \IF #775>=2\JUMP NOTENUF\ELSE\IF #775>2\JUMP NOTENUF2\ENDIF
  4. \ON ERROR JUMP NOTENUF\READ PISTONBL.PIC\ON ERROR\MOVE 1 TO #775\JUMP GO_ON
  5. \X WAY2SML\CALLM FAR2SMALL
  6. \X NOTENUF\ON ERROR JUMP NOTENUF2\READ MEDPISBL.PIC\MOVE 2 TO #775\JUMP GO_ON
  7. \X NOTENUF2\ON ERROR JUMP WAY2SML\READ SMLPSTBL.PIC\MOVE 3 TO #775
  8. \X GO_ON\CLEAR ON ERROR
  9. \ROUNDS #1141/7+3 SPEED 14
  10. \SHOW 220,40,1,24
  11. \X NEXT1\ON KEY 7181
  12. \LOC 0,30\WID 200 DOTS\HEI 199\OVER 1,A,226\SHOW 220,40,2
  13. First, an air-and-fuel mixture (represented by the blue dots) is introduced
  14. into the chamber.  The valve on the right (shown in black)
  15. opens as the piston is drawn down by the revolving
  16. camshaft.  Higher pressure outside the chamber forces the mixture in.
  17. When the piston is at the
  18. bottom of its stroke the
  19. valve is closed.
  20. \WAIT RET #1141/10+3 "     Press <RETURN> to continue..."
  21. \ROUNDS 1 SPEED 112
  22. \SHOW 220,40,2,7
  23. \X NEXT3
  24. \LOC 0,30\WID 200 DOTS\HEI 199\OVER 1,A,225
  25. \"
  26. \"
  27. \"
  28. \"
  29. Next the gas mixture is
  30. compressed to a small
  31. fraction of its normal
  32. atmospheric volume.
  33. \"
  34. \"
  35. \"
  36. \"
  37. \"
  38. \WAIT RET #1141/10+3
  39. \SHOW 220,40,8,11\SHOW W=0,65,320,199 F=12,12
  40. \IF #775=3\SHOW W=0,52,320,199 F=13,13\ELSE\IF #775=2
  41. \SHOW W=0,60,320,199 F=13,13\ELSE
  42. \SHOW W=0,070,320,199 F=13,13\ENDIF
  43. \X NEXT4
  44. \LOC 0,60\WID 200 DOTS\HEI 139\OVER 1,A,218
  45. As the piston reaches
  46. maximum compression a
  47. spark is introduced,
  48. and the resulting
  49. explosion forces the
  50. piston down.  This is
  51. the power stroke of the
  52. engine.
  53. \WAIT RET #1141/1O+3
  54. \CLEAR SHOW
  55. \SHOW 220,40,13,19
  56. \X NEXT5
  57. \LOC 0,60\WID 200 DOTS\HEI 139\OVER 1,A,222
  58. \"
  59. \"
  60. After the power stroke,
  61. the exhaust valve opens so
  62. that the rapidly cooling
  63. gases can be expelled
  64. from the cylinder.
  65. \"
  66. \WAIT RET #1141/10+3
  67. \SHOW 220,40,20,24
  68. \X NEXT7
  69. \LOC 0,81\WID 200 DOTS\HEI 199\OVER 1,A,226
  70. The exhaust valve closes
  71. and the intake valve
  72. opens as the cycle begins
  73. to repeat...
  74. \"
  75. \WAIT RET #1141/10+3
  76. \ROUNDS #1141/7+3 SPEED 84
  77. \LOC 0,183\WID 320 DOTS C\OVE 0,A,230
  78. Press <RETURN> to go to the main menu...
  79. \ON KEY 7181 JUMP MENU
  80. \SHOW 220,40,1,24
  81. \X MENU\CLEAR SHOW\READ #97:/(#4000)/MENU.TXT
  82.