home *** CD-ROM | disk | FTP | other *** search
- // %PARAMETERS = "CH13LIST C:\UT2004"
- //Identifies the package
- //CH13_05LIST.uc
-
- class CH13_05LIST extends Commandlet;
- function int Main(string Args){
- //#1
- local int iLines, iCheck;
- local string szFirstName, szLastName, szTitle;
- local Array<string> rgThought;
-
- szFirstName = " Christopher";
- szLastName = "Cranch";
- iLines = 0; iCheck = 0;
- szTitle = "Gnosis";
-
- //#2
- rgThought[0] = Chr(10) $ szFirstName @ szLastName $ Chr(10)
- @ " " @ szTitle @ Chr(10);
- rgThought[1] =
- " Thought is deeper than all speech," $ Chr(10) $
- " Feeling deeper than all thought" $ Chr(10);
- rgThought[2] =
- " Souls to souls can never teach" $ Chr(10) $
- " What unto themselves was taught." $ Chr(10) $
- " . . . ";
-
- rgThought[3] =
- " Perry Miller, ed. The American Transcendentalists"
- $ Chr(10) $
- " (Baltimore: Johns Hopkins U. Press, 1957), p. 262.";
-
- //-------------------------------------------------------
- log(Chr(10) $ " CH13_05LIST" $ Chr(10));
-
- //#3
- if(szLastName == "Cranch" && iLines == iCheck){
- Log(rgThought[iCheck]);
- }
-
- // #4
- if( szLastName == "Cranch" && iLines++ == iCheck++){
- Log(rgThought[iCheck]);
- }
-
- if( szLastName == "Cranch" && iLines++ == iCheck++){
- Log(rgThought[iCheck]);
- }
-
- if( szLastName == "Cranch" && iLines++ == iCheck++){
- Log(rgThought[iCheck]);;
- }
-
-
- return 0;
- }
-