From f8e69a43ee9d1717b41a1b18e0dfac7083b06dbd Mon Sep 17 00:00:00 2001
From: leporia <aleporia@gmail.com>
Date: Wed, 23 Aug 2017 16:03:05 +0200
Subject: first commit

---
 P | 90 +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 90 insertions(+)
 create mode 100644 P

(limited to 'P')

diff --git a/P b/P
new file mode 100644
index 0000000..1f7c66a
--- /dev/null
+++ b/P
@@ -0,0 +1,90 @@
+LBL P
+XEQ S001
+105.110
+STO J
+R⬇
+x<>y
+XEQ P061
+R⬇
+XEQ P061
+100.102
+STO I
+106
+110
+XEQ P079
+x
+109
+107
+XEQ P079
+x
+-
+[1,0,0]
+x
+STO (I)
+ISG I
+107
+108
+XEQ P079
+x
+110
+105
+XEQ P079
+x
+-
+[0,1,0]
+x
+STO (I)
+ISG I
+105
+109
+XEQ P079
+x
+108
+106
+XEQ P079
+x
+-
+[0,0,1]
+x
+100.101
+STO I
+R⬇
+RCL (I)
+ISG I
+GTO P052
++
++
+STO I
+XEQ S011
+RCL I
+RTN
+STO I
+[1,0,0]
+x
+STO (J)
+ISG J
+CLx
+RCL I
+[0,1,0]
+x
+STO (J)
+ISG J
+CLx
+RCL I
+[0,0,1]
+x
+STO (J)
+ISG J
+RTN
+STO J
+CLx
+RCL (J)
+x<>y
+STO J
+CLx
+RCL (J)
+x<>y
+RTN
+
+LN=360
+CK=4FDF
-- 
cgit v1.2.1