02/01/21 00:38.net
>>441をｷﾞｺBASICに移植
10 (ﾟ∀ﾟ) ｹｹﾞﾝｺﾞ
20 ｲﾚﾃﾐﾛ "ﾀﾞｲｲﾁｽｳｼﾞ（ﾊﾝｶｸｽｳｼﾞﾃﾞﾆｭｳﾘｮｸｼﾃｸﾀﾞｻｲ）";ﾀﾞｲｲﾁﾉｶｽﾞ
30 ｲﾚﾃﾐﾛ "ﾀﾞｲﾆｽｳｼﾞ（ﾊﾝｶｸｽｳｼﾞﾃﾞﾆｭｳﾘｮｸｼﾃｸﾀﾞｻｲ）";ﾀﾞｲﾆﾉｶｽﾞ
40 ﾎｻﾞｹ
50 ﾎｻﾞｹ "ﾀｼｻﾞﾝ=";ﾀﾞｲｲﾁﾉｶｽﾞ+ﾀﾞｲﾆﾉｶｽﾞ;
60 ﾎｻﾞｹ "ﾋｷｻﾞﾝ=";ﾀﾞｲｲﾁﾉｶｽﾞ-ﾀﾞｲﾆﾉｶｽﾞ;
70 ﾎｻﾞｹ "ｶｹｻﾞﾝ=";ﾀﾞｲｲﾁﾉｶｽﾞ*ﾀﾞｲﾆﾉｶｽﾞ;
80 ﾓｼﾓﾀﾞﾖ ﾀﾞｲﾆﾉｶｽﾞ = 0 ﾀﾞｯﾀﾗ ｲｯﾃﾖｼ 100
90 ﾎｻﾞｹ "ﾜﾘｻﾞﾝ=";ﾀﾞｲｲﾁﾉｶｽﾞ/ﾀﾞｲﾆﾉｶｽﾞ;
100 ﾎｻﾞｹ "ﾍﾞｷｼﾞｮｳ=";ﾀﾞｲｲﾁﾉｶｽﾞ^ﾀﾞｲﾆﾉｶｽﾞ;
110 ｼﾈ