FC2BBS
無題 - 福岡大 Mr.Dai Fukuoka URL
2025/07/02 (Wed) 01:50:00
Programing N88 Basic Fortune Telling 9 Code, Etc,.
By Mr.Dai Fukuoka , 福岡大 著作、原作自動判定プログラム。
100 REM ==================
110 REM Promoter Author by Dai Fukuoka
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 DATA "star of one water white","star of two earth black","star of three lightning cobalt","star of four green wind","star of five Gaia's yellow","star of six heaven white","star of seven red lake","star of eight mountain white","star of nine fire violet"
170 DIM COUNTER$(12):DIM HOSI$(99999)
180 FOR I=1 TO 9:READ COUNTER$(I):NEXT
190 FOR T=3 TO 10000 STEP 9:FOR I=1 TO 9:HOSI$(T+I)=COUNTER$(I):NEXT I,T
200 INPUT "input satar of 9 code year now.",ASK
210 PRINT "your star is ",HOSI$(ASK);"year's"
220 GOTO 200
6 horoscope Fortune Telling
100 REM =====================================
110 REM programed and created by Dai Fukuoka
120 REM 電脳組（C)
130 REM =====================================
140 INPUT "Please enter a year/年を入力してください:",YEAR
150 INPUT "Please enter the month/月を入力してください:",M
160 DIM AA(9999,12)
170 IF M=1 THEN B=25 ELSE IF M=2 THEN B=56 ELSE IF M=3 THEN B=24
180 IF M=4 THEN B=55 ELSE IF M=5 THEN B=25 ELSE IF M=6 THEN B=56
190 IF M=7 THEN B=26 ELSE IF M=8 THEN B=57 ELSE IF M=9 THEN B=28
200 IF M=10 THEN B=58 ELSE IF M=11 THEN B=29 ELSE IF M=12 THEN B=59
210 A=B-6:C=1:FOR I=1936 TO 1 STEP-1:AA (I,M)=A
220 IF C=12 THEN A=A-1:C=11 ELSE IF C=3 THEN A=A-1 ELSE IF C=6 THEN A=A-1 ELSE IF C=9 THEN A=A-1
230 IF A<1 THEN A=A+60
240 IF A<-61 THEN A=A+120
250 IF A<-121 THEN A=A+180
260 IF A<-181 THEN A=A+240
266 IF A<-241 THEN A=A+320
270 A=A-5:C=C-1:NEXT
280 A=B-11:C=1
290 FOR I=1936 TO 9990
300 A=A+5
310 IF C=12 THEN A=A+1:C=0 ELSE IF C=3 THEN A=A+1 ELSE IF C=6 THEN A=A+1 ELSE IF C=9 THEN A=A+0
320 IF A>61 THEN A=A-60
330 IF A>121 THEN A=A-120
340 IF A>241 THEN A=A-240
350 IF A>321 THEN A=A-320
360 C=C+1:AA(I,M)=A:NEXT
370 IF AA(YEAR,M)=>0 AND AA(YEAR,M)=<10 THEN PRINT "Saturnian/土星人"
380 IF AA(YEAR,M)=>11 AND AA(YEAR,M)=<20 THEN PRINT "Venusian/金星人"
390 IF AA(YEAR,M)=>21 AND AA(YEAR,M)=<30 THEN PRINT "Martian/火星人"
400 IF AA(YEAR,M)=>31 AND AA(YEAR,M)=<40 THEN PRINT "uranus man/天王星人"
410 IF AA(YEAR,M)=>41 AND AA(YEAR,M)=<50 THEN PRINT "Mercurian/木星人"
420 IF AA(YEAR,M)=>51 THEN PRINT "Jupiterian/水星人"
430 PRINT AA(YEAR,M)
10 REM =================================
20 REM Programming by Dai Fukuoka
30 REM 電脳組（C)
40 REM =================================
50 DATA "種子seed","緑生green raw","立花stand flower","健弱infirm","達成achievement","乱気Turbulence"
60 DATA "再会Reunion","財成Fortune","安定Stable","陰影Shadow","停止Stop","減退Decline"
61 DATA "水星人Mercurian","木星人Jupiterian","天王星人Uranian","火星人Martian","金星人Venusian","土星人Saturnian"
70 DIM JUDGEMENT$(12,6):DIM STAR6$(6)
80 COUNT=0:FOR I=1 TO 6:FOR T=0 TO 1:COUNT=COUNT+1:READ JUDGEMENT$(COUNT,I):NEXT T,I
90 FOR I=1 TO 6:READ STAR6$(I):NEXT
100 CONSOLE 0,25,0,1:SCREEN 3,0,0,1:WIDTH 80,25:COLOR 0,7,0,0,1:CLS 3
110 INPUT "年は奇数年ですかIs the year an odd number.Yes=0 No=1",FLAG
120 INPUT "1:水星人Mercurian/2:木星人Jupiterian/3:天王星人Uranian/4:火星人Martian/5:金星人Venusian/6:土星人Saturnian",ASK
130 IF FLAG=0 THEN PRINT JUDGEMENT$(ASK*2,ASK) ELSE IF FLAG=1 THEN PRINT JUDGEMENT$(ASK*2-1,ASK)
140 END
12 Eto's Fortune Telling
100 REM ==================
110 REM Promoter Author by Dai Fukuoka
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 DATA "子","丑","寅","卯","辰","巳","午","未","申","酉","戌","亥"
170 DIM COUNTER$(12):DIM ETO$(99999)
180 FOR I=1 TO 12:READ COUNTER$(I):NEXT
190 FOR T=3 TO 10000 STEP 12:FOR I=1 TO 12:ETO$(T+I)=COUNTER$(I):NEXT I,T
200 INPUT "干支の年を西暦で入力してください",ASK
210 PRINT "干支は",ETO$(ASK);"年です"
220 GOTO 200
Re: 無題 - 福岡大 Mr.Dai Fukuoka URL
2025/07/02 (Wed) 04:07:09
青い円弧を描くプログラム 著作 原作 福岡大 Mr.Dai Fukuoka,July.2,2025
10 REM hyper circle by Mr.Dai Fukuoka , July.2,2025
20 LINE(SIN(1)*150+320,COS(1)*150+200)-(SIN(1)*150+320,COS(1)*150+200),1
30 FOR I=1 TO 359 STEP .33#
40 LINE -(SIN(I)*150+320,COS(I)*150+200),1
50 NEXT
Re: 無題 - 福岡大 Mr.Dai Fukuoka URL
2025/07/02 (Wed) 02:48:04
アマゾンでベーシック API リファレンスを購入できます。
N88-日本語BASICハンディ・マニュアル: PC-9800シリーズ (ナツメ・ハンディ・リファレンス 61) 単行本 – 1990/11/1
戸内 順一 (著)
Re: 無題 - 福岡大 Mr.Dai Fukuoka URL
2025/07/02 (Wed) 02:28:44
円弧のサインコサインタンジェントの各円周率を実数で計算 著作原作 福岡大 Mr.Dai Fukuoka
100 REM ---------------------
110 REM sin cos tan Program by Dai Fukuoka 2016.08.05-
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 Sin Value :";:INPUT "",SINV
170 PRINT "Type Cos Value :";:INPUT "",COSV
180 PRINT "Type tan Value :";:INPUT "",TANV
190 IF SINV>359 OR SINV<0 THEN *START
200 IF COSV>359 OR COSV<0 THEN *START
210 IF TANV>359 OR TANV<0 THEN *START
220 PRINT SIN(SINV)*TAN(TANV)*3.14#;"Sin*Tan":
230 PRINT COS(COSV)*TAN(TANV)*3.14#;"Cos*Tan":
240 PRINT SIN(SINV)*COS(COSV)*TAN(TANV)*3.14#;"Sin*Cos*Tan":
開始日からの月日の長さがわかる
100 REM --------------------
110 REM CopyRight Module By DaiFukuoka 2015-11-02/2016-05-12
120 REM ９８Basic 電脳組（C)
130 REM --------------------
140 DIM FEBPLUS(5000):FOR I=2000 TO 5000 STEP 4:LET FEBPLUS(I)=1:NEXT
150 CONSOLE 0,24,0,1:SCREEN 3,0,0,1:WIDTH 80,25:COLOR 0,7,0,7,2:CLS 3
160 DIM A$(1000,11):DIM CSV(1000,11):DIM DAYMAP(24):DIM MOUNTHMAP(24):DIM MSTARTMAP(24)
170 *START LOCATE 0,0:LOCATE 0,0:INPUT "CopyRight Dai Fukuoka Platform Dennogumi Day Exchanger Program -",A:CLS
180 *STEP1 LOCATE 0,0:INPUT "？始まりの日付を入力してください例： /What count is Start Days :",D1
190 *STEP2 LOCATE 0,1:INPUT "？始まりの月を入力してください： /What count is Start Mounth :",M1
200 *STEP3 LOCATE 0,2:INPUT "？始まりの年日を入力してください /What count is Start Year :",Y1
210 *STEP4 LOCATE 0,3:INPUT "？日付からの日数の期限を入力してください例４００（１年３６６日）/What count is All Days :",DD
220 REM
230 DATA 31,29,31,30,31,30,31,31,30,31,30,31
240 FOR T=1 TO 12:READ DAYMAP(T):NEXT
250 DATA 1,31,62,93,121,152,182,213,244,274,305,335,366
260 FOR T=1 TO 12:READ MOUNTHMAP(T):NEXT
270 DATA 30,60,91,120,151,181,211,241,302,333,364
280 FOR T=1 TO 12:READ MSTARTMAP(T):NEXT
290 REM
300 REM
310 REM
320 REM
330 REM
340 REM IF DD>365 THEN Y3=INT(DD/365):IF Y3>1 THEN Y3=I:DD4=DD4-(Y3*365)
350 GOTO *SKIPTOB
360 IF DD<=0 THEN M2=1:Y2=0:D2=1:D3=DD3
370 IF DD>335 THEN D2=DD-0 :Y2=3
380 IF DD>700 THEN D2=DD-335 :Y2=3
390 IF DD>1065 THEN D2=DD-700 :Y2=3
400 IF DD>1430 THEN D2=DD-1065:Y2=4
410 IF DD>1795 THEN D2=DD-1430:Y2=5
420 IF DD>2160 THEN D2=DD-1795:Y2=6
430 IF DD>2525 THEN D2=DD-2160:Y2=7
440 IF DD>2890 THEN Y2=INT(DD+DD2/365):DAY=DD+DD2-(365*Y2-30)
445 *SKIPTOB
450 IF M1=0 THEN DD2=0+D1:D2M=1 :MOUNTHCOUNT=1:DD3=DD+DD2:DAY=0
460 IF M1=1 THEN DD2=D1:D2M=1 :MOUNTHCOUNT=1:DD3=DD+DD2:DAY=DD+DD2-0
470 IF M1=2 THEN DD2=31+D1:D2M=31 :MOUNTHCOUNT=2:DD3=DD+DD2:DAY=DD+DD2-31
480 IF M1=3 THEN DD2=60+D1:D2M=29 :MOUNTHCOUNT=3:DD3=DD+DD2:DAY=DD+DD2-60
490 IF M1=4 THEN DD2=91+D1:D2M=31 :MOUNTHCOUNT=4:DD3=DD+DD2:DAY=DD+DD2-91
500 IF M1=5 THEN DD2=121+D1:D2M=30:MOUNTHCOUNT=5:DD3=DD+DD2:DAY=DD+DD2-121
510 IF M1=6 THEN DD2=151+D1:D2M=31:MOUNTHCOUNT=6:DD3=DD+DD2:DAY=DD+DD2-151
520 IF M1=7 THEN DD2=181+D1:D2M=30:MOUNTHCOUNT=7:DD3=DD+DD2:DAY=DD+DD2-181
530 IF M1=8 THEN DD2=213+D1:D2M=31:MOUNTHCOUNT=8:DD3=DD+DD2:DAY=DD+DD2-213
540 IF M1=9 THEN DD2=244+D1:D2M=31:MOUNTHCOUNT=9:DD3=DD+DD2:DAY=DD+DD2-244
550 IF M1=10 THEN DD2=274+D1:D2M=30:MOUNTHCOUNT=10:DD3=DD+DD2:DAY=DD+DD2-274
560 IF M1=11 THEN DD2=305+D1:D2M=31:MOUNTHCOUNT=11:DD3=DD+DD2:DAY=DD+DD2-305
570 IF M1=12 THEN DD2=335+D1:D2M=30:MOUNTHCOUNT=12:DD3=DD+DD2:DAY=DD+DD2-335
580 IF DD+DD2=0 THEN M2=1:Y2=0:D2=0:D3=DD+DD2
590 IF DD+DD2<=30 THEN M2=1:Y2=0:D3=DD3
600 IF DD+DD2>30 THEN M2=2:Y2=0:D3=DD3-30
610 IF DD+DD2>60 THEN M2=3:Y2=0:D3=DD3-62
620 IF DD+DD2>91 THEN M2=4:Y2=0:D3=DD3-93
630 IF DD+DD2>121 THEN M2=5:Y2=0:D3=DD3-121
640 IF DD+DD2>152 THEN M2=6:Y2=0:D3=DD3-152
650 IF DD+DD2>182 THEN M2=7:Y2=0:D3=DD3-182
660 IF DD+DD2>213 THEN M2=8:Y2=0:D3=DD3-213
670 IF DD+DD2>244 THEN M2=9:Y2=0:D3=DD3-244
680 IF DD+DD2>274 THEN M2=10:Y2=0:D3=DD3-274
690 IF DD+DD2>305 THEN M2=11:Y2=0:D3=DD3-305
700 IF DD+DD2>335 THEN M2=12:Y2=0:D3=DD3-335
710 IF DD+DD2>366 THEN M2=1:Y2=1:D3=DD3-366
720 IF DD+DD2>397 THEN M2=2:D3=DD3-397:Y2=1
730 IF DD+DD2>426 THEN M2=3:D3=DD3-426:Y2=1
740 IF DD+DD2>457 THEN M2=4:D3=DD3-457:Y2=1
750 IF DD+DD2>487 THEN M2=5:D3=DD3-486:Y2=1
760 IF DD+DD2>518 THEN M2=6:D3=DD3-518:Y2=1
770 IF DD+DD2>548 THEN M2=7:D3=DD3-548:Y2=1
780 IF DD+DD2>578 THEN M2=8:D3=DD3-578:Y2=1
790 IF DD+DD2>609 THEN M2=9:D3=DD3-609:Y2=1
800 IF DD+DD2>640 THEN M2=10:D3=DD3-640:Y2=1
810 REM
820 IF DD+DD2>671 THEN M2=11:D3=DD3-671:Y2=1
830 IF DD+DD2>702 THEN M2=12:D3=DD3-702:Y2=1
840 IF DD+DD2>732 THEN M2=1 :D3=DD3-732:Y2=2
850 IF DD+DD2>761 THEN M2=2 :D3=DD3-761:Y2=2
860 IF DD+DD2>790 THEN M2=3 :D3=DD3-790:Y2=2
870 IF DD+DD2>821 THEN M2=4 :D3=DD3-821:Y2=2
880 IF DD+DD2>852 THEN *LOOPEND ELSE *SKIPTO
890 *ROOPEND
900 *LOOPEND
910 REM
920 REM
930 REM
940 REM LET Y3=2:LET DD4=DD+DD2:WHILE Y3<10
950 REM IF DD4>(365*Y3) THEN DD4=(DD+DD2)-(365*Y3):Y2=Y2+1
960 REM Y3=Y3+1:WEND:IF DD4>0 THEN *GOEND ELSE END
970 GOTO *SKIPTO2
980 IF DD+DD2>730 THEN DAY=DD3-0 :Y2=3
990 IF DD+DD2>1095 THEN DAY=DD3-730 :Y2=3
1000 IF DD+DD2>1460 THEN DAY=DD3-1095:Y2=4
1010 IF DD+DD2>1825 THEN DAY=DD3-1460:Y2=5
1020 IF DD+DD2>2190 THEN DAY=DD3-1825:Y2=6
1030 IF DD+DD2>2555 THEN DAY=DD3-2190:Y2=7
1040 IF DD+DD2>2920 THEN Y2=INT(DD+DD2/365):DAY=DD+DD2-(365*Y2)
1050 REM T=0:WHILE (DD2)>730:T=T+1:D3=(DD+DD2)-(365*T):WEND:Y3=T
1060 DD3=DD+DD2:GOTO *SKIPTO
1070 *SKIPTO2
1080 IF DD+DD2<733 THEN *SKIPTO
1085 T=3
1090 FOR I=733 TO 18300 STEP 366
1100 IF (DD2+DD)-I<0 THEN *SKIPTO
1110 IF (DD2+DD)-I>=0 THEN D3=(DD2+DD)-I:M2=1:Y=0
1120 IF (DD2+DD)-I>31 THEN D3=(DD2+DD)-I-31:M2=2:Y=0
1130 IF (DD2+DD)-I>60 THEN D3=(DD2+DD)-I-60:M2=3:Y=0
1140 IF (DD2+DD)-I>91 THEN D3=(DD2+DD)-I-91:M2=4:Y=0
1150 IF (DD2+DD)-I>121 THEN D3=(DD2+DD)-I-121:M2=5:Y=0
1160 IF (DD2+DD)-I>152 THEN D3=(DD2+DD)-I-152:M2=6:Y=0
1170 IF (DD2+DD)-I>182 THEN D3=(DD2+DD)-I-182:M2=7:Y=0
1180 IF (DD2+DD)-I>213 THEN D3=(DD2+DD)-I-212:M2=8:Y=0
1190 IF (DD2+DD)-I>244 THEN D3=(DD2+DD)-I-242:M2=9:Y=0
1200 IF (DD2+DD)-I>305 THEN D3=(DD2+DD)-I-273:M2=10:Y=0
1210 IF (DD2+DD)-I>335 THEN D3=(DD2+DD)-I-303:M2=11:Y=0
1220 IF (DD2+DD)-I>366 THEN D3=(DD2+DD)-I-365:M2=12:Y=0
1230 IF (DD2+DD)-I>397 THEN D3=(DD2+DD)-I-395:M2=1:Y=1
1240 IF (DD2+DD)-I>426 THEN D3=(DD2+DD)-I-424:M2=2:Y=1
1250 IF (DD2+DD)-I>457 THEN D3=(DD2+DD)-I-455:M2=3:Y=1
1260 IF (DD2+DD)-I>487 THEN D3=(DD2+DD)-I-485:M2=4:Y=1
1270 IF (DD2+DD)-I>518 THEN D3=(DD2+DD)-I-516:M2=5:Y=1
1280 IF (DD2+DD)-I>548 THEN D3=(DD2+DD)-I-546:M2=6:Y=1
1290 IF (DD2+DD)-I>579 THEN D3=(DD2+DD)-I-577:M2=7:Y=1
1300 IF (DD2+DD)-I>610 THEN D3=(DD2+DD)-I-607:M2=8:Y=1
1310 IF (DD2+DD)-I>640 THEN D3=(DD2+DD)-I-638:M2=9:Y=1
1320 IF (DD2+DD)-I>671 THEN D3=(DD2+DD)-I-669:M2=10:Y=1
1330 IF (DD2+DD)-I>701 THEN D3=(DD2+DD)-I-699:M2=11:Y=1
1340 IF (DD2+DD)-I>732 THEN D3=(DD2+DD)-I-730:M2=12:Y=1
1350 IF (DD2+DD)-I>762 THEN D3=(DD2+DD)-I-762:M2=1 :Y=2
1360 Y2=T
1370 NEXT I:Y2=Y2+Y
1380 REM I=1:WHILE DD3<DAYMAP(I)
1390 REM IF I>13 THEN I=1:DD3=DD3-365
1400 REM IF DD3>=763 THEN D2=DD3-763:M2=1:Y=3
1410 REM IF D1+D2>DAYMAP(I) THEN D3=(D1+DAY)-DAYMAP(I):M3=I
1420 REM I=I+1:WEND
1430 *SKIPTO
1440 *ESCAPE
1450 *GOEND
1460 *TOTAL
1470 DD3=DD+DD2:Y3=Y3+Y
1480 REM IF DD+DD2<DD4 THEN DAY=D3 ELSE DAY=D2
1490 LOCATE 0,5:PRINT "期間の結果は";Y1+Y2;"年";M2;"月";D3;"日です"
1500 END
月極めプログラム
100 REM ---------------------
110 REM Program by Dai Fukuoka 2016.08.01-08.05
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 DIM SUM(99):DIM AGREE(20)
160 *START
170 *Q1 PRINT "What Start Mounth at many Incoming"
180 PRINT "何月から収入の始めですか:";:INPUT "",MOUNTH
190 IF MOUNTH>0 AND MOUNTH<13 THEN ELSE *Q1
200 *Q2 PRINT "Is Society Insurance Contract Exparent for much"
210 PRINT "社会保険の契約指数はいくつですか:";:INPUT "",SI
220 IF SI>-1 AND SI<11 THEN ELSE *Q2
230 *Q3 PRINT "Is many at Stock Holder's Fine"
240 PRINT "証券罰金料の指数はいくつですか";:INPUT "",SHF
250 IF SHF=0 AND SI=0 THEN *Q2
260 IF SHF>-1 AND SHF<10000 THEN ELSE *Q2
270 *Q4 PRINT "Select is Money Rate for (0)Euro(1)Yen(2)UsaDoll"
280 PRINT "通貨のレーティングを選択してください(0)Euro(1)Yen(2)UsaDoll";:INPUT "",RATE
290 IF RATE=0 THEN RATING=180 ELSE IF RATE=1 THEN RATING=1 ELSE IF RATE=2 THEN RATING=133 ELSE *Q4
300 *Q5 PRINT "What is Incoming for Payed Type Account(0)Cooprate Tax and alloment Plus(1)Cooprate Tax Only(2)Alloment Only(3)Full Income"
310 PRINT "収入の支払形式は何ですか(0)法人税と配当(1)法人税のみ(2)配当金のみ(3)全部の収入";:INPUT "",PAY
320 IF PAY>-1 AND PAY<4 THEN ELSE *Q5
330 *Q6 PRINT "Is many Exparent of Stock Market Investment Payed Plan for Plan Total"
340 PRINT "合算は、支払い計画にて幾つの証券指数にしますか";:INPUT "",TOTAL
350 IF TOTAL<0 THEN TOTAL=ABS(TOTAL) ELSE IF TOTAL=0 THEN *Q6
360 *Q7 PRINT "Stock Market Holder do not Mine(0)Yes(1)No"
370 PRINT "自分が保有しない株ですか(0)はい(1)いいえ";:INPUT "",MINE
380 IF MINE=0 OR MINE=1 THEN ELSE *Q7
390 *Q8 PRINT "Is Year Range of Stock Market Holder for many (0)1Year(1)2Year(2)4Year"
400 PRINT "証券期間を幾つのためにしますか:";:INPUT "",SR
410 IF SR>-1 AND SR<3 THEN ELSE *Q8
420 AGREE(1)=MOUNTH:AGREE(2)=SI:AGREE(3)=SHF:AGREE(4)=RATE:AGREE(5)=PAY
430 AGREE(6)=TOTAL:AGREE(7)=MINE:AGREE(8)=SR
440 IF SR=0 THEN SR2=1 ELSE IF SR=1 THEN SR2=2 ELSE IF SR=2 THEN SR2=4
450 FOR T=1 TO SR2:FOR I=MOUNTH TO 12:COUNT=COUNT+1
460 INCOME1=SI*30000:INCOME2=SHF*30000:INCOME=INT(INCOME1+INCOME2)/RATING
470 IF PAY=0 THEN INCOME=INCOME/3 ELSE IF PAY=1 OR PAY=2 THEN INCOME=INCOME/3*2
480 SUM=INT(SUM+INCOME)
490 REM
500 SUM(I)=SUM
510 IF I=1 THEN PRINT "First Winter Season Count 1";SUM(I);INT(INCOME)
520 IF I=2 THEN PRINT "First Winter Season Count 2";SUM(I);INT(INCOME)
530 IF I=3 THEN PRINT "First Winter Season Count 3";SUM(I);INT(INCOME)
540 IF I=4 THEN PRINT "Splinter Season Count 1";SUM(I);INT(INCOME)
550 IF I=5 THEN PRINT "Splinter Season Count 2";SUM(I);INT(INCOME)
560 IF I=6 THEN PRINT "Splinter Season Count 3";SUM(I);INT(INCOME)
570 IF I=7 THEN PRINT "Summer Season Count 1";SUM(I);INT(INCOME)
580 IF I=8 THEN PRINT "Summer Season Count 2";SUM(I);INT(INCOME)
590 IF I=9 THEN PRINT "Summer Season Count 3";SUM(I);INT(INCOME)
600 IF I=10 THEN PRINT "Last Fall Season Count 1";SUM(I);INT(INCOME)
610 IF I=11 THEN PRINT "Last Fall Season Count 2";SUM(I);INT(INCOME)
620 IF I=12 THEN PRINT "Last Fall Season Count 3";SUM(I);INT(INCOME)
630 NEXT:MOUNTH=1:INPUT "",PASS:NEXT
640 IF INCOME1+INCOME2>TOTAL THEN PER=(INCOME1+INCOME2)*COUNT*100/(TOTAL*1000000)/RATING
650 IF INCOME1+INCOME2<TOTAL THEN PER=(INCOME1+INCOME2)*COUNT*100/(TOTAL*1000000)/RATING
660 PRINT "share of";PER:PRINT
700 GOTO *START
自動貯蓄計算プログラム
100 REM --------------------
110 REM CopyRight Programming by.Dai Fukuoka 2017-12-16
120 REM Annuity Addition/ PlatForm Service of Dennougumi
130 REM --------------------
140 CONSOLE 0,2,0,1:SCREEN 3,0,0,1:WIDTH 80,25:COLOR 0,7,0,7,2:CLS 3
150 IF POINT(639,479)=POINT(639,399) THEN SHOWVIEW=1 ELSE SHOWVIEW=-1
160 DIM ADDMOUNTH(9999):DIM TOTALYEAR(9999):DIM SEASON(9999)
170 DIM RESULT(9999):DIM TOTAL(9999,10):DIM METHOD(9999):DIM NAMES$(999)
180 DIM COMMANDS$(9999):DIM RABEL$(9999):DIM PHONE$(999):DIM ADDRESS$(999)
190 *START
200 LOCATE 0,0:PRINT "一年変わらない自分の物の年金を名義積み立てにて、長期積み立てプランを簡単に合計金額を簡易審査します。方法は、四半期料、月額料、年間料の３種類が有ります。"
210 LOCATE 0,3:PRINT "Year Addition Cost Mine Annuity on My Name and Method Type is Year Add or Season Add or Mounth Add Choice Annuity Planing with Add Total Costing,This is No Change Deposit Total Annuity Sefety Financial.""
220 LOCATE 0,7:PRINT "使用者は、各情報を必要とし、試算を出すのに、情報を入力しなければなりません。試算を出すのに、個人情報は必要有りません。まず、決済の方法が、税控除額で年金が積み立てられていること、本試算は、何年になっても積み立てている金額が変わらないこと、また、何年後に積み立て結果がわかること。最初の金額と、加算金額と、決済期間と、最終確定金額です。"
230 LOCATE 0,13:PRINT "User Must Need Infomation,Sample Method Out Put Be Typing Infomation,After Method is Need less Private Infometion.About is Deposit Type is Subtract Tax with Payed Annuity This Planning,This is Year on Future at Deposit Same Cost Total No Change it,UnderStand After Year by Medtod Result Deposit Annuity,Start Cost For Plan,Addition Cost For Plan,Tarms on Year is End Trams Year Result Total Cost Planed."
240 LOCATE 0,19:INPUT "次項／Next Pages.",A$:CLS
250 *PLANIN CLS
280 LOCATE 0,0:PRINT "開始金額を入力してください１＝１円"
290 LOCATE 0,2:INPUT "Start Total Need Infomation with Must Type It,Count 1 is 1 Japan Yen Rating Method(0-10000000)Japan Yen :",PLAN1
300 LOCATE 0,5:PRINT "一回の貯蓄金額の入力です:"
310 LOCATE 0,7:INPUT "This Financial Plan is User Must Reply Once Payed Deposit Cost (1-1000000) Japan Yen :",PLAN2:IF PLAN2=0 THEN *PLANIN
320 LOCATE 0,9:PRINT "決済頻度を入力します。（１）一年、（２）４四半期、（３）毎月"
330 LOCATE 0,11:INPUT "This Planing Term 3 Type Paying Case Can Select 3 Type Deposit Mode (1)Years on/(2)Season on/(3)Mounthly on (1-3) : ",PLAN3:IF PLAN3<1 OR PLAN3>3 THEN *PLANIN
340 LOCATE 0,14:PRINT "何年の合計を求めるか、また、年毎の収支報告を結果を表示します。"
350 LOCATE 0,16:INPUT "Requesting Annuity Deposit on Total Cost with This Method is Must User Terms on Year Finalcial Plan.This Quest is Total Cost on Year and Behind Terms at Result Accounting Annuity. Years on (1-99) :",PLAN4
360 IF PLAN4<1 OR PLAN4>99 THEN *PLANIN
370 CLS
380 COUNT=0:RESULTIT=PLAN1:FOR I=1 TO PLAN4
390 IF PLAN3=1 THEN RESULTIT=RESULTIT+PLAN2 ELSE IF PLAN3=2 THEN RESULTIT=RESULTIT+(PLAN2*4) ELSE IF PLAN3=3 THEN RESULTIT=RESULTIT+(PLAN2*12)
400 IF COUNT>19 THEN INPUT "Next.",A$:CLS:COUNT=1
410 LOCATE 0,COUNT:PRINT "Years on ";I;" Deposit Result on Annuity";RESULTIT
420 COUNT=COUNT+1:NEXT:INPUT "next.",A$:IF PLAN3=1 THEN PRINT"End.":END
421 CLS:IF PLAN3=2 THEN *TWO ELSE IF PLAN3=3 THEN *THREE
422 *TWO
430 RESULT2=PLAN1:COUNT=0:FOR T=1 TO PLAN4:FOR I=1 TO 4:RESULT2=RESULT2+PLAN2
440 LOCATE 0,COUNT+I-1:PRINT "Years on";T;"Season";I;"Result is:";RESULT2
445 NEXT
450 COUNT=COUNT+4:IF COUNT>20 THEN COUNT=0:INPUT "Next.",A$:CLS
460 NEXT:PRINT"Equivalent Result";RESULT2:PRINT"End.":END
470 *THREE
480 RESULT3=PLAN1:COUNT=0:FOR T=1 TO PLAN4:FOR I=1 TO 12:RESULT3=RESULT3+PLAN2
490 PRINT "Years on";T;"Mounth";I;"Result is:";RESULT3
500 NEXT
510 INPUT "Next.",A$
520 NEXT:PRINT"Equivalent Result";RESULT3:PRINT"End.":END
プリント用方眼画面作成
150 CONSOLE ,,0:COLOR 0,7,0,7,2:COLOR=(0,2730):CLS 2:FOR I=0 TO 639 STEP 5:FOR T=0 TO 399 STEP 5:LINE(I,0)-(I,399),0:LINE(0,T)-(639,T),0:NEXT T,I:GET(0,0)-(639,399),"eskiss.bmp"
Re: 無題 - 福岡大 Mr.Dai Fukuoka URL
2025/07/02 (Wed) 01:57:25
Data Base Editor Inputting CSV Code
新規の場合は最初の行を無視してエンターしてください。著作権 原作権 福岡大 Mr.Dai Fukuoka
100 REM --------------------
110 REM copyright Module by DaiFukuoka 2016.6.20-7.21
120 REM (c)電脳組
130 REM --------------------
140 CONSOLE 0,24,0,1:SCREEN 3,0,0,1:WIDTH 80,25:COLOR 0,7,0,7,2:CLS 3
150 DIM CSV$(9999,11)
160 IF POINT(639,479)=POINT(639,399) THEN LINEMODE=-1:GOTO *L2 ELSE LINEMODE=1:GOTO *L1
170 *L1
180 LINE (0,0)-(639,18),4,BF:LINE(0,32)-(639,48),4,BF
190 LINE(0,96)-(639,112),5,BF:LINE(0,176)-(639,192),5,BF
200 LINE(0,256)-(639,272),6,BF:GOTO *O1
210 *L2
220 LINE (0,0)-(639,18),4,BF:LINE(0,36)-(639,54),4,BF
230 LINE(0,110)-(639,130),5,BF:LINE(0,187)-(639,204),5,BF
240 LINE(0,263)-(639,282),6,BF
250 *O1
260 LOCATE 0,0:PRINT "Load File Name : ";:INPUT "",LFN$:IF LFN$="" THEN *START
270 OPEN LFN$ AS 1:LEOF=EOF(1):CLOSE 1:IF LEOF=-1 THEN *MAKEFILE
280 OPEN LFN$ FOR INPUT AS #2:
290 FOR I=1 TO 9999:INPUT #2,CSV$(I,1),CSV$(I,2),CSV$(I,3),CSV$(1,4),CSV$(1,5),CSV$(I,6),CSV$(I,7),CSV$(I,8),CSV$(I,9),CSV$(I,10),CSV$(I,11):NEXT:CLOSE #2
300 LOCATE 0,0:PRINT SPC(78);:GOTO *START
310 OPEN LFN$ FOR OUTPUT AS #1
320 FOR I=1 TO 9999:WRITE #1,CSV$(I,1),CSV$(I,2),CSV$(I,3),CSV$(I,4),CSV$(I,5),CSV$(I,6),CSV$(I,7),CSV$(I,8),CSV$(I,9),CSV$(I,10),CSV$(1,11):NEXT:CLOSE #1
330 LOCATE 0,0:PRINT SPC(78);:GOTO *START
340 *START
350 LOCATE 0,0:PRINT SPC(78);
360 IF CSV$(PAGE,ARTICLE)="" THEN CSV$(PAGE,ARTICLE)=" "
370 IF CSV$(PAGE,1)="" THEN CSV$(PAGE,1)=" "
380 IF FLAG=0 THEN PAGE=1:LOCATE 0,0:PRINT "Tittle / Page :";:INPUT "",PAGE:LOCATE 0,1:PRINT CSV$(PAGE,1):LOCATE 0,2:PRINT "Article Preview :";:INPUT "",ARTICLE:LOCATE 0,3:PRINT CSV$(PAGE,ARTICLE)
390 IF FLAG=-1 THEN FLAG=0:LOCATE 0,0:PRINT "Tittle / Page :";PAGE;SPC(200);:LOCATE 0,1:PRINT CSV$(PAGE,1):LOCATE 0,2:PRINT "Article Preview :";ARTICLE;SPC(200);:LOCATE 0,3:PRINT CSV$(PAGE,ARTICLE)
400 LOCATE 0,6:PRINT "Edit Artice";ARTICLE;" Page";SPC(200);PAGE;:LOCATE 0,7:INPUT "",WROTE$
410 IF WROTE$="" OR WROTE$=" " THEN ELSE CSV$(PAGE,ARTICLE)=WROTE$
420 *LOOP1
430 LOCATE 0,10:PRINT "Select Article and Pages";
440 LOCATE 0,11:PRINT "0: NoMove , 1:Add+ , 2: Dec-";:INPUT "",REQUEST
450 IF REQUEST=0 THEN *ACCEPT
460 LOCATE 0,12:PRINT "0:[1]/1:[10]/2:[100]/3:[1000]";:INPUT "",MANY
470 *ACCEPT
480 LOCATE 0,13:PRINT "Okay? 0:Yes / 1:No ";:INPUT "",ACCEPT:IF ACCEPT=1 THEN *LOOP1
490 IF MANY=0 THEN COUNT=1
500 IF MANY=1 THEN COUNT=10
510 IF MANY=2 THEN COUNT=100
520 IF MANY=3 THEN COUNT=1000
530 IF COUNT+PAGE>9999 THEN *LOOP1
540 IF COUNT+PAGE<1 THEN *LOOP1
550 IF REQUEST=0 THEN PAGE=PAGE
560 IF REQUEST=1 THEN PAGE=PAGE+COUNT:FLAG=-1
570 IF REQUEST=2 THEN PAGE=PAGE-COUNT:FLAG=-1
580 LOCATE 0,14:PRINT "For Number of Article : (1-11) : ";:INPUT "",ARTICLE
590 IF ARTICLE<1 OR ARTICLE>11 THEN ARTICLE=1
600 LOCATE 0,15:PRINT "0:Saving Sequence 1:No Think : ";:INPUT "",FILESAVE
610 IF FILESAVE=1 THEN *START ELSE IF FILESAVE=0 GOTO *SFN
620 *SFN
630 LOCATE 0,16:PRINT "Save File Name : ";:INPUT "",SFN$
640 CLS:IF SFN$="" THEN *LOOP1
650 OPEN SFN$ AS 1:CLOSE 1:OPEN SFN$ FOR OUTPUT AS #1
660 FOR I=1 TO 9999:WRITE #1,CSV$(I,1),CSV$(I,2),CSV$(I,3),CSV$(1,4),CSV$(1,5),CSV$(I,6),CSV$(I,7),CSV$(I,8),CSV$(I,9),CSV$(I,10),CSV$(I,11):NEXT:CLOSE #1
670 GOTO *START
680 *IFEND GOTO *START:END IF:END