10：A=0,B=0
20：INPUT "フ",A
30：INPUT "ハン",B
40：IF A<20 OR A>134 THEN GOTO 240
50：IF B>15 THEN GOTO 240
60：IF B<5 THEN GOTO 120
70：IF B=5 THEN GOTO 190
80：IF B=6 OR B=7 THEN GOTO 200
90：IF B=8 OR B=9 OR B=10 THEN GOTO 210
100：IF B=11 OR B=12 THEN GOTO 220
110：IF B>12 THEN GOTO 230
120：C=A*(2^(B+2))
130：IF C>=2000 THEN GOTO 190 ELSE 140
140：C=-C/100
150：D=-100*INT(C*4)：E=-100*INT(C*6）
160：F=-100*INT(C*2)：G=-100*INT(C)
170：PRINT "コ(<ツモ>オヤ.コ) オヤ(<ツモ>オール)"
180：PRINT D；"("；F；G；"）"；E；"("；F；")ヨカッタネ"：GOTO 250
190：PRINT "8000(4000.2000),12000(4000all) マアマアジャン？"：GOTO 250
200：PRINT "12000(6000.3000),18000(6000all) ヤル、シカシ！"：GOTO 250
210：PRINT "16000(8000.4000),24000(8000all) ヤルウ！"：GOTO 250
220：PRINT "24000(12000.6000),36000(12000all) ンン？シカシ！"：GOTO 250
230：PRINT "32000(16000.8000),48000(16000all) オメデト！"：GOTO 250
240：PRINT "ソンナワキャネエダロ？"
250：PRINT "レンゾクニュウリョクカノウ"：GOTO 10


履歴書　　HOME