/ Oakland CPM Archive / oakcpm.iso / cpm / basic / math.ark / TIME.FIN

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 50 65 72 66 65 63 74 20 | 46 6f 72 6d 61 74 20 6f |Perfect |Format o|
|00000010| 75 74 70 75 74 20 66 6f | 72 20 64 65 76 69 63 65 |utput fo|r device|
|00000020| 3a 20 44 69 61 62 6c 6f | 50 53 0d 0a 1a 96 09 f0 |: Diablo|PS......|
|00000030| 96 03 50 96 00 01 88 0e | e2 31 30 20 52 45 4d 20 |..P.....|.10 REM |
|00000040| 54 48 49 53 20 49 53 20 | 50 52 4f 47 52 41 4d 20 |THIS IS |PROGRAM |
|00000050| 22 54 49 4d 45 22 20 4c | 4f 43 41 4c 20 53 49 44 |"TIME" L|OCAL SID|
|00000060| 45 52 49 41 4c 20 54 49 | 4d 45 20 49 53 20 43 41 |ERIAL TI|ME IS CA|
|00000070| 4c 43 55 4c 41 54 45 44 | 0d 0a 96 00 01 88 0e e2 |LCULATED|........|
|00000080| 88 04 f6 32 30 20 52 45 | 4d 20 47 49 56 45 4e 20 |...20 RE|M GIVEN |
|00000090| 54 48 45 20 44 41 54 45 | 2c 20 48 4f 55 52 2c 20 |THE DATE|, HOUR, |
|000000a0| 4d 49 4e 49 54 20 41 4e | 44 20 53 45 43 4f 4e 44 |MINIT AN|D SECOND|
|000000b0| 20 41 4e 44 20 54 48 45 | 20 4f 42 53 45 52 56 45 | AND THE| OBSERVE|
|000000c0| 52 27 53 20 4c 4f 4e 47 | 49 54 55 44 45 0d 0a 96 |R'S LONG|ITUDE...|
|000000d0| 00 01 88 0e e2 88 04 f6 | 33 30 20 52 45 4d 20 50 |........|30 REM P|
|000000e0| 52 4f 47 52 41 4d 20 49 | 53 20 42 59 20 4d 49 4b |ROGRAM I|S BY MIK|
|000000f0| 45 20 46 49 4e 45 52 54 | 59 20 4d 41 4b 49 4e 47 |E FINERT|Y MAKING|
|00000100| 20 55 53 45 20 4f 46 20 | 50 52 4f 47 52 41 4d 53 | USE OF |PROGRAMS|
|00000110| 20 49 4e 20 53 4b 59 20 | 41 4e 44 20 54 45 4c 45 | IN SKY |AND TELE|
|00000120| 53 43 4f 50 45 27 53 0d | 0a 96 00 01 88 0e e2 88 |SCOPE'S.|........|
|00000130| 04 f6 34 30 20 52 45 4d | 20 43 4f 4d 50 55 54 45 |..40 REM| COMPUTE|
|00000140| 52 20 53 45 43 54 49 4f | 4e 2e 0d 0a 96 00 01 88 |R SECTIO|N.......|
|00000150| 0e e2 88 04 f6 35 30 20 | 44 45 46 44 42 4c 20 41 |.....50 |DEFDBL A|
|00000160| 2d 5a 0d 0a 96 00 01 88 | 0e e2 88 04 f6 36 30 20 |-Z......|.....60 |
|00000170| 50 52 49 4e 54 20 22 50 | 4c 45 41 53 45 20 49 4e |PRINT "P|LEASE IN|
|00000180| 50 55 54 20 44 41 54 41 | 3a 20 22 0d 0a 96 00 01 |PUT DATA|: ".....|
|00000190| 88 0e e2 88 04 f6 37 30 | 20 49 4e 50 55 54 20 22 |......70| INPUT "|
|000001a0| 4c 4f 4e 47 49 54 55 44 | 45 20 3d 20 22 3b 4c 32 |LONGITUD|E = ";L2|
|000001b0| 0d 0a 96 00 01 88 0e e2 | 88 04 f6 38 30 20 4c 50 |........|...80 LP|
|000001c0| 52 49 4e 54 20 22 4c 4f | 4e 47 49 54 55 44 45 20 |RINT "LO|NGITUDE |
|000001d0| 3d 20 22 3b 4c 32 3b 22 | 20 44 45 47 52 45 45 53 |= ";L2;"| DEGREES|
|000001e0| 22 0d 0a 96 00 01 88 0e | e2 88 04 f6 39 30 20 4c |".......|....90 L|
|000001f0| 32 20 3d 20 4c 32 2f 31 | 35 0d 0a 96 00 01 88 0e |2 = L2/1|5.......|
|00000200| e2 88 04 f6 31 30 30 20 | 52 45 4d 20 4c 32 20 49 |....100 |REM L2 I|
|00000210| 53 20 4e 4f 57 20 4c 4f | 4e 47 49 54 55 44 45 20 |S NOW LO|NGITUDE |
|00000220| 49 4e 20 44 45 43 49 4d | 41 4c 20 48 4f 55 52 53 |IN DECIM|AL HOURS|
|00000230| 0d 0a 96 00 01 88 0e e2 | 88 04 f6 31 31 30 20 49 |........|...110 I|
|00000240| 4e 50 55 54 20 22 59 45 | 41 52 20 3d 22 3b 59 0d |NPUT "YE|AR =";Y.|
|00000250| 0a 96 00 01 88 0e e2 88 | 04 f6 31 32 30 20 4c 50 |........|..120 LP|
|00000260| 52 49 4e 54 20 22 59 45 | 41 52 20 3d 20 22 3b 59 |RINT "YE|AR = ";Y|
|00000270| 0d 0a 96 00 01 88 0e e2 | 88 04 f6 31 33 30 20 49 |........|...130 I|
|00000280| 4e 50 55 54 20 22 4d 4f | 4e 54 48 20 3d 20 22 3b |NPUT "MO|NTH = ";|
|00000290| 4d 0d 0a 96 00 01 88 0e | e2 88 04 f6 31 34 30 20 |M.......|....140 |
|000002a0| 4c 50 52 49 4e 54 20 22 | 4d 4f 4e 54 48 20 3d 20 |LPRINT "|MONTH = |
|000002b0| 22 3b 4d 0d 0a 96 00 01 | 88 0e e2 88 04 f6 31 35 |";M.....|......15|
|000002c0| 30 20 49 4e 50 55 54 20 | 22 44 41 59 20 3d 20 22 |0 INPUT |"DAY = "|
|000002d0| 3b 44 32 0d 0a 96 00 01 | 88 0e e2 88 04 f6 31 36 |;D2.....|......16|
|000002e0| 30 20 4c 50 52 49 4e 54 | 20 22 44 41 59 20 3d 22 |0 LPRINT| "DAY ="|
|000002f0| 3b 44 32 0d 0a 96 00 01 | 88 0e e2 88 04 f6 31 37 |;D2.....|......17|
|00000300| 30 20 52 45 4d 20 54 48 | 49 53 20 49 53 20 55 4e |0 REM TH|IS IS UN|
|00000310| 49 56 45 52 53 41 4c 20 | 54 49 4d 45 0d 0a 96 00 |IVERSAL |TIME....|
|00000320| 01 88 0e e2 88 04 f6 31 | 38 30 20 49 4e 50 55 54 |.......1|80 INPUT|
|00000330| 20 22 48 4f 55 52 53 20 | 3d 22 3b 41 31 0d 0a 96 | "HOURS |=";A1...|
|00000340| 00 01 88 0e e2 88 04 f6 | 31 39 30 20 4c 50 52 49 |........|190 LPRI|
|00000350| 4e 54 20 22 48 4f 55 52 | 53 20 3d 22 3b 41 31 0d |NT "HOUR|S =";A1.|
|00000360| 0a 96 00 01 88 0e e2 88 | 04 f6 32 30 30 20 49 4e |........|..200 IN|
|00000370| 50 55 54 20 22 4d 49 4e | 55 54 45 53 20 3d 22 3b |PUT "MIN|UTES =";|
|00000380| 41 32 0d 0a 96 00 01 88 | 0e e2 88 04 f6 32 31 30 |A2......|.....210|
|00000390| 20 4c 50 52 49 4e 54 20 | 22 4d 49 4e 55 54 45 53 | LPRINT |"MINUTES|
|000003a0| 20 3d 22 3b 41 32 0d 0a | 96 00 01 88 0e e2 88 04 | =";A2..|........|
|000003b0| f6 32 32 30 20 49 4e 50 | 55 54 20 22 53 45 43 4f |.220 INP|UT "SECO|
|000003c0| 4e 44 53 20 3d 22 3b 41 | 33 0d 0a 96 00 01 88 0e |NDS =";A|3.......|
|000003d0| e2 88 04 f6 32 33 30 20 | 4c 50 52 49 4e 54 20 22 |....230 |LPRINT "|
|000003e0| 53 45 43 4f 4e 44 53 20 | 3d 22 3b 41 33 0d 0a 96 |SECONDS |=";A3...|
|000003f0| 00 01 88 0e e2 88 04 f6 | 32 34 30 20 46 31 20 3d |........|240 F1 =|
|00000400| 20 28 41 33 2b 36 30 2a | 41 32 2b 33 36 30 30 2a | (A3+60*|A2+3600*|
|00000410| 41 31 29 2f 38 36 34 30 | 30 21 2d 2e 35 0d 0a 96 |A1)/8640|0!-.5...|
|00000420| 00 01 88 0e e2 88 04 f6 | 32 35 30 20 4a 20 3d 20 |........|250 J = |
|00000430| 2d 20 49 4e 54 28 37 2a | 28 49 4e 54 28 28 4d 2b |- INT(7*|(INT((M+|
|00000440| 39 29 2f 31 32 29 2b 59 | 29 2f 34 29 0d 0a 96 00 |9)/12)+Y|)/4)....|
|00000450| 01 88 0e e2 88 04 f6 32 | 36 30 20 53 20 3d 20 53 |.......2|60 S = S|
|00000460| 47 4e 28 4d 2d 39 29 0d | 0a 96 00 01 88 0e e2 88 |GN(M-9).|........|
|00000470| 04 f6 32 37 30 20 41 34 | 20 3d 20 41 42 53 28 4d |..270 A4| = ABS(M|
|00000480| 2d 39 29 0d 0a 96 00 01 | 88 0e e2 88 04 f6 32 38 |-9).....|......28|
|00000490| 30 20 4a 31 20 3d 20 49 | 4e 54 28 59 2b 53 2a 49 |0 J1 = I|NT(Y+S*I|
|000004a0| 4e 54 28 41 34 2f 37 29 | 29 0d 0a 96 00 01 88 0e |NT(A4/7)|).......|
|000004b0| e2 88 04 f6 32 39 30 20 | 4a 31 20 3d 20 2d 20 49 |....290 |J1 = - I|
|000004c0| 4e 54 28 28 49 4e 54 28 | 4a 31 2f 31 30 30 29 2b |NT((INT(|J1/100)+|
|000004d0| 31 29 2a 33 2f 34 29 0d | 0a 96 00 01 88 0e e2 88 |1)*3/4).|........|
|000004e0| 04 f6 33 30 30 20 4a 20 | 3d 20 4a 20 2b 20 49 4e |..300 J |= J + IN|
|000004f0| 54 28 32 37 35 2a 4d 2f | 39 29 2b 44 32 2b 4a 31 |T(275*M/|9)+D2+J1|
|00000500| 0d 0a 96 00 01 88 0e e2 | 88 04 f6 33 31 30 20 4a |........|...310 J|
|00000510| 20 3d 20 4a 2b 31 2e 37 | 32 31 30 33 45 2b 30 36 | = J+1.7|2103E+06|
|00000520| 2b 33 36 37 2a 59 0d 0a | 96 00 01 88 0e e2 88 04 |+367*Y..|........|
|00000530| f6 33 32 30 20 4a 20 3d | 20 4a 20 2d 20 32 0d 0a |.320 J =| J - 2..|
|00000540| 96 00 01 88 0e e2 88 04 | f6 33 33 30 20 50 52 49 |........|.330 PRI|
|00000550| 4e 54 20 22 4a 55 4c 49 | 41 4e 20 44 41 59 3a 20 |NT "JULI|AN DAY: |
|00000560| 22 3b 4a 3b 22 20 46 52 | 41 43 54 49 4f 4e 20 4f |";J;" FR|ACTION O|
|00000570| 46 20 41 20 44 41 59 3a | 22 3b 46 31 0d 0a 96 00 |F A DAY:|";F1....|
|00000580| 01 88 0e e2 88 04 f6 33 | 34 30 20 4c 50 52 49 4e |.......3|40 LPRIN|
|00000590| 54 20 22 4a 55 4c 49 41 | 4e 20 44 41 59 3a 20 22 |T "JULIA|N DAY: "|
|000005a0| 3b 4a 3b 22 20 46 52 41 | 43 54 49 4f 4e 20 4f 46 |;J;" FRA|CTION OF|
|000005b0| 20 41 20 44 41 59 3a 22 | 3b 46 31 0d 0a 96 00 01 | A DAY:"|;F1.....|
|000005c0| 88 0e e2 88 04 f6 33 35 | 30 20 52 45 4d 20 43 41 |......35|0 REM CA|
|000005d0| 4c 43 55 4c 41 54 45 20 | 47 52 45 45 4e 57 49 43 |LCULATE |GREENWIC|
|000005e0| 48 20 53 49 44 45 52 49 | 41 4c 20 54 49 4d 45 20 |H SIDERI|AL TIME |
|000005f0| 46 49 52 53 54 0d 0a 96 | 00 01 88 0e e2 88 04 f6 |FIRST...|........|
|00000600| 33 36 30 20 44 20 3d 20 | 4a 20 2d 32 2e 34 35 31 |360 D = |J -2.451|
|00000610| 35 35 45 2b 30 36 0d 0a | 96 00 01 88 0e e2 88 04 |55E+06..|........|
|00000620| f6 33 37 30 20 44 20 3d | 20 44 20 2d 20 35 0d 0a |.370 D =| D - 5..|
|00000630| 96 00 01 88 0e e2 88 04 | f6 33 38 30 20 54 20 3d |........|.380 T =|
|00000640| 20 44 2f 33 36 35 32 35 | 21 0d 0a 96 00 01 88 0e | D/36525|!.......|
|00000650| e2 88 04 f6 33 39 30 20 | 54 31 20 3d 20 49 4e 54 |....390 |T1 = INT|
|00000660| 28 54 29 0d 0a 96 00 01 | 88 0e e2 88 04 f6 34 30 |(T).....|......40|
|00000670| 30 20 4a 30 20 3d 20 54 | 31 2a 33 36 35 32 35 21 |0 J0 = T|1*36525!|
|00000680| 2b 32 2e 34 35 31 35 35 | 45 2b 30 36 0d 0a 96 00 |+2.45155|E+06....|
|00000690| 01 88 0e e2 88 04 f6 34 | 31 30 20 4a 30 20 3d 20 |.......4|10 J0 = |
|000006a0| 4a 30 20 2d 35 0d 0a 96 | 00 01 88 0e e2 88 04 f6 |J0 -5...|........|
|000006b0| 34 32 30 20 54 32 20 3d | 28 4a 20 2d 20 4a 30 20 |420 T2 =|(J - J0 |
|000006c0| 2b 2e 35 29 2f 33 36 35 | 32 35 21 0d 0a 96 00 01 |+.5)/365|25!.....|
|000006d0| 88 0e e2 88 04 f6 34 33 | 30 20 53 30 20 3d 20 32 |......43|0 S0 = 2|
|000006e0| 34 31 31 30 2e 35 34 38 | 34 31 23 2b 31 38 34 2e |4110.548|41#+184.|
|000006f0| 38 31 32 38 36 36 23 2a | 54 31 0d 0a 96 00 01 88 |812866#*|T1......|
|00000700| 0e e2 88 04 f6 34 34 30 | 20 53 30 20 3d 20 53 30 |.....440| S0 = S0|
|00000710| 20 2b 20 38 36 34 30 31 | 38 34 2e 38 31 32 38 36 | + 86401|84.81286|
|00000720| 30 30 30 31 23 2a 54 32 | 0d 0a 96 00 01 88 0e e2 |0001#*T2|........|
|00000730| 88 04 f6 34 35 30 20 53 | 30 20 3d 20 53 30 20 2b |...450 S|0 = S0 +|
|00000740| 20 28 2e 30 39 33 31 30 | 34 2a 54 2a 54 29 0d 0a | (.09310|4*T*T)..|
|00000750| 96 00 01 88 0e e2 88 04 | f6 34 36 30 20 53 30 20 |........|.460 S0 |
|00000760| 3d 20 53 30 20 2d 28 2e | 30 30 30 30 30 36 32 2a |= S0 -(.|0000062*|
|00000770| 54 2a 54 2a 54 29 0d 0a | 96 00 01 88 0e e2 88 04 |T*T*T)..|........|
|00000780| f6 34 37 30 20 53 30 20 | 3d 20 53 30 2f 38 36 34 |.470 S0 |= S0/864|
|00000790| 30 30 21 0d 0a 96 00 01 | 88 0e e2 88 04 f6 34 38 |00!.....|......48|
|000007a0| 30 20 53 31 20 3d 20 49 | 4e 54 28 53 30 29 0d 0a |0 S1 = I|NT(S0)..|
|000007b0| 96 00 01 88 0e e2 88 04 | f6 34 39 30 20 53 30 20 |........|.490 S0 |
|000007c0| 3d 20 53 30 20 2d 20 53 | 31 0d 0a 96 01 80 96 00 |= S0 - S|1.......|
|000007d0| 01 88 0e e2 d8 88 1b e4 | 2d 20 31 20 2d 0d 0a 96 |........|- 1 -...|
|000007e0| 00 01 88 0e e2 f8 0d 0a | 0c 96 09 f0 96 03 50 96 |........|......P.|
|000007f0| 00 01 88 0e e2 88 04 f6 | 35 30 30 20 53 30 20 3d |........|500 S0 =|
|00000800| 20 32 34 2a 28 53 30 2b | 28 46 31 2b 2e 35 29 2a | 24*(S0+|(F1+.5)*|
|00000810| 31 2e 30 30 32 37 33 37 | 39 30 39 23 29 0d 0a 96 |1.002737|909#)...|
|00000820| 00 01 88 0e e2 88 04 f6 | 35 31 30 20 49 46 20 53 |........|510 IF S|
|00000830| 30 3c 30 20 54 48 45 4e | 20 53 30 20 3d 20 53 30 |0<0 THEN| S0 = S0|
|00000840| 2b 32 34 0d 0a 96 00 01 | 88 0e e2 88 04 f6 35 32 |+24.....|......52|
|00000850| 30 20 49 46 20 53 30 3e | 32 34 20 54 48 45 4e 20 |0 IF S0>|24 THEN |
|00000860| 53 30 20 3d 20 53 30 20 | 2d 20 32 34 0d 0a 96 00 |S0 = S0 |- 24....|
|00000870| 01 88 0e e2 88 04 f6 35 | 33 30 20 4c 53 54 20 3d |.......5|30 LST =|
|00000880| 20 53 30 20 2d 20 4c 32 | 0d 0a 96 00 01 88 0e e2 | S0 - L2|........|
|00000890| 88 04 f6 35 34 30 20 4c | 53 54 44 45 47 20 3d 20 |...540 L|STDEG = |
|000008a0| 4c 53 54 2a 31 35 0d 0a | 96 00 01 88 0e e2 88 04 |LST*15..|........|
|000008b0| f6 35 35 30 20 50 52 49 | 4e 54 20 22 4c 4f 43 41 |.550 PRI|NT "LOCA|
|000008c0| 4c 20 53 49 44 45 52 49 | 41 4c 20 41 4e 47 4c 45 |L SIDERI|AL ANGLE|
|000008d0| 20 28 41 52 49 45 53 29 | 20 49 4e 20 44 45 43 49 | (ARIES)| IN DECI|
|000008e0| 4d 41 4c 20 44 45 47 52 | 45 45 53 3a 20 22 3b 4c |MAL DEGR|EES: ";L|
|000008f0| 53 54 44 45 47 0d 0a 96 | 00 01 88 0e e2 88 04 f6 |STDEG...|........|
|00000900| 35 36 30 20 48 20 3d 20 | 49 4e 54 28 4c 53 54 29 |560 H = |INT(LST)|
|00000910| 0d 0a 96 00 01 88 0e e2 | 88 04 f6 35 37 30 20 4d |........|...570 M|
|00000920| 31 20 3d 20 36 30 20 2a | 20 28 4c 53 54 20 2d 20 |1 = 60 *| (LST - |
|00000930| 48 29 0d 0a 96 00 01 88 | 0e e2 88 04 f6 35 38 30 |H)......|.....580|
|00000940| 20 4d 20 3d 20 49 4e 54 | 28 4d 31 29 0d 0a 96 00 | M = INT|(M1)....|
|00000950| 01 88 0e e2 88 04 f6 35 | 39 30 20 53 20 3d 20 36 |.......5|90 S = 6|
|00000960| 30 20 2a 20 28 4d 31 20 | 2d 20 4d 29 0d 0a 96 00 |0 * (M1 |- M)....|
|00000970| 01 88 0e e2 88 04 f6 36 | 30 30 20 50 52 49 4e 54 |.......6|00 PRINT|
|00000980| 20 22 4c 4f 43 41 4c 20 | 53 49 44 45 52 49 41 4c | "LOCAL |SIDERIAL|
|00000990| 20 54 49 4d 45 3a 22 3b | 48 3b 22 48 52 53 22 3b | TIME:";|H;"HRS";|
|000009a0| 4d 3b 22 4d 49 4e 53 22 | 3b 53 3b 22 53 45 43 53 |M;"MINS"|;S;"SECS|
|000009b0| 22 0d 0a 96 00 01 88 0e | e2 88 04 f6 36 31 30 20 |".......|....610 |
|000009c0| 4c 50 52 49 4e 54 20 22 | 4c 4f 43 41 4c 20 53 49 |LPRINT "|LOCAL SI|
|000009d0| 44 45 52 49 41 4c 20 54 | 49 4d 45 3a 22 3b 48 3b |DERIAL T|IME:";H;|
|000009e0| 22 48 52 53 22 3b 4d 3b | 22 4d 49 4e 53 22 3b 53 |"HRS";M;|"MINS";S|
|000009f0| 3b 22 53 45 43 53 22 0d | 0a 96 00 01 88 0e e2 88 |;"SECS".|........|
|00000a00| 04 f6 36 32 30 20 50 52 | 49 4e 54 20 22 44 4f 20 |..620 PR|INT "DO |
|00000a10| 59 4f 55 20 57 41 4e 54 | 20 41 20 44 49 46 46 45 |YOU WANT| A DIFFE|
|00000a20| 52 45 4e 54 20 54 49 4d | 45 3f 20 59 2f 4e 3f 22 |RENT TIM|E? Y/N?"|
|00000a30| 0d 0a 96 00 01 88 0e e2 | 88 04 f6 36 33 30 20 49 |........|...630 I|
|00000a40| 4e 50 55 54 20 41 4e 53 | 24 0d 0a 96 00 01 88 0e |NPUT ANS|$.......|
|00000a50| e2 88 04 f6 36 34 30 20 | 49 46 20 41 4e 53 24 20 |....640 |IF ANS$ |
|00000a60| 3d 20 22 59 22 20 54 48 | 45 4e 20 31 30 30 0d 0a |= "Y" TH|EN 100..|
|00000a70| 96 00 01 88 0e e2 88 04 | f6 36 35 30 20 45 4e 44 |........|.650 END|
|00000a80| 0d 0a 96 00 01 88 0e e2 | 0d 0a 96 36 80 96 00 01 |........|...6....|
|00000a90| 88 0e e2 d8 88 1b e4 2d | 20 32 20 2d 0d 0a 96 00 |.......-| 2 -....|
|00000aa0| 01 88 0e e2 f8 0d 0a 0c | 1a 01 88 0e e2 88 04 f6 |........|........|
|00000ab0| 34 32 30 20 54 32 20 3d | 28 4a 20 2d 20 4a 30 20 |420 T2 =|(J - J0 |
|00000ac0| 2b 2e 35 29 2f 33 36 35 | 32 35 21 0d 0a 96 00 01 |+.5)/365|25!.....|
|00000ad0| 88 0e e2 88 04 f6 34 33 | 30 20 53 30 20 3d 20 32 |......43|0 S0 = 2|
|00000ae0| 34 31 31 30 2e 35 34 38 | 34 31 23 2b 31 38 34 2e |4110.548|41#+184.|
|00000af0| 38 31 32 38 36 36 23 2a | 54 31 0d 0a 96 00 01 88 |812866#*|T1......|
+--------+-------------------------+-------------------------+--------+--------+