home *** CD-ROM | disk | FTP | other *** search
/ ftp.barnyard.co.uk / 2015.02.ftp.barnyard.co.uk.tar / ftp.barnyard.co.uk / cpm / walnut-creek-CDROM / ENTERPRS / CPM / UTILS / F / PASCAL.ARC / HELP.INC < prev    next >
Text File  |  1992-08-14  |  9KB  |  128 lines
  1. Procedure MainMenuHelp;
  2. { Write help information on the screen }
  3.   Begin { Procedure MainMenuHelp }
  4.     Window(1,1,80,25); { Set to full screen }
  5.     Row := 1; { For procedure memorywrite }
  6.     Col := 1;
  7.     ClrScr;
  8.     ConOutPtr := Ofs(MemoryWrite); { Activate screen output driver }
  9.     Write(#13); { This writes a blank line }
  10.     Write('Hbase is an on-line version of the Herschel catalog of deep sky objects.',#13);
  11.     Write('Users are encouraged to distribute the program freely on a non-profit basis',#13);
  12.     Write('only. Please direct suggestions or questions to the author at this address:',#13);
  13.     Write(#13);
  14.     Write('                           Gary D. Williams',#13);
  15.     Write('                           Rt. 1, Box 138C',#13);
  16.     Write('                           Morgan, Utah 84050',#13);
  17.     Write(#13);
  18.     Write('Special thanks is in order to Dennis Donnelly, who painstakingly keyed the',#13);
  19.     Write('entire data file, and made it available for this project. Thanks also to',#13);
  20.     Write('Gary Liptrot, who helped with adding the constellation information.',#13);
  21.     Write(#13,#13);
  22.     Write('  As far as how to use the program is concerned, hands-on experience is the',#13);
  23.     Write('only real way to become proficient. The basic idea is this: When the main menu',#13);
  24.     Write('first comes up, the top line tells you that there are currently 2510 objects',#13);
  25.     Write('selected. Your task is to narrow down this list, selecting only those objects',#13);
  26.     Write('that match your current season, location, or interests.',#13);
  27.     Write(#13,#13,#13,#13,#13,'                     Press the space bar to continue');
  28.     WaitForSpace;
  29.     ClrScr;
  30.     Row := 1;
  31.     Col := 1;
  32.     Write(#13,'  You do this through the 7 indented selection options. These menus will allow',#13);
  33.     Write('you to select out only those objects that match what you are after. (you can',#13);
  34.     Write('select particular constellations, ranges of R.A. etc.) You can select from',#13);
  35.     Write('any or all of the 7 select options, and you can return to an option as often',#13);
  36.     Write('as you like to change what you have already entered. The whole idea here is to',#13);
  37.     Write('work up a sub-file containing a manageable number of objects. You can always',#13);
  38.     Write('type "E" to examine the status of your selections so far. When you are done',#13);
  39.     Write('with all your selections, you must sort your data. The sort is where all of',#13);
  40.     Write('the objects that match your selections are pulled from the main catalog.',#13);
  41.     Write('When the sort is complete, you are returned to the main menu, where you can',#13);
  42.     Write('view, print, or precess your new list. You can also select the new list down',#13);
  43.     Write('further, re-selecting and re-sorting as often as you like, narrowing down',#13);
  44.     Write('your choices as you go. When you finally type I to initialize, you will be once',#13);
  45.     Write('more back to an empty file with the select values set to select all objects.',#13);
  46.  
  47.     Write(#13,#13,#13,'                     Press the space bar to continue');
  48.     WaitForSpace;
  49.     ClrScr;
  50.     Row := 1;
  51.     Col := 1;
  52.     Write('  The program assumes that with each successive select-and-sort, you will want',#13);
  53.     Write('to narrow down further what you have already selected. On occasion though, you',#13);
  54.     Write('will want to expand on your current selections, adding to what you already',#13);
  55.     Write('have. To expand, rather than narrow your selections, you can toggle the',#13);
  56.     Write('expansion on, which will allow you to do this. Expansion will stay on until',#13);
  57.     Write('you toggle it off or do an initialize.',#13);
  58.     Write(#13,'  When you type "M" to initiate the merging process, your current selection',#13);
  59.     Write('values will be set asside to a save area, and subsequent selections will be',#13);
  60.     Write('considered as a seperate "selection set", whose values will be "merged" with',#13);
  61.     Write('those saved from your initial selections when you began the merging process,',#13);
  62.     Write('or with the values of some previously merged selection set. When you finally',#13);
  63.     Write('sort your selections, the program will accept as valid input any object that',#13);
  64.     Write('matches any merged selection set. ',#13);
  65.     Write('  Expansion will be set on when you first begin to merge,since the point with',#13);
  66.     Write('merging is to allow the input of objects from seperate selection sets which',#13);
  67.     Write('could not have been combined in a single set of input values (as with two',#13);
  68.     Write('distinct ranges of R.A.). You may always toggle expansion off if for some',#13);
  69.     Write('reason you want to "merge" a second selection set from pre-selected data.',#13);
  70.     Write('  There is a maximum of ',NumberOfSelectionSets,' selection sets provided.',#13);
  71.     Write('  While you are expanding your selections, a highlighted note on the main menu',#13);
  72.     Write('will indicate the current number of saved selection sets.',#13);
  73.     Write(#13,#13,'                     Press the space bar to continue');
  74.     WaitForSpace;
  75.     ClrScr;
  76.     Row := 1;
  77.     Col := 1;
  78.     Write(#13,'  Here is a sample run:',#13);
  79.     Write('  You are about to go out and do some telescopic observing, so you will need a',#13);
  80.     Write('list of objects to try for. You begin by selecting a range of R.A. that matches',#13);
  81.     Write('the current season. You may want to concentrate on star clusters tonight, so',#13);
  82.     Write('you select object types for open clusters, globulars, and clusters/nebulae.',#13);
  83.     Write('You then sort these selections by constellation, and view the result on the',#13);
  84.     Write('screen. There are more clusters than you could begin to see in a night, so you',#13);
  85.     Write('select further, asking for only a particular couple of constellations. After',#13);
  86.     Write('re-sorting, you precess the listing to the current epoch, and print it. This',#13);
  87.     Write('whole process takes less than a minute, and you''re set with a customized,',#13);
  88.     Write('disposable observing list.',#13);
  89.     Write(#13);
  90.     Write('Misc. hints for using Hbase follow.',#13);
  91.     Write(#13);
  92.     Write('All possible keystrokes for the menus are highlighted. If you are not seeing',#13);
  93.     Write('this, adjust your brightness or contrast!',#13);
  94.     Write(#13);
  95.     Write('The epoch of the catalog is 1975.0',#13);
  96.     Write(#13,#13,#13,#13,#13,'                     Press the space bar to continue');
  97.     WaitForSpace;
  98.     ClrScr;
  99.     Row := 1;
  100.     Col := 1;
  101.     Write('When you select the View option, the following keys apply:',#13);
  102.     Write('  F1 : Display this viewer help information.',#13);
  103.     Write('  Page Up / Page Down.',#13);
  104.     Write('  Home : to top of list.',#13);
  105.     Write('  End  : to end of list.',#13);
  106.     Write('  "S"  : seek record of a given sequence number.',#13);
  107.     Write('  "E"  : skip halfway from current position to end of file.',#13);
  108.     Write('  "B"  : skip halfway from current position to beginning of file.',#13);
  109.     Write('  "Q"  : quit the viewer and return to the main menu.',#13);
  110.     Write(#13);
  111.     Write('You may want to sort and print the entire catalog at least once. Be warned that',#13);
  112.     Write('it will go for about 45 pages.',#13);
  113.     Write(#13);
  114.     Write('Objects listed at magnitude 0.0 have unknown magnitudes. Likewise, any other',#13);
  115.     Write('questionable values of 0 are probably unknown.',#13);
  116.     Write(#13);
  117.     Write('When you enter the constellation selection menu when all constellations are',#13);
  118.     Write('selected (as immediately after an initialize), the program will assume that you',#13);
  119.     Write('intend to select one or more constellations so it will delete all constellations',#13);
  120.     Write('from consideration for you. If you select nothing, then the program will add',#13);
  121.     Write('them all back for you. Whenever one or more, but not all constellations are',#13);
  122.     Write('selected, the menu will reflect the current status, and your selections will',#13);
  123.     Write('remain unchanged.',#13);
  124.     Write(#13,'                 Press the space bar to return to the main menu',#13);
  125.     WaitForSpace;
  126.     ConOutPtr := AuxOutPtr; { De-activate screen output driver }
  127.   End; { Procedure MainMenuHelp }
  128.