home *** CD-ROM | disk | FTP | other *** search
Turbo Pascal Chain module | 1994-02-04 | 38.4 KB | 78 lines |
- The Sun
- The Moon
- The Planets
- Eclipses
- Astrophotography Exposures
- !Mean Sidereal Time and Julian Day
- Precession of Coordinates
- Phases of the Moon
- Equinoxes and Solstices
- Galilean Satellites of Jupiter
- Perpetual Calendar
- Polaris
- DOS Shell
- DATA AREA FOR BUILDEXE FOLLOWS
- GBIGTURBO - Large Code Model. Copyright (c) 1985 by TurboPower Software.
- !All Rights Reserved. Version 1.02
- module:
- module: 0
- 1Out of BIGTURBO stack space or no modules loaded.
- 3Attempting to call routine in uninitialized module.
- 3Invalid FarIncoming pointer or corrupt module code.
- 4Program error - undefined error code in FarOutgoing.
- Error while calling module:
- , procedure:
- !@(#) asub.pas 1.40 86/09/14
- - /Error: Non-numeric input or number out of range
- Error: Month must be 1 to 12
- Error: Day must be 1 to 31
- Error: Year can not be 0
- Error: Hrs must be 0 to 23
- Error: Min must be 0 to 59
- Error: Sec must be 0 to 59
- Error: Ra Hrs must be 0 to 23
- Error: Ra Min must be 0 to 59
- Error: Ra Sec must be 0 to 59
- Error: Dec Deg must be -90 to 90
- Error: Dec Min must be 0 to 59
- Error: Dec Sec must be 0 to 59
- %Error: Planet must be 1 to 9 except 3
- *Error: Object must be a planet or the moon
- 0Error: Objective diameter must be greater than 0
- *Error: Focal length must be greater than 0
- (Error: Film speed must be greater than 0
- -Error: Object diameter must be greater than 0
- $Error: Phase must be between 0 and 1
- )Error: Filter factor must be 1 or greater
- &Error: Range must be (M)onth or (Y)ear
- *Error: Year out of range. Sorry, try again
- 'Error: Illegal arguement for Arc Cosine
- %Error: Illegal arguement for Arc Sine
- +Warning: Possible inaccuracy in calculation
- Error: Year must not be 0
- 5Error: Object must be a planet, except Earth or Pluto
- Error: Please respond Y or N
- 3333t
- WAIT
- WAIT
- READY
- READY
-
- 5ACE: Memory allocation failure. Reboot and try again.
- !@(#) perturb.pas 1.00 85/02/11
- |/.Ui
- wAz/c/
- rxADj
- ;qtlf
- mur+)
- QdwS:X
- wcrXZ
- S_w|`
- ]xc>
- ]zYI+
- \v=^H
- \v=^H
- XyOT6
- SETUPJUMPTABLE FOLLOWS
- FARCALLHANDLER FOLLOWS
-