日記 更新 ６月４日 日曜日 ベーシックプログラミング 開発完成 ソフト販売 サンプル

幻聴で思った事その４
2023.07.25(Tue)
福岡大

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)