まずはとくべつなすうじをじゅんびしよう。ひとつえらんでつかうよ。
10 LET[0],53,59,61,67,83
20 FOR I=0 TO 4:?[I];" ";:NEXT:?
30 INPUT"P=? ",P
つぎはじぶんだけのひみつのすうじをにゅうりょく。
40 INPUT"スウジ? ",A
かぎのあたいをしょきかして、けいさんをじっこう!
50 K=1
60 GSB@CALC
けいさんするぶぶんをつくるよ。
500 @CALC
510 FOR I=0 TO A
520 K=K*2
530 K=K%P
540 NEXT
550 RTN
けいさんのけっかをあいてにつたえよう。
このすうじはほかのひとにしられてもだいじょうぶだよ。
70 ?"ワタススウジ ";K
おなじプログラムでけいさんした、あいてからうけとったすうじをいれる。
このときのあいてとは、おなじ P をつかってね。
100 INPUT"ウケトッタスウジ? ",K
110 GSB@CALC
120 ?"カギノスウジ ";K
130 END
でてきたすうじはあいてとおなじになっているよね!
このすうじを「かぎ」としてつかおう!