気になる二人の相性をチェックするプログラムです。

親子、兄弟、カップルなど、いろいろな人とチェックしてみてください。

(しなっと結果を変えられる機能があるとかないとか...)

 

 

プログラム バージョン:1.2b21

 

10 CLS:CLV:LC5,5:?”アイショウ チェッカー”:LC5,8:?”ヒトリメノタンジョウビヲ(0101)ノ”:LC7,9:?”ヨウニ、ニュウリョクシテクダサイ­":LC3,11:INPUT" ",A
20 B=A/100:C=A-(A/100*100):IF B>9 B=1+(B-10)
30 IF C>9 C=C/10+(C-(C/10*10))
40 IF C>9 GOTO30
50 D=B+C:IF D>9 D=D/10+(D-(D/10*10))
51 X=B*C
52 IF X>9 X=X/10+(X-(X/10*10)):IF X>9 GOTO52
58 D=D*10:D=D+X
59 IF D>99 D=D/10+(D-(D/10*10)):IF D>99 GOTO52
60 CLS:LC5,8:?”フタリメノタンジョウビヲ”:LC7,9:?"ニュウリョクシテクダサイ­":LC3,11:INPUT" ",E
70 F=E/100:G=E-(E/100*100):IF F>9 F=1+(F-10)
80 IF G>9 G=G/10+(G-(G/10*10))
90 IF G>9 GOTO80
100 H=F+G:IF H>9 H=H/10+(H-(H/10*10))
101 Y=F*G
102 IF Y>9 Y=Y/10+(Y-(Y/10*10)):IF Y>9 GOTO102
108 H=H*10:H=H+Y
109 IF H>99 H=H/10+(H-(H/10*10)):IF H>99 GOTO102
110 I=D+H:IF I>99 I=100
120 CLS:LC5,8:?”フタリノアイショウハ、 ";:WAIT60:K=INKEY():IF K=10 I=100:ELSE IF K=127 I=2
130 ?I;”%デス”:LC0,22

関連する記事
コメント
コメントする