まずはとくべつなすうじをじゅんびしよう。ひとつえらんでつかうよ。
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
でてきたすうじはあいてとおなじになっているよね！
このすうじを「かぎ」としてつかおう！