幻聴で思った事その４
2023.0709(Sun)
福岡大
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
2023.0709(Sun)
福岡大
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