(08-20-2024 10:24 PM)Geoff Quickfall Wrote: GREAT CIRCLE
Was this program inspired by
this post?
To run it in
this simulator:
Code:
001 { 42 21 11 } f LBL A
002 { 42 7 4 } f FIX 4
003 { 43 2 } g ->H
004 { 44 3 } STO 3
005 { 33 } Rv
006 { 43 2 } g ->H
007 { 44 2 } STO 2
008 { 33 } Rv
009 { 43 2 } g ->H
010 { 44 1 } STO 1
011 { 33 } Rv
012 { 43 2 } g ->H
013 { 44 0 } STO 0
014 { 43 32 } g RTN
015 { 42 21 12 } f LBL B
016 { 42 7 3 } f FIX 3
017 { 45 2 } RCL 2
018 { 1 } 1
019 { 42 1 } f ->R
020 { 45 1 } RCL 1
021 { 45 3 } RCL 3
022 { 30 } -
023 { 34 } X<=>Y
024 { 42 1 } f ->R
025 { 34 } X<=>Y
026 { 36 } ENTER
027 { 33 } Rv
028 { 33 } Rv
029 { 43 1 } g ->P
030 { 34 } X<=>Y
031 { 45 0 } RCL 0
032 { 30 } -
033 { 34 } X<=>Y
034 { 42 1 } f ->R
035 { 33 } Rv
036 { 34 } X<=>Y
037 { 33 } Rv
038 { 43 1 } g ->P
039 { 34 } X<=>Y
040 { 43 30 2 } g TEST 2
041 { 32 .0 } GSB 10
042 { 44 9 } STO 9
043 { 33 } Rv
044 { 34 } X<=>Y
045 { 43 1 } g ->P
046 { 34 } X<=>Y
047 { 6 } 6
048 { 0 } 0
049 { 20 } *
050 { 43 44 } g INT
051 { 45 9 } RCL 9
052 { 43 44 } g INT
053 { 26 } EEX
054 { 3 } 3
055 { 10 } /
056 { 40 } +
057 { 31 } R/S
058 { 45 2 } RCL 2
059 { 44 0 } STO 0
060 { 45 3 } RCL 3
061 { 44 1 } STO 1
062 { 43 35 } g CLx
063 { 31 } R/S
064 { 43 2 } g ->H
065 { 44 3 } STO 3
066 { 33 } Rv
067 { 43 2 } g ->H
068 { 44 2 } STO 2
069 { 22 12 } GTO B
070 { 42 21 .0 } f LBL 10
071 { 3 } 3
072 { 6 } 6
073 { 0 } 0
074 { 40 } +
075 { 43 32 } g RTN
Search
Member List
Calendar
Help
