ＳＨＡＲＰプロ電 EL-K710用プログラム

シャープから発売されていたプログラム電卓EL-K710用のプログラムです。
プログラム中の“＿”は区切り（[2ndF]＋[６]）、“≡Ｙ≫［”や“≡Ｎ≫［”は条件分岐、“⇒”は代入の記号、“∈”，“∋”はそれぞれループの開始（[2ndF]＋[１]），終了（[2ndF]＋[２]）記号として、それぞれ読み換えてください。
見易さを考慮して、ここでは適宜スペースや改行を入れています。
（このページ、新ＪＩＳの記号が多数使われています）

「曜日計算」

　年月日（Ｙ，Ｍ，Ｄ）を入力すると、曜日を数字で表示します。　中国語の「星期ｎ」と対応していますのでー（０：日曜日，１〜６：月〜土曜日）。
　年はもちろん西暦で入れてくださいねっ。
ｆ（ＹＭＤ）＝＿
Ｍ＞＝３≡Ｙ≫［Ｙ⇒Ｘ＿Ｍ＋１⇒Ｚ］
　　　　≡Ｎ≫［Ｙ−１⇒Ｘ＿Ｍ＋１３⇒Ｚ］
ＩＮＴ　（３６５．２５Ｘ）＋ＩＮＴ　（３０．６Ｚ）＋Ｄ＋５⇒Ｘ＿
Ｘ−７ＩＮＴ　（Ｘ÷７
・・・以上、70steps。(1991/ 1/22)

「バイオリズム」

　上記プログラムの発展版です。
　まずは生年月日をＹＭＤ（上記参照）で、次に調べたい日（例えば今日）をＹＭＤで入力します。
　あとはバイオリズム値が−１００〜＋１００の範囲で表示されます。
　表示順は、ＰＳＩすなわち（身体，感情，知性）で、プラスが好調，マイナスが不調，０附近が要注意です。
　またＹＭＤを訊いてきますがこれは、生年月日はそのままで、調べたい日を新たに訊ねています（例えば明日）。
　なお、角度単位をＤＥＧ（度）にしておいてください。
０⇒Ｉ
∈ｆ（ＹＭＤ）＝＿
　Ｍ＞＝３≡Ｙ≫［Ｙ⇒Ｘ＿Ｍ＋１⇒Ｚ］
　　　　　≡Ｎ≫［Ｙ−１⇒Ｘ＿Ｍ＋１３⇒Ｚ］
　ＩＮＴ　（３６５．２５Ｘ）＋ＩＮＴ　（３０．６Ｚ＋Ｄ⇒Ｘ＿
　Ｉ≠０≡Ｙ≫［３６０（Ｘ−Ａ⇒Ｘ＿
　　　　　　　　ＩＮＴ（Ｉ　ＳＩＮ　（Ｘ÷２３，
　　　　　　　　ＩＮＴ（Ｉ　ＳＩＮ　（Ｘ÷２８，
　　　　　　　　ＩＮＴ（Ｉ　ＳＩＮ　（Ｘ÷３３，］
　　　　≡Ｎ≫［１００⇒Ｉ＿Ｘ⇒Ａ］
∋
・・・以上、116steps。(1991/ 1/27)