100 REM --------------------- 110 REM Program by Dai Fukuoka 2016.07.27-2016.07.29 120 REM (C)電脳組 130 REM --------------------- 140 CONSOLE 0,25,0,1:SCREEN 3,0,0,1:WIDTH 80,25:COLOR 0,7,0,0,1:CLS 3 150 *START 160 PRINT "Type Column Alabia Number ExChange English Language Number" 170 PRINT "アラビア数字の桁を数字で入力して、英語数字に取引してください" 180 INPUT "",AE 190 IF AE=0 THEN AE$="Zero:零" 200 IF AE=1 THEN AE$="one:一" 210 IF AE=2 THEN AE$="ten:十" 220 IF AE=3 THEN AE$="oneHandlet:百" 230 IF AE=4 THEN AE$="oneThousand:千" 240 IF AE=5 THEN AE$="tenTousand:万" 250 IF AE=6 THEN AE$="oneHandletTousand:十万" 260 IF AE=7 THEN AE$="oneMilion:百万" 270 IF AE=8 THEN AE$="tenMilion:千万" 280 IF AE=9 THEN AE$="oneHandletMilion:一億" 290 IF AE=10 THEN AE$="oneBilion-TousandMilion:十億" 300 IF AE=11 THEN AE$="tenBilion:百億" 310 IF AE=12 THEN AE$="handletBilion:一千億 320 IF AE=13 THEN AE$="oneTrilon-oneTousandBilion:一兆" 330 IF AE=14 THEN AE$="tenTrilion十兆" 340 IF AE=15 THEN AE$="oneHandletTrilion:百兆" 350 IF AE=16 THEN AE$="oneTousandTrilion:一千兆" 360 IF AE=17 THEN AE$="oneHandletTousandTrilion:1京" 370 IF AE=18 THEN AE$="tenMilionTrilion:十京" 380 IF AE=19 THEN AE$="tenBilionTrilion:百京" 390 IF AE=20 THEN AE$="oneHandletBilionTrilion:一千京" 400 IF AE=21 THEN AE$="oneBilionTrilion:一亥" 410 IF AE=22 THEN AE$="tenBilionTrilion:十亥" 420 IF AE=23 THEN AE$="oneHandletBilionTrilion:百亥" 430 IF AE=24 THEN AE$="oneThousandBilionTrilion:一千亥" 440 IF AE=25 THEN AE$="tenThousandBilionTrilion:一序" 450 IF AE=26 THEN AE$="oneHandletThousandBilionTrilion:十序" 460 IF AE=27 THEN AE$="oneMilionBilionTrilion:百序" 470 IF AE=28 THEN AE$="tenMilionBilionTrilion:一千序" 480 IF AE=29 THEN AE$="oneHandletMilionBilionTrilion:一襄" 490 IF AE=30 THEN AE$="oneThousandMilionBilionTrilion:十襄" 500 IF AE=31 THEN AE$="tenThousandMilionBilionTrilion:百襄" 510 IF AE=32 THEN AE$="oneHandletThousandMilionBilionTrilion:千襄" 520 IF AE=33 THEN AE$="tenHandletThousandMilionBilionTrilion:一溝" 530 *DISPLAYCOUNT 540 PRINT AE$:GOTO *START