home *** CD-ROM | disk | FTP | other *** search
/ UnrealScript Game Programming All in One / UnrealScriptGameProgrammingAllInOne.iso / UGPAIOListings / UGPAIOListingsCh13 / CH13LIST / Classes / CH13_01LIST.uc next >
Encoding:
Text File  |  2006-02-06  |  1.3 KB  |  52 lines
  1. // %PARAMETERS = "CH13LIST C:\UT2004"
  2. //Identifies the package
  3. //CH13_01LIST.uc
  4.  
  5. class CH13_01LIST extends Commandlet;
  6.  
  7. function int Main(string Args){
  8.   local string szLines;
  9.  
  10.   log(Chr(10) $ "   CH13_01LIST" $ Chr(10));
  11.   //Start the flow
  12.  
  13.   //# 1 Start
  14.   goto AUTHOR;
  15.  
  16.   TITLE:
  17.     szLines @= "  The Goal" $ Chr(10);
  18.   goto STANZA1;
  19.  
  20.   STANZA1:
  21.     szLines @= "I sprang on life's free course, I tasked myself,"$ Chr(10);
  22.     szLines @= "  And questioned what and how I meant to be"$ Chr(10);
  23.     szLines @= "And leaving far behind me power and pelf,"$ Chr(10);
  24.     szLines @= "  I fixed a goal-nor farther could I see."$ Chr(10);
  25.   goto NOTE1;
  26.  
  27.   STANZA2:
  28.     szLines @= "For this I toiled, for this I ran and bled,"$ Chr(10);
  29.     szLines @= "   And proudly thought up my laurels there."$ Chr(10);
  30.     szLines @= "      . . ."$ Chr(10);
  31.   goto SOURCE;
  32.  
  33.    // # 2
  34.   AUTHOR:
  35.     szLines @= "Ellen Sturgis Hooper (1812-1848)"$ Chr(10);
  36.   goto TITLE;
  37.  
  38.   SOURCE:
  39.     szLines @= "Perry Miller, ed. The American Transcendentalists"$ Chr(10);
  40.     szLines @= "(Baltimore: Johns Hopkins U. Press, 1957), p. 274.";
  41.   goto END;
  42.  
  43.   NOTE1:
  44.     szLines @= "[Vocabulary 'Pelf': Wealth or riches dishonestly acquired.]"$ Chr(10);
  45.   goto STANZA2;
  46.  
  47.   END:
  48.   Log(szLines);
  49.   return 0;
  50. }
  51.  
  52.