home *** CD-ROM | disk | FTP | other *** search
/ Pegasus Graphics Universe / Pegasus_Graphics_Universe.iso / p11 / gettysbu / mcgagett.txt < prev   
Text File  |  1992-08-06  |  5KB  |  164 lines
  1. \LOCATE 0,0\WIDTH 320 DOTS CENTERED\HEIGHT 179\OVERLAY 1,0
  2. \ON KEY 14624 JUMP CGAVERSION
  3. \ON KEY 7181 JUMP VGAVERSION
  4. Press <SPACE BAR> for the CGA version.
  5. Press <RETURN> for the VGA version.
  6. If the VGA version scrolls too slowly rerun the program and choose the CGA version instead.
  7. \"
  8. Press <F10> or <ESCAPE> anytime to exit to DOS.
  9. \"
  10. Press <F1> (Function Key #1) for "info."
  11. \"
  12. Programming by Russell D. Hoffman,
  13. The Animated Software Company.
  14. This program is FREEWARE.
  15. Copyright (c) 1990, 1991.
  16. \ON KEY F10 JUMP EXIT
  17. \MOVE 0 TO B\WAIT RETURN 30 "     Press <RETURN> to continue..."
  18. \ON KEY 14624\IF B<>7181 JUMP CGAVERSION\ENDIF
  19. \X VGAVERSION\ON KEY 7181\ON ERROR JUMP VGA_ERROR\SCREEN 0,0,19\CLEAR ON ERROR
  20. \READ CANNON.PIC
  21. \CALL SET_ONKEYS
  22. \CLEAR SCREEN
  23. \X LOOP1
  24. \MOVE 50 TO #33
  25. \CLEAR SCREEN
  26. \X GETTYSBURG
  27. \READ GETTYSBU.FON
  28. \LOC 0,0\WID 320 DOTS CENT\HEIGHT 99
  29. \SCROLL 0,A,33
  30. \CLEAR SPRITES
  31. \BLANK 0,0,320,99
  32. \BLANK 0,100,#33-1,199\BLANK #33+161,100,320,199\BLANK #33,100,#33+161,144
  33. \ROUNDS 1 SPEED 0
  34. \CLEAR SPRITES
  35. \SPRITE L=#33,100 \SPRINT 1 \RUN
  36. \ROUNDS 18 SPEED 44
  37. \CLEAR SPRITES
  38. \SPRITE L=#33,100 A=1 R=0,18
  39. \SPRINT 1 TO 19
  40. \RUN
  41. \CLEAR SPRITES
  42. \ROUNDS 30 SPEED 14
  43. \SPRITE L=#33,100 R=0,4 A=1
  44. \SPRINT 20 TO 23
  45. \SPRITE R=4,39 A=2
  46. \SPRINT 24 TO 32
  47. \RUN
  48. \SUB 3 FROM #33\IF #33<10\MOVE 50 TO #33\ENDIF
  49. \WAIT NOW 422
  50. \SCROLL 25,A,46
  51. FOUR SCORE AND SEVEN YEARS AGO OUR FATHERS BROUGHT FORTH TO THIS CONTINENT
  52. A NEW NATION, CONCEIVED IN LIBERTY AND DEDICATED
  53. TO THE
  54. PROPOSITION THAT ALL MEN ARE CREATED EQUAL.
  55. <
  56. NOW WE ARE ENGAGED IN A GREAT CIVIL WAR, TESTING WHETHER THAT NATION
  57. OR ANY NATION SO CONCEIVED AND SO DEDICATED CAN LONG ENDURE.
  58. WE ARE MET ON A GREAT BATTLE FIELD OF THAT WAR.  WE HAVE COME TO DEDICATE A
  59. PORTION OF THAT FIELD, AS A FINAL RESTINGPLACE FOR THOSE WHO
  60. HERE GAVE THEIR LIVES THAT THAT NATION MIGHT LIVE.  IT IS ALTOGETHER
  61. FITTING AND PROPER THAT WE SHOULD DO THIS.
  62. <
  63. BUT, IN A LARGER SENSE, WE CAN NOT DEDICATE - WE CAN NOT CONSECRATE -
  64. WE CAN NOT HALLOW - THIS GROUND.  THE BRAVE MEN, LIVING AND DEAD, WHO
  65. STRUGGLED
  66. HERE, HAVE CONSECRATED IT, FAR ABOVE OUR POOR POWER TO
  67. ADD OR DETRACT.  THE WORLD WILL LITTLE NOTE, NOR LONG REMEMBER, WHAT WE
  68. SAY HERE, BUT IT CAN NEVER FORGET WHAT THEY DID HERE.  IT IS FOR US
  69. THE LIVING, RATHER, TO BE HERE DEDICATED TO THE GREAT TASK REMAINING
  70. BEFORE US - THAT FROM THESE HONORED DEAD WE TAKE INCREASED DEVOTION TO
  71. THAT CAUSE FOR WHICH THEY GAVE THE LAST FULL MEASURE OF DEVOTION -
  72. THAT WE HERE HIGHLY RESOLVE THAT THESE DEAD SHALL NOT HAVE DIED IN VAIN -
  73. THAT THIS NATION, UNDER GOD, SHALL HAVE A NEW BIRTH 
  74. OF FREEDOM - AND THAT GOVERNMENT OF THE PEOPLE, BY THE PEOPLE, FOR THE PEOPLE,
  75. SHALL NOT PERISH
  76. FROM
  77. THE EARTH.
  78. <
  79. \"
  80. \"
  81. \"
  82. \JUMP GETTYSBURG
  83. \X EXIT\END
  84. \X SET_ONKEYS\+
  85. \ON KEY 8807 JUMP GETTYSBURG\ON KEY 14624 JUMP GETTYSBURG\+
  86. \ON KEY F1 JUMP HELP\ON KEY 8775 JUMP GETTYSBURG\ON KEY F10 JUMP EXIT\+
  87. \RETURN
  88. \X HELP\CLEAR ON KEYS \READ 081119PW.FON
  89. \CLEAR SCREEN
  90. \LOC 0,0 \WID 320 DOT\HEIGHT 199\OVERLAY 0,A,40
  91. President Abraham Lincoln delivered
  92. his famous address November 19th, 1863,
  93. at the dedication of the Gettysburg
  94. Military Cemetery in Gettysburg, PA.
  95. \"
  96. The American Civil War began April 12th,
  97. 1861 when Confederate forces attacked
  98. Fort Sumpter in Charleston, S.C., taking
  99. the fort on April 14th.
  100. \"
  101. The BATTLE OF GETTYSBURG, a decisive
  102. Union victory, took place from
  103. July 1st to July 4th, 1863.
  104. \CALL WAIT
  105. \LOC 0,0
  106. The Civil War was one of the bloodiest
  107. engagements in the history of the U.S..
  108. \"
  109. Because of poor medical support, even
  110. small wounds often proved fatal.  The
  111. general unsanitary conditions caused
  112. numerous outbreaks of disease and took
  113. thousands of additional lives.
  114. \"
  115. Nearly half a million soldiers on both
  116. sides died during the Civil War.  Less
  117. than half of these were from battle
  118. wounds.
  119. \CALL WAIT
  120. \LOC 0,0
  121. General Robert E. Lee surrendered to
  122. Union forces April 9th, 1865, at
  123. Appomattox Court House, Virginia.
  124. \"
  125. On April 14th Abraham Lincoln was shot
  126. while watching a play at Ford's Theater,
  127. Washington, D.C..  He died the next day.
  128. \"
  129. Five copies of the Gettysburg Address
  130. in Lincoln's own handwriting are known
  131. to exist.  The speech was delivered from
  132. the second draft.  The version shown
  133. here was Lincoln's fifth and final copy.
  134. \"
  135. \CALL WAIT
  136. \LOC 0,0
  137. \"
  138. This program uses P11 by Russell Hoffman
  139. and is copyright (c) 1990 and 1991.
  140. \"
  141. P11 is designed to make it easy to write
  142. interactive animated educational
  143. tutorials.
  144. \"
  145. Press "G" or <SPACE BAR> to start this
  146. demo over again.
  147. \"
  148. Press <F1> (Function Key #1) any time
  149. for this message.
  150. \"
  151. Use <F10> or <ESCAPE> to exit to DOS.
  152. \CALL WAIT
  153. \CALL SET_ONKEYS\CLEAR SCREEN
  154. \JUMP GETTYSBURG
  155. \X WAIT
  156. \ROUNDS 22222 SPEED 44
  157. \LOC 46,176
  158. Press any key to continue...
  159. \MARQUE 40,174,232,189,44,77
  160. \RETURN
  161. \X VGA_ERROR
  162. \WAIT RET 99 "CANNOT INITIALIZE VGA SCREEN MODE 19.    PRESS <RET> TO VIEW 4-COLOR VERSION"
  163. \X CGAVERSION\READ CGAGETTY.TXT\END
  164.