home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Shareware Gold 1
/
The_Golden_ROM_Series_-_Shareware_Gold_Volume_1_Number_11_-_SK_89-301_-_1989.iso
/
BBS
/
LIB001.ARC
/
SUBMOD.CHN
(
.txt
)
< prev
Wrap
Turbo Pascal Chain module
|
1987-02-25
|
40KB
|
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.50 87/02/25
- /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/
qxADj
Aptlf
lur+)
WcwS:X
}brXZ
Y^w|`
\xc>
\zYI+
[v=^H
[v=^H
WyOT6
SETUPJUMPTABLE FOLLOWS
FARCALLHANDLER FOLLOWS