日記 星占いソフト プログラミング foundation engineer license development ９８ベーシック 福岡大（作） ５月２３日火曜日

幻聴で思った事その４
2023.0710(Mon)
福岡大

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 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 "９コードの年号を数値で入力してください",ASK
210 PRINT "あなたの星は",HOSI$(ASK);"年です"
220 GOTO 200

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 eath black","star of three lightning cobalt","star of four green wind","star of five gia's yello","star of six heaven white,"star of saven red lake","star of eight mountein 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