トップページ | 海鳥亭PV

無題 - Mr.Dai Fukuoka 福岡大 URL 2025/09/03 (Wed) 04:50:30 100 REM -------------------- 110 REM Programing by Dai Fukuoka Estate Stock Market (C)2017.03.24-04.12 120 REM Development Soft by Dennougumi(C)電脳組 130 REM -------------------- 140 CONSOLE 0,25,0,1:SCREEN 3,0,0,1:COLOR 0,7,0,0,1:WIDTH 80,25:CLS 3:PAGE=1 150 DIM CSV$(9999,11):DIM CSV(9999,11):DIM METHOD$(9999,11):DIM METHOD(9999,11) 160 DIM ACCOUNTIT(12,99):DIM CLOSEYEAR(99) 170 IF POINT(639,399)=POINT(639,479) THEN SHOWMODE=1 180 LOCATE 0,0:PRINT "Estate Stock Market,User Must Reply Item in Method Case." 190 LOCATE 0,1:PRINT "不動産証券に計算式の場合、使用者は、項目を返答しなければなりません" 200 LOCATE 0,2:PRINT "User Must Total Estate Account Reply Exsiste Now" 210 LOCATE 0,3:PRINT "使用者は、不動産経理の今の合算を答えなければなりません" 220 LOCATE 0,4:PRINT "User Need Key Board Typing with on Reply Ask it." 230 LOCATE 0,5:PRINT "返事を尋ねるそれの使用者は、キーボード入力を必要とします" 240 LOCATE 0,6:PRINT "User Plan is 2 Type Category on 30 Exparent Type (\6,000,000) or 50 Exparent Type (\100,000,000) Choicen It." 250 LOCATE 0,8:PRINT "使用者の計画は２種類あり、３０指数６千万円と、５０指数１億円あります、これを選択します" 260 LOCATE 0,10:PRINT "All Alloment is Exchange Estate Fix Tax After Some Tax by Issue StockMarket." 270 LOCATE 0,11:PRINT"全部の配当は、固定不動産税のあと、同じ税によって証券発行をします" 280 LOCATE 0,12:PRINT "User Account is Decision Mounth Sale in 1 Year Total Tax Credit Debt." 290 LOCATE 0,13:PRINT "使用者の経理の結論は、月の売り上げを１年の合算税として、売掛します" 300 LOCATE 0,14:PRINT "This Stock Market is Target Estate Insurance Tax With Control." 310 LOCATE 0,15:PRINT "この証券は、不動産保険税を対象としています、また一緒に調整します" 320 LOCATE 0,16:PRINT "This Contents have 30 Exparent Category is First Park,Farm,Security, Secound FirePlace Last City Office Use Insurance." 330 LOCATE 0,18:INPUT "Next Clause Pages:",PAGE$:CLS 340 LOCATE 0,0:PRINT "この内容は、３０指数の種類は、公園、農園、証券のものと、次に防火区域権、最後に、市役所が使う保険があります" 350 LOCATE 0,2:PRINT "This Contents have 50 Exparent Category is First Cigarette,Secound Alcoholic Tax Third Low-Justice Tax Force Order-Gudge Tax Last Safe Poket Cargo Tax." 360 LOCATE 0,4:PRINT "この内容は５０指数の種類は、初めに煙草税、次に酒税、次に、弁護税、次に裁判税、最後に安全小包税" 370 LOCATE 0,6:PRINT "This StockMarket Account Sale is 100PerCapital Body,Addit 100PerCapital is Contract Accessment" 380 LOCATE 0,11:PRINT "２０割の経理収入は２０割中２割、所得税２割、固定資産税１割、雇用３割、雇用枠最大人数指数" 390 LOCATE 0,9:PRINT "This 200Per Account is Incoming 20Per and Income Tax 20Per and Estate Fix Tax is 10Per Empolyment 30Per Tax and Low Line is 6Member High Line is Exparent." 400 LOCATE 0,11:PRINT "２０割の経理は収入は２０割中２割、所得税２割、固定資産税１割、雇用３割、雇用枠最大指数人数" 410 LOCATE 0,13:PRINT "煙草税は、精機、半導体に対応する、高い資材コスト、酒税は、総務と、販売士だけの一般市場、安全小包税は、主に、運輸業に充てられる" 420 LOCATE 0,15:PRINT "Cigarette is Worker Unit Cost Low Plan with HighIncoming,Alcoholic is Target Sale Plan with General,Sefe Pocket Post Office is TransPort Tax." 430 LOCATE 0,17:PRINT "このプログラムは、期間を月で開始し、その間、同じペースで増え、売上猶予を付け、不動産保険税証明書のかかる金額を、３０と、５０指数とします" 440 LOCATE 0,19:PRINT "This Program is Terms in Begin Mounth Between Some Timming Addit Sale Delay and Since Insurance Tax Cost All Count Total Exparent 30,50" 450 LOCATE 0,21:INPUT "Next Clause Pages:",PAGE$:CLS 460 START 470 LOCATE 0,0:INPUT "１２ヶ月間始める月を答えてください/Between 12 Mounth Reply Begin Mounth :",CSV(PAGE,1) 480 LOCATE 0,1:INPUT "売掛をする年数を答てください/Reply Credit Debit Close Yearegin Mounth :",CSV(PAGE,2) 490 LOCATE 0,2:INPUT "日本円と比較する通貨の単価を答えてください/Reply Amount Ratio Exchange Compare Japan Yen to It:",CSV(PAGE,3) 500 LOCATE 0,4:INPUT "地方圏の最大個数を答えてください/Reply to Region Place andEstate Insurance Tax StockMarket Target Count It:",CSV(PAGE,4) 510 LOCATE 0,6:INPUT "借地権区域の最大個数を答えてください/Reply to High Density City Place andEstate Insurance Tax StockMarket Target Count It:",CSV(PAGE,5) 520 LOCATE 0,8:INPUT "剰余される税を残すか、期間を途中で停止するか０：途中停止と１：剰余加算で答えてください/Reply (0:Stop Terms) or (1:Exsist Surplus Addit Amount):",CSV(PAGE,6) 530 LOCATE 0,10:INPUT "土地を不当に売却すると、禁錮３か月以上に問われる事があります、売却土地代金で税金に投資することは合法ですが、税は都市間を移動できません/Place No Buy,But Arrest 3 Mounth,Place Buy Cost Exchange Tax Not Illgal,Tax No Move City(0:Yes/1:No):",CSV(PAGE,7) 540 LOCATE 0,13:INPUT "最初の予算金額を答えてください、日本単価を換算値で換算します/Reply Start Bigin Plan Cost Unit,Japan Yen less Than to Kind Multiply Ratio(0:Yes/1:Simple) :",CSV(PAGE,8) 550 LOCATE 0,16:INPUT "登録される市区町村を答えてください/Reply Regist Section Name:",CSV$(PAGE,9) 560 LOCATE 0,17:INPUT "オペレータの名前を答えてください/Reply Naming Operator:",CSV$(PAGE,9) 570 LOCATE 0,18:INPUT "生年月日の情報を答えてください/Reply Birth infomation Year-Mounth-Day:",CSV$(PAGE,10) 580 LOCATE 0,19:INPUT "Next Clause Pages:",PAGE$:CLS 590 CSV$(PAGE,11)=DATE$+TIME$ 600 PROGRESS1 610 STARTYEAR 620 COUNTIT=0:IF CSV(PAGE,1)=>1 AND CSV(PAGE,1)=<12 THEN ELSE START 630 IF CSV(PAGE,3)=<0 OR CSV(PAGE,8)=<0 OR CSV(PAGE,2)=<0 THEN START 640 IF CSV(PAGE,1)(CSV(PAGE,8)/10)/CSV(PAGE,3)<(CSV(PAGE,4)60000000/CSV(PAGE,3))+(CSV(PAGE,5)100000000/CSV(PAGE,3)) THEN IRESULT=1 ELSE IRESULT=2 650 STARTMOUNTH=CSV(PAGE,8)(13-CSV(PAGE,1))/10/CSV(PAGE,3) 660 PRINT "FirstYearAccount with Ratio:";CSV(PAGE,8)/101.2# 670 ADD1=(CSV(PAGE,8)/10/CSV(PAGE,3)):ACCOUNTIT(I,YEARS)=ADD1(13-CSV(PAGE,1)+I) 680 CLOSEYEAR(1)=CSV(PAGE,8)/CSV(PAGE,3)+ADD1(13-CSV(PAGE,1)) 690 FOR I=CSV(PAGE,1) TO 12:ADD1=(CSV(PAGE,8)/10/CSV(PAGE,3)):BEGINTOTAL=CSV(PAGE,1)+ADD113-CSV(PAGE,1) 700 ACCOUNTIT(CSV(PAGE,1)+COUNTIT-1,1)=ADD1I:PRINT I;"Mounth Income";ADD1;"total";BEGINTOTAL:PRINT ACCOUNTIT(I,1):NEXT 710 NOWTOTAL=ADD1+CSV(PAGE,8):NOWUNIT=ADD1CSV(PAGE,3)+CSV(PAGE,8) 720 CLOSEYEAR(1)=BEGINTOTAL 730 IF NOWUNIT=<999999 THEN ERESULT=0:PRINT "Out of Account" ELSE IF NOWUNIT=<20000000 THEN ERESULT=1:PRINT "Charge Enterprise Annuity and ";NOWTOTAL ELSE PRINT "Accessment Estate Insurance Place Tax is ";ADD1;"on Year.";BEGINTOTAL 740 RESTARTYEAR 750 YEARS=YEARS+1:IF YEARS<CSV(PAGE,2) THEN ELSE SKIP1 760 BEGINYEAR=BEGINYEAR+1:MAXREGION=CSV(PAGE,4):MAXCITY=CSV(PAGE,5):COSTREGION=60000000/CSV(PAGE,3):COSTHIGHCITY=100000000/CSV(PAGE,3):BOOLIANT=0:FIRSTYEAR=STARTMOUNTH:ANUITY=59999999/CSV(PAGE,3) 770 MAXREGIONEXPARENT=(CSV(PAGE,4)30):MAXCITYEXPARENT=(CSV(PAGE,5)50) 780 BEGINAMOUNT=CSV(PAGE,8)/CSV(PAGE,3):BEGINSALE=CSV(PAGE,8)/10(13-CSV(PAGE,1)):NEXTSALE=CSV(PAGE,8)/10CSV(PAGE,3):ENTERPRISECOST=20000000:EXPARENTCOST=5D-007:REGIONEXPARENT=COSTREGIONEXPARENTCOST:HIGHCITYEXPARENT=COSTHIGHCITYEXPARENTCOST 790 IF BEGINTOTAL>COSTREGION THEN COUNTREGION=INT(BEGINTOTAL/COSTREGION) 800 IF BEGINTOTAL>COSTREGIONMAXREGION THEN COUNTREGION=MAXREGION 810 IF BEGINTOTAL>(COSTREGIONMAXREGION+COSTHIGHCITYMAXHIGHCITY) THEN COUNTCITY=MAXHIGHCITY 820 IF BEGINTOTAL>(MAXREGIONCOSTREGION) THEN COUNTCITY=INT((BEGINTOTAL-(COSTREGIONMAXREGION))/COSTHIGHCITY) 830 IF COUNTCITY>MAXCITY THEN COUNTCITY=MAXCITY 840 IF ((MAXREGIONCOSTREGION)+(COSTHIGHCITYMAXCITY))>BEGINTOTAL THEN SURPLUS=BEGINTOTAL-(MAXREGIONCOSTREGION)+(MAXCITYCOSTHIGHCITY) 850 IF CSV(PAGE,2)=<1 THEN ERESULT=0 860 IF NOT ERESULT=0 THEN EXPARENT1=MAXREGIONEXPARENT+MAXCITYEXPARENT:PRINT "Exparent";EXPARENT1 870 INPUT "Close Plan Enter Continue:",LISTEN$:IF CSV(PAGE,2)=<1 THEN CLS 3:GOTO START 880 IF BEGINTOTAL>=20000000 THEN OVERENTERPRISE=1 ELSE OVERENTERPRISE=0 890 PRINT "ESTATE REGION:";COUNTREGION;"/HIGH CITY:";COUNTCITY 900 FOR I=1 TO 12:ADD1=(COSTREGION/20COUNTREGION)+(COSTHIGHCITY/20COUNTCITY) 910 ACCOUNTIT(I,YEARS)=ADD1I+BEGINTOTAL:PRINT I;"Mounth Income";ADD1;"total";BEGINTOTAL+(ADD1I):NEXT:CLOSEYEAR(YEAR)=BEGINTOTAL+(ADD112) 920 PRINT "NextYearTotal Addition 12 Month:";BEGINTOTAL+(ADD112);"Income:";ADD1;"Between Term:";YEARS+1:CLOSEYEAR(YEARS)=BEGINTOTAL+(ADD112) 930 BEGINTOTAL=BEGINTOTAL+(ADD112) 940 IF YEARS<=CSV(PAGE,2) THEN RESTARTYEAR 950 SKIP1 960 OFN$="ESM"+MID$(DATE$,1,2)+MID$(DATE$,4,2)+MID$(DATE$,7,2) 970 OFN2$="ESMTAG"+MID$(DATE$,1,2)+MID$(DATE$,4,2)+MID$(DATE$,7,2) 980 OPEN OFN$ AS 1:IDENTIFY=EOF(1):CLOSE:PRINT IDENTIFY 990 IF IDENTIFY=-1 THEN NEWOPENFILE ELSE LOADOPENNAME 1000 NEWOPENFILE OPEN OFN$ FOR OUTPUT AS #1:FOR T=1 TO YEARS:FOR I=1 TO 12:WRITE #1,ACCOUNTIT(I,T):NEXT I:WRITE #1,CLOSEYEAR(T):NEXT T:CLOSE #1:GOTO LOADFILENAME 1010 OPEN OFN2$ AS 1:IDENTIFY=EOF(2):CLOSE:PRINT IDENTIFY 1020 IF IDENTIFY=-1 THEN SKIPOUT ELSE LOADOPENFILE 1030 NEWOPENTAG OPEN OFN2$ FOR OUTPUT AS #2:FOR I=1 TO 11:WRITE #2,CSV(PAGE,I):NEXT:CLOSE #2:GOTO LOADEFILENAME 1040 LOADOPENNAME OPEN OFN$ AS 1:LCHECK=EOF(1):CLOSE 1050 IF LCHECK=0 THEN SKIPOUT ELSE FORWARD 1060 FORWARD OPEN OFN$ FOR INPUT AS #1:FOR I=CSV(PAGE,1) TO 12:INPUT #1,ACCOUNTIT(I,T):NEXT I:WRITE #1,CLOSEYEAR(1) 1070 FOR I=2 TO YEARS:FOR I=1 TO 12:INPUT #1,ACCOUNTIT(I,T):NEXT I:WRITE #1,CLOSEYEAR(1):NEXT T:CLOSE #1 1080 SKIPOUT Re: 無題 - Mr.Dai Fukuoka 福岡大 URL 2025/09/03 (Wed) 05:11:45 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) 151 IF POINT(639,479)=POINT(639,399) THEN LINEMODE=-1:GOTO L2 ELSE LINEMODE=1:GOTO L1 152 L1 160 LINE (0,0)-(639,18),4,BF:LINE(0,32)-(639,48),4,BF 170 LINE(0,96)-(639,112),5,BF:LINE(0,176)-(639,192),5,BF 180 LINE(0,256)-(639,272),6,BF:GOTO O1 182 L2 183 LINE (0,0)-(639,18),4,BF:LINE(0,36)-(639,54),4,BF 184 LINE(0,110)-(639,130),5,BF:LINE(0,187)-(639,204),5,BF 185 O1 190 LOCATE 0,0:PRINT "Load File Name : ";:INPUT "",LFN$:IF LFN$="" THEN START 200 OPEN LFN$ AS 1:LEOF=EOF(1):CLOSE 1:IF LEOF=-1 THEN MAKEFILE 210 OPEN LFN$ FOR INPUT AS #2: 220 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 230 LOCATE 0,0:PRINT SPC(78);:GOTO START 240 OPEN LFN$ FOR OUTPUT AS #1 250 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 260 LOCATE 0,0:PRINT SPC(78);:GOTO START 270 START 280 LOCATE 0,0:PRINT SPC(78); 290 IF CSV$(PAGE,ARTICLE)="" THEN CSV$(PAGE,ARTICLE)=" " 300 IF CSV$(PAGE,1)="" THEN CSV$(PAGE,1)=" " 310 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) 320 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) 330 LOCATE 0,6:PRINT "Edit Artice";ARTICLE;" Page";SPC(200);PAGE;:LOCATE 0,7:INPUT "",WROTE$ 340 IF WROTE$="" OR WROTE$=" " THEN ELSE CSV$(PAGE,ARTICLE)=WROTE$ 350 LOOP1 360 LOCATE 0,10:PRINT "Select Article and Pages"; 370 LOCATE 0,11:PRINT "0: NoMove , 1:Add+ , 2: Dec-";:INPUT "",REQUEST 380 IF REQUEST=0 THEN ACCEPT 390 LOCATE 0,12:PRINT "0:[1]/1:[10]/2:[100]/3:[1000]";:INPUT "",MANY 400 ACCEPT 410 LOCATE 0,13:PRINT "Okay? 0:Yes / 1:No ";:INPUT "",ACCEPT:IF ACCEPT=1 THEN LOOP1 420 IF MANY=0 THEN COUNT=1 430 IF MANY=1 THEN COUNT=10 440 IF MANY=2 THEN COUNT=100 450 IF MANY=3 THEN COUNT=1000 460 IF COUNT+PAGE>9999 THEN LOOP1 470 IF COUNT+PAGE<1 THEN LOOP1 480 IF REQUEST=0 THEN PAGE=PAGE 490 IF REQUEST=1 THEN PAGE=PAGE+COUNT:FLAG=-1 500 IF REQUEST=2 THEN PAGE=PAGE-COUNT:FLAG=-1 510 LOCATE 0,14:PRINT "For Number of Article : (1-11) : ";:INPUT "",ARTICLE 520 IF ARTICLE<1 OR ARTICLE>11 THEN ARTICLE=1 530 LOCATE 0,15:PRINT "0:Saving Sequence 1:No Think : ";:INPUT "",FILESAVE 540 IF FILESAVE=1 THEN START ELSE IF FILESAVE=0 GOTO SFN 550 SFN 560 LOCATE 0,16:PRINT "Save File Name : ";:INPUT "",SFN$ 570 CLS:IF SFN$="" THEN LOOP1 580 OPEN SFN$ AS 1:CLOSE 1:OPEN SFN$ FOR OUTPUT AS #1 590 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 600 GOTO START 610 IFEND GOTO START:END IF:END Re: 無題 - Mr.Dai Fukuoka 福岡大 URL 2025/09/03 (Wed) 05:02:55 100 REM -------------------- 110 REM CopyRight Module By DaiFukuoka 2015-11-02/2015-11-05 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:DIM A$(1000,11):DIM CSV(1000,11):DIM DAYMAP(24):GOTO DAYSTARTUP 160 START 170 STEP1 LOCATE 0,0:INPUT "？始まりの日付を入力してください例：",D1 180 REM IF Y1>99 OR Y1<1 Then DD<1Step3 190 STEP2 LOCATE 0,1:INPUT "？始まりの月を入力してください：",M1 200 STEP3 LOCATE 0,2:INPUT "？始まりの年日を入力してください",Y1 210 STEP4 LOCATE 0,3:INPUT "？日付からの日数の期限を入力してください例４００（１年３５日）：",DD 220 IF DD<1 THEN STEP4 230 FORYEAR 240 IF DD>365 THEN DIVIEDYEAR ELSE DMY 250 DIVIEDYEAR 260 IF FP>0 AND DD<36.25# THEN DAYCOUNTER=INT(DD+FP):YEARRESULT=Y1+(DD/365.25#) 270 IF DD>0 THEN DAYCOUNTER=INT(DD) 280 IF YEARCOUNTER/4=INT(YEARCOUNTER/4) THEN FP=FP+(YEARCOUNTER/4):FP=FP/365 290 IF DD>366 AND FP>0 THEN DAYCOUNTER=DD/(YEARCOUNTER/365+FP) 300 IF DD>365 THEN LET DAYCOUNTER=DD/365 310 REM LET YEARRESULT=Y1+YEARCOUNTER 320 GOTO DDEXCHANGE 330 DDEXCHANGE 340 IF DAYCOUNTER> 31 THEN LET MOUNTHRESULT=2:IF DAYCOUNTER> 31 THEN DAYRESULT=DAYCOUNTER-31 350 IF DAYCOUNTER> 60 THEN LET MOUNTHRESULT=3:IF DAYCOUNTER> 60 THEN DAYRESULT=DAYCOUNTER-60 360 IF DAYCOUNTER> 91 THEN LET MOUNTHRESULT=4:IF DAYCOUNTER> 91 THEN DAYRESULT=DAYCOUNTER-91 370 IF DAYCOUNTER> 121 THEN LET MOUNTHRESULT=5:IF DAYCOUNTER>121 THEN DAYRESULT=DAYCOUNTER-121 380 IF DAYCOUNTER> 151 THEN LET MOUNTHRESULT=6:IF DAYCOUNTER>151 THEN DAYRESULT=DAYCOUNTER-151 390 IF DAYCOUNTER> 181 THEN LET MOUNTHRESULT=7:IF DAYCOUNTER>181 THEN DAYRESULT=DAYCOUNTER-181 400 IF DAYCOUNTER> 212 THEN LET MOUNTHRESULT=8:IF DAYCOUNTER>212 THEN DAYRESULT=DAYCOUNTER-212 410 IF DAYCOUNTER> 243 THEN LET MOUNTHRESULT=9:IF DAYCOUNTER>243 THEN DAYRESULT=DAYCOUNTER-243 420 IF DAYCOUNTER> 273 THEN LET MOUNTHRESULT=10:IF DAYCOUNTER>304 THEN DAYRESULT=DAYCOUNTER-273 430 IF DAYCOUNTER> 304 THEN LET MOUNTHRESULT=11:IF DAYCOUNTER>334 THEN DAYRESULT=DAYCOUNTER-304 440 IF DAYCOUNTER> 334 THEN LET MOUNTHRESULT=12:IF DAYCOUNTER>334 THEN DAYRESULT=DAYCOUNTER-334 450 IF DAYCOUNTER> 365 THEN LET MOUNTHRESULT=1:IF DAYCOUNTER>365 THEN DAYRESULT=DAYCOUNTER-365 460 DMY 470 IF M1=1 THEN MOUNTH01 ELSE IF M1=2 THEN MOUNTH02 480 IF M1=3 THEN MOUNTH03 ELSE IF M1=4 THEN MOUNTH04 490 IF M1=5 THEN MOUNTH05 ELSE IF M1=6 THEN MOUNTH06 500 IF M1=7 THEN MOUNTH07 ELSE IF M1=8 THEN MOUNTH08 510 IF M1=9 THEN MOUNTH09 ELSE IF M1=10 THEN MOUNTH10 520 IF M1=11 THEN MOUNTH11 ELSE IF M1=12 THEN MOUNTH12 530 GOTO STEP1 540 MOUNTH01 550 IF M1>31 THEN STEP1 560 LET STARTDAY=D1:LET STEIRDAY=STARTDAY 570 GOTO ADDDAY 580 MOUNTH02 590 IF M1>29 THEN STEP1 600 LET STARTDAY=D1:LET STEIRDAY=STARTDAY+31:REM 31 610 GOTO ADDDAY 620 MOUNTH03 630 IF M1>31 THEN STEP1 640 LET STARTDAY=D1:LET STEIRDAY=STARTDAY+31+29:REM 60 650 GOTO ADDDAY 660 MOUNTH04 670 IF M1>30 THEN STEP1 680 LET STARTDAY=D1:LET STEIRDAY=STARTDAY+31+29+31:REM 91 690 GOTO ADDDAY 700 MOUNTH05 710 IF M1>31 THEN STEP1 720 LET STARTDAY=D1:LET STEIRDAY=STARTDAY+31+29+31+30:REM 121 730 GOTO ADDDAY 740 MOUNTH06 750 IF M1>30 THEN STEP1 760 LET STARTDAY=D1:LET STEIRDAY=STARTDAY+31+29+31+30+31:REM 151 770 GOTO ADDDAY 780 MOUNTH07 790 IF M1>31 THEN STEP1 800 LET STARTDAY=D1:LET STEIRDAY=STARTDAY+31+29+31+30+31+30:REM 181 810 GOTO ADDDAY 820 MOUNTH08 830 IF M1>31 THEN STEP1 840 LET STARTDAY=D1:LET STEIRDAY=STARTDAY+31+29+31+30+31+30+31:REM 212 850 GOTO ADDDAY 860 MOUNTH09 870 IF M1>30 THEN STEP1 880 LET STARTDAY=D1:LET STEIRDAY=STARTDAY+31+29+31+30+31+30+31+31:REM 243 890 GOTO ADDDAY 900 MOUNTH10 910 IF M1>31 THEN STEP1 920 LET STARTDAY=D1:LET STEIRDAY=STARTDAY+31+29+31+30+31+30+31+31+30:REM 273 930 GOTO ADDDAY 940 MOUNTH11 950 IF M1>30 THEN STEP1 960 LET STARTDAY=D1:LET STEIRDAY=STARTDAY+31+29+31+30+31+30+31+31+30+31:REM 304 970 GOTO ADDDAY 980 MOUNTH12 990 IF M1>31 THEN STEP1 1000 LET STARTDAY=D1:LET STEIRDAY=STARTDAY+31+29+31+30+31+30+31+31+30+31+30:REM 334 1010 GOTO ADDDAY 1020 ADDDAY 1030 IF STARTDAY>STEIRDAY THEN STEP1 1040 IF YEARCOUNTER=0 THEN YEARCOUNTER=2016 1050 LET TOTALRESULT=STEIRDAY+DD 1060 IF TOTALRESULT>365 THEN LET YEARDEVIED=INT(TOTALRESULT/365) 1070 IF YEARDEVIED>0 THEN LET RESULT=TOTALRESULT-(365YEARDEVIED) 1080 IF RESULT<0 THEN STEP1 1090 IF YEARCOUNT>1 THEN LET YEARRESULT=INT(Y1+YEARCOUNT)+FP 1100 IF YEARCOUNT<1 THEN LET YEARRESULT=Y1 1110 IF YEARRESULT<1 THEN YEARSINN 1120 IF RESULT<356 THEN YEARSIN 1130 YEARSIN LET DAY=DD 1140 U=DD+D1 1141 IF DD=<365.25# THEN SKIP01 1150 WHILE U<365.25# 1160 IF U<=365.25# THEN U=U-365.25#:E=E+1:YEARTRACK=E+Y1:YEARRESULT=YEARTRACK 1170 WEND 1171 SKIP01 1172 IF U=<365.25# THEN MOUNTH=1:YEARRESULT=YEARRESULT+1:GOTO SKIP02 1180 J=U:WHILE J<365.25#:IF J>367 THEN J=J-365.25# 1190 WEND:FOR I=1 TO 12:IF DAYMAP(I)<J THEN P=I:PRINT U,P,J 1200 NEXT:DAY=P 1201 SKIP02 1210 S=U 1220 WHILE S<=32:K=K+1 1221 IF K=>12 THEN GOTO SKIP03 1230 IF D1+S<=DAYMAP(K) AND K<13 THEN S=S-DAYMAP(K):DAYTRACK=S+D1:PRINT S 1240 WEND 1241 SKIP03 1245 COUNT=DD:WHILE COUNT>365.25# 1250 IF RESULT> 31+FP THEN LET MOUNTH=2:IF RESULT> 31 THEN DAYRESULT=DAY-31 1260 IF RESULT> 60 THEN LET MOUNTH=3:IF RESULT> 60 THEN DAYRESULT=DAY-60 1270 IF RESULT> 91 THEN LET MOUNTH=4:IF RESULT> 91 THEN DAYRESULT=DAY-91 1280 IF RESULT> 121 THEN LET MOUNTH=5:IF RESULT>121 THEN DAYRESULT=DAY-121 1290 IF RESULT> 151 THEN LET MOUNTH=6:IF RESULT>151 THEN DAYRESULT=DAY-151 1300 IF RESULT> 181 THEN LET MOUNTH=7:IF RESULT>181 THEN DAYRESULT=DAY-181 1310 IF RESULT> 212 THEN LET MOUNTH=8:IF RESULT>212 THEN DAYRESULT=DAY-212 1320 IF RESULT> 243 THEN LET MOUNTH=9:IF RESULT>243 THEN DAYRESULT=DAY-243 1330 IF RESULT> 273 THEN LET MOUNTH=10:IF RESULT>304 THEN DAYRESULT=DAY-273 1340 IF RESULT> 304 THEN LET MOUNTH=11:IF RESULT>334 THEN DAYRESULT=DAY-304 1350 IF RESULT> 334 THEN LET MOUNTH=12:IF RESULT>334 THEN DAYRESULT=DAY-334 1360 IF RESULT> 365 THEN LET MOUNTH=1:IF RESULT>365 THEN DAYRESULT=DAY-365 1365 CONUT=COUNT+365.25# 1366 IF COUNT>365.25# THEN COUNT=COUNT-365.25# 1367 WEND 1370 LOCATE 0,5:PRINT "期間の結果は";YEARRESULT;"年";MOUNTH;"月";DAY;"日です" 1380 SKIP GOTO START 1390 DAYSTARTUP 1400 DATA 31,28.25,31,30,31,30,31,31,30,31,30,31 1410 FOR T=1 TO 12:READ DAYMAP(T):NEXT 1420 GOTO START 1430 SKIP1OUT Re: 無題 - Mr.Dai Fukuoka 福岡大 URL 2025/09/03 (Wed) 05:00:12 100 REM --------------------- 110 REM StockMarketLister Program by Dai Fukuoka 2016.08.09 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 CSV$(11,10000):DIM CSV(11,10000):DIM CELL$(11,10000):DIM CELL(11,10000) 160 DIM STAFFNUM(9999):DIM STAFFNUM$(9999):DIM STAFFEXPARENT(9999):DIM STAFFBRUNCH(9999):DIM STAFFLIST(9999):DIM PLAN(9999):DIM PLAN$(9999):DIM SURPLUS(9999) 170 DIM CHEIF(99):DIM LISTED(99):DIM CHECKED(9999):DIM CHECKER(9999) 180 DIM BRUNCH(9999):DIM DATES$(9999):DIM TIMES$(9999):DIM EXPARENT(9999) 190 DIM MONEY$(9999):DIM INCOME(9999):DIM CSV2$(11,9999):DIM CSV2(11,9999) 200 DIM COMPANYNAME$(9999):DIM QUEST$(9999):DIM VERYFIY(11,9999):DIM VERIFIY$(11,9999):DIM TOTALED(9999) 210 START 220 PRINT "investment type of select count of (1) Standard ,count of (2) Capital ,count of (3) Groupment Commitioner" 230 PRINT "投資形式を選択してください(1)基本投資型(2)資本主義型(3)理事体型 :";:INPUT "",INVEST:IF INVEST=0 THEN INVEST=1 240 IF INVEST=1 THEN CSV$(1,1)="Standard" ELSE IF INVEST=2 THEN CSV$(1,1)="Chapital" ELSE IF INVEST=3 THEN CSV$="Commitioner" 250 PRINT "Type Name at StoreName or CompanyName " 260 PRINT "会社の本店名屋号並びに社名を入力してください　:";:INPUT "",COMPANYNAME$(1):IF COMPANYNAME$(1)="" THEN CSV$(2,1)="NoTitle" ELSE CSV$(2,1)=COMPANYNAME$:FOR Y=2 TO 48:COMPANYNAME$(Y)=COMPANYNAME$(1):NEXT 270 PRINT "Branch Industrial or Commerce Type of Count" 280 PRINT "支店の数を入力してください :";:INPUT "",BRUNCHCOUNT:IF BRUNCHCOUNT=0 THEN BRUNCHCOUNT=1:CSV$(3,1)=STR$(BRUNCHCOUNT) ELSE CSV$(3,1)=STR$(BRUNCHCOUNT) 290 PRINT "Country Name or Locate Type of Name" 300 PRINT "国籍並びに所在地を入力してください";:INPUT "",LOCATION$:IF LOCATION$="" THEN CSV$(4,1)="NoPlace" ELSE CSV$(4,1)=LOCATION$ 310 PRINT "Type Name Leader Director President or Group President " 320 PRINT "代表取締役社長氏名、並びに、グループ会頭氏名を入力してください :";:INPUT "",LEADERNAME$:IF LEADERNAME$="" THEN CSV$(5,1)="NoName" ELSE CSV$(5,1)=LEADERNAME$ 330 PRINT "Brunch Trade at the Root Number President or [(1)BrunchClub(2)Judiciary(3)Registor] 340 PRINT "支店の枝の数を入力してください(1-3) :";:INPUT "",BRUNCHROOT:IF BRUNCHROOT=0 THEN CSV$(6,1)=STR$(1)+"BrunchNumber" ELSE CSV$(6,1)=STR$(BRUNCHROOT)+"Brunch Number" 350 PRINT "Exparent Than Standard Money Type of (1)Europa(2)Japan(3)USA" 360 PRINT "指数に対する通貨を入力してください(1)Euro(2)Yen(3)UsaDoll :";:INPUT "",MONEYMODE 370 IF MONEYMODE=1 THEN RATE=180 ELSE IF MONEYMODE=2 THEN RATE=1 ELSE IF MONEYMODE=3 THEN RATE=133 380 IF RATE=0 THEN RATE=180 390 CSV$(7,1)=STR$(INT(DIVITION/RATE+.1#/1000000)) 400 PRINT "Gruop of Central Group Name Type for Name" 410 PRINT "資本となる中心組織体の組織名を入力してください :";:INPUT "",LEADERCOMPANY$:IF LEADERCOMPANY$="" THEN CSV$(8,1)="NoLeader" ELSE CSV$(8,1)=LEADERCOMPANY$ 420 PRINT "Central Gruop Invest and Surplus Pool up Addit FineExchange" 430 PRINT "中心組織の投資運用剰余金を指数で割って入力してください :";:INPUT "",DIVITION:IF DIVITION=0 THEN DIVITION=1 440 CSV$(9,1)=STR$(INT(DIVITION/1000000)):TOTAL=DIVITION/RATE+.1#1000000 450 PRINT DATE$+"-"+TIME$;"Get Sinece 4colmnYear yyyy/mm/dd - Time hh/mm/ss" 460 PRINT DATE$+"-"+TIME$;"今日の日付と、株の申告予定日年は４桁、他は２桁";:INPUT "",SINCE$ 470 IF SINCE$="" OR SINCE$="-" OR SINCE$=" " THEN SINCE$=DATE$+"-"+TIME$ 480 CSV$(10,1)=SINCE$ 490 PRINT "Appointment Accept file Name" 500 PRINT "プロファイルのファイル名を指定してください :";:INPUT "",OTN$ 510 IF OTN$="" THEN OTN$="Defualt" 520 OPEN OTN$ AS 1:FLAG=EOF(1):CLOSE 1 530 IF FLAG=-1 THEN ELSE SKIPTO 540 OPEN OTN$ FOR OUTPUT AS #1 550 WRITE #1,CSV$(1,1),CSV$(2,1),CSV$(3,1),CSV$(4,1),CSV$(5,1),CSV$(6,1),CSV$(7,1),CSV$(8,1),CSV$(9,1),CSV$(10,1),OTN$ 560 CLOSE #1 570 SKIPTO GOTO INVEST 580 GOTO START 590 INVEST 600 IF CSV$(7,1)=" 7518" THEN MONEYS$="UsaDoll":RATE=133 610 IF CSV$(7,1)=" 5555" THEN MONEYS$="Euro":RATE=180 620 IF CSV$(7,1)=" 1000000" THEN MONEYS$="YEN":RATE=1 630 EXPARENT=INT(VAL(CSV$(9,1))/RATE+.1#1000000) 640 INCOME=INT(EXPARENT/1000003+.1#) 650 PRINT "Exparent of";EXPARENT;" Income of";INCOME;MONEYS$ 660 PRINT "Set Limid of Count up Mounth :"; 670 INPUT "",BETWEEN:IF BETWEEN=0 THEN INVEST 680 FOR H=1 TO BETWEEN:FINEMONEY=INT(FINEMONEY/RATE+INCOME+.1#):NEXT H 690 PRINT "TOTAL :";FINEMONEY;MONEYS$;" of";BETWEEN;"Mounth"; 700 PRINT "Edit Stock Market Number";:INPUT "",SMN 710 PRINT "Edit Brunch Number :";:INPUT "",ROOTNUM 720 PRINT "Edit Execution Post(0:Y/1:N):";:INPUT "",EXE 730 IF EXE=1 THEN INVEST 740 RETYPE1 750 PRINT "Template Set of (1)Staff Only (2)List And Staff (3)Tob And Staff (4)List And Tob And Staff :";:INPUT "",TYPE1 760 PRINT "Exparent Rank Set of (1)Chif President Class (2) Limited Company Class (3) Gavament President Class :";:INPUT "",TYPE2 770 PRINT "Trade Mark Regist on Date and Rank of (1)SpecialLisence (2)CopyRight (3)Visual :";:INPUT "",TYPE3 780 PRINT "Exparent Addit Manager 0-10000 :";:INPUT "",TYPE4 790 IF TYPE1=0 OR TYPE2=0 OR TYPE3=0 THEN RETYPE1 800 YEAR=INT(BETWEEN/12) 810 YEAROFF=VAL(MID$(DATE$,1,2)) 820 IF YEAROFF-YEAR<0 THEN YC=100-YEAROOF-YEAR ELSE YC=YEAROFF-YEAR 830 MOUNTHOFF=VAL(MID$(DATE$,4,2)):IF MOUNTHOFF-BETWEEN>0 THEN MC=MOUNTHOFF-BETWEEN ELSE IF MOUNTHOFF-BETWEEN<0 THEN MC=MOUNTHOFF-BETWEEN+(YEAR12) 840 PRINT "Time of ";DATE$;TIME$;"- START MOUNTH";MC;" START YEAR";YC 850 REM IF ROOTNO=0 THEN LEADERONCE 860 REM IF ROOTNO=1 THEN PRESIDENTENTRY 870 REM IF ROOTNO=2 THEN CHAIRMANSHIP 880 REM IF ROOTNO=3 THEN RegistanceGroup 890 SETTYPE 900 AAA=10000000/RATE:BBB=20000000/RATE:CCC=30000000/RATE:DDD=27500000/RATE 910 REM IF ROOTNO=3 THEN REGIST 920 EEE=225000008/RATE:FFF=25000000/RATE:GGG=7500000/RATE:HHH=5000000/RATE 930 III=2350000/RATE:JJJ=3500000/RATE:KKK=2500000/RATE:LLL=1000000/RATE 940 PLAN(1)=AAA:PLAN(2)=BBB:PLAN(3)=CCC:PLAN(4)=CCC:PLAN(5)=CCC:PLAN(6)=DDD 950 PLAN(7)=CCC:PLAN(8)=FFF:PLAN(9)=III:PLAN(10)=AAA:PLAN(11)=GGG 960 PLAN(12)=HHH:PLAN(13)=JJJ:PLAN(14)=BBB:PLAN(15)=AAA8:PLAN(16)=EEE8 970 PLAN(17)=AAA:PLAN(18)=BBB:PLAN(19)=CCC:PLAN(20)=BBB:PLAN(21)=AAA 980 PLAN(22)=KKK8:PLAN(23)=LLL5:PLAN(24)=LLL5:PLAN(25)=JJJ5:PLAN(26)=AAA5 990 PLAN(27)=LLL8:PLAN(28)=JJJ8:PLAN(29)=AAA8 1000 U=COUNTER50:FOR W=1+U TO 50+U:CHECKED(W)=0:CHECKER(W)=1:NEXT W 1010 FOR R=1+U TO 22+U:PLAN(R)=PLAN(R-U):NEXT 1020 FOR R=23+U TO 29+U:PLAN(R)=PLAN(R-U):NEXT 1030 FOR R=30+U TO 36+U:PLAN(R)=PLAN(R-7-U):NEXT 1040 FOR R=37+U TO 43+U:PLAN(R)=PLAN(R-14-U):NEXT 1050 FOR R=44+U TO 50+U:PLAN(R)=PLAN(R-21-U):NEXT 1060 EXPARENT(U)=PLAN(U)/1000000:INCOME=DIVITION1000000/RATE/103:MONEY=MONEYMODE 1070 STAFFNUM$(1+U)="Leader Director President":STAFFNUM$(2+U)="Leader Chairman" 1080 STAFFNUM$(3+U)="Director President":STAFFNUM$(4+U)="Submit Leader" 1090 STAFFNUM$(5+U)="Cheif(Engineer or Financial) Breau":STAFFNUM$(6+U)="Cheif Offen Offer" 1100 STAFFNUM$(7+U)="Director President":STAFFNUM$(8+U)="Brunch Club" 1110 STAFFNUM$(9+U)="DeskChairman":STAFFNUM$(10+U)="President" 1120 STAFFNUM$(11+U)="Execute or Sineor Director":STAFFNUM$(12+U)="Club" 1130 STAFFNUM$(13+U)="Department":STAFFNUM$(14+U)="Judicialy President" 1140 STAFFNUM$(15+U)="Region Exception Assembly Office":STAFFNUM$(16+U)="Staff 8 Justice Brunch Chage" 1150 STAFFNUM$(17+U)="Justice Director":STAFFNUM$(18+U)="Chairman" 1160 STAFFNUM$(19+U)="Resistance Group President":STAFFNUM$(20+U)="Protestant DeskChairman" 1170 STAFFNUM$(21+U)="Protestant President":STAFFNUM$(22+U)="Staff 8 Staff Charge" 1180 FOR T=1 TO 22:STAFFNUM$(T+U+50)=STAFFNUM$(T):STAFFNUM(T+U+50)=STAFFNUM(T):NEXT T 1190 FOR T=23+U TO 50+U STEP 7 1200 STAFFNUM$(T)="Staff 5 Tob Cheif":STAFFNUM$(T+1)="Staff 5 Tob Gavament President":STAFFNUM$(T+2)="Staff 5 Tob Limited Company President" 1210 STAFFNUM$(T+3)="Staff 5 Tob Cheif President":STAFFNUM$(T+4)="Staff 8 Listed Gavament President":STAFFNUM$(T+5)="Staff 8 Listed Limited Company President" 1220 STAFFNUM$(T+6)="Staff 8 Listed Cheif President" 1230 STAFFNUM(T)=T:STAFFNUM(T+1)=T+1:STAFFNUM(T+2)=T+3 1240 STAFFNUM(T+3)=T+3:STAFFNUM(T+4)=T+4:STAFFNUM(T+5)=T+5 1250 STAFFNUM(T+6)=T+6 1260 NEXT 1270 NE$="(1-8)0:ALL/9:Nothing":QE$="(0:Yes/1:No):":NF$="(1-5)0:ALL/9:Nothing:" 1280 FOR W=1 TO 50:QUEST$(W)=QE$:NEXT 1290 QUEST$(15+U)=NE$:QUEST$(16+U)=NE$:QUEST$(22+U)=NE$ 1300 FOR W=23+U TO 50+U STEP 7: 1310 QUEST$(W)=NF$:QUEST$(W+1)=NF$:QUEST$(W+2)=NF$:QUEST$(W+3)=NF$ 1320 QUEST$(W+4)=NE$:QUEST$(W+5)=NE$:QUEST$(W+6)=NE$ 1330 NEXT W 1340 IF NFLAG=1 THEN START=6 ELSE START=1 1350 IF STARTED=1 THEN START=7 ELSE START=1 1360 IF BRUNCHROOT=1 THEN LOOPNUM=14 ELSE IF BRUNCHROOT=2 THEN LOOPNUM=19 ELSE IF BRUNCHROOT=3 THEN LOOPNUM=22 ELSE LOOPNUM=22 1370 FOR T=23+U TO 50+U STEP 7:STAFFNUM$(T)=STAFFNUM$(23):STAFFNUM(T)=STAFFNUM(23):PLAN(T)=PLAN(23) 1380 STAFFNUM$(T+1)=STAFFNUM$(24):STAFFNUM(T+1)=STAFFNUM(24):PLAN(T+1)=PLAN(24) 1390 STAFFNUM$(T+2)=STAFFNUM$(25):STAFFNUM(T+2)=STAFFNUM(25):PLAN(T+2)=PLAN(25) 1400 STAFFNUM$(T+3)=STAFFNUM$(26):STAFFNUM(T+3)=STAFFNUM(26):PLAN(T+3)=PLAN(26) 1410 STAFFNUM$(T+4)=STAFFNUM$(27):STAFFNUM(T+4)=STAFFNUM(27):PLAN(T+4)=PLAN(27) 1420 STAFFNUM$(T+5)=STAFFNUM$(28):STAFFNUM(T+5)=STAFFNUM(28):PLAN(T+5)=PLAN(28) 1430 STAFFNUM$(T+6)=STAFFNUM$(29):STAFFNUM(T+6)=STAFFNUM(29):PLAN(T+6)=PLAN(29) 1440 NEXT 1450 IF START=0 THEN START=1 1460 RESTORELOOP I=START:LOOPNUM=COUNTER50+50:WHILE I=<LOOPNUM 1470 IF I=23 AND BRUNCH=3 THEN START=7:BRUNCH=1:GOTO LOOPEND 1480 LAP=VAL(CSV$(3,1)):IF LAP50<U THEN INVESTPROCESS ELSE 1490 P=P+1:PRINT P;:IF I=0 THEN I=1 ELSE IF I=23 THEN I=7 1500 IF I>22 THEN I=7 1510 IF I=1 THEN PRINT "--Brunch 00 Root Stock Number--";:BRUNCH=0:INPUT "",PASS:DATES$(I+U)=DATE$:TIMES$(I+U)=TIME$:BRUNCH(I+U)=BRUNCH 1520 IF I=7 THEN PRINT "--Brunch 01 Root Stock Number--";:BRUNCH=1:INPUT "",PASS:DATES$(I+U)=DATE$:TIMES$(I+U)=TIME$:BRUNCH(I+U)=BRUNCH 1530 IF I=14 THEN PRINT "--Brunch 02 Root Stock Number--";:BRUNCH=2:INPUT "",PASS:DATES$(I+U)=DATE$:TIMES$(I+U)=TIME$:BRUNCH(I+U)=BRUNCH 1540 IF I=19 THEN PRINT "--Brunch 03 Root Stock Number--";:BRUNCH=3:INPUT "",PASS:DATES$(I+U)=DATE$:TIMES$(I+U)=TIME$:BRUNCH(I+U)=BRUNCH 1550 BRUNCH(I)=BRUNCH 1560 IF CHECKED(I+U)=1 AND CHECKER(I+U)=0 THEN PRINT "Staff Sold" 1570 IF CHECKED(I+U)>0 THEN GOTO SKIPTO2 1580 IF STARTED=1 AND BRUNCH=0 THEN START=7:BRUNCH=1:GOTO SKIPTO2 1590 PRINT STAFFNUM$(I);QUEST$(I);:INPUT "",CHECKER(I+U):IF CHECKER(I+U)=0 THEN CHECKED(I+U)=1 1600 IF CHECKED(I+U)>0 THEN DATES$(I+U)=DATE$:TIMES$(I+U)=TIME$:BRUNCH(I+U)=BRUNCH:EXPARENT(I+U)=INT(PLAN(P)/1000000+.1#RATE):COMPANYNAME$(1+U)=COMPANYNAME$(I+U) 1610 IF CHECKER(I)>0 AND CHECKER(I)<9 THEN CHECKED(I)=CHECKER(I) 1620 IF CSV2$(1,I+U)="" THEN CSV2$(1,I+U)=DATES$(I+U):CSV2$(2,I+U)=TIMES$(I+U):CSV2(4,I+U)=STAFFNUM(I+U):CSV2$(5,I+U)=COMPANYNAME$(I+U):CSV2(6,I+U)=BRUNCH(I+U):CSV2(8,I+U)=PLAN(I):CSV2(9,I+U)=PLAN(I)/1000000:CSV2(10,I+U)=DIVITION100000/103 1630 SKIPTO2 1640 IF I=6 OR I=13 OR I=18 OR I=22 THEN IF BRUNCH<4 THEN GOTO TOB00 ELSE SKIPI 1650 LOOPEND 1660 SKIPI I=I+1:WEND:U=CPUNTER50:START=7:I=7:IF I=22 AND BRUNCH=3 THEN GOTO INVESTPROCESS 1670 IF UFLAG=-1 THEN 1680 REM IF STAFFNUM(W)=1 AND FINEMONEYRATE>PLAN(W) THEN ELSE TOC=FINEMONEY-(PLAN(I)RATE):FLAG=I 1690 IF LOOPS=1 THEN GOTO SERIALIZATION 1700 TOB00 M=N:IF TYPE1=3 OR TYPE1=4 THEN UCOUNT=UCONT+1 ELSE LIST00 1710 IF LFLAG=1 THEN SKIPTOB 1720 IF M=0 THEN N=23:M=N 1730 IF STARTED=1 THEN N=43:NCOUNT=50 1740 IF BRUNCH=0 THEN N=23:BRUNCH(N+U)=BRUNCH:DATES$(N+U)=DATE$:TIMES$(N+U)=TIME$:NCOUNT=27:COMPANYNAME$(N+U)=COMPANYNAME$(1) 1750 IF BRUNCH=1 THEN N=30:BRUNCH(N+U)=BRUNCH:DATES$(N+U)=DATE$:TIMES$(N+U)=TIME$:NCOUNT=34:COMPANYNAME$(N+U)=COMPANYNAME$(1) 1760 IF BRUNCH=2 THEN N=37:BRUNCH(N+U)=BRUNCH:DATES$(N+U)=DATE$:TIMES$(N+U)=TIME$:NCOUNT=41:COMPANYNAME$(N+U)=COMPANYNAME$(1) 1770 IF BRUNCH=3 THEN N=44:BRUNCH(N+U)=BRUNCH:DATES$(N+U)=DATE$:TIMES$(N+U)=TIME$:NCOUNT=48:COMPANYNAME$(N+U)=COMPANYNAME$(1) 1780 LET U=COUNTER50:LAP=VAL(CSV$(3,1)):PRINT M,U 1790 LET M=N:SS$="Staff Sold":IF CHECKED(M+U)=1 THEN PRINT SS$ ELSE PRINT STAFFNUM$(M);QUEST$(M);:INPUT "",CHEIF(1) 1800 IF CHEIF(1)=0 THEN STAFFNUM$(M+U)=STAFFNUM$(23):STAFFNUM(M+U)=STAFFNUM(23):DATES$(M+U)=DATE$:TIMES$(M+U)=TIME$:BRUNCH(M+U)=BRUNCH:EXPARENT(M+U)=PLAN(23)RATE+.1#/1000000:CHECKED(M+U)=1:CSV2$(5,M+U)=COMPANYNAME$(1) 1810 LET M=N+1:IF CHECKED(M+U)=1 THEN PRINT SS$ ELSE PRINT STAFFNUM$(M);QUEST$(M);:INPUT "",CHEIF(2) 1820 IF CHEIF(2)=0 THEN STAFFNUM$(M+U)=STAFFNUM$(24):STAFFNUM(M+U)=STAFFNUM(24):DATES$(M+U)=DATE$:TIMES$(M+U)=TIME$:BRUNCH(N+U)=BRUNCH:EXPARENT(M+U)=PLAN(24)RATE+.1#/1000000:CHECKED(M+U)=1:CSV2$(5,M+U)=COMPANYNAME$(1) 1830 LET M=N+2:IF CHECKED(M+U)=1 THEN PRINT SS$ ELSE PRINT STAFFNUM$(M);QUEST$(M);:INPUT "",CHEIF(3) 1840 IF CHEIF(3)=0 THEN STAFFNUM$(M+U)=STAFFNUM$(25):STAFFNUM(M+U)=STAFFNUM(25):DATES$(N+U)=DATE$:TIMES$(M+U)=TIME$:BRUNCH(N+U)=BRUNCH:EXPARENT(M+U)=PLAN(25)RATE+.1#/1000000:CHECKED(M+U)=1+.1#/1000000:CHECKED(M+U)=1:CSV2$(2,W+U)=COMPANYNAME$(1) 1850 LET M=N+3:IF CHECKED(M+U)=1 THEN PRINT SS$ ELSE PRINT STAFFNUM$(M);QUEST$(M);:INPUT "",CHEIF(3) 1860 IF CHEIF(4)=0 THEN STAFFNUM$(M+U)=STAFFNUM$(26):STAFFNUM(M+U)=STAFFNUM(26):DATES$(M+U)=DATE$:TIMES$(M+U)=TIME$:BRUNCH(N+U)=BRUNCH:EXPARENT(M+U)=PLAN(26)RATE+.1#/1000000:CHECKED(M+U)=1+.1#/1000000:CHECKED(M+U)=1:CSV2$(5,M+U)=COMPANYNAME$(1) 1870 M=N 1880 FOR W=1+U TO 50+U:CSV2$(1,W)=DATES$(W):CSV2$(2,W)=TIMES$(W):NEXT 1890 FOR W=1+U TO 50+U:CSV2$(3,W)=STAFFNUM$(W):CSV2(4,W)=STAFFNUM(W):NEXT 1900 FOR W=1+U TO 50+U:CSV2(6,W)=BRUNCH(W):CSV2(8,W)=INCOME(W):NEXT 1910 FOR W=1+U TO 50+U:CSV2(9,W)=EXPARENT(W):CSV2(10,W)=DIVITION1000000:NEXT 1920 LIST00 UCOUNT=0:IF TYPE1=2 OR TYPE1=4 THEN UCOUNT=UCONT+1 ELSE SKIPTOB 1930 IF LFLAG=1 THEN SKIPTOB 1940 IF BRUNCH=0 THEN N=27:BRUNCH(N+U)=BRUNCH:DATES$(N+U)=DATE$:TIMES$(N+U)=TIME$:NCOUNT=28:COMPANYNAME$(N+U)=COMPANYNAME$(1):EXPARENT(N+U)=PLAN(N)/1000000RATELIST -1800 1950 IF BRUNCH=1 THEN N=34:BRUNCH(N+U)=BRUNCH:DATES$(N+U)=DATE$:TIMES$(N+U)=TIME$:NCOUNT=35:COMPANYNAME$(N+U)=COMPANYNAME$(1):EXPARENT(N+U) = PLAN(N)/1000000RATE 1960 IF BRUNCH=2 THEN N=41:BRUNCH(N+U)=BRUNCH:DATES$(N+U)=DATE$:TIMES$(N+U)=TIME$:NCOUNT=42:COMPANYNAME$(N+U)=COMPANYNAME$(1):EXPARENT(N+U) = PLAN(N)/1000000RATE 1970 IF BRUNCH=3 THEN N=48:LFLAG=0:BRUNCH(N+U)=BRUNCH:DATES$(N+U)=DATE$:TIMES$(N+U)=TIME$:NCOUNT=49:COMPANYNAME$(N+U)=COMPANYNAME$( 1):EXPARENT(N+U)=PLAN(N)/1000000RATE 1980 SS$="Staff Sold":LET U=COUNTER50:LAP=VAL(CSV$(3,1)) 1990 LET M=N :IF CHECKED(M+U)=1 THEN PRINT SS$ ELSE PRINT STAFFNUM$(M);QUEST$(M);:INPUT "",LISTED(1) 2000 LET M=N+1:IF CHECKED(M+U)=1 THEN PRINT SS$ ELSE PRINT STAFFNUM$(M);QUEST$(M);:INPUT "",LISTED(2) 2010 LET M=N+2:IF CHECKED(M+U)=1 THEN PRINT SS$ ELSE PRINT STAFFNUM$(M);QUEST$(M);:INPUT "",LISTED(3) 2020 M=N:IF LISTED(1)=0 THEN STAFFNUM$(M+U)=STAFFNUM$(27):STAFFNUM(M+U)=STAFFNUM(27):CHECKED(M+U)=1:INCOME(M+U)=PLAN(27)/103:EXPARENT(M+U)=PLAN(27)/1000000:DATES$(M+U)=DATE$:TIMES$(M+U)=TIME$:CSV2$(5,M+U)=COMPANYNAME$(1) 2030 LET M=N+1:IF LISTED(2)=0 THEN STAFFNUM$(M+U)=STAFFNUM$(28):STAFFNUM(M+U)=STAFFNUM(28):CHECKED(M+U)=1:INCOME(M+U)=PLAN(28)/103:EXPARENT(M+U)=PLAN(28)/1000000:DATES$(M+U)=DATE$:TIMES$(M+U)=TIME$:CSV2$(5,M+U)=COMPANYNAME$(1) 2040 LET M=N+2:IF LISTED(3)=0 THEN STAFFNUM$(M+U)=STAFFNUM$(29):STAFFNUM(M+U)=STAFFNUM(29):CHECKED(M+U)=1:INCOME(M+U)=PLAN(29)/103:EXPARENT(M+U)=PLAN(29)/1000000:DATES$(M+U)=DATE$:TIMES$(M+U)=TIME$:CSV2$(5,M+U)=COMPANYNAME$(1) 2050 SKIPTOB PRINT UCOUNT,NCOUNT,BRUNCH,I:IF BRUNCH=3 AND I=22 THEN INVESTPROCESS 2060 IF I=22 AND BRUNCH=3 THEN BRUNCH=1:UFLAG=-1:GOTO TOB00 ELSE 2070 GOTO SKIPI 2080 INVESTPROCESS 2090 LC=LC+1:PRINT "Industrial or StoreWork or Servant Brunch Name This it Tietle":PRINT "工業所並びに、小売業、公務の支部名を入力してください。";:INPUT "",COMPANY$(LC) 2100 IF OPENFILENAMES$="" THEN PRINT "Your Self Saving Open File Name";:INPUT "保存ファイル名を入力してください:",OPENFILENAMES$ 2110 IF NEXTMARKET=0 THEN PRINT "2 Brunch Market Over Input Works No Tie Up (Y:0/N:1)":PRINT "２支店以上を入力するには、(0)はい(1)いいえ":INPUT "",NEXTMARKET 2120 IF NEXTMARKET=1 THEN NCOUNT=0:UCOUNT=0:N=0:START=7 2130 IF COMPANY$(LC)="" THEN CANPANY$(LC)="Standard Company":PFLAG=1 2140 IF PFLAG=1 THEN P1 2150 OPEN OFN$ AS 2:IF EOF(1)=-1 THEN PFLAG=1:PLACE=1 ELSE IF EOF(1)=0 THEN PFLAG=1:PLACE=0 2160 CLOSE 2 2170 IF PLACE=1 THEN P1 2180 P1 2190 FOR I=1 TO 22 2200 IF TOTAL<0 THEN GOTO S1 2210 S1 NEXT 2220 S=22:FOR B=0 TO 3:S=S+1 2230 IF TOTAL<0 THEN B=3:I=29:GOTO S2 2240 S2 NEXT B 2250 FOR I=START TO 50:IF TOTAL>0 AND CHECKER(I)=0 THEN CHECKED(I)=1:NEXT 2260 SERIALIZETION SERIAL=SERIAL+1:START=7:BRUNCH=1:I=7 2270 LC=0:IF VAL(CSV$(3,1))=>SERIAL THEN ELSE 2280 STEPIN 2290 IF ICOUNT=0 THEN ICONUT=ICOUNT+1 ELSE IF ICOUNT=1 THEN ICOUNT=ICONUT+1 2300 LS1 2310 E=E+1:IF STARTED=1 AND E>50 THEN GOTO CL1 2320 GOTO PRETOTAL 2330 PRETOTAL 2340 U=COUNTER50:IF U=0 THEN STARTER=1 ELSE STARTER=7 2350 FOR F=STARTER TO 50: 2360 IF CHECKED(F)=1 THEN TOTAL=TOTAL-PLAN(F+U)2 2370 NEXT 2380 GOTO TAKEOWNERCOST 2390 IF E=>50 THEN STARTED=1:START=7:L=L+50:E=6 ELSE GOTO PRETOTAL 2400 GOTO TAKEOWNERCOST 2410 TAKEOWNERCOST 2420 IF TOTAL<0 THEN PRINT ABS(TOTAL);"Empty of account" 2430 IF TOTAL>0 THEN PRINT TOTAL;"have a remain account" 2440 TOTALED(COUNTER)=TOTAL 2450 TURN 2460 LAP=VAL(CSV$(3,1)):IF LAP=>SERIAL THEN COUNTER=COUNTER+1:Y=7:START=7::BRUNCH=1:STARTED=1:NFLAG=1:U=COUNTER50:GOTO SETTYPE 2470 JOINT 2480 IF VAL(CSV$(3,1))=<Z-1 THEN OUTIN 2490 IF OPENFILENAMES$="" THEN OPENFILENAMES$="CSVDefualt" 2500 OPEN OPENFILENAMES$ FOR OUTPUT AS #2 2510 Y=0:P=0:J=0 2520 FOR W=1 TO 50 STEP 1:CSV2$(3,W)=STAFFNUM$(W):CSV2(4,W)=STAFFNUM(W):NEXT 2530 FOR W=51 TO 100 STEP 1:CSV2$(3,W)=STAFFNUM$(W-50):CSV(4,W)=STAFFNUM(W-50):NEXT 2540 WORTE 2550 Y=Y+1:IF Y=50 THEN Y=7:J=J+1 2560 IF COUNTER<J THEN OUTIN 2570 IF LAP50<P THEN OUTIN 2580 IF CSV2$(1,Y+P)="" OR CSV2$(2,Y+P)="" OR CSV2$(3,Y+P)="" THEN WROTELOOP 2590 WRITE #2,CSV2$(1,P+Y),CSV2$(2,P+Y),CSV2$(3,P+Y),CSV2(4,P+Y),CSV2$(5,P+Y),CSV2(6,P+Y),CSV2(7,P+Y),CSV2(8,P+Y),CSV2(9,P+Y),CSV2(10,P+Y),MONEYS$ 2600 WROTELOOP 2610 P=J50 2620 IF LAP<J THEN GOTO OUTIN ELSE GOTO WORTE 2630 OUTIN 2640 CLOSE Re: 無題 - Mr.Dai Fukuoka 福岡大 URL 2025/09/03 (Wed) 04:57:36 100 REM --------------------- 110 REM SearchAscii Program by Dai Fukuoka 2018.07.15 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 STRAIGHT$(390000):DIM HITCOUNT(390000):DIM CASEFILE$(2,99999) 160 INPUT "Open Sequential File Type of CSV Data Base Files : (FileName) ",A$ 170 REM ON ERROR GOTO ERRORSTOP:GOTO SKIP1 180 REM ERRORSTOP PRINT "No File Name Error";ERR:END 190 SKIP1 200 OPEN A$ FOR INPUT AS #1:COUNT=1:WHILE EOF(1)=0:INPUT #1,STRAIGHT$(COUNT) 210 COUNT=COUNT+1:WEND 220 ENDCOUNT=COUNT:COUNT=1:PRINT "This DataBase Catch Out Conut of";ENDCOUNT-1 230 INPUT "Definition Type Sarch Words (2Byte):",B$:WLENGTH=LEN(B$):PRINT "Condition :";B$ 240 FOR I=1 TO ENDCOUNT-1:FOR T=1 TO LEN(STRAIGHT$(I)) 250 IF MID$(STRAIGHT$(I),T,WLENGTH)=B$ THEN HITCOUNT(I)=HITCOUNT(I)+1 260 NEXT T,I 270 FOR I=1 TO ENDCOUNT-1:IF HITCOUNT(I)=0 THEN ELSE PRINT I;"Result";HITCOUNT(I);","; 280 NEXT:PRINT 290 COUNT=1:FOR I=1 TO ENDCOUNT-1:IF NOT HITCOUNT(I)=0 THEN PRINT COUNT;STRAIGHT$(COUNT);:I=ENDCOUNT 300 NEXT 310 INPUT"Are You Hope All Data Base File Up List(Condition Print)(Y:0/N:1)",A:IF A=1 THEN SKIP3 320 FOR D=1 TO ENDCOUNT-1 330 IF HITCOUNT(D)=0 THEN ELSE CASEFILE$(2,D)=STRAIGHT$(D):PRINT CASEFILE$(2,D)+" "; 340 NEXT D 350 SKIP3 360 OPEN "SA18.txt" AS #2:CLOSE #2 370 OPEN "SA18.txt" FOR OUTPUT AS #2 380 FOR I=1 TO ENDCOUNT-1:IF HITCOUNT(I)=0 THEN ELSE WRITE #2,CASEFILE$(2,I); 390 NEXT I:CLOSE #2 Re: 無題 - Mr.Dai Fukuoka 福岡大 URL 2025/09/03 (Wed) 04:55:54 100 REM -------------------- 110 REM CopyRight Programming by.Dai Fukuoka 2018-01-07 120 REM Mouse GUI/ PlatForm Service of Dennougumi 130 REM -------------------- 140 DIM LOCW(80):DIM LOCH(25):DIM LOCWD(80):DIM LOCHD(25) 150 CONSOLE 0,2,0,1:SCREEN 3,0,0,1:WIDTH 80,25:COLOR 0,7,0,7,2:CLS 3 160 IF POINT(639,479)=POINT(639,399) THEN SHOWVIEW=1 ELSE SHOWVIEW=-1 170 ASKIT INPUT"マウス起動テストを行いますか(0:Yes,1:No)",MODE 180 IF MODE=0 THEN MOUSEEVENT ELSE IF MODE=1 THEN SKIPNOW ELSE ASKIT 190 MOUSEEVENT 200 XLOCATENOW=MOUSE(0):YLOCATENOW=MOUSE(1) 210 ONLEFTMOUSEDOWNX=MOUSE(4,1):ONRIGHTMOUSEDOWNX=MOUSE(4,2) 220 ONLEFTMOUSEUPX=MOUSE(7,1):ONRIGHTMOUSEUPX=MOUSE(7,2) 230 ONLEFTMOUSEDOWNY=MOUSE(5,1):ONRIGHTMOUSEDOWNY=MOUSE(5,2) 240 ONLEFTMOUSEUPY=MOUSE(8,1):ONRIGHTMOUSEUPY=MOUSE(8,2) 250 LEFTPUSHNOW=MOUSE(2,1):RIGHTPUSHNOW=MOUSE(2,2) 260 LEFTCOUNTDOWN=MOUSE(3,1):RIGHTCOUNTDOWN=MOUSE(3,2) 270 LEFTCOUNTUP=MOUSE(6,1):RIGHTCOUNTUP=MOUSE(6,2) 280 DISTANCEX=MOUSE(9):DISTANCEY=MOUSE(10) 290 IF NFLAG=1 THEN LOCATIONLOOP 300 GOTO RETURNNOW 310 RETURNNOW 320 IF FLAG=0 THEN STARTUP 330 END 340 STARTUP 350 TESTMODE IF MODE=NOT 0 THEN SKIPNOW 360 PRINT LEFTPUSHNOW;DISTANCEX;DISTANCEY;ONLEFTMOUSEDOWNX:GOTO MOUSEEVENT 370 SKIPNOW 380 STARTSETTINGS NFLAG=1 390 NFLAG=1 400 IF SHOWVIEW=1 THEN HHIGHT=480:HVER=25 ELSE HHIGHT=400:HVER=20 410 LOCATIONLOOP 420 FOR I=1 TO HVER:LOCHD(I)=(HHIGHT/HVER)I:LOCH(I)=(HHIGHT/HVER)(I-1):NEXT 430 FOR I=1 TO 80:LOCWD(I)=8I:LOCW(I)=8I-7:NEXT 440 FOR I=1 TO 80 450 IF ONLEFTMOUSEDOWNX>LOCW(I) AND ONLEFTMOUSEDOWNX<LOCWD(I) THEN XRLOC=I 460 NEXT 470 FOR I=1 TO HVER 480 IF ONLEFTMOUSEDOWNY>LOCH(I) AND ONLEFTMOUSEDOWNY<LOCHD(I) THEN YRLOC=I 490 NEXT 500 LOCATE 0,0:PRINT XRLOC;YRLOC;:GOTO MOUSEEVENT Re: 無題 - Mr.Dai Fukuoka 福岡大 URL 2025/09/03 (Wed) 04:52:39 プログラミング　福岡大 100 REM -------------------- 110 REM CopyRight Programming by.Dai Fukuoka 2018-01-13 120 REM BOOTABLE MENU/ PlatForm Service of Dennougumi 130 REM -------------------- 140 CONSOLE 0,2,0,1:SCREEN 3,0,0,1:WIDTH 80,25:COLOR 6,7,0,7,2:CLS 3 150 IF POINT(639,479)=POINT(639,399) THEN SHOWVIEW=1 ELSE SHOWVIEW=-1 160 DIM X1(80):DIM Y1(25):DIM X2(80):DIM Y2(25):LET CT=0 170 DIM TN$(85):DIM OFN$(85) 180 OPEN "mt.txt" AS 1:EF=EOF(1):CLOSE 1 190 IF NOT EF=-1 THEN OPEN "mt.txt" FOR INPUT AS #1:FOR I=1 TO 84:INPUT #1,TN$(I),OFN$(I):NEXT 200 IF EF=-1 THEN FOR I=1 TO 84:TN$(I)="NOTITLE":OFN$(I)="Sample.bas":NEXT 210 IF EF=-1 THEN OPEN "mt.txt" FOR OUTPUT AS #2:FOR I=1 TO 84:WRITE #2,TN$(I),OFN$(I):NEXT 215 CLOSE #1:CLOSE #2 220 FOR XX=8 TO 640 STEP 8:CT=CT+1:X1(CT)=XX:NEXT:LET CT=0 230 IF SHOWVIEW=1 THEN FOR YY=0 TO 479 STEP 480/25:CT=CT+1:Y1(CT)=YY:NEXT 240 IF SHOWVIEW=-1 THEN FOR YY=0 TO 399 STEP 400/25:CT=CT+1:Y1(CT)=YY:NEXT 250 LET CT=0:FOR XX=0 TO 639 STEP 8:CT=CT+1:X2(CT)=XX:NEXT:LET CT=0 260 IF SHOWVIEW=1 THEN FOR YY=19.2# TO 479 STEP 480/25:CT=CT+1:Y2(CT)=YY:NEXT 270 IF SHOWVIEW=-1 THEN FOR YY=16 TO 399 STEP 400/25:CT=CT+1:Y2(CT)=YY:NEXT 280 LINE(X1(2),Y1(2))-(X2(79),Y2(22)),1,BF 290 FOR T=2 TO 22:FOR I=2 TO 59 STEP 19:LINE(X1(I),Y1(T))-(X2(I+20),Y2(T)),0,B 300 NEXT I,T 305 START 310 LET CT=1:FOR T=1 TO 21:FOR I=1 TO 58 STEP 19:LOCATE I,T:PRINT CT:LOCATE I+3,T:PRINT ":";TN$(CT):CT=CT+1:NEXT I,T 320 COLOR 0,7,0,7,2:LOCATE 0,22:INPUT "SELECT,0/EDIT,1/EXPORT,2/IMPORT,3/NEW,4:",TELL 330 LOCATE 0,22:PRINT SPACE$(70):LOCATE 0,22 340 IF TELL=0 THEN INPUT "Open Number Menu :",TELL2:LOCATE 0,22:PRINT SPACE$(70) 350 IF TELL=1 THEN INPUT "Edit Number Menu :",TELL2:LOCATE 0,22:PRINT SPACE$(70) 360 IF TELL=2 THEN INPUT "Export File Name :",EFN$:LOCATE 0,22:PRINT SPACE$(70) 370 IF TELL=3 THEN INPUT "Import File Name :",IFN$:LOCATE .22#:PRINT SPACE$(70) 380 IF TELL=4 THEN INPUT "Format Menu Yes,1/No,0 :",RENEW:LOCATE 0,22:PRINT SPACE$(70) 390 RUNNING LOCATE 0,22 400 IF TELL=0 THEN RUN OFN$(TELL2) 410 IF TELL=1 THEN INPUT "Edit Title :",TN$(TELL2):LOCATE 0,22:PRINT SPACE$(70):LOCATE 0,22 420 IF TELL=1 THEN INPUT "Edit File Name :",OFN$(TELL2):LOCATE 0,22:PRINT SPACE$(70):LOCATE 0,22 430 IF TELL=1 THEN INPUT "Pass,0/Save,1",SAVEPASS:LOCATE 0,22:PRINT SPACE$(70) 435 CLOSE #1:CLOSE #2 440 IF TELL=1 AND SAVEPASS=1 THEN CLOSE #1:OPEN "mt.txt" FOR OUTPUT AS #1:FOR I=1 TO 84:WRITE #1,TN$(I),OFN$(I):NEXT I:CLOSE #1:CLS:GOTO START 無題 - Mr.Dai Fukuoka 福岡大 URL 2025/09/03 (Wed) 04:42:13 100 REM ｍ②Program　CopyRight Dai Fukuoka 110 INPUT "基礎の水平面積を入力してください長方形で有る必要があります：",A 120 INPUT "基礎の垂直面積を入力してください長方形で有る必要があります：",B 130 LET C=(A+B)/2:PRINT C;:PRINT"ヘクタール" Re: 無題 - Mr.Dai Fukuoka 福岡大 URL 2025/09/03 (Wed) 04:48:30 100 REM --------------------- 110 REM Aram Program by Dai Fukuoka 2018.05.09 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 A$=TIME$:FOR I=0 TO 1 STEP 0:IF TIME$="07:40:00" THEN I=1:BEEP:BEEP:BEEP:BEEP:BEEP:BEEP:END 160 NEXT Re: 無題 - Mr.Dai Fukuoka 福岡大 2025/09/03 (Wed) 04:44:16 10 REM Copyright 2016,1,6 -2016,3,28 Dai Fukuoka Pratforme 電脳組、東尾張病院 20 CONSOLE 0,24,0,1:SCREEN 3,0,0,1:WIDTH 80,25:COLOR 0,7,0,7,2:CLS 3 30 DIM A(255):DIM B(50,50):DIM C(25,25,25):DIM FLAG(255):DIM DFLAG(255,255):DIM TIPSJ$(255):DIM TIPSE$(255) 40 FOR I=1 TO 100:READ TIPSJ$(I):NEXT:FOR I=1 TO 100:READ TIPSE$(I):NEXT 50 START LOCATE 0,0:INPUT"榮不動産（名古屋）土地条件報告書／著作権者：福岡大 2016 1-6 - 3-28",A$(0) 60 LOCATE 0,1:PRINT "Prosperity Nagoya Estate Company 0:Japanese 1:English 2:Loading 3:Calc : "; 70 LET COMMAND=0:INPUT " ",COMMAND 80 IF COMMAND=1 THEN ENG 90 IF COMMAND=2 THEN LOADING 100 IF COMMAND=3 THEN CALC 110 IF COMMAND=0 THEN NOSKIP 120 NOSKIP 130 LOADING 140 LOCATE 0,2:INPUT"？長辺の最大長をｍ（メートル単位）で入力してください",A(1) 150 LOCATE 0,4:INPUT"？短辺の最大長をｍ（メートル単位）で入力してください",A(2) 160 LOCATE 0,6:INPUT"？長編の正面の角度を入力してくださいc=270:West(西）",A(3) 170 LOCATE 0,8:INPUT"？基礎の傾斜の最低基準値を入力してください０を入力してください",A(4) 180 LOCATE 0,10:INPUT"？基礎の傾斜の最大高をｍで入力してください",A(5) 190 IF A(1)>0 THEN FLAG(1)=-1 200 IF A(2)>0 THEN FLAG(2)=-1 210 IF A(3)>0 THEN FLAG(3)=-1 220 IF A(4)=0 THEN FLAG(4)=-1 230 IF A(5)>0 THEN FLAG(5)=-1 240 CLS 250 LOCATE 0,2:INPUT"？四角形だけで構成される複雑な形 0:Fail/1:True",A(6) 260 LOCATE 0,4:INPUT"？平坦な土地 0:Fail/1:True",A(7) 270 LOCATE 0,6:INPUT"？土地の一部に窪れた土地ではない:0:Fail/1:Ture",A(8) 280 LOCATE 0,8:INPUT"？道路に面した長方形、正方形の単純な土地 0:Fail/1:True",A(9) 290 LOCATE 0,10:INPUT"？フロア辺りの出柱、バルコニー、出窓の数、土地条件に複雑な面積 :",A(10) 300 CLS 310 IF A(6)>0 THEN FLAG(6)=-1 320 IF A(7)>0 THEN FLAG(7)=-1 330 IF A(8)>0 THEN FLAG(8)=-1 340 IF A(9)>0 THEN FLAG(9)=-1 350 IF A(10)>0 AND A(10)<60 THEN FLAG(10)=-1 360 LOCATE 0,2:INPUT"？二画以上の土地面積を結合して高層階建築する場合 0:False/1:True",A(11) 370 LOCATE 0,4:INPUT"？土地の傾斜の底面の原点を指定します（ｍ単位）０：レベル高度",A(12) 380 LOCATE 0,6:INPUT"？土地の傾斜の頂高を指定します。（ｍ単位）最高度レベル高度",A(13) 390 LOCATE 0,8:INPUT"？平坦な土地に造成が必要な場合 0:Fail/1:True",A(14) 400 LOCATE 0,10:INPUT"？フロアの渡って右端から左端に傾斜が無い0:Fail/1:True",A(15) 410 IF A(11)>0 THEN FLAG(11)=-1 420 IF A(12)>=0 AND A(12)<10 THEN FLAG(12)=-1 430 IF A(13)>=0 AND A(13)<10 THEN FLAG(13)=-1 440 IF A(14)>0 THEN FLAG(14)=-1 450 IF A(15)>0 THEN FLAG(15)=-1 460 CLS 470 LOCATE 0,2:INPUT"？宿泊施設や、遊園地、画廊、図書館0:Fail/1:True",A(16) 480 LOCATE 0,4:INPUT"？繁華街、アーケードビル、オフィスビル等高地価 0:Fail/1:True",A(17) 490 LOCATE 0,6:INPUT"？フラットな駐車場、田圃、畑、公園など開けた低地価 0:Fail/1:True",A(18) 500 LOCATE 0,8:INPUT"？住宅、団地、集合住宅、雑居ビルなど物件 0:Fail/1:True",A(19) 510 LOCATE 0,10:INPUT"？繁華街、駐車場、宅地何れでもない 0:Fail/1:Truel",A(20) 520 IF A(16)>0 THEN FLAG(16)=-1 530 IF A(17)>0 THEN FLAG(17)=-1 540 IF A(18)>0 THEN FLAG(18)=-1 550 IF A(19)>0 THEN FLAG(19)=-1 560 IF A(20)>0 THEN FLAG(20)=-1 570 CLS 580 LOCATE 0,2:INPUT"？建物長編に隣接する土地が開けている庭のある0:Fail/1:True",A(21) 590 LOCATE 0,4:INPUT"？長辺の建物に隣接する土地が同じ高さの場合0:Fail/1:True",A(22) 600 LOCATE 0,6:INPUT"？住宅ローンはない0:Fail/1:True",A(23) 610 LOCATE 0,8:INPUT"？高層建築等の日陰の土地ではない0:Fail/1:True",A(24) 620 LOCATE 0,10:INPUT"？建物物件が市庁舎の種類で有る場合0:Fail/1:True",A(25) 630 IF A(21)>0 THEN FLAG(21)=-1 640 IF A(22)>0 THEN FLAG(22)=-1 650 IF A(23)>0 THEN FLAG(23)=-1 660 IF A(24)>0 THEN FLAG(24)=-1 670 IF A(25)>0 THEN FLAG(25)=-1 680 CLS 690 LOCATE 0,2:INPUT"？繁華街の通りに面していて、狭いアーケードで優秀0:Fail/1True",A(26) 700 LOCATE 0,4:INPUT"？取引者（不動産社員）が市外の土地との間0:Fail/1;True",A(27) 710 LOCATE 0,6:INPUT"？土地取引がエクスチェンジする時に、画を割った断片の面積0:Fail/1:True",A(28) 720 LOCATE 0,8:INPUT"？合同土地取引で、断片の面積を１画に戻す0:Fail/1:True",A(29) 730 LOCATE 0,10:INPUT"？地価差を為替金で埋める場合0:Fail/1;True",A(30) 740 IF A(26)>0 THEN FLAG(26)=-1 750 IF A(27)>0 THEN FLAG(27)=-1 760 IF A(28)>0 THEN FLAG(28)=-1 770 IF A(29)>0 THEN FLAG(29)=-1 780 IF A(30)>0 THEN FLAG(30)=-1 790 CLS 800 LOCATE 0,2:INPUT"？建物の地面からの総高を（ｍ単位で）入力します：",A(31) 810 LOCATE 0,4:INPUT"？土地の面積を、平方根にて平均した、ｍｘｍ（ｍの数は双方同じ面積：",A(32) 820 LOCATE 0,6:INPUT"？証券、共通商品通貨、他株発行と土地を取引する場合0:Fail/1True",A(33) 830 LOCATE 0,8:INPUT"？一画に複数の棟がある場合0:Fail/1:Trie",A(34) 840 LOCATE 0,10:INPUT"？ヘリポートを屋上に持つ場合0:Fail/1:True",A(35) 850 IF A(31)>0 THEN FLAG(31)=-1 860 IF A(32)>0 THEN FLAG(32)=-1 870 IF A(33)>0 THEN FLAG(33)=-1 880 IF A(34)>0 THEN FLAG(34)=-1 890 IF A(35)>0 THEN FLAG(35)=-1 900 CLS 910 LOCATE 0,2:INPUT"？宅件、瓦屋根に、光蓄熱太陽電池0:Fail/1:True",A(36) 920 LOCATE 0,4:INPUT"？地価の価格が地方３０指数、府立（政令指定）５０指数の場合0:Fail/1;True",A(37) 930 LOCATE 0,6:INPUT"？地価が１億円（約１００万フラン）を超えても競りに参加0:Fail/１：True",A(38) 940 LOCATE 0,8:INPUT"？土地と土地をエクスチェンジ（交換と交換に対するレーティング）する0:Fail/1:True",A(39) 950 LOCATE 0,10:INPUT"？取引の要綱（相談）がまとまっている土地取引の場合0:Fail/1:True",A(40) 960 IF A(36)>0 THEN FLAG(36)=-1 970 IF A(37)>0 THEN FLAG(37)=-1 980 IF A(38)>0 THEN FLAG(38)=-1 990 IF A(39)>0 THEN FLAG(39)=-1 1000 IF A(40)>0 THEN FLAG(40)=-1 1010 CLS 1020 LOCATE 0,2:INPUT"？取引土地が、市庁舎建物（図書館、会館、市民会館）等0:Fail/1:True",A(41) 1030 LOCATE 0,4:INPUT"？藁の刈り入れ、青田刈り、早稲ではない農地0:Fail/1:True",A(42) 1040 LOCATE 0,6:INPUT"？土地が、建物の、国益サービス（電気水道ガス、高速、鉄道）の場合0:Fail/1:True",A(43) 1050 LOCATE 0,8:INPUT"？検地針で、区画を旧跡に戻す場合0:Fail/1:Ture",A(44) 1060 LOCATE 0,10:INPUT"？土地に住所を登録商標に投ずる場合0:Fail/True",A(45) 1070 IF A(41)>0 THEN FLAG(41)=-1 1080 IF A(42)>0 THEN FLAG(42)=-1 1090 IF A(43)>0 THEN FLAG(43)=-1 1100 IF A(44)>0 THEN FLAG(44)=-1 1110 IF A(45)>0 THEN FLAG(45)=-1 1120 CLS 1130 LOCATE 0,2:INPUT"？土地所有者と、担当地主が異なる場合0:Fail/1:True",A(46) 1140 LOCATE 0,4:INPUT"？直営地の土地にアトラクション（誘致）の場合0:Fail/1:True",A(47) 1150 LOCATE 0,6:INPUT"？戸籍地の土地を建設復興の場合0:Fail/1:True",A(48) 1160 LOCATE 0,8:INPUT"？ヘリポートの高さを入力してください、地面０ｍ:",A(49) 1170 LOCATE 0,10:INPUT"？建物が取り壊し不可な建物（超高層階など）の土地0:Fail/True",A(50) 1180 IF A(47)>0 THEN FLAG(47)=-1 1190 IF A(46)>0 THEN FLAG(46)=-1 1200 IF A(48)>0 THEN FLAG(48)=-1 1210 IF A(49)>0 AND A(49)<403 THEN FLAG(49)=-1 1220 IF A(50)>0 THEN FLAG(50)=-1 1230 CLS 1240 OPEN "EstateAr" AS 1:CLOSE 1:OPEN "EstateAr" FOR OUTPUT AS #1:FOR I=1 TO 50:WRITE #1,A(I),FLAG(I):NEXT I:CLOSE #1 1250 LET SCORE=0:FOR I=1 TO 50 1260 IF FLAG(I)=-1 THEN SCORE=SCORE+1 1270 NEXT I:CLS:LOCATE 0,0:PRINT "中間結果発表" 1280 LOCATE 13,0:PRINT "",SCORE 1290 LOCATE 20,0:PRINT"点数"; 1300 INPUT "",B 1310 OPEN "EstateAR" FOR INPUT AS #1:FOR I=1 TO 50:INPUT #1,A(I),FLAG(I):NEXT I:CLOSE #1 1320 LOCATE 0,2:INPUT"？土地、建物老朽に伴う新築0:Fail/1:True",A(51) 1330 LOCATE 0,4:INPUT"？耐震補強工事を実施、完了した0:Fail/1:True",A(52) 1340 LOCATE 0,6:INPUT"？救急ヘリ、救急車搬送可能0:Fail/1True",A(53) 1350 LOCATE 0,8:INPUT"？消防車火災罰金・火災契約あり0:Fail/1:True",A(54) 1360 LOCATE 0,10:INPUT"？スプリンクラー、防災設備の完備0:Fail/1True",A(55) 1370 IF A(51)>0 THEN FLAG(51)=-1 1380 IF A(52)>0 THEN FLAG(52)=-1 1390 IF A(53)>0 THEN FLAG(53)=-1 1400 IF A(54)>0 THEN FLAG(54)=-1 1410 IF A(55)>0 THEN FLAG(55)=-1 1420 CLS 1430 LOCATE 0,2:INPUT"？最小限の防災設備（消化器）以上0:Fail/1:True",A(56) 1440 LOCATE 0,4:INPUT"？登板に向かって土地が３ｍ以上の土壁がない0:Fail/1True",A(57) 1450 LOCATE 0,6:INPUT"？個人無線設備が自立、もしくは、その業種の土地0:Fail/1:True",A(58) 1460 LOCATE 0,8:INPUT"？河川、海岸の濁流より、下の高度でない0:Fail/True",A(59) 1470 LOCATE 0,10:INPUT"？堤防が、コンクリートの基準を満たており、土でない0:Fail/1True",A(60) 1480 IF A(56)>0 THEN FLAG(56)=-1 1490 IF A(57)>0 THEN FLAG(57)=-1 1500 IF A(58)>0 THEN FLAG(58)=-1 1510 IF A(59)>0 THEN FLAG(59)=-1 1520 IF A(60)>0 THEN FLAG(60)=-1 1530 CLS 1540 OPEN "EstateAR" FOR INPUT AS #1:FOR I=1 TO 50:INPUT #1,A(I),FLAG(I):NEXT I:CLOSE #1 1550 IF A(58)>0 THEN FLAG(58)=-1 1560 IF A(59)>0 THEN FLAG(59)=-1 1570 IF A(60)>0 THEN FLAG(60)=-1 1580 CLS 1590 LOCATE 0,2:INPUT"？地下駐車場、立体駐車場を完備0:Fail/1:True",A(61) 1600 LOCATE 0,4:INPUT"？アクセスが、地下鉄等徒歩３０分以内0:Fail/1:True",A(62) 1610 LOCATE 0,6:INPUT"？アクセスが、市バス等徒歩１５分以内0:Fail/1:True",A(63) 1620 LOCATE 0,8:INPUT"？新幹線、国際空港等自動車１時間以内0:Fail/1:True",A(64) 1630 LOCATE 0,10:INPUT"？アクセスが、タクシー立ち寄り場の場合0:Fail/1:True",A(65) 1640 IF A(61)>0 THEN FLAG(61)=-1 1650 IF A(62)>0 THEN FLAG(62)=-1 1660 IF A(63)>0 THEN FLAG(63)=-1 1670 IF A(64)>0 THEN FLAG(64)=-1 1680 IF A(65)>0 THEN FLAG(65)=-1 1690 CLS 1700 LOCATE 0,2:INPUT"？アクセスが、ローカル以上の陸上鉄道徒歩２０分以内0:Fail/1:True",A(66) 1710 LOCATE 0,4:INPUT"？法人以上の土地など、土地損害保険が付属する0:Fail/1:True",A(67) 1720 LOCATE 0,6:INPUT"？請負会社が、発注者を不動産法人0:Fail/1:True",A(68) 1730 LOCATE 0,8:INPUT"？請負会社が工事会社を建築会社の場合0:Fail/1:True",A(69) 1740 LOCATE 0,10:INPUT"？請負会社が、建材並びに、工事を建設会社の場合0:Fail/1:True",A(70) 1750 IF A(66)>0 THEN FLAG(66)=-1 1760 IF A(67)>0 THEN FLAG(67)=-1 1770 IF A(68)>0 THEN FLAG(68)=-1 1780 IF A(69)>0 THEN FLAG(69)=-1 1790 IF A(70)>0 THEN FLAG(70)=-1 1800 CLS 1810 LOCATE 0,2:INPUT"？請負会社に土木を含む場合0:Fail/1:True",A(71) 1820 LOCATE 0,4:INPUT"？雨漏りが過去に無かった0:Fail/1:True",A(72) 1830 LOCATE 0,6:INPUT"？床下浸水が過去に無かった0:Fail/1:True",A(73) 1840 LOCATE 0,8:INPUT"？断水が３０日連続停滞しなかった0:Fail/1:True",A(74) 1850 LOCATE 0,10:INPUT"？停電が１０日連続停電しなかった0:Fail/1:True",A(75) 1860 IF A(71)>0 THEN FLAG(71)=-1 1870 IF A(72)>0 THEN FLAG(72)=-1 1880 IF A(73)>0 THEN FLAG(73)=-1 1890 IF A(74)>0 THEN FLAG(74)=-1 1900 IF A(75)>0 THEN FLAG(75)=-1 1910 CLS 1920 LOCATE 0,2:INPUT"？家賃が年金で払われている場合0:Fail/1:True",A(76) 1930 LOCATE 0,4:INPUT"？水道代が年金で払われている場合0:Fail/1:True",A(77) 1940 LOCATE 0,6:INPUT"？電気代が年金で払われている場合0:Fail/1:True",A(78) 1950 LOCATE 0,8:INPUT"？定額給付金が年金によって支払われている0:Fail/1:True",A(79) 1960 LOCATE 0,10:INPUT"？有給休暇を取っている人が住居している0:Fail/1:True",A(80) 1970 IF A(76)>0 THEN FLAG(76)=-1 1980 IF A(77)>0 THEN FLAG(77)=-1 1990 IF A(78)>0 THEN FLAG(78)=-1 2000 IF A(79)>0 THEN FLAG(79)=-1 2010 IF A(80)>0 THEN FLAG(80)=-1 2020 CLS 2030 LOCATE 0,2:INPUT"？定職を持たないものが家賃を払っている場合0:False/1:True",A(81) 2040 LOCATE 0,4:INPUT"？住所不定の人が家賃を払っている場合0:Fail/1:True",A(82) 2050 LOCATE 0,6:INPUT"？連絡先電話番号が特定できる0:Fail/1:True",A(83) 2060 LOCATE 0,8:INPUT"？家政婦を雇う事が出来る0:Fail/1:True",A(84) 2070 LOCATE 0,10:INPUT"？洗濯代金と、弁当のデリバリー（宅配生活者）0:Fail/1:True",A(85) 2080 IF A(81)>0 THEN FLAG(81)=-1 2090 IF A(82)>0 THEN FLAG(82)=-1 2100 IF A(83)>0 THEN FLAG(83)=-1 2110 IF A(84)>0 THEN FLAG(84)=-1 2120 IF A(85)>0 THEN FLAG(85)=-1 2130 CLS 2140 LOCATE 0,2:INPUT"？新聞配達員が投函する0:Fail/1:True",A(86) 2150 LOCATE 0,4:INPUT"？配給を受けることができる人が住んでいる0:Fail/1:True",A(87) 2160 LOCATE 0,6:INPUT"？撮像光学機器を設置している住居もしくは、業務ビル0:Fail/1:True",A(88) 2170 LOCATE 0,8:INPUT"？築年数の変化、老朽化を資料記録有り0:Fail/1:True",A(89) 2180 LOCATE 0,10:INPUT"？トイレを含む、水道管の詰まりや水漏れの報告がない0:Fail/1:True",A(90) 2190 IF A(86)>0 THEN FLAG(86)=-1 2200 IF A(87)>0 THEN FLAG(87)=-1 2210 IF A(88)>0 THEN FLAG(88)=-1 2220 IF A(89)>0 THEN FLAG(89)=-1 2230 IF A(90)>0 THEN FLAG(90)=-1 2240 CLS 2250 LOCATE 0,2:INPUT"？燃えるごみなど、ゴミを未廃棄でない0:Fail/1:True",A(91) 2260 LOCATE 0,4:INPUT"？室内が衛生的に、奇麗に環境が保たれている0:Fail/1:True",A(92) 2270 LOCATE 0,6:INPUT"？マンション等、LDK超満員の場合0:Fail/1:True",A(92) 2280 LOCATE 0,8:INPUT"？リビング（休憩室）、ダイニング（食卓）、キッチン（厨房）の有無0:Fail/True",A(93) 2290 LOCATE 0,10:INPUT"？衛生環境がトイレ、洗面器、バスタブなどが共同でない0:Fail/1:True",A(94) 2300 IF A(91)>0 THEN FLAG(91)=-1 2310 IF A(92)>0 THEN FLAG(92)=-1 2320 IF A(93)>0 THEN FLAG(93)=-1 2330 IF A(94)>0 THEN FLAG(94)=-1 2340 IF A(95)>0 THEN FLAG(95)=-1 2350 CLS 2360 LOCATE 0,2:INPUT"？ダイニングルームと厨房を一室にしている0:Fail:True",A(96) 2370 LOCATE 0,4:INPUT"開放空間のリビングルーム0:Fail/1:True",A(97) 2380 LOCATE 0,6:INPUT"？一世帯６人以上住める条件0:Fail/1:True",A(98) 2390 LOCATE 0,8:INPUT"？子供室の有無0:Fail/1:True",A(99) 2400 LOCATE 0,10:INPUT"マンションなどで、賃貸借家が１階あたり複数0:Fail/1:True",A(100) 2410 IF A(96)>0 THEN FLAG(96)=-1 2420 IF A(97)>0 THEN FLAG(97)=-1 2430 IF A(98)>0 THEN FLAG(98)=-1 2440 IF A(99)>0 THEN FLAG(99)=-1 2450 IF A(100)>0 THEN FLAG(100)=-1 2460 LET SCORE=0:CLS:OPEN "EstateAr" AS 1:CLOSE 1 2470 OPEN "EstateAr" FOR OUTPUT AS #1:FOR I=1 TO 102:WRITE #1,A(I),FLAG(I),TIPSJ$(I),TIPSE$(I):NEXT I:CLOSE #1 2480 FOR I=1 TO 102 2490 IF FLAG(I)=-1 THEN SCORE=SCORE+1 2500 NEXT I:CLS:LOCATE 0,0:PRINT "結果発表" 2510 LOCATE 13,0:PRINT SCORE 2520 LOCATE 20,0:PRINT"点数百問の設問の回答お疲れ様でした" 2530 INPUT "",B 2540 REM OPEN "EstateAR" FOR INPUT AS #1 2550 REM FOR I=1 TO 100:INPUT #1,A(I),FLAG(I),TIPSJ$(I),TIPSE$(I):NEXT 2560 REM CLOSE #1 2570 LOCATE 0,2:INPUT"コンタクトの情報：氏名/ハンドルネーム：",DATA$(1) 2580 LOCATE 0,4:INPUT"コンタクトの情報：郵便番号:",DATA$(2) 2590 LOCATE 0,6:INPUT"コンタクトの情報：お届け先住所（都道府県市町村）：",DATA$(3) 2600 LOCATE 0,8:INPUT"コンタクトの情報：お届け先の情報（区町村番地）：",DATA$(4) 2610 LOCATE 0,10:INPUT"コンタクトの情報：お問い合わせ電話番号：",DATA$(5) 2620 LOCATE 0,12:INPUT"コンタクトの情報：生年月日（西暦）：",DATA$(6) 2630 LOCATE 0,14:INPUT"エクスポートするファイル名を指定してください。拡張子は必要ありません",FILENAME$ 2640 FOR I=1 TO 6 2650 IF DATA$(I)="" THEN DFLAG=-1 2660 NEXT 2670 IF DFLAG=-1 THEN LOCATE 0,14:INPUT"未解答な情報があり書き込みに失敗しました。 ",A$:END 2680 OPEN "EstateAr" AS 1:CLOSE 1 2690 OPEN "EstateAr" FOR OUTPUT AS #1 2700 FOR I=1 TO 100:WRITE #1,A(I),FLAG(I),TIPSJ$(I),TIPSE$(I):NEXT 2710 FOR I=1 TO 6:WRITE #1,DATA$(I),DFLAG:NEXT 2720 CLOSE #1 2730 OPEN FILENAME$ AS 1:CLOSE 1 2740 OPEN FILENAME$ FOR OUTPUT AS #1 2750 FOR I=1 TO 100:WRITE #1,A(I),FLAG(I),TIPSJ$(I),TIPSE$(I):NEXT 2760 FOR I=1 TO 6:WRITE #1,DATA$(I),DFLAG:NEXT 2770 CLOSE #1:END 2780 DATA "長辺のｍ最大長","短辺のｍ最大長","正面の方位角度","基礎の傾斜" 2790 DATA "傾斜の最大高","四角形だけの複雑な形","平坦な土地","窪れのない土地" 2800 DATA "道路に面した長方形","フロア周りの出柱、出窓、バルコニーの数":REM "基礎の傾斜の０の基準値" 2810 DATA "土地の結合","ｍ土地の傾斜の底面の原点","ｍ土地の傾斜の頂高の原点" 2820 DATA "平坦土地に必要造成","フロア長辺、短辺の端と、端に傾斜が無い","宿泊建物、リゾート、誘致建物（遊地園他）" 2830 DATA "繁華街","平坦な建設物","集合住宅系" 2840 DATA "住宅系物件","繁華街、駐車場、宅地の何れでもない","長辺の建物に開けた庭のある" 2850 DATA "建物と土地が同じ高さ","住宅ローンの無し":REM "建物長編に面するフラットな開放空間" 2860 DATA "高層建物等日陰でない","市庁舎の建物","繁華街の通りの物件" 2870 DATA "取引者が不動産会社で、市外にレーティング","エクスチェンジに画を割った断片の面積のレーティング","合同土地取引で断片の土地を一画に戻す" 2880 DATA "地価差を為替で埋め合わせる","ｍ建物の総高","土地面積を平方根にて平均したｍｘｍ双同値" 2890 DATA "不動産会社が金券と土地を替える、証券、商品券、株","一画に複数の棟","ヘリポートを屋上に持つ場合" 2900 DATA "宅件。屋根瓦に光蓄熱太陽電池","地価の為替価が、地方３０指数、政令指定都市５０指数の料金","地価が１億円（１００万フラン）以上でも取引を再開" 2910 DATA "土地と土地を取引、レーティングに応じる","取引の要綱（相談がまとまっている）土地取引","土地取引地が市庁舎（図書館、会館、市民会館）等" 2920 DATA "藁の刈り入れ、青田刈り、早稲でない農地" 2930 DATA "土地が建物の国益サービス（電気水道ガス鉄道）","検地針で区画を旧跡に戻す場合","土地に、住所を登録商標に登録" 2940 DATA "土地所有者と、担当地主が異なる場合","直営地にアトラクッション（誘致）","戸籍の土地を建設復興の場合" 2950 DATA "ヘリポートの高さ","建物が取り壊し不可","土地建物の築年数の老朽化の移転、改築" 2960 DATA "耐震補強工事を行った","救急ヘリ、救急車搬送体制","消防車火災罰金、火災保険契約あり","スプリンクラー、消火器、消火栓の有無":REM * 2970 DATA "最小限の防災設備、消火器以上の体制","登板に向かって、土地が３ｍ以上の土壁の無い","河川、海岸の濁流より、下の高度でない" 2980 DATA "堤防がコンクリートの基準を満たしており土でない","地下駐車場、立体駐車場を完備","アクセスが、地下鉄徒歩３０分以内" 2990 DATA "アクセスが、市バス１５分以内","新幹線、国際空港、自動車１時間以内","アクセスが、タクシー立ち寄りの場合" 3000 DATA "アクセスが、ローカル線以上の鉄道徒歩２０分以内","法人の土地など、土地損害保険が付属","請負会社が、発注が不動産法人" 3010 DATA "請負会社が、工事会社を、建築会社","請負会社が建材並びに、工事を、建設会社" 3020 DATA "請負会社に土木を含む場合","雨漏りが過去に無かった","床下浸水が過去に無かった" 3030 DATA "断水が３０日以上停滞ない","停電が１０日連続停電しない","家賃が年金で払われている場合" 3040 DATA "水道代が年金で払われている","電気代が年金で払われいる","定額給付金が年金で払われている" 3050 DATA "有給休暇を取っている人が住居している","定職を持たないものが家賃を払っている","住所不定の人が家賃を払っている" 3060 DATA "連絡先電話番号が特定できる","家政婦を雇う事が出来る","洗濯代金と、弁当のデリバリー（宅配生活者）" 3070 DATA "新聞配達員が投函する","配給を受けることができる人が住んでいる","撮像光学機器を設置している住居もしくは業務ビル" 3080 DATA "築年数の変化、老朽化の資料記録のある","トイレを含む、水道管の詰まりや、水漏れの報告が無い" 3090 DATA "燃えるごみなど、ごみを未廃棄でない","室内が衛生的に綺麗で環境が保たれている","マンション等、LDK超満員の場合" 3100 DATA "リビング（休憩室）、ダイニング（食卓）、キッチン（厨房）の有無","衛生環境がトイレ、洗面器、バスタブなどが、共同でない","ダイニングルームと、厨房を一室にしている" 3110 DATA "開放空間のリビングルーム","一世帯６人以上住める条件","こども室の有無" 3120 DATA "マンションなどで、賃貸借家が１階辺り複数" 3130 DATA "What Metrics Estate Long side length","What Metrics Estate Sohrt side length","What is many Flat Angle Degree Angle Per(0-359)" 3140 DATA "Question Incliation Down Slope (0m)","Question Incliation - Slope Height (m)" :REM,"Question Squea type Build Easy Shape" 3150 DATA "Question Difficult Rect and Anys Rounds","Question Flat Rounds and Estate","Question Dent Subtract Metrics" 3160 DATA "Is Road Way Side Estate","Is Fooler Round Put Piller or Put Window or Balcony":REM "Foundation Standerd Sope Metrics 0" 3170 DATA "Is Joint Estate and Estate Manor","Is Point Lower Slope (m)","Is Point Higher Slpe (m)" 3180 DATA "Is Make Fundation Flat Estate","Is Long Deep side and Short Deep side Builled and Flat Foundation Height(m)" 3190 DATA "Is Hotel or Resort or Attraction Insitution Any Thing":REM "Question Make Flat and No Foundation with No Build" 3200 DATA "Is Category Arcade and Office Build and Busy Quart","Is Flat Estate Things","Is Category are Condominium or Apart house" 3210 DATA "Is House or Home Thing Communication","Any Thing Build Type No Standerd","What is Long side build have with Gurden":REM "Is Builded and Long Side Fit Free Area" 3220 DATA "Is Builded and Foudation Flat with One","Is Not House Bank Lone Builded","Is No Sun Shine Light High Build Shadow","Citys Category's Thing Manor" 3230 DATA "Is Wall Streat Thing Estate","Is Exchanger with Estate Company and Section Field Rating Commition","Is Exchange Loss Pece Happen Probrem" 3240 REM * 3250 DATA "Is Estate Cost Peak and Peak Fill at Estate Price","Is ExChange Estate Price to Estate Price on Fill Low","Is Bilded Total Height of Metrics(m)" 3260 DATA "Is Estate Section Per Sction Water Level Square Root Count" 3270 DATA "Is Exchange Fill Stock Place To Estate Section","Is One Section Many Builled all in One Architecture","Is Helli Port Roof Height by Had Buill" 3280 DATA "What is house and Home ing Roof Solar Panel","What is Insurance Estate Cost Exparent 30-50 Price","Is 100 Exparent Over Exhange No Tie Up Exchange Estate Company" 3290 REM *******************: 3300 DATA "Estate Exchange to Estete Exchange Commition with Rating Estate Company Accept","Accept Negoiation Estate Exchange and Include Rating" 3310 DATA "Is Exchange City Ministor (Book Library,Hole,City Hole)","Do Not Straw with Unriperice Field any Thing Estate" 3320 DATA "Earth Quake No Damege Froundation Build","What is Estate and Build with Consultation Service(Energy,Water,Gas)","Judgement was Feild Section Restore Post Office Number and Area" 3330 REM *3-17 3340 DATA "Regist Estate of Address Trade Marks","Got Possession Estate And Area to Other Right Manor","ForWard Attraction and Procxy Secction Area" 3350 DATA "Is Case Restore and ReConstruction Section","What is Heli Prot Height","Stop Destroy Architecture Builled with Estate","Year's Old Builled Longer ReMove And ReFrom" 3360 DATA "Is Call Trouble and Emergency Car or Heli","Fire Emergency Patrol Penalty or Fire Insulance Contract Accessment","Is Had Any Thing Splin Coller or Fire Killer Pod or Chage Water Jointer or More" 3370 DATA "Is Small Fire Killer Unit","What is Long Slope Not 3 Over Metric The Precipice","What is Do not River Under Water Level Estate Any Thing" 3380 DATA "Is Standerd Concreate and EmBankment Splash Barrior","Is Install UnderGround Parking or Dimention Parking Metric","Is Need UnderGround Train Minits 30 on Walks Access" 3390 DATA "Is Need City Bus Minits 15 on Walks","Is That Long Range Train or InterNational Air Port0Access Minits 60 on Car Need InterCountry Train Minits 30 on Walks Access" 3400 DATA "Is Call Taxie Place Location","Is Need Local Train Near Come in Station Minits 20 on Walks Access","The Cooprate Manor any Thing Estate Insurance Insisde" 3410 DATA "Taking Construction PurChase Buyed Building Estate Company","Is Under Taking Construction Company Building Company","Is Under Taking Construction Install Comtener With Buildubg Company" 3420 DATA "Is Under Taking Construction with Civil","Ia Was Not Leak Water Build or House","Is Was Leak Water Build or House" 3430 DATA "Is Was Not Suspension Wather Suply Build or House" 3440 DATA "Is Was Eletrnic Power InterSeotion Showt Down Restore Hours and Days","Is Had Peyed Annuity on Rebt Cist Arcade ir House","Is Had Payed Annuity on Water Servuce Price" 3450 DATA "Is Had Payed Annuity on Electronic Power","Is Payed Fixed Annuity House Account and Commiton","Is Vacation Free Pay Annuity Life State Lived" 3460 DATA "Who Is House Contract Accessment Fix Payed of Annuity and No Job Carrier","Who Is No Address Payed House Commition with Annuity" 3470 DATA "Is Access Telephone Reserch and Checking Peple","Is Can Employment Maid and Home Helper","Washalbe and Lanch on Delivery Carriage Address" 3480 DATA "Is Delivery News Paper by Motor Mobile and Service man at Address","Is Can Receive Take in Fixed Delivery Supply Fee","Is House or Office Buill or Arcaid with Install Optical Camera Unit" 3490 DATA "Is Old Time Works and Record in RearWard Time Log","Is Toilet with Water Unit of Stopped and Leak With on No Report" 3500 DATA "Is Trush Out System Use No Process","Is Room Dry and Clean with Medical Food and Living on Keep Out","Is Condminium Etc Over Out LDK Unit And Lives Floor" 3510 REM ******* 3520 DATA "Is Internal Living with Dining with Kitchen at One Room","Food Medical and Wash Boul and Buss Tab No Other Share","Is Dining with Kitchen on One Room" 3530 DATA "Is Living Section Large Free Area No Close","Is All in Generation Time Works on Member of Six Over Internal Live in","Is Have Child Room" 3540 DATA "Is Condominium many Generation have with Floor one" 3550 DATA 3560 REM ----------------- 3570 ENG CLS: LOCATE 0,0:PRINT "Prosperity Estate Campany CopyRight(C)2016.2.26 Dai Fukuoka" 3580 FOR I=1 TO 100 STEP 5:LOCATE 0,0:PRINT "Question Answer 0:False/1:True With What Number Equivalent Count Number" 3590 LOCATE 0,2:PRINT TIPSE$(I);:INPUT "",A(I) 3600 LOCATE 0,4:PRINT TIPSE$(I+1);:INPUT "",A(I+1) 3610 LOCATE 0,6:PRINT TIPSE$(I+2);:INPUT "",A(I+2) 3620 LOCATE 0,8:PRINT TIPSE$(I+3);:INPUT "",A(I+3) 3630 LOCATE 0,10:PRINT TIPSE$(I+4);:INPUT "",A(I+4) 3640 IF A(I)>0 THEN FLAG(I)=-1 3650 IF A(I+1)>0 THEN FLAG(I)=-1 3660 IF A(I+2)>0 THEN FLAG(I)=-1 3670 IF A(I+3)>0 THEN FLAG(I)=-1 3680 IF A(I+4)>0 THEN FLAG(I)=-1 3690 CLS:NEXT:FLAG(4)=-1:A(4)=0:FLAG(12)=-1:A(12)=0:FLAG(49)=-1:A(49)=0 3700 FOR I=1 TO 100:IF FLAG(I)=-1 THEN COUNT=COUNT+1 3710 NEXT 3720 PRINT "Is Anser Estate Point Count 100/";COUNT 3730 INPUT "Name and Handle Name :",DATA$(1) 3740 INPUT "Zip Code :",DATA$(2) 3750 INPUT "Country/Continental/City :",DATA$(3) 3760 INPUT "Town and Section And Number:",DATA$(4) 3770 INPUT "TelePhone Number :",DATA$(5) 3780 INPUT "Birth Year and Month and Day :",DATA$(6) 3790 INPUT "Export Data File Name :",FILENAME$ 3800 IF FILENAME$="" THEN PRINT"No Full Answer Question InComplete ";:END 3810 OPEN FILENAME$ AS 1:CLOSE 1 3820 OPEN FILENAME$ FOR OUTPUT AS #1 3830 FOR I=1 TO 100:WRITE #1,A(I),FLAG(I),TIPSJ$(I),TIPSE$(I):NEXT 3840 FOR I=1 TO 6:WRITE #1,DATA$(I),DFLAG:NEXT 3850 CLOSE #1:END 3860 LET SCORE=0:CLS:OPEN "EstateAr" AS 1:CLOSE 1 3870 OPEN "EstateAr" FOR OUTPUT AS #1:FOR I=1 TO 100:WRITE #1,A(I),FLAG(I),TIPSJ$(I),TIPSE$(I):NEXT I 3880 FOR I=1 TO 6:WRITE #1,DATA$(I),DFLAG:NEXT 3890 FOR I=1 TO 100 3900 IF FLAG(I)=-1 THEN SCORE=SCORE+1 3910 NEXT I:CLS:LOCATE 0,0:PRINT "Exhibition Center Test Counter Point:"; 3920 LOCATE 13,0:PRINT SCORE 3930 LOCATE 20,0:PRINT"Anser Service Complete Thank"; 3940 INPUT "",B 3950 END 3960 CALC LET ALPHA=0:LET BETA=0:ZETA=0:LET ANSWER=0 3970 PRINT"Make Rect Flat in Long Side Metrics Value";"長辺の平坦な四角形を作ります";:INPUT "",ALPHA 3980 PRINT"Make Rect Flat in Short side Metrics Value";"短辺の平坦な四角形を作ります";:INPUT "",BETA 3990 LET ZETA=(ALPHA+BETA)/2:PRINT"Total Metrics x2","合算ヘクタール",ZETA 4000 INPUT "0:END 1:Retry",ANSWER:CLS 4010 IF ANSWER=0 THEN START ELSE CALC

無題 - Mr.Dai Fukuoka 福岡大 URL 2025/09/03 (Wed) 04:50:30 100 REM -------------------- 110 REM Programing by Dai Fukuoka Estate Stock Market (C)2017.03.24-04.12 120 REM Development Soft by Dennougumi(C)電脳組 130 REM -------------------- 140 CONSOLE 0,25,0,1:SCREEN 3,0,0,1:COLOR 0,7,0,0,1:WIDTH 80,25:CLS 3:PAGE=1 150 DIM CSV$(9999,11):DIM CSV(9999,11):DIM METHOD$(9999,11):DIM METHOD(9999,11) 160 DIM ACCOUNTIT(12,99):DIM CLOSEYEAR(99) 170 IF POINT(639,399)=POINT(639,479) THEN SHOWMODE=1 180 LOCATE 0,0:PRINT "Estate Stock Market,User Must Reply Item in Method Case." 190 LOCATE 0,1:PRINT "不動産証券に計算式の場合、使用者は、項目を返答しなければなりません" 200 LOCATE 0,2:PRINT "User Must Total Estate Account Reply Exsiste Now" 210 LOCATE 0,3:PRINT "使用者は、不動産経理の今の合算を答えなければなりません" 220 LOCATE 0,4:PRINT "User Need Key Board Typing with on Reply Ask it." 230 LOCATE 0,5:PRINT "返事を尋ねるそれの使用者は、キーボード入力を必要とします" 240 LOCATE 0,6:PRINT "User Plan is 2 Type Category on 30 Exparent Type (\6,000,000) or 50 Exparent Type (\100,000,000) Choicen It." 250 LOCATE 0,8:PRINT "使用者の計画は２種類あり、３０指数６千万円と、５０指数１億円あります、これを選択します" 260 LOCATE 0,10:PRINT "All Alloment is Exchange Estate Fix Tax After Some Tax by Issue StockMarket." 270 LOCATE 0,11:PRINT"全部の配当は、固定不動産税のあと、同じ税によって証券発行をします" 280 LOCATE 0,12:PRINT "User Account is Decision Mounth Sale in 1 Year Total Tax Credit Debt." 290 LOCATE 0,13:PRINT "使用者の経理の結論は、月の売り上げを１年の合算税として、売掛します" 300 LOCATE 0,14:PRINT "This Stock Market is Target Estate Insurance Tax With Control." 310 LOCATE 0,15:PRINT "この証券は、不動産保険税を対象としています、また一緒に調整します" 320 LOCATE 0,16:PRINT "This Contents have 30 Exparent Category is First Park,Farm,Security, Secound FirePlace Last City Office Use Insurance." 330 LOCATE 0,18:INPUT "Next Clause Pages:",PAGE$:CLS 340 LOCATE 0,0:PRINT "この内容は、３０指数の種類は、公園、農園、証券のものと、次に防火区域権、最後に、市役所が使う保険があります" 350 LOCATE 0,2:PRINT "This Contents have 50 Exparent Category is First Cigarette,Secound Alcoholic Tax Third Low-Justice Tax Force Order-Gudge Tax Last Safe Poket Cargo Tax." 360 LOCATE 0,4:PRINT "この内容は５０指数の種類は、初めに煙草税、次に酒税、次に、弁護税、次に裁判税、最後に安全小包税" 370 LOCATE 0,6:PRINT "This StockMarket Account Sale is 100PerCapital Body,Addit 100PerCapital is Contract Accessment" 380 LOCATE 0,11:PRINT "２０割の経理収入は２０割中２割、所得税２割、固定資産税１割、雇用３割、雇用枠最大人数指数" 390 LOCATE 0,9:PRINT "This 200Per Account is Incoming 20Per and Income Tax 20Per and Estate Fix Tax is 10Per Empolyment 30Per Tax and Low Line is 6Member High Line is Exparent." 400 LOCATE 0,11:PRINT "２０割の経理は収入は２０割中２割、所得税２割、固定資産税１割、雇用３割、雇用枠最大指数人数" 410 LOCATE 0,13:PRINT "煙草税は、精機、半導体に対応する、高い資材コスト、酒税は、総務と、販売士だけの一般市場、安全小包税は、主に、運輸業に充てられる" 420 LOCATE 0,15:PRINT "Cigarette is Worker Unit Cost Low Plan with HighIncoming,Alcoholic is Target Sale Plan with General,Sefe Pocket Post Office is TransPort Tax." 430 LOCATE 0,17:PRINT "このプログラムは、期間を月で開始し、その間、同じペースで増え、売上猶予を付け、不動産保険税証明書のかかる金額を、３０と、５０指数とします" 440 LOCATE 0,19:PRINT "This Program is Terms in Begin Mounth Between Some Timming Addit Sale Delay and Since Insurance Tax Cost All Count Total Exparent 30,50" 450 LOCATE 0,21:INPUT "Next Clause Pages:",PAGE$:CLS 460 *START 470 LOCATE 0,0:INPUT "１２ヶ月間始める月を答えてください/Between 12 Mounth Reply Begin Mounth :",CSV(PAGE,1) 480 LOCATE 0,1:INPUT "売掛をする年数を答てください/Reply Credit Debit Close Yearegin Mounth :",CSV(PAGE,2) 490 LOCATE 0,2:INPUT "日本円と比較する通貨の単価を答えてください/Reply Amount Ratio Exchange Compare Japan Yen to It:",CSV(PAGE,3) 500 LOCATE 0,4:INPUT "地方圏の最大個数を答えてください/Reply to Region Place andEstate Insurance Tax StockMarket Target Count It:",CSV(PAGE,4) 510 LOCATE 0,6:INPUT "借地権区域の最大個数を答えてください/Reply to High Density City Place andEstate Insurance Tax StockMarket Target Count It:",CSV(PAGE,5) 520 LOCATE 0,8:INPUT "剰余される税を残すか、期間を途中で停止するか０：途中停止と１：剰余加算で答えてください/Reply (0:Stop Terms) or (1:Exsist Surplus Addit Amount):",CSV(PAGE,6) 530 LOCATE 0,10:INPUT "土地を不当に売却すると、禁錮３か月以上に問われる事があります、売却土地代金で税金に投資することは合法ですが、税は都市間を移動できません/Place No Buy,But Arrest 3 Mounth,Place Buy Cost Exchange Tax Not Illgal,Tax No Move City(0:Yes/1:No):",CSV(PAGE,7) 540 LOCATE 0,13:INPUT "最初の予算金額を答えてください、日本単価を換算値で換算します/Reply Start Bigin Plan Cost Unit,Japan Yen less Than to Kind Multiply Ratio(0:Yes/1:Simple) :",CSV(PAGE,8) 550 LOCATE 0,16:INPUT "登録される市区町村を答えてください/Reply Regist Section Name:",CSV$(PAGE,9) 560 LOCATE 0,17:INPUT "オペレータの名前を答えてください/Reply Naming Operator:",CSV$(PAGE,9) 570 LOCATE 0,18:INPUT "生年月日の情報を答えてください/Reply Birth infomation Year-Mounth-Day:",CSV$(PAGE,10) 580 LOCATE 0,19:INPUT "Next Clause Pages:",PAGE$:CLS 590 CSV$(PAGE,11)=DATE$+TIME$ 600 *PROGRESS1 610 *STARTYEAR 620 COUNTIT=0:IF CSV(PAGE,1)=>1 AND CSV(PAGE,1)=<12 THEN ELSE *START 630 IF CSV(PAGE,3)=<0 OR CSV(PAGE,8)=<0 OR CSV(PAGE,2)=<0 THEN *START 640 IF CSV(PAGE,1)*(CSV(PAGE,8)/10)/CSV(PAGE,3)<(CSV(PAGE,4)*60000000/CSV(PAGE,3))+(CSV(PAGE,5)*100000000/CSV(PAGE,3)) THEN IRESULT=1 ELSE IRESULT=2 650 STARTMOUNTH=CSV(PAGE,8)*(13-CSV(PAGE,1))/10/CSV(PAGE,3) 660 PRINT "FirstYearAccount with Ratio:";CSV(PAGE,8)/10*1.2# 670 ADD1=(CSV(PAGE,8)/10/CSV(PAGE,3)):ACCOUNTIT(I,YEARS)=ADD1*(13-CSV(PAGE,1)+I) 680 CLOSEYEAR(1)=CSV(PAGE,8)/CSV(PAGE,3)+ADD1*(13-CSV(PAGE,1)) 690 FOR I=CSV(PAGE,1) TO 12:ADD1=(CSV(PAGE,8)/10/CSV(PAGE,3)):BEGINTOTAL=CSV(PAGE,1)+ADD1*13-CSV(PAGE,1) 700 ACCOUNTIT(CSV(PAGE,1)+COUNTIT-1,1)=ADD1*I:PRINT I;"Mounth Income";ADD1;"total";BEGINTOTAL:PRINT ACCOUNTIT(I,1):NEXT 710 NOWTOTAL=ADD1+CSV(PAGE,8):NOWUNIT=ADD1*CSV(PAGE,3)+CSV(PAGE,8) 720 CLOSEYEAR(1)=BEGINTOTAL 730 IF NOWUNIT=<999999 THEN ERESULT=0:PRINT "Out of Account" ELSE IF NOWUNIT=<20000000 THEN ERESULT=1:PRINT "Charge Enterprise Annuity and ";NOWTOTAL ELSE PRINT "Accessment Estate Insurance Place Tax is ";ADD1;"on Year.";BEGINTOTAL 740 *RESTARTYEAR 750 YEARS=YEARS+1:IF YEARS<CSV(PAGE,2) THEN ELSE *SKIP1 760 BEGINYEAR=BEGINYEAR+1:MAXREGION=CSV(PAGE,4):MAXCITY=CSV(PAGE,5):COSTREGION=60000000/CSV(PAGE,3):COSTHIGHCITY=100000000/CSV(PAGE,3):BOOLIANT=0:FIRSTYEAR=STARTMOUNTH:ANUITY=59999999/CSV(PAGE,3) 770 MAXREGIONEXPARENT=(CSV(PAGE,4)*30):MAXCITYEXPARENT=(CSV(PAGE,5)*50) 780 BEGINAMOUNT=CSV(PAGE,8)/CSV(PAGE,3):BEGINSALE=CSV(PAGE,8)/10*(13-CSV(PAGE,1)):NEXTSALE=CSV(PAGE,8)/10*CSV(PAGE,3):ENTERPRISECOST=20000000:EXPARENTCOST=5D-007:REGIONEXPARENT=COSTREGION*EXPARENTCOST:HIGHCITYEXPARENT=COSTHIGHCITY*EXPARENTCOST 790 IF BEGINTOTAL>COSTREGION THEN COUNTREGION=INT(BEGINTOTAL/COSTREGION) 800 IF BEGINTOTAL>COSTREGION*MAXREGION THEN COUNTREGION=MAXREGION 810 IF BEGINTOTAL>(COSTREGION*MAXREGION+COSTHIGHCITY*MAXHIGHCITY) THEN COUNTCITY=MAXHIGHCITY 820 IF BEGINTOTAL>(MAXREGION*COSTREGION) THEN COUNTCITY=INT((BEGINTOTAL-(COSTREGION*MAXREGION))/COSTHIGHCITY) 830 IF COUNTCITY>MAXCITY THEN COUNTCITY=MAXCITY 840 IF ((MAXREGION*COSTREGION)+(COSTHIGHCITY*MAXCITY))>BEGINTOTAL THEN SURPLUS=BEGINTOTAL-(MAXREGION*COSTREGION)+(MAXCITY*COSTHIGHCITY) 850 IF CSV(PAGE,2)=<1 THEN ERESULT=0 860 IF NOT ERESULT=0 THEN EXPARENT1=MAXREGIONEXPARENT+MAXCITYEXPARENT:PRINT "Exparent";EXPARENT1 870 INPUT "Close Plan Enter Continue:",LISTEN$:IF CSV(PAGE,2)=<1 THEN CLS 3:GOTO *START 880 IF BEGINTOTAL>=20000000 THEN OVERENTERPRISE=1 ELSE OVERENTERPRISE=0 890 PRINT "ESTATE REGION:";COUNTREGION;"/HIGH CITY:";COUNTCITY 900 FOR I=1 TO 12:ADD1=(COSTREGION/20*COUNTREGION)+(COSTHIGHCITY/20*COUNTCITY) 910 ACCOUNTIT(I,YEARS)=ADD1*I+BEGINTOTAL:PRINT I;"Mounth Income";ADD1;"total";BEGINTOTAL+(ADD1*I):NEXT:CLOSEYEAR(YEAR)=BEGINTOTAL+(ADD1*12) 920 PRINT "NextYearTotal Addition 12 Month:";BEGINTOTAL+(ADD1*12);"Income:";ADD1;"Between Term:";YEARS+1:CLOSEYEAR(YEARS)=BEGINTOTAL+(ADD1*12) 930 BEGINTOTAL=BEGINTOTAL+(ADD1*12) 940 IF YEARS<=CSV(PAGE,2) THEN *RESTARTYEAR 950 *SKIP1 960 OFN$="ESM"+MID$(DATE$,1,2)+MID$(DATE$,4,2)+MID$(DATE$,7,2) 970 OFN2$="ESMTAG"+MID$(DATE$,1,2)+MID$(DATE$,4,2)+MID$(DATE$,7,2) 980 OPEN OFN$ AS 1:IDENTIFY=EOF(1):CLOSE:PRINT IDENTIFY 990 IF IDENTIFY=-1 THEN *NEWOPENFILE ELSE *LOADOPENNAME 1000 *NEWOPENFILE OPEN OFN$ FOR OUTPUT AS #1:FOR T=1 TO YEARS:FOR I=1 TO 12:WRITE #1,ACCOUNTIT(I,T):NEXT I:WRITE #1,CLOSEYEAR(T):NEXT T:CLOSE #1:GOTO *LOADFILENAME 1010 OPEN OFN2$ AS 1:IDENTIFY=EOF(2):CLOSE:PRINT IDENTIFY 1020 IF IDENTIFY=-1 THEN *SKIPOUT ELSE *LOADOPENFILE 1030 *NEWOPENTAG OPEN OFN2$ FOR OUTPUT AS #2:FOR I=1 TO 11:WRITE #2,CSV(PAGE,I):NEXT:CLOSE #2:GOTO *LOADEFILENAME 1040 *LOADOPENNAME OPEN OFN$ AS 1:LCHECK=EOF(1):CLOSE 1050 IF LCHECK=0 THEN *SKIPOUT ELSE *FORWARD 1060 *FORWARD OPEN OFN$ FOR INPUT AS #1:FOR I=CSV(PAGE,1) TO 12:INPUT #1,ACCOUNTIT(I,T):NEXT I:WRITE #1,CLOSEYEAR(1) 1070 FOR I=2 TO YEARS:FOR I=1 TO 12:INPUT #1,ACCOUNTIT(I,T):NEXT I:WRITE #1,CLOSEYEAR(1):NEXT T:CLOSE #1 1080 *SKIPOUT Re: 無題 - Mr.Dai Fukuoka 福岡大 URL 2025/09/03 (Wed) 05:11:45 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) 151 IF POINT(639,479)=POINT(639,399) THEN LINEMODE=-1:GOTO *L2 ELSE LINEMODE=1:GOTO *L1 152 *L1 160 LINE (0,0)-(639,18),4,BF:LINE(0,32)-(639,48),4,BF 170 LINE(0,96)-(639,112),5,BF:LINE(0,176)-(639,192),5,BF 180 LINE(0,256)-(639,272),6,BF:GOTO *O1 182 *L2 183 LINE (0,0)-(639,18),4,BF:LINE(0,36)-(639,54),4,BF 184 LINE(0,110)-(639,130),5,BF:LINE(0,187)-(639,204),5,BF 185 *O1 190 LOCATE 0,0:PRINT "Load File Name : ";:INPUT "",LFN$:IF LFN$="" THEN *START 200 OPEN LFN$ AS 1:LEOF=EOF(1):CLOSE 1:IF LEOF=-1 THEN *MAKEFILE 210 OPEN LFN$ FOR INPUT AS #2: 220 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 230 LOCATE 0,0:PRINT SPC(78);:GOTO *START 240 OPEN LFN$ FOR OUTPUT AS #1 250 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 260 LOCATE 0,0:PRINT SPC(78);:GOTO *START 270 *START 280 LOCATE 0,0:PRINT SPC(78); 290 IF CSV$(PAGE,ARTICLE)="" THEN CSV$(PAGE,ARTICLE)=" " 300 IF CSV$(PAGE,1)="" THEN CSV$(PAGE,1)=" " 310 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) 320 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) 330 LOCATE 0,6:PRINT "Edit Artice";ARTICLE;" Page";SPC(200);PAGE;:LOCATE 0,7:INPUT "",WROTE$ 340 IF WROTE$="" OR WROTE$=" " THEN ELSE CSV$(PAGE,ARTICLE)=WROTE$ 350 *LOOP1 360 LOCATE 0,10:PRINT "Select Article and Pages"; 370 LOCATE 0,11:PRINT "0: NoMove , 1:Add+ , 2: Dec-";:INPUT "",REQUEST 380 IF REQUEST=0 THEN *ACCEPT 390 LOCATE 0,12:PRINT "0:[1]/1:[10]/2:[100]/3:[1000]";:INPUT "",MANY 400 *ACCEPT 410 LOCATE 0,13:PRINT "Okay? 0:Yes / 1:No ";:INPUT "",ACCEPT:IF ACCEPT=1 THEN *LOOP1 420 IF MANY=0 THEN COUNT=1 430 IF MANY=1 THEN COUNT=10 440 IF MANY=2 THEN COUNT=100 450 IF MANY=3 THEN COUNT=1000 460 IF COUNT+PAGE>9999 THEN *LOOP1 470 IF COUNT+PAGE<1 THEN *LOOP1 480 IF REQUEST=0 THEN PAGE=PAGE 490 IF REQUEST=1 THEN PAGE=PAGE+COUNT:FLAG=-1 500 IF REQUEST=2 THEN PAGE=PAGE-COUNT:FLAG=-1 510 LOCATE 0,14:PRINT "For Number of Article : (1-11) : ";:INPUT "",ARTICLE 520 IF ARTICLE<1 OR ARTICLE>11 THEN ARTICLE=1 530 LOCATE 0,15:PRINT "0:Saving Sequence 1:No Think : ";:INPUT "",FILESAVE 540 IF FILESAVE=1 THEN *START ELSE IF FILESAVE=0 GOTO *SFN 550 *SFN 560 LOCATE 0,16:PRINT "Save File Name : ";:INPUT "",SFN$ 570 CLS:IF SFN$="" THEN *LOOP1 580 OPEN SFN$ AS 1:CLOSE 1:OPEN SFN$ FOR OUTPUT AS #1 590 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 600 GOTO *START 610 *IFEND GOTO *START:END IF:END Re: 無題 - Mr.Dai Fukuoka 福岡大 URL 2025/09/03 (Wed) 05:02:55 100 REM -------------------- 110 REM CopyRight Module By DaiFukuoka 2015-11-02/2015-11-05 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:DIM A$(1000,11):DIM CSV(1000,11):DIM DAYMAP(24):GOTO *DAYSTARTUP 160 *START 170 *STEP1 LOCATE 0,0:INPUT "？始まりの日付を入力してください例：",D1 180 REM IF Y1>99 OR Y1<1 Then DD<1*Step3 190 *STEP2 LOCATE 0,1:INPUT "？始まりの月を入力してください：",M1 200 *STEP3 LOCATE 0,2:INPUT "？始まりの年日を入力してください",Y1 210 *STEP4 LOCATE 0,3:INPUT "？日付からの日数の期限を入力してください例４００（１年３５日）：",DD 220 IF DD<1 THEN *STEP4 230 *FORYEAR 240 IF DD>365 THEN *DIVIEDYEAR ELSE *DMY 250 *DIVIEDYEAR 260 IF FP>0 AND DD<36.25# THEN DAYCOUNTER=INT(DD+FP):YEARRESULT=Y1+(DD/365.25#) 270 IF DD>0 THEN DAYCOUNTER=INT(DD) 280 IF YEARCOUNTER/4=INT(YEARCOUNTER/4) THEN FP=FP+(YEARCOUNTER/4):FP=FP/365 290 IF DD>366 AND FP>0 THEN DAYCOUNTER=DD/(YEARCOUNTER/365+FP) 300 IF DD>365 THEN LET DAYCOUNTER=DD/365 310 REM LET YEARRESULT=Y1+YEARCOUNTER 320 GOTO *DDEXCHANGE 330 *DDEXCHANGE 340 IF DAYCOUNTER> 31 THEN LET MOUNTHRESULT=2:IF DAYCOUNTER> 31 THEN DAYRESULT=DAYCOUNTER-31 350 IF DAYCOUNTER> 60 THEN LET MOUNTHRESULT=3:IF DAYCOUNTER> 60 THEN DAYRESULT=DAYCOUNTER-60 360 IF DAYCOUNTER> 91 THEN LET MOUNTHRESULT=4:IF DAYCOUNTER> 91 THEN DAYRESULT=DAYCOUNTER-91 370 IF DAYCOUNTER> 121 THEN LET MOUNTHRESULT=5:IF DAYCOUNTER>121 THEN DAYRESULT=DAYCOUNTER-121 380 IF DAYCOUNTER> 151 THEN LET MOUNTHRESULT=6:IF DAYCOUNTER>151 THEN DAYRESULT=DAYCOUNTER-151 390 IF DAYCOUNTER> 181 THEN LET MOUNTHRESULT=7:IF DAYCOUNTER>181 THEN DAYRESULT=DAYCOUNTER-181 400 IF DAYCOUNTER> 212 THEN LET MOUNTHRESULT=8:IF DAYCOUNTER>212 THEN DAYRESULT=DAYCOUNTER-212 410 IF DAYCOUNTER> 243 THEN LET MOUNTHRESULT=9:IF DAYCOUNTER>243 THEN DAYRESULT=DAYCOUNTER-243 420 IF DAYCOUNTER> 273 THEN LET MOUNTHRESULT=10:IF DAYCOUNTER>304 THEN DAYRESULT=DAYCOUNTER-273 430 IF DAYCOUNTER> 304 THEN LET MOUNTHRESULT=11:IF DAYCOUNTER>334 THEN DAYRESULT=DAYCOUNTER-304 440 IF DAYCOUNTER> 334 THEN LET MOUNTHRESULT=12:IF DAYCOUNTER>334 THEN DAYRESULT=DAYCOUNTER-334 450 IF DAYCOUNTER> 365 THEN LET MOUNTHRESULT=1:IF DAYCOUNTER>365 THEN DAYRESULT=DAYCOUNTER-365 460 *DMY 470 IF M1=1 THEN *MOUNTH01 ELSE IF M1=2 THEN *MOUNTH02 480 IF M1=3 THEN *MOUNTH03 ELSE IF M1=4 THEN *MOUNTH04 490 IF M1=5 THEN *MOUNTH05 ELSE IF M1=6 THEN *MOUNTH06 500 IF M1=7 THEN *MOUNTH07 ELSE IF M1=8 THEN *MOUNTH08 510 IF M1=9 THEN *MOUNTH09 ELSE IF M1=10 THEN *MOUNTH10 520 IF M1=11 THEN *MOUNTH11 ELSE IF M1=12 THEN *MOUNTH12 530 GOTO *STEP1 540 *MOUNTH01 550 IF M1>31 THEN *STEP1 560 LET STARTDAY=D1:LET STEIRDAY=STARTDAY 570 GOTO *ADDDAY 580 *MOUNTH02 590 IF M1>29 THEN *STEP1 600 LET STARTDAY=D1:LET STEIRDAY=STARTDAY+31:REM 31 610 GOTO *ADDDAY 620 *MOUNTH03 630 IF M1>31 THEN *STEP1 640 LET STARTDAY=D1:LET STEIRDAY=STARTDAY+31+29:REM 60 650 GOTO *ADDDAY 660 *MOUNTH04 670 IF M1>30 THEN *STEP1 680 LET STARTDAY=D1:LET STEIRDAY=STARTDAY+31+29+31:REM 91 690 GOTO *ADDDAY 700 *MOUNTH05 710 IF M1>31 THEN *STEP1 720 LET STARTDAY=D1:LET STEIRDAY=STARTDAY+31+29+31+30:REM 121 730 GOTO *ADDDAY 740 *MOUNTH06 750 IF M1>30 THEN *STEP1 760 LET STARTDAY=D1:LET STEIRDAY=STARTDAY+31+29+31+30+31:REM 151 770 GOTO *ADDDAY 780 *MOUNTH07 790 IF M1>31 THEN *STEP1 800 LET STARTDAY=D1:LET STEIRDAY=STARTDAY+31+29+31+30+31+30:REM 181 810 GOTO *ADDDAY 820 *MOUNTH08 830 IF M1>31 THEN *STEP1 840 LET STARTDAY=D1:LET STEIRDAY=STARTDAY+31+29+31+30+31+30+31:REM 212 850 GOTO *ADDDAY 860 *MOUNTH09 870 IF M1>30 THEN *STEP1 880 LET STARTDAY=D1:LET STEIRDAY=STARTDAY+31+29+31+30+31+30+31+31:REM 243 890 GOTO *ADDDAY 900 *MOUNTH10 910 IF M1>31 THEN *STEP1 920 LET STARTDAY=D1:LET STEIRDAY=STARTDAY+31+29+31+30+31+30+31+31+30:REM 273 930 GOTO *ADDDAY 940 *MOUNTH11 950 IF M1>30 THEN *STEP1 960 LET STARTDAY=D1:LET STEIRDAY=STARTDAY+31+29+31+30+31+30+31+31+30+31:REM 304 970 GOTO *ADDDAY 980 *MOUNTH12 990 IF M1>31 THEN *STEP1 1000 LET STARTDAY=D1:LET STEIRDAY=STARTDAY+31+29+31+30+31+30+31+31+30+31+30:REM 334 1010 GOTO *ADDDAY 1020 *ADDDAY 1030 IF STARTDAY>STEIRDAY THEN *STEP1 1040 IF YEARCOUNTER=0 THEN YEARCOUNTER=2016 1050 LET TOTALRESULT=STEIRDAY+DD 1060 IF TOTALRESULT>365 THEN LET YEARDEVIED=INT(TOTALRESULT/365) 1070 IF YEARDEVIED>0 THEN LET RESULT=TOTALRESULT-(365*YEARDEVIED) 1080 IF RESULT<0 THEN *STEP1 1090 IF YEARCOUNT>1 THEN LET YEARRESULT=INT(Y1+YEARCOUNT)+FP 1100 IF YEARCOUNT<1 THEN LET YEARRESULT=Y1 1110 IF YEARRESULT<1 THEN *YEARSINN 1120 IF RESULT<356 THEN *YEARSIN 1130 *YEARSIN LET DAY=DD 1140 U=DD+D1 1141 IF DD=<365.25# THEN *SKIP01 1150 WHILE U<365.25# 1160 IF U<=365.25# THEN U=U-365.25#:E=E+1:YEARTRACK=E+Y1:YEARRESULT=YEARTRACK 1170 WEND 1171 *SKIP01 1172 IF U=<365.25# THEN MOUNTH=1:YEARRESULT=YEARRESULT+1:GOTO *SKIP02 1180 J=U:WHILE J<365.25#:IF J>367 THEN J=J-365.25# 1190 WEND:FOR I=1 TO 12:IF DAYMAP(I)<J THEN P=I:PRINT U,P,J 1200 NEXT:DAY=P 1201 *SKIP02 1210 S=U 1220 WHILE S<=32:K=K+1 1221 IF K=>12 THEN GOTO *SKIP03 1230 IF D1+S<=DAYMAP(K) AND K<13 THEN S=S-DAYMAP(K):DAYTRACK=S+D1:PRINT S 1240 WEND 1241 *SKIP03 1245 COUNT=DD:WHILE COUNT>365.25# 1250 IF RESULT> 31+FP THEN LET MOUNTH=2:IF RESULT> 31 THEN DAYRESULT=DAY-31 1260 IF RESULT> 60 THEN LET MOUNTH=3:IF RESULT> 60 THEN DAYRESULT=DAY-60 1270 IF RESULT> 91 THEN LET MOUNTH=4:IF RESULT> 91 THEN DAYRESULT=DAY-91 1280 IF RESULT> 121 THEN LET MOUNTH=5:IF RESULT>121 THEN DAYRESULT=DAY-121 1290 IF RESULT> 151 THEN LET MOUNTH=6:IF RESULT>151 THEN DAYRESULT=DAY-151 1300 IF RESULT> 181 THEN LET MOUNTH=7:IF RESULT>181 THEN DAYRESULT=DAY-181 1310 IF RESULT> 212 THEN LET MOUNTH=8:IF RESULT>212 THEN DAYRESULT=DAY-212 1320 IF RESULT> 243 THEN LET MOUNTH=9:IF RESULT>243 THEN DAYRESULT=DAY-243 1330 IF RESULT> 273 THEN LET MOUNTH=10:IF RESULT>304 THEN DAYRESULT=DAY-273 1340 IF RESULT> 304 THEN LET MOUNTH=11:IF RESULT>334 THEN DAYRESULT=DAY-304 1350 IF RESULT> 334 THEN LET MOUNTH=12:IF RESULT>334 THEN DAYRESULT=DAY-334 1360 IF RESULT> 365 THEN LET MOUNTH=1:IF RESULT>365 THEN DAYRESULT=DAY-365 1365 CONUT=COUNT+365.25# 1366 IF COUNT>365.25# THEN COUNT=COUNT-365.25# 1367 WEND 1370 LOCATE 0,5:PRINT "期間の結果は";YEARRESULT;"年";MOUNTH;"月";DAY;"日です" 1380 *SKIP GOTO *START 1390 *DAYSTARTUP 1400 DATA 31,28.25,31,30,31,30,31,31,30,31,30,31 1410 FOR T=1 TO 12:READ DAYMAP(T):NEXT 1420 GOTO *START 1430 *SKIP1OUT Re: 無題 - Mr.Dai Fukuoka 福岡大 URL 2025/09/03 (Wed) 05:00:12 100 REM --------------------- 110 REM StockMarketLister Program by Dai Fukuoka 2016.08.09 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 CSV$(11,10000):DIM CSV(11,10000):DIM CELL$(11,10000):DIM CELL(11,10000) 160 DIM STAFFNUM(9999):DIM STAFFNUM$(9999):DIM STAFFEXPARENT(9999):DIM STAFFBRUNCH(9999):DIM STAFFLIST(9999):DIM PLAN(9999):DIM PLAN$(9999):DIM SURPLUS(9999) 170 DIM CHEIF(99):DIM LISTED(99):DIM CHECKED(9999):DIM CHECKER(9999) 180 DIM BRUNCH(9999):DIM DATES$(9999):DIM TIMES$(9999):DIM EXPARENT(9999) 190 DIM MONEY$(9999):DIM INCOME(9999):DIM CSV2$(11,9999):DIM CSV2(11,9999) 200 DIM COMPANYNAME$(9999):DIM QUEST$(9999):DIM VERYFIY(11,9999):DIM VERIFIY$(11,9999):DIM TOTALED(9999) 210 *START 220 PRINT "investment type of select count of (1) Standard ,count of (2) Capital ,count of (3) Groupment Commitioner" 230 PRINT "投資形式を選択してください(1)基本投資型(2)資本主義型(3)理事体型 :";:INPUT "",INVEST:IF INVEST=0 THEN INVEST=1 240 IF INVEST=1 THEN CSV$(1,1)="Standard" ELSE IF INVEST=2 THEN CSV$(1,1)="Chapital" ELSE IF INVEST=3 THEN CSV$="Commitioner" 250 PRINT "Type Name at StoreName or CompanyName " 260 PRINT "会社の本店名屋号並びに社名を入力してください　:";:INPUT "",COMPANYNAME$(1):IF COMPANYNAME$(1)="" THEN CSV$(2,1)="NoTitle" ELSE CSV$(2,1)=COMPANYNAME$:FOR Y=2 TO 48:COMPANYNAME$(Y)=COMPANYNAME$(1):NEXT 270 PRINT "Branch Industrial or Commerce Type of Count" 280 PRINT "支店の数を入力してください :";:INPUT "",BRUNCHCOUNT:IF BRUNCHCOUNT=0 THEN BRUNCHCOUNT=1:CSV$(3,1)=STR$(BRUNCHCOUNT) ELSE CSV$(3,1)=STR$(BRUNCHCOUNT) 290 PRINT "Country Name or Locate Type of Name" 300 PRINT "国籍並びに所在地を入力してください";:INPUT "",LOCATION$:IF LOCATION$="" THEN CSV$(4,1)="NoPlace" ELSE CSV$(4,1)=LOCATION$ 310 PRINT "Type Name Leader Director President or Group President " 320 PRINT "代表取締役社長氏名、並びに、グループ会頭氏名を入力してください :";:INPUT "",LEADERNAME$:IF LEADERNAME$="" THEN CSV$(5,1)="NoName" ELSE CSV$(5,1)=LEADERNAME$ 330 PRINT "Brunch Trade at the Root Number President or [(1)BrunchClub(2)Judiciary(3)Registor] 340 PRINT "支店の枝の数を入力してください(1-3) :";:INPUT "",BRUNCHROOT:IF BRUNCHROOT=0 THEN CSV$(6,1)=STR$(1)+"BrunchNumber" ELSE CSV$(6,1)=STR$(BRUNCHROOT)+"Brunch Number" 350 PRINT "Exparent Than Standard Money Type of (1)Europa(2)Japan(3)USA" 360 PRINT "指数に対する通貨を入力してください(1)Euro(2)Yen(3)UsaDoll :";:INPUT "",MONEYMODE 370 IF MONEYMODE=1 THEN RATE=180 ELSE IF MONEYMODE=2 THEN RATE=1 ELSE IF MONEYMODE=3 THEN RATE=133 380 IF RATE=0 THEN RATE=180 390 CSV$(7,1)=STR$(INT(DIVITION/RATE+.1#/1000000)) 400 PRINT "Gruop of Central Group Name Type for Name" 410 PRINT "資本となる中心組織体の組織名を入力してください :";:INPUT "",LEADERCOMPANY$:IF LEADERCOMPANY$="" THEN CSV$(8,1)="NoLeader" ELSE CSV$(8,1)=LEADERCOMPANY$ 420 PRINT "Central Gruop Invest and Surplus Pool up Addit FineExchange" 430 PRINT "中心組織の投資運用剰余金を指数で割って入力してください :";:INPUT "",DIVITION:IF DIVITION=0 THEN DIVITION=1 440 CSV$(9,1)=STR$(INT(DIVITION/1000000)):TOTAL=DIVITION/RATE+.1#*1000000 450 PRINT DATE$+"-"+TIME$;"Get Sinece 4colmnYear yyyy/mm/dd - Time hh/mm/ss" 460 PRINT DATE$+"-"+TIME$;"今日の日付と、株の申告予定日年は４桁、他は２桁";:INPUT "",SINCE$ 470 IF SINCE$="" OR SINCE$="-" OR SINCE$=" " THEN SINCE$=DATE$+"-"+TIME$ 480 CSV$(10,1)=SINCE$ 490 PRINT "Appointment Accept file Name" 500 PRINT "プロファイルのファイル名を指定してください :";:INPUT "",OTN$ 510 IF OTN$="" THEN OTN$="Defualt" 520 OPEN OTN$ AS 1:FLAG=EOF(1):CLOSE 1 530 IF FLAG=-1 THEN ELSE *SKIPTO 540 OPEN OTN$ FOR OUTPUT AS #1 550 WRITE #1,CSV$(1,1),CSV$(2,1),CSV$(3,1),CSV$(4,1),CSV$(5,1),CSV$(6,1),CSV$(7,1),CSV$(8,1),CSV$(9,1),CSV$(10,1),OTN$ 560 CLOSE #1 570 *SKIPTO GOTO *INVEST 580 GOTO *START 590 *INVEST 600 IF CSV$(7,1)=" 7518" THEN MONEYS$="UsaDoll":RATE=133 610 IF CSV$(7,1)=" 5555" THEN MONEYS$="Euro":RATE=180 620 IF CSV$(7,1)=" 1000000" THEN MONEYS$="YEN":RATE=1 630 EXPARENT=INT(VAL(CSV$(9,1))/RATE+.1#*1000000) 640 INCOME=INT(EXPARENT/100000*3+.1#) 650 PRINT "Exparent of";EXPARENT;" Income of";INCOME;MONEYS$ 660 PRINT "Set Limid of Count up Mounth :"; 670 INPUT "",BETWEEN:IF BETWEEN=0 THEN *INVEST 680 FOR H=1 TO BETWEEN:FINEMONEY=INT(FINEMONEY/RATE+INCOME+.1#):NEXT H 690 PRINT "TOTAL :";FINEMONEY;MONEYS$;" of";BETWEEN;"Mounth"; 700 PRINT "Edit Stock Market Number";:INPUT "",SMN 710 PRINT "Edit Brunch Number :";:INPUT "",ROOTNUM 720 PRINT "Edit Execution Post(0:Y/1:N):";:INPUT "",EXE 730 IF EXE=1 THEN *INVEST 740 *RETYPE1 750 PRINT "Template Set of (1)Staff Only (2)List And Staff (3)Tob And Staff (4)List And Tob And Staff :";:INPUT "",TYPE1 760 PRINT "Exparent Rank Set of (1)Chif President Class (2) Limited Company Class (3) Gavament President Class :";:INPUT "",TYPE2 770 PRINT "Trade Mark Regist on Date and Rank of (1)SpecialLisence (2)CopyRight (3)Visual :";:INPUT "",TYPE3 780 PRINT "Exparent Addit Manager 0-10000 :";:INPUT "",TYPE4 790 IF TYPE1=0 OR TYPE2=0 OR TYPE3=0 THEN *RETYPE1 800 YEAR=INT(BETWEEN/12) 810 YEAROFF=VAL(MID$(DATE$,1,2)) 820 IF YEAROFF-YEAR<0 THEN YC=100-YEAROOF-YEAR ELSE YC=YEAROFF-YEAR 830 MOUNTHOFF=VAL(MID$(DATE$,4,2)):IF MOUNTHOFF-BETWEEN>0 THEN MC=MOUNTHOFF-BETWEEN ELSE IF MOUNTHOFF-BETWEEN<0 THEN MC=MOUNTHOFF-BETWEEN+(YEAR*12) 840 PRINT "Time of ";DATE$;TIME$;"- START MOUNTH";MC;" START YEAR";YC 850 REM IF ROOTNO=0 THEN *LEADERONCE 860 REM IF ROOTNO=1 THEN *PRESIDENTENTRY 870 REM IF ROOTNO=2 THEN *CHAIRMANSHIP 880 REM IF ROOTNO=3 THEN *RegistanceGroup 890 *SETTYPE 900 AAA=10000000/RATE:BBB=20000000/RATE:CCC=30000000/RATE:DDD=27500000/RATE 910 REM IF ROOTNO=3 THEN *REGIST 920 EEE=22500000*8/RATE:FFF=25000000/RATE:GGG=7500000/RATE:HHH=5000000/RATE 930 III=2350000/RATE:JJJ=3500000/RATE:KKK=2500000/RATE:LLL=1000000/RATE 940 PLAN(1)=AAA:PLAN(2)=BBB:PLAN(3)=CCC:PLAN(4)=CCC:PLAN(5)=CCC:PLAN(6)=DDD 950 PLAN(7)=CCC:PLAN(8)=FFF:PLAN(9)=III:PLAN(10)=AAA:PLAN(11)=GGG 960 PLAN(12)=HHH:PLAN(13)=JJJ:PLAN(14)=BBB:PLAN(15)=AAA*8:PLAN(16)=EEE*8 970 PLAN(17)=AAA:PLAN(18)=BBB:PLAN(19)=CCC:PLAN(20)=BBB:PLAN(21)=AAA 980 PLAN(22)=KKK*8:PLAN(23)=LLL*5:PLAN(24)=LLL*5:PLAN(25)=JJJ*5:PLAN(26)=AAA*5 990 PLAN(27)=LLL*8:PLAN(28)=JJJ*8:PLAN(29)=AAA*8 1000 U=COUNTER*50:FOR W=1+U TO 50+U:CHECKED(W)=0:CHECKER(W)=1:NEXT W 1010 FOR R=1+U TO 22+U:PLAN(R)=PLAN(R-U):NEXT 1020 FOR R=23+U TO 29+U:PLAN(R)=PLAN(R-U):NEXT 1030 FOR R=30+U TO 36+U:PLAN(R)=PLAN(R-7-U):NEXT 1040 FOR R=37+U TO 43+U:PLAN(R)=PLAN(R-14-U):NEXT 1050 FOR R=44+U TO 50+U:PLAN(R)=PLAN(R-21-U):NEXT 1060 EXPARENT(U)=PLAN(U)/1000000:INCOME=DIVITION*1000000/RATE/10*3:MONEY=MONEYMODE 1070 STAFFNUM$(1+U)="Leader Director President":STAFFNUM$(2+U)="Leader Chairman" 1080 STAFFNUM$(3+U)="Director President":STAFFNUM$(4+U)="Submit Leader" 1090 STAFFNUM$(5+U)="Cheif(Engineer or Financial) Breau":STAFFNUM$(6+U)="Cheif Offen Offer" 1100 STAFFNUM$(7+U)="Director President":STAFFNUM$(8+U)="Brunch Club" 1110 STAFFNUM$(9+U)="DeskChairman":STAFFNUM$(10+U)="President" 1120 STAFFNUM$(11+U)="Execute or Sineor Director":STAFFNUM$(12+U)="Club" 1130 STAFFNUM$(13+U)="Department":STAFFNUM$(14+U)="Judicialy President" 1140 STAFFNUM$(15+U)="Region Exception Assembly Office":STAFFNUM$(16+U)="Staff 8 Justice Brunch Chage" 1150 STAFFNUM$(17+U)="Justice Director":STAFFNUM$(18+U)="Chairman" 1160 STAFFNUM$(19+U)="Resistance Group President":STAFFNUM$(20+U)="Protestant DeskChairman" 1170 STAFFNUM$(21+U)="Protestant President":STAFFNUM$(22+U)="Staff 8 Staff Charge" 1180 FOR T=1 TO 22:STAFFNUM$(T+U+50)=STAFFNUM$(T):STAFFNUM(T+U+50)=STAFFNUM(T):NEXT T 1190 FOR T=23+U TO 50+U STEP 7 1200 STAFFNUM$(T)="Staff 5 Tob Cheif":STAFFNUM$(T+1)="Staff 5 Tob Gavament President":STAFFNUM$(T+2)="Staff 5 Tob Limited Company President" 1210 STAFFNUM$(T+3)="Staff 5 Tob Cheif President":STAFFNUM$(T+4)="Staff 8 Listed Gavament President":STAFFNUM$(T+5)="Staff 8 Listed Limited Company President" 1220 STAFFNUM$(T+6)="Staff 8 Listed Cheif President" 1230 STAFFNUM(T)=T:STAFFNUM(T+1)=T+1:STAFFNUM(T+2)=T+3 1240 STAFFNUM(T+3)=T+3:STAFFNUM(T+4)=T+4:STAFFNUM(T+5)=T+5 1250 STAFFNUM(T+6)=T+6 1260 NEXT 1270 NE$="(1-8)0:ALL/9:Nothing":QE$="(0:Yes/1:No):":NF$="(1-5)0:ALL/9:Nothing:" 1280 FOR W=1 TO 50:QUEST$(W)=QE$:NEXT 1290 QUEST$(15+U)=NE$:QUEST$(16+U)=NE$:QUEST$(22+U)=NE$ 1300 FOR W=23+U TO 50+U STEP 7: 1310 QUEST$(W)=NF$:QUEST$(W+1)=NF$:QUEST$(W+2)=NF$:QUEST$(W+3)=NF$ 1320 QUEST$(W+4)=NE$:QUEST$(W+5)=NE$:QUEST$(W+6)=NE$ 1330 NEXT W 1340 IF NFLAG=1 THEN START=6 ELSE START=1 1350 IF STARTED=1 THEN START=7 ELSE START=1 1360 IF BRUNCHROOT=1 THEN LOOPNUM=14 ELSE IF BRUNCHROOT=2 THEN LOOPNUM=19 ELSE IF BRUNCHROOT=3 THEN LOOPNUM=22 ELSE LOOPNUM=22 1370 FOR T=23+U TO 50+U STEP 7:STAFFNUM$(T)=STAFFNUM$(23):STAFFNUM(T)=STAFFNUM(23):PLAN(T)=PLAN(23) 1380 STAFFNUM$(T+1)=STAFFNUM$(24):STAFFNUM(T+1)=STAFFNUM(24):PLAN(T+1)=PLAN(24) 1390 STAFFNUM$(T+2)=STAFFNUM$(25):STAFFNUM(T+2)=STAFFNUM(25):PLAN(T+2)=PLAN(25) 1400 STAFFNUM$(T+3)=STAFFNUM$(26):STAFFNUM(T+3)=STAFFNUM(26):PLAN(T+3)=PLAN(26) 1410 STAFFNUM$(T+4)=STAFFNUM$(27):STAFFNUM(T+4)=STAFFNUM(27):PLAN(T+4)=PLAN(27) 1420 STAFFNUM$(T+5)=STAFFNUM$(28):STAFFNUM(T+5)=STAFFNUM(28):PLAN(T+5)=PLAN(28) 1430 STAFFNUM$(T+6)=STAFFNUM$(29):STAFFNUM(T+6)=STAFFNUM(29):PLAN(T+6)=PLAN(29) 1440 NEXT 1450 IF START=0 THEN START=1 1460 *RESTORELOOP I=START:LOOPNUM=COUNTER*50+50:WHILE I=<LOOPNUM 1470 IF I=23 AND BRUNCH=3 THEN START=7:BRUNCH=1:GOTO *LOOPEND 1480 LAP=VAL(CSV$(3,1)):IF LAP*50<U THEN *INVESTPROCESS ELSE 1490 P=P+1:PRINT P;:IF I=0 THEN I=1 ELSE IF I=23 THEN I=7 1500 IF I>22 THEN I=7 1510 IF I=1 THEN PRINT "--Brunch 00 Root Stock Number--";:BRUNCH=0:INPUT "",PASS:DATES$(I+U)=DATE$:TIMES$(I+U)=TIME$:BRUNCH(I+U)=BRUNCH 1520 IF I=7 THEN PRINT "--Brunch 01 Root Stock Number--";:BRUNCH=1:INPUT "",PASS:DATES$(I+U)=DATE$:TIMES$(I+U)=TIME$:BRUNCH(I+U)=BRUNCH 1530 IF I=14 THEN PRINT "--Brunch 02 Root Stock Number--";:BRUNCH=2:INPUT "",PASS:DATES$(I+U)=DATE$:TIMES$(I+U)=TIME$:BRUNCH(I+U)=BRUNCH 1540 IF I=19 THEN PRINT "--Brunch 03 Root Stock Number--";:BRUNCH=3:INPUT "",PASS:DATES$(I+U)=DATE$:TIMES$(I+U)=TIME$:BRUNCH(I+U)=BRUNCH 1550 BRUNCH(I)=BRUNCH 1560 IF CHECKED(I+U)=1 AND CHECKER(I+U)=0 THEN PRINT "Staff Sold" 1570 IF CHECKED(I+U)>0 THEN GOTO *SKIPTO2 1580 IF STARTED=1 AND BRUNCH=0 THEN START=7:BRUNCH=1:GOTO *SKIPTO2 1590 PRINT STAFFNUM$(I);QUEST$(I);:INPUT "",CHECKER(I+U):IF CHECKER(I+U)=0 THEN CHECKED(I+U)=1 1600 IF CHECKED(I+U)>0 THEN DATES$(I+U)=DATE$:TIMES$(I+U)=TIME$:BRUNCH(I+U)=BRUNCH:EXPARENT(I+U)=INT(PLAN(P)/1000000+.1#*RATE):COMPANYNAME$(1+U)=COMPANYNAME$(I+U) 1610 IF CHECKER(I)>0 AND CHECKER(I)<9 THEN CHECKED(I)=CHECKER(I) 1620 IF CSV2$(1,I+U)="" THEN CSV2$(1,I+U)=DATES$(I+U):CSV2$(2,I+U)=TIMES$(I+U):CSV2(4,I+U)=STAFFNUM(I+U):CSV2$(5,I+U)=COMPANYNAME$(I+U):CSV2(6,I+U)=BRUNCH(I+U):CSV2(8,I+U)=PLAN(I):CSV2(9,I+U)=PLAN(I)/1000000:CSV2(10,I+U)=DIVITION*100000/10*3 1630 *SKIPTO2 1640 IF I=6 OR I=13 OR I=18 OR I=22 THEN IF BRUNCH<4 THEN GOTO *TOB00 ELSE *SKIPI 1650 *LOOPEND 1660 *SKIPI I=I+1:WEND:U=CPUNTER*50:START=7:I=7:IF I=22 AND BRUNCH=3 THEN GOTO *INVESTPROCESS 1670 IF UFLAG=-1 THEN 1680 REM IF STAFFNUM(W)=1 AND FINEMONEY*RATE>PLAN(W) THEN ELSE TOC=FINEMONEY-(PLAN(I)*RATE):FLAG=I 1690 IF LOOPS=1 THEN GOTO *SERIALIZATION 1700 *TOB00 M=N:IF TYPE1=3 OR TYPE1=4 THEN UCOUNT=UCONT+1 ELSE *LIST00 1710 IF LFLAG=1 THEN *SKIPTOB 1720 IF M=0 THEN N=23:M=N 1730 IF STARTED=1 THEN N=43:NCOUNT=50 1740 IF BRUNCH=0 THEN N=23:BRUNCH(N+U)=BRUNCH:DATES$(N+U)=DATE$:TIMES$(N+U)=TIME$:NCOUNT=27:COMPANYNAME$(N+U)=COMPANYNAME$(1) 1750 IF BRUNCH=1 THEN N=30:BRUNCH(N+U)=BRUNCH:DATES$(N+U)=DATE$:TIMES$(N+U)=TIME$:NCOUNT=34:COMPANYNAME$(N+U)=COMPANYNAME$(1) 1760 IF BRUNCH=2 THEN N=37:BRUNCH(N+U)=BRUNCH:DATES$(N+U)=DATE$:TIMES$(N+U)=TIME$:NCOUNT=41:COMPANYNAME$(N+U)=COMPANYNAME$(1) 1770 IF BRUNCH=3 THEN N=44:BRUNCH(N+U)=BRUNCH:DATES$(N+U)=DATE$:TIMES$(N+U)=TIME$:NCOUNT=48:COMPANYNAME$(N+U)=COMPANYNAME$(1) 1780 LET U=COUNTER*50:LAP=VAL(CSV$(3,1)):PRINT M,U 1790 LET M=N:SS$="Staff Sold":IF CHECKED(M+U)=1 THEN PRINT SS$ ELSE PRINT STAFFNUM$(M);QUEST$(M);:INPUT "",CHEIF(1) 1800 IF CHEIF(1)=0 THEN STAFFNUM$(M+U)=STAFFNUM$(23):STAFFNUM(M+U)=STAFFNUM(23):DATES$(M+U)=DATE$:TIMES$(M+U)=TIME$:BRUNCH(M+U)=BRUNCH:EXPARENT(M+U)=PLAN(23)*RATE+.1#/1000000:CHECKED(M+U)=1:CSV2$(5,M+U)=COMPANYNAME$(1) 1810 LET M=N+1:IF CHECKED(M+U)=1 THEN PRINT SS$ ELSE PRINT STAFFNUM$(M);QUEST$(M);:INPUT "",CHEIF(2) 1820 IF CHEIF(2)=0 THEN STAFFNUM$(M+U)=STAFFNUM$(24):STAFFNUM(M+U)=STAFFNUM(24):DATES$(M+U)=DATE$:TIMES$(M+U)=TIME$:BRUNCH(N+U)=BRUNCH:EXPARENT(M+U)=PLAN(24)*RATE+.1#/1000000:CHECKED(M+U)=1:CSV2$(5,M+U)=COMPANYNAME$(1) 1830 LET M=N+2:IF CHECKED(M+U)=1 THEN PRINT SS$ ELSE PRINT STAFFNUM$(M);QUEST$(M);:INPUT "",CHEIF(3) 1840 IF CHEIF(3)=0 THEN STAFFNUM$(M+U)=STAFFNUM$(25):STAFFNUM(M+U)=STAFFNUM(25):DATES$(N+U)=DATE$:TIMES$(M+U)=TIME$:BRUNCH(N+U)=BRUNCH:EXPARENT(M+U)=PLAN(25)*RATE+.1#/1000000:CHECKED(M+U)=1+.1#/1000000:CHECKED(M+U)=1:CSV2$(2,W+U)=COMPANYNAME$(1) 1850 LET M=N+3:IF CHECKED(M+U)=1 THEN PRINT SS$ ELSE PRINT STAFFNUM$(M);QUEST$(M);:INPUT "",CHEIF(3) 1860 IF CHEIF(4)=0 THEN STAFFNUM$(M+U)=STAFFNUM$(26):STAFFNUM(M+U)=STAFFNUM(26):DATES$(M+U)=DATE$:TIMES$(M+U)=TIME$:BRUNCH(N+U)=BRUNCH:EXPARENT(M+U)=PLAN(26)*RATE+.1#/1000000:CHECKED(M+U)=1+.1#/1000000:CHECKED(M+U)=1:CSV2$(5,M+U)=COMPANYNAME$(1) 1870 M=N 1880 FOR W=1+U TO 50+U:CSV2$(1,W)=DATES$(W):CSV2$(2,W)=TIMES$(W):NEXT 1890 FOR W=1+U TO 50+U:CSV2$(3,W)=STAFFNUM$(W):CSV2(4,W)=STAFFNUM(W):NEXT 1900 FOR W=1+U TO 50+U:CSV2(6,W)=BRUNCH(W):CSV2(8,W)=INCOME(W):NEXT 1910 FOR W=1+U TO 50+U:CSV2(9,W)=EXPARENT(W):CSV2(10,W)=DIVITION*1000000:NEXT 1920 *LIST00 UCOUNT=0:IF TYPE1=2 OR TYPE1=4 THEN UCOUNT=UCONT+1 ELSE *SKIPTOB 1930 IF LFLAG=1 THEN *SKIPTOB 1940 IF BRUNCH=0 THEN N=27:BRUNCH(N+U)=BRUNCH:DATES$(N+U)=DATE$:TIMES$(N+U)=TIME$:NCOUNT=28:COMPANYNAME$(N+U)=COMPANYNAME$(1):EXPARENT(N+U)=PLAN(N)/1000000*RATELIST -1800 1950 IF BRUNCH=1 THEN N=34:BRUNCH(N+U)=BRUNCH:DATES$(N+U)=DATE$:TIMES$(N+U)=TIME$:NCOUNT=35:COMPANYNAME$(N+U)=COMPANYNAME$(1):EXPARENT(N+U) = PLAN(N)/1000000*RATE 1960 IF BRUNCH=2 THEN N=41:BRUNCH(N+U)=BRUNCH:DATES$(N+U)=DATE$:TIMES$(N+U)=TIME$:NCOUNT=42:COMPANYNAME$(N+U)=COMPANYNAME$(1):EXPARENT(N+U) = PLAN(N)/1000000*RATE 1970 IF BRUNCH=3 THEN N=48:LFLAG=0:BRUNCH(N+U)=BRUNCH:DATES$(N+U)=DATE$:TIMES$(N+U)=TIME$:NCOUNT=49:COMPANYNAME$(N+U)=COMPANYNAME$( 1):EXPARENT(N+U)=PLAN(N)/1000000*RATE 1980 SS$="Staff Sold":LET U=COUNTER*50:LAP=VAL(CSV$(3,1)) 1990 LET M=N :IF CHECKED(M+U)=1 THEN PRINT SS$ ELSE PRINT STAFFNUM$(M);QUEST$(M);:INPUT "",LISTED(1) 2000 LET M=N+1:IF CHECKED(M+U)=1 THEN PRINT SS$ ELSE PRINT STAFFNUM$(M);QUEST$(M);:INPUT "",LISTED(2) 2010 LET M=N+2:IF CHECKED(M+U)=1 THEN PRINT SS$ ELSE PRINT STAFFNUM$(M);QUEST$(M);:INPUT "",LISTED(3) 2020 M=N:IF LISTED(1)=0 THEN STAFFNUM$(M+U)=STAFFNUM$(27):STAFFNUM(M+U)=STAFFNUM(27):CHECKED(M+U)=1:INCOME(M+U)=PLAN(27)/10*3:EXPARENT(M+U)=PLAN(27)/1000000:DATES$(M+U)=DATE$:TIMES$(M+U)=TIME$:CSV2$(5,M+U)=COMPANYNAME$(1) 2030 LET M=N+1:IF LISTED(2)=0 THEN STAFFNUM$(M+U)=STAFFNUM$(28):STAFFNUM(M+U)=STAFFNUM(28):CHECKED(M+U)=1:INCOME(M+U)=PLAN(28)/10*3:EXPARENT(M+U)=PLAN(28)/1000000:DATES$(M+U)=DATE$:TIMES$(M+U)=TIME$:CSV2$(5,M+U)=COMPANYNAME$(1) 2040 LET M=N+2:IF LISTED(3)=0 THEN STAFFNUM$(M+U)=STAFFNUM$(29):STAFFNUM(M+U)=STAFFNUM(29):CHECKED(M+U)=1:INCOME(M+U)=PLAN(29)/10*3:EXPARENT(M+U)=PLAN(29)/1000000:DATES$(M+U)=DATE$:TIMES$(M+U)=TIME$:CSV2$(5,M+U)=COMPANYNAME$(1) 2050 *SKIPTOB PRINT UCOUNT,NCOUNT,BRUNCH,I:IF BRUNCH=3 AND I=22 THEN *INVESTPROCESS 2060 IF I=22 AND BRUNCH=3 THEN BRUNCH=1:UFLAG=-1:GOTO *TOB00 ELSE 2070 GOTO *SKIPI 2080 *INVESTPROCESS 2090 LC=LC+1:PRINT "Industrial or StoreWork or Servant Brunch Name This it Tietle":PRINT "工業所並びに、小売業、公務の支部名を入力してください。";:INPUT "",COMPANY$(LC) 2100 IF OPENFILENAMES$="" THEN PRINT "Your Self Saving Open File Name";:INPUT "保存ファイル名を入力してください:",OPENFILENAMES$ 2110 IF NEXTMARKET=0 THEN PRINT "2 Brunch Market Over Input Works No Tie Up (Y:0/N:1)":PRINT "２支店以上を入力するには、(0)はい(1)いいえ":INPUT "",NEXTMARKET 2120 IF NEXTMARKET=1 THEN NCOUNT=0:UCOUNT=0:N=0:START=7 2130 IF COMPANY$(LC)="" THEN CANPANY$(LC)="Standard Company":PFLAG=1 2140 IF PFLAG=1 THEN *P1 2150 OPEN OFN$ AS 2:IF EOF(1)=-1 THEN PFLAG=1:PLACE=1 ELSE IF EOF(1)=0 THEN PFLAG=1:PLACE=0 2160 CLOSE 2 2170 IF PLACE=1 THEN *P1 2180 *P1 2190 FOR I=1 TO 22 2200 IF TOTAL<0 THEN GOTO *S1 2210 *S1 NEXT 2220 S=22:FOR B=0 TO 3:S=S+1 2230 IF TOTAL<0 THEN B=3:I=29:GOTO *S2 2240 *S2 NEXT B 2250 FOR I=START TO 50:IF TOTAL>0 AND CHECKER(I)=0 THEN CHECKED(I)=1:NEXT 2260 *SERIALIZETION SERIAL=SERIAL+1:START=7:BRUNCH=1:I=7 2270 LC=0:IF VAL(CSV$(3,1))=>SERIAL THEN ELSE 2280 *STEPIN 2290 IF ICOUNT=0 THEN ICONUT=ICOUNT+1 ELSE IF ICOUNT=1 THEN ICOUNT=ICONUT+1 2300 *LS1 2310 E=E+1:IF STARTED=1 AND E>50 THEN GOTO *CL1 2320 GOTO *PRETOTAL 2330 *PRETOTAL 2340 U=COUNTER*50:IF U=0 THEN STARTER=1 ELSE STARTER=7 2350 FOR F=STARTER TO 50: 2360 IF CHECKED(F)=1 THEN TOTAL=TOTAL-PLAN(F+U)*2 2370 NEXT 2380 GOTO *TAKEOWNERCOST 2390 IF E=>50 THEN STARTED=1:START=7:L=L+50:E=6 ELSE GOTO *PRETOTAL 2400 GOTO *TAKEOWNERCOST 2410 *TAKEOWNERCOST 2420 IF TOTAL<0 THEN PRINT ABS(TOTAL);"Empty of account" 2430 IF TOTAL>0 THEN PRINT TOTAL;"have a remain account" 2440 TOTALED(COUNTER)=TOTAL 2450 *TURN 2460 LAP=VAL(CSV$(3,1)):IF LAP=>SERIAL THEN COUNTER=COUNTER+1:Y=7:START=7::BRUNCH=1:STARTED=1:NFLAG=1:U=COUNTER*50:GOTO *SETTYPE 2470 *JOINT 2480 IF VAL(CSV$(3,1))=<Z-1 THEN *OUTIN 2490 IF OPENFILENAMES$="" THEN OPENFILENAMES$="CSVDefualt" 2500 OPEN OPENFILENAMES$ FOR OUTPUT AS #2 2510 Y=0:P=0:J=0 2520 FOR W=1 TO 50 STEP 1:CSV2$(3,W)=STAFFNUM$(W):CSV2(4,W)=STAFFNUM(W):NEXT 2530 FOR W=51 TO 100 STEP 1:CSV2$(3,W)=STAFFNUM$(W-50):CSV(4,W)=STAFFNUM(W-50):NEXT 2540 *WORTE 2550 Y=Y+1:IF Y=50 THEN Y=7:J=J+1 2560 IF COUNTER<J THEN *OUTIN 2570 IF LAP*50<P THEN *OUTIN 2580 IF CSV2$(1,Y+P)="" OR CSV2$(2,Y+P)="" OR CSV2$(3,Y+P)="" THEN *WROTELOOP 2590 WRITE #2,CSV2$(1,P+Y),CSV2$(2,P+Y),CSV2$(3,P+Y),CSV2(4,P+Y),CSV2$(5,P+Y),CSV2(6,P+Y),CSV2(7,P+Y),CSV2(8,P+Y),CSV2(9,P+Y),CSV2(10,P+Y),MONEYS$ 2600 *WROTELOOP 2610 P=J*50 2620 IF LAP<J THEN GOTO *OUTIN ELSE GOTO *WORTE 2630 *OUTIN 2640 CLOSE Re: 無題 - Mr.Dai Fukuoka 福岡大 URL 2025/09/03 (Wed) 04:57:36 100 REM --------------------- 110 REM SearchAscii Program by Dai Fukuoka 2018.07.15 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 STRAIGHT$(390000):DIM HITCOUNT(390000):DIM CASEFILE$(2,99999) 160 INPUT "Open Sequential File Type of CSV Data Base Files : (FileName) ",A$ 170 REM ON ERROR GOTO *ERRORSTOP:GOTO *SKIP1 180 REM *ERRORSTOP PRINT "No File Name Error";ERR:END 190 *SKIP1 200 OPEN A$ FOR INPUT AS #1:COUNT=1:WHILE EOF(1)=0:INPUT #1,STRAIGHT$(COUNT) 210 COUNT=COUNT+1:WEND 220 ENDCOUNT=COUNT:COUNT=1:PRINT "This DataBase Catch Out Conut of";ENDCOUNT-1 230 INPUT "Definition Type Sarch Words (2Byte):",B$:WLENGTH=LEN(B$):PRINT "Condition :";B$ 240 FOR I=1 TO ENDCOUNT-1:FOR T=1 TO LEN(STRAIGHT$(I)) 250 IF MID$(STRAIGHT$(I),T,WLENGTH)=B$ THEN HITCOUNT(I)=HITCOUNT(I)+1 260 NEXT T,I 270 FOR I=1 TO ENDCOUNT-1:IF HITCOUNT(I)=0 THEN ELSE PRINT I;"Result";HITCOUNT(I);","; 280 NEXT:PRINT 290 COUNT=1:FOR I=1 TO ENDCOUNT-1:IF NOT HITCOUNT(I)=0 THEN PRINT COUNT;STRAIGHT$(COUNT);:I=ENDCOUNT 300 NEXT 310 INPUT"Are You Hope All Data Base File Up List(Condition Print)(Y:0/N:1)",A:IF A=1 THEN *SKIP3 320 FOR D=1 TO ENDCOUNT-1 330 IF HITCOUNT(D)=0 THEN ELSE CASEFILE$(2,D)=STRAIGHT$(D):PRINT CASEFILE$(2,D)+" "; 340 NEXT D 350 *SKIP3 360 OPEN "SA18.txt" AS #2:CLOSE #2 370 OPEN "SA18.txt" FOR OUTPUT AS #2 380 FOR I=1 TO ENDCOUNT-1:IF HITCOUNT(I)=0 THEN ELSE WRITE #2,CASEFILE$(2,I); 390 NEXT I:CLOSE #2 Re: 無題 - Mr.Dai Fukuoka 福岡大 URL 2025/09/03 (Wed) 04:55:54 100 REM -------------------- 110 REM CopyRight Programming by.Dai Fukuoka 2018-01-07 120 REM Mouse GUI/ PlatForm Service of Dennougumi 130 REM -------------------- 140 DIM LOCW(80):DIM LOCH(25):DIM LOCWD(80):DIM LOCHD(25) 150 CONSOLE 0,2,0,1:SCREEN 3,0,0,1:WIDTH 80,25:COLOR 0,7,0,7,2:CLS 3 160 IF POINT(639,479)=POINT(639,399) THEN SHOWVIEW=1 ELSE SHOWVIEW=-1 170 *ASKIT INPUT"マウス起動テストを行いますか(0:Yes,1:No)",MODE 180 IF MODE=0 THEN *MOUSEEVENT ELSE IF MODE=1 THEN *SKIPNOW ELSE *ASKIT 190 *MOUSEEVENT 200 XLOCATENOW=MOUSE(0):YLOCATENOW=MOUSE(1) 210 ONLEFTMOUSEDOWNX=MOUSE(4,1):ONRIGHTMOUSEDOWNX=MOUSE(4,2) 220 ONLEFTMOUSEUPX=MOUSE(7,1):ONRIGHTMOUSEUPX=MOUSE(7,2) 230 ONLEFTMOUSEDOWNY=MOUSE(5,1):ONRIGHTMOUSEDOWNY=MOUSE(5,2) 240 ONLEFTMOUSEUPY=MOUSE(8,1):ONRIGHTMOUSEUPY=MOUSE(8,2) 250 LEFTPUSHNOW=MOUSE(2,1):RIGHTPUSHNOW=MOUSE(2,2) 260 LEFTCOUNTDOWN=MOUSE(3,1):RIGHTCOUNTDOWN=MOUSE(3,2) 270 LEFTCOUNTUP=MOUSE(6,1):RIGHTCOUNTUP=MOUSE(6,2) 280 DISTANCEX=MOUSE(9):DISTANCEY=MOUSE(10) 290 IF NFLAG=1 THEN *LOCATIONLOOP 300 GOTO *RETURNNOW 310 *RETURNNOW 320 IF FLAG=0 THEN *STARTUP 330 END 340 *STARTUP 350 *TESTMODE IF MODE=NOT 0 THEN *SKIPNOW 360 PRINT LEFTPUSHNOW;DISTANCEX;DISTANCEY;ONLEFTMOUSEDOWNX:GOTO *MOUSEEVENT 370 *SKIPNOW 380 *STARTSETTINGS NFLAG=1 390 NFLAG=1 400 IF SHOWVIEW=1 THEN HHIGHT=480:HVER=25 ELSE HHIGHT=400:HVER=20 410 *LOCATIONLOOP 420 FOR I=1 TO HVER:LOCHD(I)=(HHIGHT/HVER)*I:LOCH(I)=(HHIGHT/HVER)*(I-1):NEXT 430 FOR I=1 TO 80:LOCWD(I)=8*I:LOCW(I)=8*I-7:NEXT 440 FOR I=1 TO 80 450 IF ONLEFTMOUSEDOWNX>LOCW(I) AND ONLEFTMOUSEDOWNX<LOCWD(I) THEN XRLOC=I 460 NEXT 470 FOR I=1 TO HVER 480 IF ONLEFTMOUSEDOWNY>LOCH(I) AND ONLEFTMOUSEDOWNY<LOCHD(I) THEN YRLOC=I 490 NEXT 500 LOCATE 0,0:PRINT XRLOC;YRLOC;:GOTO *MOUSEEVENT Re: 無題 - Mr.Dai Fukuoka 福岡大 URL 2025/09/03 (Wed) 04:52:39 プログラミング　福岡大 100 REM -------------------- 110 REM CopyRight Programming by.Dai Fukuoka 2018-01-13 120 REM BOOTABLE MENU/ PlatForm Service of Dennougumi 130 REM -------------------- 140 CONSOLE 0,2,0,1:SCREEN 3,0,0,1:WIDTH 80,25:COLOR 6,7,0,7,2:CLS 3 150 IF POINT(639,479)=POINT(639,399) THEN SHOWVIEW=1 ELSE SHOWVIEW=-1 160 DIM X1(80):DIM Y1(25):DIM X2(80):DIM Y2(25):LET CT=0 170 DIM TN$(85):DIM OFN$(85) 180 OPEN "mt.txt" AS 1:EF=EOF(1):CLOSE 1 190 IF NOT EF=-1 THEN OPEN "mt.txt" FOR INPUT AS #1:FOR I=1 TO 84:INPUT #1,TN$(I),OFN$(I):NEXT 200 IF EF=-1 THEN FOR I=1 TO 84:TN$(I)="NOTITLE":OFN$(I)="Sample.bas":NEXT 210 IF EF=-1 THEN OPEN "mt.txt" FOR OUTPUT AS #2:FOR I=1 TO 84:WRITE #2,TN$(I),OFN$(I):NEXT 215 CLOSE #1:CLOSE #2 220 FOR XX=8 TO 640 STEP 8:CT=CT+1:X1(CT)=XX:NEXT:LET CT=0 230 IF SHOWVIEW=1 THEN FOR YY=0 TO 479 STEP 480/25:CT=CT+1:Y1(CT)=YY:NEXT 240 IF SHOWVIEW=-1 THEN FOR YY=0 TO 399 STEP 400/25:CT=CT+1:Y1(CT)=YY:NEXT 250 LET CT=0:FOR XX=0 TO 639 STEP 8:CT=CT+1:X2(CT)=XX:NEXT:LET CT=0 260 IF SHOWVIEW=1 THEN FOR YY=19.2# TO 479 STEP 480/25:CT=CT+1:Y2(CT)=YY:NEXT 270 IF SHOWVIEW=-1 THEN FOR YY=16 TO 399 STEP 400/25:CT=CT+1:Y2(CT)=YY:NEXT 280 LINE(X1(2),Y1(2))-(X2(79),Y2(22)),1,BF 290 FOR T=2 TO 22:FOR I=2 TO 59 STEP 19:LINE(X1(I),Y1(T))-(X2(I+20),Y2(T)),0,B 300 NEXT I,T 305 *START 310 LET CT=1:FOR T=1 TO 21:FOR I=1 TO 58 STEP 19:LOCATE I,T:PRINT CT:LOCATE I+3,T:PRINT ":";TN$(CT):CT=CT+1:NEXT I,T 320 COLOR 0,7,0,7,2:LOCATE 0,22:INPUT "SELECT,0/EDIT,1/EXPORT,2/IMPORT,3/NEW,4:",TELL 330 LOCATE 0,22:PRINT SPACE$(70):LOCATE 0,22 340 IF TELL=0 THEN INPUT "Open Number Menu :",TELL2:LOCATE 0,22:PRINT SPACE$(70) 350 IF TELL=1 THEN INPUT "Edit Number Menu :",TELL2:LOCATE 0,22:PRINT SPACE$(70) 360 IF TELL=2 THEN INPUT "Export File Name :",EFN$:LOCATE 0,22:PRINT SPACE$(70) 370 IF TELL=3 THEN INPUT "Import File Name :",IFN$:LOCATE .22#:PRINT SPACE$(70) 380 IF TELL=4 THEN INPUT "Format Menu Yes,1/No,0 :",RENEW:LOCATE 0,22:PRINT SPACE$(70) 390 *RUNNING LOCATE 0,22 400 IF TELL=0 THEN RUN OFN$(TELL2) 410 IF TELL=1 THEN INPUT "Edit Title :",TN$(TELL2):LOCATE 0,22:PRINT SPACE$(70):LOCATE 0,22 420 IF TELL=1 THEN INPUT "Edit File Name :",OFN$(TELL2):LOCATE 0,22:PRINT SPACE$(70):LOCATE 0,22 430 IF TELL=1 THEN INPUT "Pass,0/Save,1",SAVEPASS:LOCATE 0,22:PRINT SPACE$(70) 435 CLOSE #1:CLOSE #2 440 IF TELL=1 AND SAVEPASS=1 THEN CLOSE #1:OPEN "mt.txt" FOR OUTPUT AS #1:FOR I=1 TO 84:WRITE #1,TN$(I),OFN$(I):NEXT I:CLOSE #1:CLS:GOTO *START 無題 - Mr.Dai Fukuoka 福岡大 URL 2025/09/03 (Wed) 04:42:13 100 REM ｍ②Program　CopyRight Dai Fukuoka 110 INPUT "基礎の水平面積を入力してください長方形で有る必要があります：",A 120 INPUT "基礎の垂直面積を入力してください長方形で有る必要があります：",B 130 LET C=(A+B)/2:PRINT C;:PRINT"ヘクタール" Re: 無題 - Mr.Dai Fukuoka 福岡大 URL 2025/09/03 (Wed) 04:48:30 100 REM --------------------- 110 REM Aram Program by Dai Fukuoka 2018.05.09 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 A$=TIME$:FOR I=0 TO 1 STEP 0:IF TIME$="07:40:00" THEN I=1:BEEP:BEEP:BEEP:BEEP:BEEP:BEEP:END 160 NEXT Re: 無題 - Mr.Dai Fukuoka 福岡大 2025/09/03 (Wed) 04:44:16 10 REM Copyright 2016,1,6 -2016,3,28 Dai Fukuoka Pratforme 電脳組、東尾張病院 20 CONSOLE 0,24,0,1:SCREEN 3,0,0,1:WIDTH 80,25:COLOR 0,7,0,7,2:CLS 3 30 DIM A(255):DIM B(50,50):DIM C(25,25,25):DIM FLAG(255):DIM DFLAG(255,255):DIM TIPSJ$(255):DIM TIPSE$(255) 40 FOR I=1 TO 100:READ TIPSJ$(I):NEXT:FOR I=1 TO 100:READ TIPSE$(I):NEXT 50 *START LOCATE 0,0:INPUT"榮不動産（名古屋）土地条件報告書／著作権者：福岡大 2016 1-6 - 3-28",A$(0) 60 LOCATE 0,1:PRINT "Prosperity Nagoya Estate Company 0:Japanese 1:English 2:Loading 3:Calc : "; 70 LET COMMAND=0:INPUT " ",COMMAND 80 IF COMMAND=1 THEN *ENG 90 IF COMMAND=2 THEN *LOADING 100 IF COMMAND=3 THEN *CALC 110 IF COMMAND=0 THEN *NOSKIP 120 *NOSKIP 130 *LOADING 140 LOCATE 0,2:INPUT"？長辺の最大長をｍ（メートル単位）で入力してください",A(1) 150 LOCATE 0,4:INPUT"？短辺の最大長をｍ（メートル単位）で入力してください",A(2) 160 LOCATE 0,6:INPUT"？長編の正面の角度を入力してくださいc=270:West(西）",A(3) 170 LOCATE 0,8:INPUT"？基礎の傾斜の最低基準値を入力してください０を入力してください",A(4) 180 LOCATE 0,10:INPUT"？基礎の傾斜の最大高をｍで入力してください",A(5) 190 IF A(1)>0 THEN FLAG(1)=-1 200 IF A(2)>0 THEN FLAG(2)=-1 210 IF A(3)>0 THEN FLAG(3)=-1 220 IF A(4)=0 THEN FLAG(4)=-1 230 IF A(5)>0 THEN FLAG(5)=-1 240 CLS 250 LOCATE 0,2:INPUT"？四角形だけで構成される複雑な形 0:Fail/1:True",A(6) 260 LOCATE 0,4:INPUT"？平坦な土地 0:Fail/1:True",A(7) 270 LOCATE 0,6:INPUT"？土地の一部に窪れた土地ではない:0:Fail/1:Ture",A(8) 280 LOCATE 0,8:INPUT"？道路に面した長方形、正方形の単純な土地 0:Fail/1:True",A(9) 290 LOCATE 0,10:INPUT"？フロア辺りの出柱、バルコニー、出窓の数、土地条件に複雑な面積 :",A(10) 300 CLS 310 IF A(6)>0 THEN FLAG(6)=-1 320 IF A(7)>0 THEN FLAG(7)=-1 330 IF A(8)>0 THEN FLAG(8)=-1 340 IF A(9)>0 THEN FLAG(9)=-1 350 IF A(10)>0 AND A(10)<60 THEN FLAG(10)=-1 360 LOCATE 0,2:INPUT"？二画以上の土地面積を結合して高層階建築する場合 0:False/1:True",A(11) 370 LOCATE 0,4:INPUT"？土地の傾斜の底面の原点を指定します（ｍ単位）０：レベル高度",A(12) 380 LOCATE 0,6:INPUT"？土地の傾斜の頂高を指定します。（ｍ単位）最高度レベル高度",A(13) 390 LOCATE 0,8:INPUT"？平坦な土地に造成が必要な場合 0:Fail/1:True",A(14) 400 LOCATE 0,10:INPUT"？フロアの渡って右端から左端に傾斜が無い0:Fail/1:True",A(15) 410 IF A(11)>0 THEN FLAG(11)=-1 420 IF A(12)>=0 AND A(12)<10 THEN FLAG(12)=-1 430 IF A(13)>=0 AND A(13)<10 THEN FLAG(13)=-1 440 IF A(14)>0 THEN FLAG(14)=-1 450 IF A(15)>0 THEN FLAG(15)=-1 460 CLS 470 LOCATE 0,2:INPUT"？宿泊施設や、遊園地、画廊、図書館0:Fail/1:True",A(16) 480 LOCATE 0,4:INPUT"？繁華街、アーケードビル、オフィスビル等高地価 0:Fail/1:True",A(17) 490 LOCATE 0,6:INPUT"？フラットな駐車場、田圃、畑、公園など開けた低地価 0:Fail/1:True",A(18) 500 LOCATE 0,8:INPUT"？住宅、団地、集合住宅、雑居ビルなど物件 0:Fail/1:True",A(19) 510 LOCATE 0,10:INPUT"？繁華街、駐車場、宅地何れでもない 0:Fail/1:Truel",A(20) 520 IF A(16)>0 THEN FLAG(16)=-1 530 IF A(17)>0 THEN FLAG(17)=-1 540 IF A(18)>0 THEN FLAG(18)=-1 550 IF A(19)>0 THEN FLAG(19)=-1 560 IF A(20)>0 THEN FLAG(20)=-1 570 CLS 580 LOCATE 0,2:INPUT"？建物長編に隣接する土地が開けている庭のある0:Fail/1:True",A(21) 590 LOCATE 0,4:INPUT"？長辺の建物に隣接する土地が同じ高さの場合0:Fail/1:True",A(22) 600 LOCATE 0,6:INPUT"？住宅ローンはない0:Fail/1:True",A(23) 610 LOCATE 0,8:INPUT"？高層建築等の日陰の土地ではない0:Fail/1:True",A(24) 620 LOCATE 0,10:INPUT"？建物物件が市庁舎の種類で有る場合0:Fail/1:True",A(25) 630 IF A(21)>0 THEN FLAG(21)=-1 640 IF A(22)>0 THEN FLAG(22)=-1 650 IF A(23)>0 THEN FLAG(23)=-1 660 IF A(24)>0 THEN FLAG(24)=-1 670 IF A(25)>0 THEN FLAG(25)=-1 680 CLS 690 LOCATE 0,2:INPUT"？繁華街の通りに面していて、狭いアーケードで優秀0:Fail/1True",A(26) 700 LOCATE 0,4:INPUT"？取引者（不動産社員）が市外の土地との間0:Fail/1;True",A(27) 710 LOCATE 0,6:INPUT"？土地取引がエクスチェンジする時に、画を割った断片の面積0:Fail/1:True",A(28) 720 LOCATE 0,8:INPUT"？合同土地取引で、断片の面積を１画に戻す0:Fail/1:True",A(29) 730 LOCATE 0,10:INPUT"？地価差を為替金で埋める場合0:Fail/1;True",A(30) 740 IF A(26)>0 THEN FLAG(26)=-1 750 IF A(27)>0 THEN FLAG(27)=-1 760 IF A(28)>0 THEN FLAG(28)=-1 770 IF A(29)>0 THEN FLAG(29)=-1 780 IF A(30)>0 THEN FLAG(30)=-1 790 CLS 800 LOCATE 0,2:INPUT"？建物の地面からの総高を（ｍ単位で）入力します：",A(31) 810 LOCATE 0,4:INPUT"？土地の面積を、平方根にて平均した、ｍｘｍ（ｍの数は双方同じ面積：",A(32) 820 LOCATE 0,6:INPUT"？証券、共通商品通貨、他株発行と土地を取引する場合0:Fail/1True",A(33) 830 LOCATE 0,8:INPUT"？一画に複数の棟がある場合0:Fail/1:Trie",A(34) 840 LOCATE 0,10:INPUT"？ヘリポートを屋上に持つ場合0:Fail/1:True",A(35) 850 IF A(31)>0 THEN FLAG(31)=-1 860 IF A(32)>0 THEN FLAG(32)=-1 870 IF A(33)>0 THEN FLAG(33)=-1 880 IF A(34)>0 THEN FLAG(34)=-1 890 IF A(35)>0 THEN FLAG(35)=-1 900 CLS 910 LOCATE 0,2:INPUT"？宅件、瓦屋根に、光蓄熱太陽電池0:Fail/1:True",A(36) 920 LOCATE 0,4:INPUT"？地価の価格が地方３０指数、府立（政令指定）５０指数の場合0:Fail/1;True",A(37) 930 LOCATE 0,6:INPUT"？地価が１億円（約１００万フラン）を超えても競りに参加0:Fail/１：True",A(38) 940 LOCATE 0,8:INPUT"？土地と土地をエクスチェンジ（交換と交換に対するレーティング）する0:Fail/1:True",A(39) 950 LOCATE 0,10:INPUT"？取引の要綱（相談）がまとまっている土地取引の場合0:Fail/1:True",A(40) 960 IF A(36)>0 THEN FLAG(36)=-1 970 IF A(37)>0 THEN FLAG(37)=-1 980 IF A(38)>0 THEN FLAG(38)=-1 990 IF A(39)>0 THEN FLAG(39)=-1 1000 IF A(40)>0 THEN FLAG(40)=-1 1010 CLS 1020 LOCATE 0,2:INPUT"？取引土地が、市庁舎建物（図書館、会館、市民会館）等0:Fail/1:True",A(41) 1030 LOCATE 0,4:INPUT"？藁の刈り入れ、青田刈り、早稲ではない農地0:Fail/1:True",A(42) 1040 LOCATE 0,6:INPUT"？土地が、建物の、国益サービス（電気水道ガス、高速、鉄道）の場合0:Fail/1:True",A(43) 1050 LOCATE 0,8:INPUT"？検地針で、区画を旧跡に戻す場合0:Fail/1:Ture",A(44) 1060 LOCATE 0,10:INPUT"？土地に住所を登録商標に投ずる場合0:Fail/True",A(45) 1070 IF A(41)>0 THEN FLAG(41)=-1 1080 IF A(42)>0 THEN FLAG(42)=-1 1090 IF A(43)>0 THEN FLAG(43)=-1 1100 IF A(44)>0 THEN FLAG(44)=-1 1110 IF A(45)>0 THEN FLAG(45)=-1 1120 CLS 1130 LOCATE 0,2:INPUT"？土地所有者と、担当地主が異なる場合0:Fail/1:True",A(46) 1140 LOCATE 0,4:INPUT"？直営地の土地にアトラクション（誘致）の場合0:Fail/1:True",A(47) 1150 LOCATE 0,6:INPUT"？戸籍地の土地を建設復興の場合0:Fail/1:True",A(48) 1160 LOCATE 0,8:INPUT"？ヘリポートの高さを入力してください、地面０ｍ:",A(49) 1170 LOCATE 0,10:INPUT"？建物が取り壊し不可な建物（超高層階など）の土地0:Fail/True",A(50) 1180 IF A(47)>0 THEN FLAG(47)=-1 1190 IF A(46)>0 THEN FLAG(46)=-1 1200 IF A(48)>0 THEN FLAG(48)=-1 1210 IF A(49)>0 AND A(49)<403 THEN FLAG(49)=-1 1220 IF A(50)>0 THEN FLAG(50)=-1 1230 CLS 1240 OPEN "EstateAr" AS 1:CLOSE 1:OPEN "EstateAr" FOR OUTPUT AS #1:FOR I=1 TO 50:WRITE #1,A(I),FLAG(I):NEXT I:CLOSE #1 1250 LET SCORE=0:FOR I=1 TO 50 1260 IF FLAG(I)=-1 THEN SCORE=SCORE+1 1270 NEXT I:CLS:LOCATE 0,0:PRINT "中間結果発表" 1280 LOCATE 13,0:PRINT "",SCORE 1290 LOCATE 20,0:PRINT"点数"; 1300 INPUT "",B 1310 OPEN "EstateAR" FOR INPUT AS #1:FOR I=1 TO 50:INPUT #1,A(I),FLAG(I):NEXT I:CLOSE #1 1320 LOCATE 0,2:INPUT"？土地、建物老朽に伴う新築0:Fail/1:True",A(51) 1330 LOCATE 0,4:INPUT"？耐震補強工事を実施、完了した0:Fail/1:True",A(52) 1340 LOCATE 0,6:INPUT"？救急ヘリ、救急車搬送可能0:Fail/1True",A(53) 1350 LOCATE 0,8:INPUT"？消防車火災罰金・火災契約あり0:Fail/1:True",A(54) 1360 LOCATE 0,10:INPUT"？スプリンクラー、防災設備の完備0:Fail/1True",A(55) 1370 IF A(51)>0 THEN FLAG(51)=-1 1380 IF A(52)>0 THEN FLAG(52)=-1 1390 IF A(53)>0 THEN FLAG(53)=-1 1400 IF A(54)>0 THEN FLAG(54)=-1 1410 IF A(55)>0 THEN FLAG(55)=-1 1420 CLS 1430 LOCATE 0,2:INPUT"？最小限の防災設備（消化器）以上0:Fail/1:True",A(56) 1440 LOCATE 0,4:INPUT"？登板に向かって土地が３ｍ以上の土壁がない0:Fail/1True",A(57) 1450 LOCATE 0,6:INPUT"？個人無線設備が自立、もしくは、その業種の土地0:Fail/1:True",A(58) 1460 LOCATE 0,8:INPUT"？河川、海岸の濁流より、下の高度でない0:Fail/True",A(59) 1470 LOCATE 0,10:INPUT"？堤防が、コンクリートの基準を満たており、土でない0:Fail/1True",A(60) 1480 IF A(56)>0 THEN FLAG(56)=-1 1490 IF A(57)>0 THEN FLAG(57)=-1 1500 IF A(58)>0 THEN FLAG(58)=-1 1510 IF A(59)>0 THEN FLAG(59)=-1 1520 IF A(60)>0 THEN FLAG(60)=-1 1530 CLS 1540 OPEN "EstateAR" FOR INPUT AS #1:FOR I=1 TO 50:INPUT #1,A(I),FLAG(I):NEXT I:CLOSE #1 1550 IF A(58)>0 THEN FLAG(58)=-1 1560 IF A(59)>0 THEN FLAG(59)=-1 1570 IF A(60)>0 THEN FLAG(60)=-1 1580 CLS 1590 LOCATE 0,2:INPUT"？地下駐車場、立体駐車場を完備0:Fail/1:True",A(61) 1600 LOCATE 0,4:INPUT"？アクセスが、地下鉄等徒歩３０分以内0:Fail/1:True",A(62) 1610 LOCATE 0,6:INPUT"？アクセスが、市バス等徒歩１５分以内0:Fail/1:True",A(63) 1620 LOCATE 0,8:INPUT"？新幹線、国際空港等自動車１時間以内0:Fail/1:True",A(64) 1630 LOCATE 0,10:INPUT"？アクセスが、タクシー立ち寄り場の場合0:Fail/1:True",A(65) 1640 IF A(61)>0 THEN FLAG(61)=-1 1650 IF A(62)>0 THEN FLAG(62)=-1 1660 IF A(63)>0 THEN FLAG(63)=-1 1670 IF A(64)>0 THEN FLAG(64)=-1 1680 IF A(65)>0 THEN FLAG(65)=-1 1690 CLS 1700 LOCATE 0,2:INPUT"？アクセスが、ローカル以上の陸上鉄道徒歩２０分以内0:Fail/1:True",A(66) 1710 LOCATE 0,4:INPUT"？法人以上の土地など、土地損害保険が付属する0:Fail/1:True",A(67) 1720 LOCATE 0,6:INPUT"？請負会社が、発注者を不動産法人0:Fail/1:True",A(68) 1730 LOCATE 0,8:INPUT"？請負会社が工事会社を建築会社の場合0:Fail/1:True",A(69) 1740 LOCATE 0,10:INPUT"？請負会社が、建材並びに、工事を建設会社の場合0:Fail/1:True",A(70) 1750 IF A(66)>0 THEN FLAG(66)=-1 1760 IF A(67)>0 THEN FLAG(67)=-1 1770 IF A(68)>0 THEN FLAG(68)=-1 1780 IF A(69)>0 THEN FLAG(69)=-1 1790 IF A(70)>0 THEN FLAG(70)=-1 1800 CLS 1810 LOCATE 0,2:INPUT"？請負会社に土木を含む場合0:Fail/1:True",A(71) 1820 LOCATE 0,4:INPUT"？雨漏りが過去に無かった0:Fail/1:True",A(72) 1830 LOCATE 0,6:INPUT"？床下浸水が過去に無かった0:Fail/1:True",A(73) 1840 LOCATE 0,8:INPUT"？断水が３０日連続停滞しなかった0:Fail/1:True",A(74) 1850 LOCATE 0,10:INPUT"？停電が１０日連続停電しなかった0:Fail/1:True",A(75) 1860 IF A(71)>0 THEN FLAG(71)=-1 1870 IF A(72)>0 THEN FLAG(72)=-1 1880 IF A(73)>0 THEN FLAG(73)=-1 1890 IF A(74)>0 THEN FLAG(74)=-1 1900 IF A(75)>0 THEN FLAG(75)=-1 1910 CLS 1920 LOCATE 0,2:INPUT"？家賃が年金で払われている場合0:Fail/1:True",A(76) 1930 LOCATE 0,4:INPUT"？水道代が年金で払われている場合0:Fail/1:True",A(77) 1940 LOCATE 0,6:INPUT"？電気代が年金で払われている場合0:Fail/1:True",A(78) 1950 LOCATE 0,8:INPUT"？定額給付金が年金によって支払われている0:Fail/1:True",A(79) 1960 LOCATE 0,10:INPUT"？有給休暇を取っている人が住居している0:Fail/1:True",A(80) 1970 IF A(76)>0 THEN FLAG(76)=-1 1980 IF A(77)>0 THEN FLAG(77)=-1 1990 IF A(78)>0 THEN FLAG(78)=-1 2000 IF A(79)>0 THEN FLAG(79)=-1 2010 IF A(80)>0 THEN FLAG(80)=-1 2020 CLS 2030 LOCATE 0,2:INPUT"？定職を持たないものが家賃を払っている場合0:False/1:True",A(81) 2040 LOCATE 0,4:INPUT"？住所不定の人が家賃を払っている場合0:Fail/1:True",A(82) 2050 LOCATE 0,6:INPUT"？連絡先電話番号が特定できる0:Fail/1:True",A(83) 2060 LOCATE 0,8:INPUT"？家政婦を雇う事が出来る0:Fail/1:True",A(84) 2070 LOCATE 0,10:INPUT"？洗濯代金と、弁当のデリバリー（宅配生活者）0:Fail/1:True",A(85) 2080 IF A(81)>0 THEN FLAG(81)=-1 2090 IF A(82)>0 THEN FLAG(82)=-1 2100 IF A(83)>0 THEN FLAG(83)=-1 2110 IF A(84)>0 THEN FLAG(84)=-1 2120 IF A(85)>0 THEN FLAG(85)=-1 2130 CLS 2140 LOCATE 0,2:INPUT"？新聞配達員が投函する0:Fail/1:True",A(86) 2150 LOCATE 0,4:INPUT"？配給を受けることができる人が住んでいる0:Fail/1:True",A(87) 2160 LOCATE 0,6:INPUT"？撮像光学機器を設置している住居もしくは、業務ビル0:Fail/1:True",A(88) 2170 LOCATE 0,8:INPUT"？築年数の変化、老朽化を資料記録有り0:Fail/1:True",A(89) 2180 LOCATE 0,10:INPUT"？トイレを含む、水道管の詰まりや水漏れの報告がない0:Fail/1:True",A(90) 2190 IF A(86)>0 THEN FLAG(86)=-1 2200 IF A(87)>0 THEN FLAG(87)=-1 2210 IF A(88)>0 THEN FLAG(88)=-1 2220 IF A(89)>0 THEN FLAG(89)=-1 2230 IF A(90)>0 THEN FLAG(90)=-1 2240 CLS 2250 LOCATE 0,2:INPUT"？燃えるごみなど、ゴミを未廃棄でない0:Fail/1:True",A(91) 2260 LOCATE 0,4:INPUT"？室内が衛生的に、奇麗に環境が保たれている0:Fail/1:True",A(92) 2270 LOCATE 0,6:INPUT"？マンション等、LDK超満員の場合0:Fail/1:True",A(92) 2280 LOCATE 0,8:INPUT"？リビング（休憩室）、ダイニング（食卓）、キッチン（厨房）の有無0:Fail/True",A(93) 2290 LOCATE 0,10:INPUT"？衛生環境がトイレ、洗面器、バスタブなどが共同でない0:Fail/1:True",A(94) 2300 IF A(91)>0 THEN FLAG(91)=-1 2310 IF A(92)>0 THEN FLAG(92)=-1 2320 IF A(93)>0 THEN FLAG(93)=-1 2330 IF A(94)>0 THEN FLAG(94)=-1 2340 IF A(95)>0 THEN FLAG(95)=-1 2350 CLS 2360 LOCATE 0,2:INPUT"？ダイニングルームと厨房を一室にしている0:Fail:True",A(96) 2370 LOCATE 0,4:INPUT"開放空間のリビングルーム0:Fail/1:True",A(97) 2380 LOCATE 0,6:INPUT"？一世帯６人以上住める条件0:Fail/1:True",A(98) 2390 LOCATE 0,8:INPUT"？子供室の有無0:Fail/1:True",A(99) 2400 LOCATE 0,10:INPUT"マンションなどで、賃貸借家が１階あたり複数0:Fail/1:True",A(100) 2410 IF A(96)>0 THEN FLAG(96)=-1 2420 IF A(97)>0 THEN FLAG(97)=-1 2430 IF A(98)>0 THEN FLAG(98)=-1 2440 IF A(99)>0 THEN FLAG(99)=-1 2450 IF A(100)>0 THEN FLAG(100)=-1 2460 LET SCORE=0:CLS:OPEN "EstateAr" AS 1:CLOSE 1 2470 OPEN "EstateAr" FOR OUTPUT AS #1:FOR I=1 TO 102:WRITE #1,A(I),FLAG(I),TIPSJ$(I),TIPSE$(I):NEXT I:CLOSE #1 2480 FOR I=1 TO 102 2490 IF FLAG(I)=-1 THEN SCORE=SCORE+1 2500 NEXT I:CLS:LOCATE 0,0:PRINT "結果発表" 2510 LOCATE 13,0:PRINT SCORE 2520 LOCATE 20,0:PRINT"点数百問の設問の回答お疲れ様でした" 2530 INPUT "",B 2540 REM OPEN "EstateAR" FOR INPUT AS #1 2550 REM FOR I=1 TO 100:INPUT #1,A(I),FLAG(I),TIPSJ$(I),TIPSE$(I):NEXT 2560 REM CLOSE #1 2570 LOCATE 0,2:INPUT"コンタクトの情報：氏名/ハンドルネーム：",DATA$(1) 2580 LOCATE 0,4:INPUT"コンタクトの情報：郵便番号:",DATA$(2) 2590 LOCATE 0,6:INPUT"コンタクトの情報：お届け先住所（都道府県市町村）：",DATA$(3) 2600 LOCATE 0,8:INPUT"コンタクトの情報：お届け先の情報（区町村番地）：",DATA$(4) 2610 LOCATE 0,10:INPUT"コンタクトの情報：お問い合わせ電話番号：",DATA$(5) 2620 LOCATE 0,12:INPUT"コンタクトの情報：生年月日（西暦）：",DATA$(6) 2630 LOCATE 0,14:INPUT"エクスポートするファイル名を指定してください。拡張子は必要ありません",FILENAME$ 2640 FOR I=1 TO 6 2650 IF DATA$(I)="" THEN DFLAG=-1 2660 NEXT 2670 IF DFLAG=-1 THEN LOCATE 0,14:INPUT"未解答な情報があり書き込みに失敗しました。 ",A$:END 2680 OPEN "EstateAr" AS 1:CLOSE 1 2690 OPEN "EstateAr" FOR OUTPUT AS #1 2700 FOR I=1 TO 100:WRITE #1,A(I),FLAG(I),TIPSJ$(I),TIPSE$(I):NEXT 2710 FOR I=1 TO 6:WRITE #1,DATA$(I),DFLAG:NEXT 2720 CLOSE #1 2730 OPEN FILENAME$ AS 1:CLOSE 1 2740 OPEN FILENAME$ FOR OUTPUT AS #1 2750 FOR I=1 TO 100:WRITE #1,A(I),FLAG(I),TIPSJ$(I),TIPSE$(I):NEXT 2760 FOR I=1 TO 6:WRITE #1,DATA$(I),DFLAG:NEXT 2770 CLOSE #1:END 2780 DATA "長辺のｍ最大長","短辺のｍ最大長","正面の方位角度","基礎の傾斜" 2790 DATA "傾斜の最大高","四角形だけの複雑な形","平坦な土地","窪れのない土地" 2800 DATA "道路に面した長方形","フロア周りの出柱、出窓、バルコニーの数":REM "基礎の傾斜の０の基準値" 2810 DATA "土地の結合","ｍ土地の傾斜の底面の原点","ｍ土地の傾斜の頂高の原点" 2820 DATA "平坦土地に必要造成","フロア長辺、短辺の端と、端に傾斜が無い","宿泊建物、リゾート、誘致建物（遊地園他）" 2830 DATA "繁華街","平坦な建設物","集合住宅系" 2840 DATA "住宅系物件","繁華街、駐車場、宅地の何れでもない","長辺の建物に開けた庭のある" 2850 DATA "建物と土地が同じ高さ","住宅ローンの無し":REM "建物長編に面するフラットな開放空間" 2860 DATA "高層建物等日陰でない","市庁舎の建物","繁華街の通りの物件" 2870 DATA "取引者が不動産会社で、市外にレーティング","エクスチェンジに画を割った断片の面積のレーティング","合同土地取引で断片の土地を一画に戻す" 2880 DATA "地価差を為替で埋め合わせる","ｍ建物の総高","土地面積を平方根にて平均したｍｘｍ双同値" 2890 DATA "不動産会社が金券と土地を替える、証券、商品券、株","一画に複数の棟","ヘリポートを屋上に持つ場合" 2900 DATA "宅件。屋根瓦に光蓄熱太陽電池","地価の為替価が、地方３０指数、政令指定都市５０指数の料金","地価が１億円（１００万フラン）以上でも取引を再開" 2910 DATA "土地と土地を取引、レーティングに応じる","取引の要綱（相談がまとまっている）土地取引","土地取引地が市庁舎（図書館、会館、市民会館）等" 2920 DATA "藁の刈り入れ、青田刈り、早稲でない農地" 2930 DATA "土地が建物の国益サービス（電気水道ガス鉄道）","検地針で区画を旧跡に戻す場合","土地に、住所を登録商標に登録" 2940 DATA "土地所有者と、担当地主が異なる場合","直営地にアトラクッション（誘致）","戸籍の土地を建設復興の場合" 2950 DATA "ヘリポートの高さ","建物が取り壊し不可","土地建物の築年数の老朽化の移転、改築" 2960 DATA "耐震補強工事を行った","救急ヘリ、救急車搬送体制","消防車火災罰金、火災保険契約あり","スプリンクラー、消火器、消火栓の有無":REM *********** 2970 DATA "最小限の防災設備、消火器以上の体制","登板に向かって、土地が３ｍ以上の土壁の無い","河川、海岸の濁流より、下の高度でない" 2980 DATA "堤防がコンクリートの基準を満たしており土でない","地下駐車場、立体駐車場を完備","アクセスが、地下鉄徒歩３０分以内" 2990 DATA "アクセスが、市バス１５分以内","新幹線、国際空港、自動車１時間以内","アクセスが、タクシー立ち寄りの場合" 3000 DATA "アクセスが、ローカル線以上の鉄道徒歩２０分以内","法人の土地など、土地損害保険が付属","請負会社が、発注が不動産法人" 3010 DATA "請負会社が、工事会社を、建築会社","請負会社が建材並びに、工事を、建設会社" 3020 DATA "請負会社に土木を含む場合","雨漏りが過去に無かった","床下浸水が過去に無かった" 3030 DATA "断水が３０日以上停滞ない","停電が１０日連続停電しない","家賃が年金で払われている場合" 3040 DATA "水道代が年金で払われている","電気代が年金で払われいる","定額給付金が年金で払われている" 3050 DATA "有給休暇を取っている人が住居している","定職を持たないものが家賃を払っている","住所不定の人が家賃を払っている" 3060 DATA "連絡先電話番号が特定できる","家政婦を雇う事が出来る","洗濯代金と、弁当のデリバリー（宅配生活者）" 3070 DATA "新聞配達員が投函する","配給を受けることができる人が住んでいる","撮像光学機器を設置している住居もしくは業務ビル" 3080 DATA "築年数の変化、老朽化の資料記録のある","トイレを含む、水道管の詰まりや、水漏れの報告が無い" 3090 DATA "燃えるごみなど、ごみを未廃棄でない","室内が衛生的に綺麗で環境が保たれている","マンション等、LDK超満員の場合" 3100 DATA "リビング（休憩室）、ダイニング（食卓）、キッチン（厨房）の有無","衛生環境がトイレ、洗面器、バスタブなどが、共同でない","ダイニングルームと、厨房を一室にしている" 3110 DATA "開放空間のリビングルーム","一世帯６人以上住める条件","こども室の有無" 3120 DATA "マンションなどで、賃貸借家が１階辺り複数" 3130 DATA "What Metrics Estate Long side length","What Metrics Estate Sohrt side length","What is many Flat Angle Degree Angle Per(0-359)" 3140 DATA "Question Incliation Down Slope (0m)","Question Incliation - Slope Height (m)" :REM,"Question Squea type Build Easy Shape" 3150 DATA "Question Difficult Rect and Anys Rounds","Question Flat Rounds and Estate","Question Dent Subtract Metrics" 3160 DATA "Is Road Way Side Estate","Is Fooler Round Put Piller or Put Window or Balcony":REM "Foundation Standerd Sope Metrics 0" 3170 DATA "Is Joint Estate and Estate Manor","Is Point Lower Slope (m)","Is Point Higher Slpe (m)" 3180 DATA "Is Make Fundation Flat Estate","Is Long Deep side and Short Deep side Builled and Flat Foundation Height(m)" 3190 DATA "Is Hotel or Resort or Attraction Insitution Any Thing":REM "Question Make Flat and No Foundation with No Build" 3200 DATA "Is Category Arcade and Office Build and Busy Quart","Is Flat Estate Things","Is Category are Condominium or Apart house" 3210 DATA "Is House or Home Thing Communication","Any Thing Build Type No Standerd","What is Long side build have with Gurden":REM "Is Builded and Long Side Fit Free Area" 3220 DATA "Is Builded and Foudation Flat with One","Is Not House Bank Lone Builded","Is No Sun Shine Light High Build Shadow","Citys Category's Thing Manor" 3230 DATA "Is Wall Streat Thing Estate","Is Exchanger with Estate Company and Section Field Rating Commition","Is Exchange Loss Pece Happen Probrem" 3240 REM ********************************* 3250 DATA "Is Estate Cost Peak and Peak Fill at Estate Price","Is ExChange Estate Price to Estate Price on Fill Low","Is Bilded Total Height of Metrics(m)" 3260 DATA "Is Estate Section Per Sction Water Level Square Root Count" 3270 DATA "Is Exchange Fill Stock Place To Estate Section","Is One Section Many Builled all in One Architecture","Is Helli Port Roof Height by Had Buill" 3280 DATA "What is house and Home ing Roof Solar Panel","What is Insurance Estate Cost Exparent 30-50 Price","Is 100 Exparent Over Exhange No Tie Up Exchange Estate Company" 3290 REM *****************************************************: 3300 DATA "Estate Exchange to Estete Exchange Commition with Rating Estate Company Accept","Accept Negoiation Estate Exchange and Include Rating" 3310 DATA "Is Exchange City Ministor (Book Library,Hole,City Hole)","Do Not Straw with Unriperice Field any Thing Estate" 3320 DATA "Earth Quake No Damege Froundation Build","What is Estate and Build with Consultation Service(Energy,Water,Gas)","Judgement was Feild Section Restore Post Office Number and Area" 3330 REM *************************3-17 3340 DATA "Regist Estate of Address Trade Marks","Got Possession Estate And Area to Other Right Manor","ForWard Attraction and Procxy Secction Area" 3350 DATA "Is Case Restore and ReConstruction Section","What is Heli Prot Height","Stop Destroy Architecture Builled with Estate","Year's Old Builled Longer ReMove And ReFrom" 3360 DATA "Is Call Trouble and Emergency Car or Heli","Fire Emergency Patrol Penalty or Fire Insulance Contract Accessment","Is Had Any Thing Splin Coller or Fire Killer Pod or Chage Water Jointer or More" 3370 DATA "Is Small Fire Killer Unit","What is Long Slope Not 3 Over Metric The Precipice","What is Do not River Under Water Level Estate Any Thing" 3380 DATA "Is Standerd Concreate and EmBankment Splash Barrior","Is Install UnderGround Parking or Dimention Parking Metric","Is Need UnderGround Train Minits 30 on Walks Access" 3390 DATA "Is Need City Bus Minits 15 on Walks","Is That Long Range Train or InterNational Air Port0Access Minits 60 on Car Need InterCountry Train Minits 30 on Walks Access" 3400 DATA "Is Call Taxie Place Location","Is Need Local Train Near Come in Station Minits 20 on Walks Access","The Cooprate Manor any Thing Estate Insurance Insisde" 3410 DATA "Taking Construction PurChase Buyed Building Estate Company","Is Under Taking Construction Company Building Company","Is Under Taking Construction Install Comtener With Buildubg Company" 3420 DATA "Is Under Taking Construction with Civil","Ia Was Not Leak Water Build or House","Is Was Leak Water Build or House" 3430 DATA "Is Was Not Suspension Wather Suply Build or House" 3440 DATA "Is Was Eletrnic Power InterSeotion Showt Down Restore Hours and Days","Is Had Peyed Annuity on Rebt Cist Arcade ir House","Is Had Payed Annuity on Water Servuce Price" 3450 DATA "Is Had Payed Annuity on Electronic Power","Is Payed Fixed Annuity House Account and Commiton","Is Vacation Free Pay Annuity Life State Lived" 3460 DATA "Who Is House Contract Accessment Fix Payed of Annuity and No Job Carrier","Who Is No Address Payed House Commition with Annuity" 3470 DATA "Is Access Telephone Reserch and Checking Peple","Is Can Employment Maid and Home Helper","Washalbe and Lanch on Delivery Carriage Address" 3480 DATA "Is Delivery News Paper by Motor Mobile and Service man at Address","Is Can Receive Take in Fixed Delivery Supply Fee","Is House or Office Buill or Arcaid with Install Optical Camera Unit" 3490 DATA "Is Old Time Works and Record in RearWard Time Log","Is Toilet with Water Unit of Stopped and Leak With on No Report" 3500 DATA "Is Trush Out System Use No Process","Is Room Dry and Clean with Medical Food and Living on Keep Out","Is Condminium Etc Over Out LDK Unit And Lives Floor" 3510 REM ******************* 3520 DATA "Is Internal Living with Dining with Kitchen at One Room","Food Medical and Wash Boul and Buss Tab No Other Share","Is Dining with Kitchen on One Room" 3530 DATA "Is Living Section Large Free Area No Close","Is All in Generation Time Works on Member of Six Over Internal Live in","Is Have Child Room" 3540 DATA "Is Condominium many Generation have with Floor one" 3550 DATA 3560 REM ----------------- 3570 *ENG CLS: LOCATE 0,0:PRINT "Prosperity Estate Campany CopyRight(C)2016.2.26 Dai Fukuoka" 3580 FOR I=1 TO 100 STEP 5:LOCATE 0,0:PRINT "Question Answer 0:False/1:True With What Number Equivalent Count Number" 3590 LOCATE 0,2:PRINT TIPSE$(I);:INPUT "",A(I) 3600 LOCATE 0,4:PRINT TIPSE$(I+1);:INPUT "",A(I+1) 3610 LOCATE 0,6:PRINT TIPSE$(I+2);:INPUT "",A(I+2) 3620 LOCATE 0,8:PRINT TIPSE$(I+3);:INPUT "",A(I+3) 3630 LOCATE 0,10:PRINT TIPSE$(I+4);:INPUT "",A(I+4) 3640 IF A(I)>0 THEN FLAG(I)=-1 3650 IF A(I+1)>0 THEN FLAG(I)=-1 3660 IF A(I+2)>0 THEN FLAG(I)=-1 3670 IF A(I+3)>0 THEN FLAG(I)=-1 3680 IF A(I+4)>0 THEN FLAG(I)=-1 3690 CLS:NEXT:FLAG(4)=-1:A(4)=0:FLAG(12)=-1:A(12)=0:FLAG(49)=-1:A(49)=0 3700 FOR I=1 TO 100:IF FLAG(I)=-1 THEN COUNT=COUNT+1 3710 NEXT 3720 PRINT "Is Anser Estate Point Count 100/";COUNT 3730 INPUT "Name and Handle Name :",DATA$(1) 3740 INPUT "Zip Code :",DATA$(2) 3750 INPUT "Country/Continental/City :",DATA$(3) 3760 INPUT "Town and Section And Number:",DATA$(4) 3770 INPUT "TelePhone Number :",DATA$(5) 3780 INPUT "Birth Year and Month and Day :",DATA$(6) 3790 INPUT "Export Data File Name :",FILENAME$ 3800 IF FILENAME$="" THEN PRINT"No Full Answer Question InComplete ";:END 3810 OPEN FILENAME$ AS 1:CLOSE 1 3820 OPEN FILENAME$ FOR OUTPUT AS #1 3830 FOR I=1 TO 100:WRITE #1,A(I),FLAG(I),TIPSJ$(I),TIPSE$(I):NEXT 3840 FOR I=1 TO 6:WRITE #1,DATA$(I),DFLAG:NEXT 3850 CLOSE #1:END 3860 LET SCORE=0:CLS:OPEN "EstateAr" AS 1:CLOSE 1 3870 OPEN "EstateAr" FOR OUTPUT AS #1:FOR I=1 TO 100:WRITE #1,A(I),FLAG(I),TIPSJ$(I),TIPSE$(I):NEXT I 3880 FOR I=1 TO 6:WRITE #1,DATA$(I),DFLAG:NEXT 3890 FOR I=1 TO 100 3900 IF FLAG(I)=-1 THEN SCORE=SCORE+1 3910 NEXT I:CLS:LOCATE 0,0:PRINT "Exhibition Center Test Counter Point:"; 3920 LOCATE 13,0:PRINT SCORE 3930 LOCATE 20,0:PRINT"Anser Service Complete Thank"; 3940 INPUT "",B 3950 END 3960 *CALC LET ALPHA=0:LET BETA=0:ZETA=0:LET ANSWER=0 3970 PRINT"Make Rect Flat in Long Side Metrics Value";"長辺の平坦な四角形を作ります";:INPUT "",ALPHA 3980 PRINT"Make Rect Flat in Short side Metrics Value";"短辺の平坦な四角形を作ります";:INPUT "",BETA 3990 LET ZETA=(ALPHA+BETA)/2:PRINT"Total Metrics x2","合算ヘクタール",ZETA 4000 INPUT "0:END 1:Retry",ANSWER:CLS 4010 IF ANSWER=0 THEN *START ELSE *CALC FC2Profから抜粋。プロフィールが、FC2サービス終了に伴い。 ==================== 福岡　大's Profile Nickname 福岡　大 Gender 男性 Blood B型 Birthday 46歳 1978年 07月 26日 Job 無職 Present address 愛知県日進市折戸町 Home 愛知県名古屋市天白区植田 Genre ビジュアル系 Self introduction 3歳ヒューマンラジオ再加盟、１３歳日進中学校パソコンクラブ入部、１４歳ゲームプログラマーになる、１５歳基本情報技術者履修合格、１５歳食品衛生管理者の業務に携わるが早期に解雇、２１歳消防団入団、２６歳全農市場員（産直クラブ）に就職、１９９８年デジタルカメラ購入、２０００年ブラックラビットCGギャラリー新設、２００５年海鳥亭発起、２００７年同人誌サークルの申し込み、２０１０DVHDビデオカメラ購入、２０１１年HDビデオカメラに買い替える、２０１２年.１．３０動画初公開、２０１２年画家履修合格。２０１８年障害就労。２０１９年４月２１日法曹指名同年９月１０日司法資格履修合格。２０２４．１０．１０日、国選弁護人、公証人履修認定通過、２０１９年９月１０日、判事履修認定通過。食品衛生責任者履修合格（履修合格年不明）１回の講習済み。元自動車免許ゴールド免許取得者。現在、２０１３年の入院後、期限切れで取り消し。リンク GraphicArts05海鳥亭FC2VerBlog 海鳥亭電子画廊メディア、本。フリーマーケット Black Rabbit CG Gallery's 海鳥亭　人物　厳選rough集米山先生時代の障害者展示会、せいえん展、希望会展示用水彩画。画廊使用絵画ゲストブック welcome Question on 28 福岡大の性格 [ ニートホナー清楚 ] 清楚と名誉。Neat's And Clean with Honor/純潔・謙虚・傲慢／強欲・慈善・情熱・憤怒あなたは何座？ [ 獅子座 Passion ルビー ] 獅子座。７月情熱（Passion）の誕生石　ルビー。属性　diamondと、turquoiseの中間。学歴 [ 学歴在学精神障害 ] ２歳まで名古屋市平針公安委員会前の暁幼稚園の託児所に預けられる。３歳から６歳の年まで日進市南部保育園在学、７歳から１２歳まで日進市南小学校に在学、１３歳から１５歳まで日進中学校に在学、１６歳の年、１５歳でウエイトレス就労、１６歳から１９歳まで、愛知県立瀬戸窯業高等学校定時税過程普通科に在学、卒業後、伊藤段ボールに入社し、２年の任期を働くが、給与を差し止められ、辞任。精神療育福祉者手帳は持っていないほか、養護学校の在学が無い。もともと、精神障害者ではなかった。２０１３年に精神障害２級認定。その後４年６か月の保護室の期間を経て、退院後、一年後障害者就労支援に加入、現在に至る。権力 [ 基本情報技術者 CGクリエーター同人誌サークル ] 司法委員会、代議士、国選弁護人、日進裁判課判事、日進簡易裁判事務所長官、商業と設計業、個人、厚生労働省食品衛生管理者、同人誌サークル、産地直送クラブ、基本情報技術者、CGクリエーター、裁判所長官、国対報道次官、裁判所判事。但し、福祉関連資格は持たない。２０１７年から２０３７年まで民事上の制裁により、戸籍拾得、婚姻、販売契約、相続が出来ない。その前科（民事上の制裁）の間、プランナーと言う産業職権力に扱う。プランナーとは、農業と、設計業であり、契約は出来ない。この特例に、贈与、その他は、契約ではない。前世 [ 前世履歴歴史 ] 主の神は、Goddess Victoryである。主のわたくしが、フランスパリのフランス人女性Mrs.ELで在ったものが主の創業者（BC2415.4.21 Birth)。オリバートジェネミー(6.25 Birth)時代に無邪気と、大人しい性格であったが、脅かしを受け退く。アステア・ジェネリ―12.5日の誕生日を以て初代宝石商を行ったが早期に死亡。シモンエネリーが初代書店であったが、聖書、古書、古文書を紀元前のイタリアで従業する。BC1132.7.26のSt.Fraicisが、五星三心占いを創設、６星占術、９コード、の他、聖フランシズ自身が考えた魔法を出版して、行商人として本を売って回った事から、本の通信販売を得る。メアリージャックが、BC1534の７月２５日に産まれるが、専業主婦で終わる。聖書上は、７月２５日の誕生日とメリオダスとしているが、憤怒の大罪とは、清楚が爆発したり怒っては成らないとしたもので、事実は（BC1312.4.21)に産まれている。直近の前世は、タレント、モデル、声優初任者であり、研修生および、判事の司法修習生であった、小林桐（明治４５年４．２１日）産まれ。（明治７年４．２１日）産まれにMrs.Nananaとして産まれている。PplandCの創業者であり、アメリカのIntel Corporationの設立者。初代音楽家、作曲家、演奏家は、アルバートグレイン。初代小説家、初代３６歌仙で初代歌手は、紫式部（勢至菩薩観音のお寺に産まれ、藤原と、源の親戚）福井市で毒殺され果てる（平安時代中期に生き暗殺される）。初代織田家は、織田遥。初代、中華人民共和国（現在国名）住友繊維創業者は、織姫（７月２６日産まれ）聖書上の誕生日は７月７日。初代日本人は京都府下京区の水墨画画家の深橋夏海（BC555.7.26）。初代chefパテシエは、調理師免許と、食品衛生責任者はMrs,EL（BC2415)、初代画家及び、大学で画家に従事し、画家資格を得るが、退学した(BC1222.3.3)産まれの初代画家、および画家修習生、Alicia Ehnleit(BC1222.3.3)＝アリシア・エーンライト初代画家、画家修習生、エレヌメアリークッキー職人、最終職ガラス職人。八神之吉野護（鳥取県、絵馬創業者、干支司祭、巫女）(728AD-801AD.10.15)初代弓術、初代神社巫女。竜司祭の一人。初代LeoBonaparteが、住友銀行、住友金属、住友重工を建てている、LeoBonaparte（4.20 Birth)は、初代ヒューマンラジオであり、初代無線士。世界で初めてのフランス大統領、名誉革命戦争の代表者、フランス帝国とできないため、LeoBonaparteのIslam教Shia派の宗派を王室に譲り、フランス共和国廃止後、新フランス王国をのちに建設された、LeoBonaparteは、Germany連邦共和国の為に、共和国を創立した。マリーアントワネットや、オスカーとは関係ない。名誉革命戦争戦争前に共和国創立に署名している。使っているパソコンは？ [ タワー型ノート型ラップトップ型 ] ノートパソコン（液晶画面）と、ラップトップ（テレビと、テレビインターネットと、パソコン：大画面、プラズマディスプレイ）。前に使っていたのは、中古PC（キューハチ）と、キーボード一体型PCと、自作機のタワー型。ブログ、もしくはホームページを運営していますか？ [ face book 素材屋 You Tube ] FC２とYouTubeブログになる前に、Atpagesや、TokTok（Tok2）、Reimari、Wix、Facebookなどを持っていた。FC2と、YouTube以外は残らなかった。最初のホームページは、BLACK RABBIT CG GALLERYS,2.福岡大のリンク集、3.福岡大のパソコン講座4..福岡大の写真集、5.海鳥亭GA05,6.ホームページテンプレート、7.漢字テンプレートマテリアル、8.facebookが前履歴だった。途中にユーチューブブログがある。その後にfc2。身長は？ [ 160センチ代中高足の長さ ] 身長169cm足105.5cm西暦2024年現在。コーヒー派？紅茶派？ [ ラテブラックコーヒー紅茶 ] 紅茶は虫歯になるきらい。ブラックコーヒーの方が良い。ラテなら我慢する。趣味は？ [ 写真イラストパソコン ] 主に動画の撮影や、絵画などを書く、将来６５歳からプログラマーに就職して、同人誌として、コンピューターグラフィックスの絵や、鉛筆画、水彩画などを給与で買って、フリマで売る。６５歳未満は、就職無理、６５歳以上就労だと給料もらっても、就職扱いしない。性格は？ [ 傲慢の大罪憤怒の大罪情熱 ] 主の神Goddess Victory時代から、Neat and Cleanの性格に就く。最初のHonorは、メリオダスの幼少期、メリオダスは、成人期にneat。次の名誉は、ルシファー２世、勤勉の位に就き、北十字軍騎兵大隊及び、国防軍騎兵大隊を教育訓練する。ルシファーは、１世時代に一介の悪魔にすぎず、ただDavidと、Virgin Maryの金持ち王室に産まれただけの５歳で、７５つの言語点をマスターしただけの怠惰。傲慢の大罪として、Jerusalem居住地にて、マリアと、ルシファー一世に毒が忍び寄り、悪魔狩りで、ルシファー１世は死去。傲慢の大罪は、二重の世代に課されない。ルシファー二世は、Goddess Victoryの記憶の輻射にて、再生し、幼少期をNeat and Cleanで行えたので、成人期にHonorの最高位に就く事が出来た。但し、勤勉を加え、最小限の構成、Neatの部は、純潔、無垢、謙虚、傲慢で構成し、成人前に放棄し、成人期に、情熱、憤怒、慈善寛容、強欲、で構成し、それに対して勤勉のみの人徳を付け加え、構成は、２性格、１人徳となる。好きなゲームは？ [ ファンタジー RPG マニアック ] フライトシュミレーター、ロールプレイングゲーム、歴史趣味レーションゲーム、ストラテジーゲーム、アーバンゲーム。最初のゲーム機は、中古ファミリーコンピュータ（任天堂）、二代目は、メガドライブ（セガトイズ社）、３代目は、セガサターン。その他小学校５年生からゲームばかりを３０代まで続けてやめている。好きなアーティストは？ [ Victor Entertainment Sony Music Record Other Record Group ] Aimer、大原櫻子、川嶋あい、asmi、小倉唯、Lisa、中島美嘉、ASAKA、三月のパンダシア、ラルクアンシエル、IZONE、Dear Jane、カネヨリマサル、あいみょん、サンドリオン、レイドバックジャニー、MADKID。ホームページ [ 海鳥亭（Umidoritei : Sea Bird Stop) Black Rabbit CG Gallery's フリーマーケット、プロフィール、リンク集、コンテツ、文書、司法 ] Profile https://pr.fc2.com/mrdaifukuoka/> Computer Graphics Arts https://mrdaifukuoka.blog.fc2.com/blog-entry-7.html> Free Market https://mrdaifukuokaq.cart.fc2.com/?_gl=1*1nxrqs7*_gcl_au*NTkwNDEzNDM2LjE3MjM3MDYwNDc.> Kanji Template Material https://mrdaifukuoka.blog.fc2.com/blog-entry-369.html> Lecture Information Machine's Material https://mrdaifukuoka.blog.fc2.com/blog-entry-370.html> you tube video blog cookie less verstion on fc2 display mode https://mrdaifukuoka.blog.fc2.com/blog-entry-371.html> New You Tube Account on Access Counter by Video https://www.youtube.com/@WebserviceMr_Dai_Fukuoka> Old popular First You Tube Old 2012/1/30 Account in Family Use https://www.youtube.com/user/DF1Movie> あなたは、最高月収、最低月収は幾ら? [ 年金収入年商利益 ] 自分の月に対しての最高額は、５万円、最低額は、６千円。年収最低額は、１０万円。年収最高額は、３６万円。障害者年金は、厚生年金加入で、月６万円程度のインカム。２０２４年　年金（クレジット使用）の年間利益は４万円以下。障害就労（引き落とし無し）の年額１４４０００円。持っている資格は？ [ 証券擬制自動車免許 ] 瀬戸窯業高等学校定時制課程普通科国家三種、日進中学校３年生パソコン部基本情報技術者、成人後、自動車免許取得や、食品品衛生管理者履修合格、法曹履修合格、その他、前世の資格から与えられた税理士の職権の擬制、証券外務員（証券委員会）の擬制を投資家として受けている。どんなHPですか [ 海鳥亭ブラックラビットお絵かき ] 主に美術（写真、ビデオ、絵画、グラフィックデザイン、プログラミング、ゲーム等）や、法曹の無償就労などの国選弁護人や、簡易裁判所長官として無償で裁判サービスを提供している。美術関連は、宣伝後、本として、印刷会社に頼んで販売し発送収益できる。ビデオ等データが必須とするメディアの実の物は次回の世代から可能。展示しなければ、研修及び、申請の許可が出ない。好きな人・尊敬する人はどんな人？ [ 反テロ非暴力団国民総所得 ] 下働きで尽くし、GNIで全て国民総所得が変わらなくても、働ける人。もちろん産業GNIに比例し、広告業は、高卒所得でも、製造業はGNI水準が高いので中学校で広告を抜く。しかし、尊敬できるのは、人道支援、慈善に多額の資金供給をして、平和活動に従事できる人。テロリストや、暴力団と戦うためなら、軍を投資することも辞さない。あなたは何座？ [ 有名日勝利の女神７月２６日 ] 現在は、獅子座の７月２６日にあるが、此れはGoddess Victoryの誕生日、誕生石誕生日占いで、幽霊の日。これは、全ての日付で最も運気の悪い日付で、７月７日より縁起が悪く、災いが降り注ぐと言われている。ポツダム宣言記念日及び、東京都渋谷区の四谷怪談の有名日好きな果物 [ 果物フルーツ清涼系 ] ライチや、マスカット、オレンジ、カカオ、イチジク、デラウエア、等が好き好きな本 [ PC 付録学校 ] 主に、単行本は嫌い。欲しいのは付録付きの本や、職業専門書、法律教本、学校教本、写真集、コンピューター雑誌等。名前の由来は？ [ ケイオス停戦太陽 ] 紀元前４万５千年、福岡大が、Goddess Victoryの当事者で主のVictoryの異性の霊であり、人である前の霊の時代に、最高神である、第一支神ケイオス（God Chaos）の最初の拠点を陥落させ、紀元前６２２２年に捕獲されたケイオスを釈放し停戦する調停を太陽神アポロと締結している。ケイオスが一方的に停戦を破棄したため魔法で戦っている。その時悪霊大（Demon Dai）であったことから、福岡大と言う命名の由来に成っている。ハデスと、最高主神ガイアは、Victoryの磨羯宮の雛菊の時代の朋友ゼウスを捉えたが、敗戦し降参してゼウスは釈放された。その後、ゼウスは、ケイオスと密約の同盟を交わし裏切りを続け、もう木星の神ゼウスと認めない。好きなお菓子は [ ビスケット製菓ケーキ ] ビスケット、ハーベスト、ゴーフル、チョコレート、ムース、ババロア、わらび餅、五平餅、ティラミス、チーズケーキ、レアチーズケーキ、アップルパイ他オススメの曲 [ アイドルビジュアルロック ] 主にアイドル系より、ビジュアル系の方が良い。ビジュアル系は写像系を意味するので、権利に基づいて品質が高い。収入も少なく、質も高いので優秀。ただ、アイドルよりははやらない。アイドルは偶像であり、権利に基づいていない。お金が欲しいだけでアイドルになるのならやめてほしい。お気に入りのハーブ [ 鋳薔薇赤いバララベンダー ] ハーブかどうかわからないが、鋳薔薇や、赤薔薇などが、ハーブのお香に使えそう。なんか構成元素が薬効が強そう。少なくもラベンダーよりいい。好きな季節 [ 秋春紅葉 ] 好きな景色は、秋、何か紅葉や水面の景色が綺麗そう。しかし、次に春に重要な木花が多いので写真はどちらかと言うと秋より春優先、夏と、冬は出来ない。専業（professional）になった日。兼業（amateur）になった日。 [ 専業兼業プロ ] ２０２５年２月２２日、民間資格プロカメラマンになったことを伝えられ、２月２８日、アクセス集計数（unique）の数が０として、専業動画撮影師にライセンスが変化したことを確認した。絵の方は、プロ、アマが、誕生前からあって助かったが、東京都渋谷神宮代々木の福岡彩が、動画撮影師をamateurからHigh-Amateurで終えていて、High-amateurから、資格が昇級して専業動画撮影師と成って、accesslicenseが、新規になった。専業撮影師（プロ写真家）から、兼業撮影師（アマ写真家）になって、口コミの後、福岡彩は辞めていた。俺は福岡　大。最初のカメラは何 [ 声優モデルプロダクション ] ２０２５年３月２日に注文し、３月３日に初めて業務用ビデオカメラ￥25,450のSONY HDVカムコーダー HVR-Z1Jが届いた、前の２０１０年末に買った、CANON IVIS HF G10の家庭用ビデオカメラは、フルハイビジョン対応だったが、今回は、MiniDVの転送レートが384kbps、総画素が112万画素、有効画素が107万画素になった。およそ、CANON製カメラは、総画素数237万画素と比べると下がったが、最初のビデオカメラCANON IVIS HV30と比べて発色性が格段に良くなった。歪もない。総画素で言えば、G10は、フルハイビジョンの画素1920x1080p30fpsであるが、今度の業務用ビデオカメラは、SONY製のカールツアイスレンズにして、３CCDの112万画素であるが、1280x720=921,600となるので、92万画素なら、少し大きめ、1440x1080なら1,555,200画素で、155万画素となり、AVCAM（HDV 24PF/30PF)は少し小さめ。ハイビジョンの画質は、まだ、わたくしは、視聴者が、コンシューマーユーザーで、少しづつ、経済成長率が、不況、物価高関係なく上がっているので、professional用ビデオカメラを２０年前の型式で始めることができた。あと、５年使えば、Z5Jが、３万円台、または、２万円台に降りてきそう。しかし、死ぬ前までには、４Kカメラと、その映像を残したい。ただし、家庭用ビデオカメラは、８Kもしてみたい。最初のカメラはEPSONのデジタル写真機CP-600で、1997年製造のもので、初体験は、屋内を削除して、本格的に練習しだしたのが、1998年のころ、最初のビデオカメラは、HV30であったが、前世、福岡彩は、ストックファンドを解約して、280万円以上の定価の業務用ビデオカメラ一式を100万円程度中古で買っている。そのあと、amateur番組を作った。放送回数は、１回。芸能は、２０年若い、小林桐、声優、モデル、アナウンサー、ナレーション、ギター、キャンプバラエティなどを担当していて、プロラジオ無線士３級とか受けている。所属プロダクションは、米ワーナーブロス。ワーナーブロスのプロダクションで、XILISOFTという屋号200万円の雇用契約で、月１０万円のプログラマーで、米APPLEと提携し、QUICK TIMEの1080i60fpsのMOVの開発提携をしている。死後、福岡彩年上は覚醒期、風俗嬢および建築士。福岡大は、最初の一眼レフは、2001年ヤッフーオークションで落札した、１２万円のCANON EOS D60。初めて、600万画素で野鳥、昆虫、植物を、「前世は8mmビデオカメラを、デジカメに使っていたを除く」を撮影。福岡大は、最初は、絵画が主体であったが、徐々に、公益機関や、職場からの依頼が当時は入りアマや初心者として、営利と、兼業に専念、2025年2月22日に専業＝プロ入りしている。プロは、コンテツプロバイダー業務となり、販売コンテツ業専業となり、広告先スポンサーが居ない。無題 - 福岡大 Mr.Dai Fukuoka URL 2025/07/13 (Sun) 05:07:54 プリセットエデッタ。福岡大原作著作。N88Basic（86）の開発言語上における、ゲームの１６色入力の１６進数字座標の作成幅、高さ各６４キャラクターにおける、座標入力において、これをゲーム開発支援のドットエデッタ。GET@のWindows版電脳組９８ベーシックでBMPキャプチャ可能のドット座標と、１６色を正方形で出力する目的の開発中であって、過去の２０１１年頃から開発開始し、サイバー攻撃のアスキー改ざんで、破壊されたソースコードの開発をある程度復旧したもので、元通りではないが、大部分の機能を回復しました。マスク部分は開発理論のアーキテクチャ構造学が、設計に理論的に失敗していたため、その部分の行数を省略しています。まだこの時点で、２０１７年以降復旧したソースコードがおおよそ正しい部分の公開をします。座標を６４桁ｘ６４行のテキストに１から１６まで入力する。ゲームソフトの１６色１～１６までの数字の色のパレットを入力するソフトです。これは、自作ゲームの開発支援ソフトとしてかいはつしました。福岡大Mr.Dai Fukuoka,June.22,2025 10 REM ***************************************** 20 REM * Programed by Dai Fukuoka 2011.01.7 * 30 REM * copyright 2011.01.7-1.30 * 40 REM * DotPresetEditor2011β * 50 REM *****************************************7430-7680 8330 51 *START 60 WIDTH 80,25:CONSOLE 0,25,0,1:SCREEN 3,0,0,1:COLOR 0,7,0,7,2:CLS 2 70 YY$=LEFT$(DATE$,2):MM$=RIGHT$(DATE$,5):MM$=LEFT$(MM$,2):DD$=RIGHT$(DATE$,2) 80 MOUSE(2)ON:MOUSE(3)ON 90 REM ON ERROR GOTO *ERRCD 100 LET FLAGS$="LINE":LET LMP=7:LET RMP=0:CX=1:CY=1 110 LET FLX=0:LET FLY=0:LET FLS=2::D=0:C=0:CP=7:LET LAY=0 120 LET RST=0:IVC=99:DIM IVX(99):DIM IVY(99):LET LAY=0:LET BG=0:LET BC=0 130 DIM UDX(99):DIM UDY(99):DIM UDF$(99):DIM UNDO(64,64,99) 140 DIM LAYER(65,65,7):DIM DITH(64,64,4):DIM W(64,64):DIM T(64,64): 150 DIM UDXL(99):DIM UDYL(99):DIM MOVABLEMAP(8,8,5) 160 DIM Y(64,64):DIM LAYER$(65,65,7):LET LAYER$="":DIM DATAFLOOR$(64,7) 170 DIM MASK(64,64):DIM IVPENTRM(99):REM DIM IVPENX(4096,99):DIM IVPENY(4096,99) 180 DIM IVXL(64,99):DIM IVYL(64,99):DIM IVFLAGS$(99) 190 DIM RAMSAVE(64,64,7):DIM IVENTMOTION(256,8,64):DIM IMF$(256,64) 200 DIM DARKSOLID(64,64):DIM HEVYPALE(64,64):DIM HEVYHARF(64,64):DIM HARF(64,64): 210 DIM LIGHT(64,64):DIM LIGHTPALE(64,64):DIM LIGHTSOLID(64,64):DIM CP(128,128,8) 220 DIM DM$(8,8):DIM DM(64,64,8):DIM DM2(64,64,8):DIM CHECKBOX(64,64):DIM MLCLOUMN(80,25,2):DIM MLC(80):DIM MLF(25):DIM MLCP(80):DIM MLFP(25) 230 IF MOVABLEMAP(SELECTBLOCX,SELECTBLOCY,1)=8 THEN GOSUB *BLUPMASK 240 IF MOVABLEMAP(SELECTBLOCX,SELECTBLOCY,2)=4 THEN GOSUB *BLLFMASK 250 IF MOVABLEMAP(SECECTBLOCX,SELECTBLOCY,3)=6 THEN GOSUB *BLRIMASK 260 IF POINT(639,399)=POINT(639,479) THEN SHOWVIEW=1 ELSE SHOWVIEW=-1 270 *NEARDISTANCE LET X=0:LET Y=0 280 IF SHOWVIEW=-1 THEN FOR I=0 TO 79:MLC(I)=X :X=X+ 8 :NEXT 290 IF SHOWVIEW=-1 THEN FOR I=0 TO 24:MLF(I) = Y:Y=Y+16 :NEXT 300 IF SHOWVIEW= 1 THEN FOR I=0 TO 24:MLF(I) = Y:Y=Y+19.2#:NEXT 310 *LONGDISTANCE LET X=0:LET Y=0 320 IF SHOWVIEW=-1 THEN FOR I=0 TO 79:X=X+ 8 :MLCP(I) =X-1:NEXT 330 IF SHOWVIEW=-1 THEN FOR I=0 TO 24:Y=Y+16 :MLFP(I) =Y-1:NEXT 340 IF SHOWVIEW= 1 THEN FOR I=0 TO 24:Y=Y+19.2#:MLFP(I) =Y-1:NEXT 350 :: 360 DIM BLPASS(8,8):DIM BLSTART(8,8) 370 LET DFL=1 380 REM GOSUB *DITHERMAPPING:GOSUB *DITHERFILTERLING:GOSUB *PREDISPLAYPASS 390 *RUNNINGPROGRAM 400 REM GOSUB *DITHERFILTERLING 410 LINE(0,0)-(640,480),15,BF:LINE(20,20)-(468,468),0,BF 420 FOR I=20 TO 468 STEP 7:LINE (I,20)-(I,468),12:NEXT I 430 FOR T=20 TO 468 STEP 7:LINE (20,T)-(468,T),12:NEXT T 440 LINE (488,18)-(616,468),7,BF:COLOR 0:LOCATE 61,2:PRINT"COLOR PALLETE" 450 I=0:FOR C=61 TO 76:LINE (MLC(C),MLF(2))-(MLCP(C),MLFP(2)),I,BF:I=I+1:NEXT C:GOSUB *REFRESHTXT:GOTO *SETTING 460 *REFRESHTXT 470 COLOR 0:LOCATE 61,2:PRINT"COLOR PALLETE" 480 LOCATE 61,5:PRINT"COLOR LEVEL 0":LOCATE 61,6:PRINT"000 RGB" 490 LOCATE 61,7:PRINT"0123456789ABCDEF" 500 LOCATE 61,8:PRINT"DITHER 0-7< 01 >":LOCATE 61,10:PRINT"TOOL BOX" 510 LOCATE 61,11:PRINT"LINE / CARV":LOCATE 61,12:PRINT"PAINT / DOT" 520 LOCATE 61,13:PRINT"LAYER 012345 M/C":LOCATE 61,14:PRINT"PEN C / B　3 5":LOCATE 61,15:PRINT"SPOIT / GLID" 530 LOCATE 61,16:PRINT"UNDO 00 / RESET" 540 LOCATE 61,18:PRINT"FILE COMMAND":LOCATE 61,19:PRINT"RAM SAVE LOAD":LOCATE 61,20:PRINT"DISK SAVE LOAD" 550 LOCATE 61,21:PRINT":MYPIC"+YY$+MM$+DD$+".ASC":LOCATE 61,22:PRINT"STATUS" 560 LOCATE 61,23:PRINT"MATRIX X:64 Y:64":LOCATE 61,24:PRINT"/ LINE" 570 RETURN::::: 580 *SETTING 590 FOR X=0 TO 1:FOR I=1 TO 64:FOR T=1 TO 64:LET LAYER(I,T,X)=0:NEXT T:NEXT I:NEXT X 600 P=1:LBX=4:LBY=13:GOSUB *CP 610 P=2:LBX=11:LBY=13:GOSUB *CP 620 P=3:LBX=7:LBY=7:GOSUB *CP 630 P=5:LBX=0:LBY=5:GOSUB *CP 640 P=4:LBX=5:LBY=5:GOSUB *CP 650 P=0:LBX=0:LBY=2:GOSUB *CP 660 P=6:LBX=7:LBY=2:GOSUB *CP 670 GOTO *ASKIP 680 *LOBX 690 I=61:WHILE I<76:I=I+1:IF I<>LBX THEN WEND ELSE *LOBXA 700 *LOBXA:LINE(MLC(LBX),MLF(LBY))-(MLCP(LBX),MLFP(LBY)),P,B:RETURN 710 *CP:I=61:WHILE I<76:I=I+1:IF NOT I=LBX THEN ELSE GOSUB *CPB:GOTO *LOBF 711 WEND 720 *CPB:LINE(MLC(LBX+61),MLF(LBY))-(MLCP(LBX+61),MLFP(LBY)),P,B:RETURN 730 *LOBF I=61:WHILE I<76:I=I+1:IF NOT I=LBX THEN ELSE GOSUB *LOBFA:RETURN 731 WEND 740 *LOBFA 750 *ASKIP CX=1:CY=1:X=1:Y=1:LB=0:RB=0 760 LET A=0 770 *GOMOUSE CXB=CX:CYB=CY:XB=X:YB=Y 780 *CLICKMOUSE 790 X=MOUSE(0):Y=MOUSE(1) 800 IF CX<>MOUSE(4,1) OR CY<>MOUSE(5,1) THEN IF CX<>0 AND CY<>0 THEN CX=MOUSE(4,1):CY=MOUSE(5,1) 810 RCX=MOUSE(4,2):RCY=MOUSE(5,2):IF RCX<>O OR RCY<>0 THEN RB=1 820 GOTO *MOUSEIF: 830 *GTM GOTO *GOMOUSE 840 *MOUSEIF IF CXB<>CX OR CYB<>CY OR XB<>X OR YB<>Y THEN *MENUS ELSE *GTM 850 GOTO *MENUS 860 END 870 *MENUS IF CX<469 OR X<469 THEN *AREASC ELSE IF CX>469 OR X>469 THEN *TOOLS 880 END 890 *AREASC 900 GOTO *FIELDCNT 910 COLOR 7 920 *FLAGC 930 IF FLAGS$="DOT" THEN *FDOT ELSE IF FLAGS$="LINE" THEN *FLINE ELSE IF FLAGS$="CARV" THEN *FCARV 940 IF FLAGS$="PAINT" THEN *FPAINT ELSE IF FLAGS$="PEN" THEN *FPEN ELSE *AREASC 950 END 960 *FIELDCNT: COLOR 7:XX=1:YY=1 970 IF RST<>0 THEN *SKRSFC ELSE RST=1 980 LET MCXX=0:MCYY=0:MCXB=0:MCYB=0:MCX=0:MCY=0:MCXR=0:MCYR=0:MSX=0:MSY=0:FMX=0:FMY=0: 990 LET MCNX=0:MCNY=0:MCLX=0:MCLY=0:MCLBX=0:MCLBY=0: 1000 LET CLY=0:CLX=0:MSX=0:MSY=0:MCCL=0:MCCR=0:MDAD=0:MDADR=0:XXL=0:YYL=0: 1010 *SKRSFC 1020 MSXB=MSX:MSYB=MSY:MCXB=MCX:MCYB=MCY:MCXRB=MCXR:MCYRB=MCYR 1030 IF IVE=1 AND IVC=1 THEN IVC=99 1040 IF MCX=0 OR MCY=0 THEN MCX=MSX:MCY=MSY 1050 MSX=MOUSE(0):MSY=MOUSE(1):MCCL=MOUSE(3,1):MCCR=MOUSE(3,2):MDAD=MOUSE(2,1):MDADR=MOUSE(2,2) 1060 IF MSX=0 OR MSY=0 THEN MSX=MOUSE(0):MSY=MOUSE(1) 1070 *COUNTERA 1080 IF IVC>1 AND UDX(IVC)=UDX(IVC-1) AND UDY(IVC)=UDY(IVC-1) AND NOT UDX(IVC)=0 AND FLAGS$="LINE" THEN *DOUBLEPROCESS 1090 IF IVC>1 AND UDX(IVC)=UDX(IVC-1) AND UDY(IVC)=UDY(IVC-1) AND NOT UDX(IVC)=0 AND FLAGS$="CARV" THEN *DOUBLEPROCESS 1100 IF IVC>1 AND IVX(IVC)+4>IVX(IVC-1) AND IVX(IVC)-4<IVX(IVC-1) AND IVY(IVC)+4>IVY(IVC-1) AND IVY(IVC)-4<IVY(IVC-1) AND NOT IVX(IVC)=0 AND FLAGS$="LINE" THEN *DOUBLEPROCESS 1110 IF IVC>1 AND IVX(IVC)+4>IVX(IVC-1) AND IVX(IVC)-4<IVX(IVC-1) AND IVY(IVC)+4>IVY(IVC-1) AND IVY(IVC)-4<IVY(IVC-1) AND NOT IVX(IVC)=0 AND FLAGS$="CARV" THEN *DOUBLEPROCESS 1120 LOCATE 0,0:PRINT " " 1130 *DSKIP 1140 CLX=0:CLY=0:RB=0:T=0:WHILE T<1 1150 IF MCCL<>MOUSE(3,1) THEN CPASS=1:MCCL=MOUSE(3,1) 1160 IF MCCR<>MOUSE(3,2) THEN RB=1:CPASS=2:MCCR=MOUSE(3,2) 1170 IF CPASS=1 THEN CPASS=0:T=1:CLX=MOUSE(4,1):CLY=MOUSE(5,1) 1180 IF CPASS=2 THEN CPASS=0:T=1:MCYR=MOUSE(5,2):MCXR=MOUSE(4,2) 1190 WEND::MSX=MOUSE(0):MSY=MOUSE(1):LOCATE 20,10:PRINT"CLICK" 1200 IF CLX<20 OR CLY<20 OR CLY>468 THEN *COUNTERA 1210 IF RB=1 THEN IF MCXR<20 OR MCYR<20 OR MCXR>468 OR MCYR>468 THEN *COUNTERA 1220 IVC=IVC+1:IF IVC=100 THEN IVC=1 1230 IF CLX>468 THEN IVX(IVC)=CLX:IVY(IVC)=CLY:GOTO *TOOLS 1240 IF CLX=0 OR CLY=0 THEN IF RB=0 THEN *COUNTERA 1250 IF CLX=MCX AND CLY=MCY AND FLAGS$="LINE" THEN IF DOUBLE=0 THEN *DOUBLEPROCESS 1260 IF CLX=MCX AND CLY=MCY AND FLAGS$="CARV" THEN IF DOUBLE=0 THEN *DOUBLEPROCESS 1270 IF CLX+5>MCX AND CLX-5<MCX AND CLY+5>MCY AND CLY-5<MCY AND FLAGS$="LINE" THEN IF DOUBLE=0 THEN *DOUBLEPROCESS 1280 IF CLX+5>MCX AND CLX-5<MCX AND CLY+5>MCY AND CLY-5<MCY AND FLAGS$="CARV" THEN IF DOUBLE=0 THEN *DOUBLEPROCESS 1290 IF MCX<>CLX OR MCY<>CLY AND CLX<>0 AND CLY<>0 THEN MCX=CLX:MCY=CLY:LOCATE 20,10:PRINT"CLICKB" 1300 IF MSX=0 OR MSY=0 THEN MSX=MOUSE(0):MSY=MOUSE(1) 1310 IF MCX=0 OR MCY=0 THEN MCX=MOUSE(4,1):MCY=MOUSE(5,1) 1320 MCX=CLX:MCY=CLY 1330 *LBBLC 1340 IF IVC=100 THEN IVC=1 1350 DOUBLE=0 1360 IF MCX>468 AND MCX<20 OR MCY>468 OR MCY<20 THEN *AREASC 1370 IF MCX=MCXM AND MCY=MCYM THEN *RBBLC 1380 MCXX=MCX:IVX(IVC)=MCX:MCYY=MCY:IVY(IVC)=MCY 1390 REM IF IVX(IVC-1)=MCX OR IVY(IVC-1)=MCY THEN DOUBLE=1 1400 FOR I=1 TO 64:FOR T=1 TO 64: 1410 IF T*7+20<MSX AND T*7+27>MSX THEN FMX=T 1420 NEXT T:IF I*7+20<MSY AND I*7+27>MSY THEN FMY=I: 1430 NEXT I:LB=0 1440 FOR I=1 TO 64:FOR T=1 TO 64: 1450 IF T*7+20<MCX AND T*7+27>MCX THEN UDX(IVC)=T 1460 NEXT T:IF I*7+20<MCY AND I*7+27>MCY THEN UDY(IVC)=I 1470 NEXT I:LB=0: 1480 LOCATE 20,20:PRINT DOUBLE 1490 *ZEROSKIP 1500 IF IVX(IVC)=0 THEN IVX(IVC)=MSX 1510 IF IVY(IVC)=0 THEN IVY(IVC)=MSY 1520 IF UDX(IVC)=0 AND IVX(IVC)<>0 THEN *MEPROCESS 1530 IF UDY(IVC)=0 AND IVY(IVC)<>0 THEN *MEPROCESS 1540 GOTO *RBBLC 1550 *MEPROCESS 1560 MCXX=MSX:IVX(IVC)=MSX:MCYY=MSY:IVY(IVC)=MSY 1570 FOR I=1 TO 64:FOR T=1 TO 64: 1580 IF T*7+20<MSX AND T*7+27>MSX THEN UDX(IVC)=T: 1590 NEXT T:IF I*7+20<MSY AND I*7+27>MSY THEN UDY(IVC)=I: 1600 NEXT I:LB=0 1610 IF UDX(IVC)=0 AND UDY(IVC)=0 THEN MSX=MOUSE(0):MSY=MOUSE(1):GOTO *MEPROCESS 1620 IF UDX(IVC)=0 THEN MSX=MOUSE(0):GOTO *MEPROCESS 1630 IF UDY(IVC)=0 THEN MSY=MOUSE(1):GOTO *MEPROCESS 1640 *RBBLC REM 1650 IF MCXR=MCXRM AND MCYR=MCYRM THEN *EMC 1660 FOR I=1 TO 64:T=1:WHILE T<65 1670 IF T*7+20<MCXR AND T*7+27>MCXR AND MCX<>0 THEN FRMX=T: 1680 IF I*7+20<MCYR AND I*7+27>MCYR AND MCX<>0 THEN FRMY=I: 1690 IF T*7+20<MCXR AND T*7+27>MCXR AND MCX<>0 THEN MCXR=T*7+20:MCXRM=T 1700 IF I*7+20<MCYR AND I*7+27>MCYR AND MCX<>0 THEN MCYR=I*7+20:MCYRM=I 1710 T=T+1:WEND:NEXT I:LOCATE 0,3:PRINT "RB" RB=0:GOTO *EMC 1720 *EMC 1730 IF MCX>468 AND MCX<20 OR MCY>468 OR MCY<20 THEN *AREASC 1740 IF IVC>1 AND UDX(IVC)<>UDX(IVC-1) THEN XXL=UDX(IVC)-UDX(IVC-1) 1750 IF IVC>1 AND UDY(IVC)<>UDY(IVC-1) THEN YYL=UDY(IVC)-UDY(IVC-1) 1760 IF IVC=100 THEN IVC=1 1770 IF IVC=1 AND UDX(1)<>UDX(99) THEN XXL=UDX(1)-UDX(99) 1780 IF IVC=1 AND UDY(1)<>UDX(99) THEN YYL=UDY(1)-UDY(99) 1790 IF IVC>1 AND XXL=UDX(IVC) THEN XXL=UDX(IVC)-UDX(IVC-1) 1800 IF IVC>1 AND YYL=UDY(IVC) THEN YYL=UDY(IVC)-UDY(IVC-1) 1810 IF IVN<>IVC THEN LOCATE 1,4:PRINT IVX(IVC);T;XXL;UDX(IVC);,IVC;"X " 1820 IF IVN<>IVC THEN LOCATE 1,5:PRINT IVY(IVC);I;YYL;UDY(IVC);"Y " 1830 UDXL(IVC)=XXL:UDYL(IVC)=YYL 1840 IXX=IVX(IVC):IYY=IVY(IVC):IVN=IVC 1850 IF SWICH=0 THEN SWICH=1:GOTO *AREASC 1860 IF DC=1 THEN *AREASC 1870 GOTO *FLAGC 1880 END 1890 *DOUBLEPROCESS 1900 LOCATE 0,0:PRINT "DOUBLE" 1910 IF FLAGS$="LINE" OR FLAGS$="CARV" THEN ELSE MCX=CLX:MCY=CLY:GOTO *LBBLC 1920 MCCL=MOUSE(3,1) 1930 DOUBLE=1:MCX=CLX:MCY=CLY:LOCATE 0,22:PRINT"dp" 1940 IF CLX>468 THEN IF IVC>1 THEN IVC=IVC-1:GOTO *TOOLS ELSE IF IVC=99 THEN IVC=1:GOTO *TOOLS 1950 T=0:WHILE T<1 1960 IF MCCL<>MOUSE(3,1) THEN CPASS=1:MCCL=MOUSE(3,1) 1970 IF MCCR<>MOUSE(3,2) THEN RB=1:CPASS=2:MCCR=MOUSE(3,2) 1980 IF CPASS=1 THEN CPASS=0:T=1:MDCX=MOUSE(4,1):MDCY=MOUSE(5,1) 1990 IF CPASS=2 THEN CPASS=0:T=1:MCYR=MOUSE(5,2):MCXR=MOUSE(4,2) 2000 WEND::MSX=MOUSE(0):MSY=MOUSE(1):LOCATE 10,10:PRINT"mdc1" 2010 IF MDCX>468 THEN IF IVC>1 THEN IVC=IVC-1:GOTO *TOOLS ELSE IF IVC=99 THEN IVC=1:GOTO *TOOLS 2020 IF MDCX<20 OR MDCY<20 OR MDCX>468 OR MDCY>468 THEN *COUNTERA 2030 IF RB=1 THEN IF MCXR<20 OR MCYR<20 OR MCXR>468 OR MCYR>468 THEN *COUNTERA 2040 MSX=MOUSE(0):MSY=MOUSE(1) 2050 IVC=IVC+1:IF IVC=100 THEN IVC=1 2060 IVX(IVC)=MDCX:IVY(IVC)=MDCY 2070 IF MDCX=0 AND MDCY=0 THEN *DOUBLEPROCESS 2080 IF IVX(IVC)<>MDCX AND IVY(IVC)<>MDCY THEN *DOUBLEPROCESS 2090 FOR I=1 TO 64:FOR T=1 TO 64: 2100 IF T*7+20<MDCX AND T*7+27>MDCX THEN UDX(IVC)=T 2110 NEXT T:IF I*7+20<MDCY AND I*7+27>MDCY THEN UDY(IVC)=I 2120 NEXT I:LB=0: 2130 MCX=MDCX:MCY=MDCY 2140 IF UDX(IVC)=0 OR UDY(IVC)=0 THEN GOSUB *SUBPROCESSDC 2150 *DPROCESSB 2160 MCCL=MOUSE(3,1) 2170 T=0:WHILE T<1 2180 IF MCCL<>MOUSE(3,1) THEN CPASS=1:MCCL=MOUSE(3,1) 2190 IF MCCR<>MOUSE(3,2) THEN RB=1:CPASS=2:MCCR=MOUSE(3,2) 2200 IF CPASS=1 THEN CPASS=0:T=1:MDCX=MOUSE(4,1):MDCY=MOUSE(5,1) 2210 IF CPASS=2 THEN CPASS=0:T=1:MCYR=MOUSE(5,2):MCXR=MOUSE(4,2) 2220 WEND::MSX=MOUSE(0):MSY=MOUSE(1):LOCATE 10,10:PRINT"mdc2" 2230 IF CLX>468 THEN *TOOLS 2240 IF MDCX<20 OR MDCY<20 OR MDCX>468 OR MDCY>468 THEN *COUNTERA 2250 IVC=IVC+1:IF IVC=100 THEN IVC=1 2260 IF RB=1 THEN IF MCXR<20 OR MCYR<20 OR MCXR>468 OR MCYR>468 THEN *COUNTERA 2270 IVX(IVC)=MDCX:IVY(IVC)=MDCY 2280 IF MDCX=0 AND MDCY=0 THEN *DPROCESSB 2290 IF IVX(IVC)<>MDCX AND IVY(IVC)<>MDCY THEN *DPROCESSB 2300 FOR I=1 TO 64:FOR T=1 TO 64: 2310 IF T*7+20<MDCX AND T*7+27>MDCX THEN UDX(IVC)=T 2320 NEXT T:IF I*7+20<MDCY AND I*7+27>MDCY THEN UDY(IVC)=I 2330 NEXT I:LB=0: 2340 MCX=MDCX:MCY=MDCY 2350 MSX=MOUSE(0):MSY=MOUSE(1) 2360 IF UDX(IVC)=0 OR UDY(IVC)=0 THEN GOSUB *SUBPROCESSDC 2370 IF IVN<>IVC THEN LOCATE 1,4:PRINT IVX(IVC);T;XXL;UDX(IVC);,IVC;"X " 2380 IF IVN<>IVC THEN LOCATE 1,5:PRINT IVY(IVC);I;YYL;UDY(IVC);"Y " 2390 *DPROCESSC 2400 MCCL=MOUSE(3,1) 2410 T=0:WHILE T<1 2420 IF MCCL<>MOUSE(3,1) THEN CPASS=1:MCCL=MOUSE(3,1) 2430 IF MCCR<>MOUSE(3,2) THEN RB=1:CPASS=2:MCCR=MOUSE(3,2) 2440 IF CPASS=1 THEN CPASS=0:T=1:MCX=MOUSE(4,1):MCY=MOUSE(5,1) 2450 IF CPASS=2 THEN CPASS=0:T=1:MCYR=MOUSE(5,2):MCXR=MOUSE(4,2) 2460 WEND::MSX=MOUSE(0):MSY=MOUSE(1):LOCATE 10,10:PRINT"mdc3" 2470 IF CLX>468 THEN *TOOLS 2480 IF MCX<20 OR MCY<20 OR MCX>468 OR MCY>468 THEN *COUNTERA 2490 IF RB=1 THEN IF MCXR<20 OR MCYR<20 OR MCXR>468 OR MCYR>468 THEN *COUNTERA 2500 MSX=MOUSE(0):MSY=MOUSE(1) 2510 IVC=IVC+1:IF IVC=100 THEN IVC=1 2520 IF MCX=0 OR MCY=0 THEN *DPROCESSC 2530 IVX(IVC)=MCX:IVY(IVC)=MCY 2540 FOR I=1 TO 64:FOR T=1 TO 64: 2550 IF (T*7)+20<MCX AND (T*7)+27>MCX THEN UDX(IVC)=T 2560 NEXT T:IF (I*7)+20<MCY AND (I*7)+27>MCY THEN UDY(IVC)=I 2570 NEXT I:LB=0: 2580 IF UDX(IVC)=0 OR UDY(IVC)=0 THEN GOSUB *SUBPROCESSDC 2590 *EMDC 2600 IF IVC>1 AND UDX(IVC)<>UDX(IVC-1) THEN XXL=UDX(IVC)-UDX(IVC-1) 2610 IF IVC>1 AND UDY(IVC)<>UDY(IVC-1) THEN YYL=UDY(IVC)-UDY(IVC-1) 2620 IF IVC=100 THEN IVC=1:RFOF=1 2630 IF IVC=1 AND UDX(1)<>UDX(99) THEN XXL=UDX(1)-UDX(99) 2640 IF IVC=1 AND UDY(1)<>UDX(99) THEN YYL=UDY(1)-UDY(99) 2650 IF IVC>1 AND XXL=UDX(IVC) THEN XXL=UDX(IVC)-UDX(IVC-1) 2660 IF IVC>1 AND YYL=UDY(IVC) THEN YYL=UDY(IVC)-UDY(IVC-1) 2670 IF IVN<>IVC THEN LOCATE 1,8:PRINT IVX(IVC);T;XXL;UDX(IVC);,IVC;"X " 2680 IF IVN<>IVC THEN LOCATE 1,9:PRINT IVY(IVC);I;YYL;UDY(IVC);"Y " 2690 UDXL(IVC)=XXL:UDYL(IVC)=YYL 2700 PRINT"AAAAAAAAAAAAAAA":DOUBLE=0:IF RFOF=1 AND IVC=1 THEN *REFRESHOF ELSE GOTO *FLAGC 2710 END 2720 *SUBPROCESSDC 2730 FOR I=1 TO 64:FOR T=1 TO 64: 2740 IF T*7+20<MSX AND T*7+27>MSX THEN UDX(IVC)=T: 2750 NEXT T:IF I*7+20<MSY AND I*7+27>MSY THEN UDY(IVC)=I: 2760 NEXT I:LB=0 2770 IF UDX(IVC)=0 AND UDY(IVC)=0 THEN MSX=MOUSE(0):MSY=MOUSE(1):GOTO *SUBPROCESSDC 2780 IF UDX(IVC)=0 THEN MSX=MOUSE(0):GOTO *SUBPROCESSDC 2790 IF UDY(IVC)=0 THEN MSY=MOUSE(1):GOTO *SUBPROCESSDC 2800 RETURN 2810 *REFRESHOF 2820 IF RFOF=1 THEN RFOF=0 2830 FOR I=2 TO 99:MIV=MIV+1:IF MIV=256 THEN MIV=0:MIVCNT=MIVCNT+1:IF MIVCNT=64 THEN MIVCNT=0:MIV=0 2840 IVENTMOTION(MIV,1,CNTMIV)=UDX(I):UDX(I)=0:IVENTMOTION(MIV,2,CNTMIV)=UDY(I):UDY(I)=0: 2850 IVENTMOTION(MIV,3,CNTMIV)=UDXL(I):UDXL(I)=0:IVENTMOTION(MIV,4,CNTMIV)=UDYL(I):UDYL(I)=0: 2860 IVENTMOTION(MIV,5,CNTMIV)=IVX(I):IVX(I)=0:IVENTMOTION(MIV,6,CNTMIV)=IVY(I):IVY(I)=0: 2870 IMF$(MIV,CNTMIV)=IVFLAGS$(I):NEXT 2880 GOTO *FLAGC 2890 END 2900 *DITHERMAPPING 2910 REM darksolid / Hevypale / Hevyharf / harf / light / lightpale / lightsolid 2920 DATA "11111111","11111111","11111111","01010101","00000000","00000000","00000000","10000001" 2930 DATA "11111111","10111011","10101010","10101010","10101010","00100010","00000000","01000010" 2940 DATA "11111111","11111111","11111111","01010101","00000000","00000000","00000000","00100100" 2950 DATA "11111111","11101110","10101010","10101010","10101010","10001000","00000000","00011000" 2960 DATA "11111111","11111111","11111111","01010101","00000000","00000000","00000000","00011000" 2970 DATA "11111111","10111011","10101010","10101010","10101010","00100010","00000000","00100100" 2980 DATA "11111111","11111111","11111111","01010101","00000000","00000000","00000000","01000010" 2990 DATA "11111111","11101110","10101010","10101010","10101010","10001000","00000000","10000001" 3000 FOR T=1 TO 8:FOR I=1 TO 8:READ DM$(T,I):NEXT I:NEXT T 3010 FOR R=1 TO 8:FOR T=1 TO 8:RN=0:FOR I=1 TO 8:RN=RN+1:DMS=VAL(RIGHT$(LEFT$(DM$(T,R),RN),1)) 3020 DMS$=LEFT$(DM$(T,R),9-I):DMS$=RIGHT$(DMS$,1):DMS=VAL(DMS$) 3030 DM(I,T,R)=DMS:NEXT I:NEXT T:NEXT R 3040 TT=0:FOR T=1 TO 64:II=0:TT=TT+1:FOR I=1 TO 8:II=II+1:REM PRINT DM(II,TT,1);"+++";: 3050 IF TT>8 THEN TT=1 3060 DLG=DM(II,TT,1) 3070 DARKSOLID(I,T)=DLG:DARKSOLID(8+I,T)=DLG:DARKSOLID(16+II,T)=DLG 3080 DARKSOLID(24+II,T)=DLG:DARKSOLID(32+II,T)=DLG:DARKSOLID(40+II,T)=DLG 3090 DARKSOLID(48+II,T)=DLG:DARKSOLID(56+II,T)=DLG 3100 DLG=DM(II,TT,2) 3110 HEVYPALE(I,T)=DLG:HEVYPALE(8+II,T)=DLG:HEVYPALE(16+II,T)=DLG 3120 HEVYPALE(24+II,T)=DLG:HEVYPALE(32+II,T)=DLG:HEVYPALE(40+II,T)=DLG 3130 HEVYPALE(48+II,T)=DLG:HEVYPALE(56+II,T)=DLG 3140 DLG=DM(II,TT,3) 3150 HEVYHARF(I,T)=DLG:HEVYHARF(8+II,T)=DLG:HEVYHARF(16+II,T)=DLG 3160 HEVYHARF(24+II,T)=DLG:HEVYHARF(32+II,T)=DLG:HEVYHARF(40+II,T)=DLG 3170 HEVYHARF(48+II,T)=DLG:HEVYHARF(56+II,T)=DLG 3180 DLG=DM(II,TT,4) 3190 HARF(I,T)=DLG:HARF(8+II,T)=DLG:HARF(16+II,T)=DLG 3200 HARF(24+II,T)=DLG:HARF(32+II,T)=DLG:HARF(40+II,T)=DLG 3210 HARF(48+I,T)=DLG:HARF(56+II,T)=DLG 3220 DLG=DM(II,TT,5) 3230 LIGHT(I,T)=DLG:LIGHT(8+II,T)=DLG:LIGHT(16+II,T)=DLG 3240 LIGHT(24+II,T)=DLG:LIGHT(32+II,T)=DLG:LIGHT(40+II,T)=DLG 3250 LIGHT(48+II,T)=DLG:LIGHT(56+II,T)=DLG 3260 DLG=DM(II,TT,6) 3270 LIGHTPALE(I,T)=DLG:LIGHTPALE(8+II,T)=DLG:LIGHTPALE(16+II,T)=DLG 3280 LIGHTPALE(24+II,T)=DLG:LIGHTPALE(32+II,T)=DLG:LIGHTPALE(40+II,T)=DLG 3290 LIGHTPALE(48+II,T)=DLG:LIGHTPALE(56+II,T)=DLG 3300 DLG=DM(II,TT,7) 3310 LIGHTSOLID(I,T)=DLG:LIGHTSOLID(8+II,T)=DLG:LIGHTSOLID(16+II,T)=DLG 3320 LIGHTSOLID(24+II,T)=DLG:LIGHTSOLID(32+II,T)=DLG:LIGHTSOLID(40+II,T)=DLG 3330 LIGHTSOLID(48+II,T)=DLG:LIGHTSOLID(56+II,T)=DLG 3340 DLG=DM(II,TT,8) 3350 CHECKBOX(I,T)=DLG:CHECKBOX(8+II,T)=DLG:CHECKBOX(16+II,T)=DLG 3360 CHECKBOX(24+II,T)=DLG:CHECKBOX(32+II,T)=DLG:CHECKBOX(40+II,T)=DLG 3370 CHECKBOX(48+II,T)=DLG:CHECKBOX(56+II,T)=DLG 3380 NEXT I:NEXT T 3390 :::::::::::::::::::::: REM DM2 PROCESS 3400 FOR T=1 TO 64:FOR I=1 TO 64:DM2(I,T,1)=DARKSOLID(I,T):NEXT I:NEXT T 3410 FOR T=1 TO 64:FOR I=1 TO 64:DM2(I,T,2)=HEVYPALE(I,T):NEXT I:NEXT T 3420 FOR T=1 TO 64:FOR I=1 TO 64:DM2(I,T,3)=HEVYHARF(I,T):NEXT I:NEXT T 3430 FOR T=1 TO 64:FOR I=1 TO 64:DM2(I,T,4)=HARF(I,T):NEXT I:NEXT T 3440 FOR T=1 TO 64:FOR I=1 TO 64:DM2(I,T,5)=LIGHT(I,T):NEXT I:NEXT T 3450 FOR T=1 TO 64:FOR I=1 TO 64:DM2(I,T,6)=LIGHTPALE(I,T):NEXT I:NEXT T 3460 FOR T=1 TO 64:FOR I=1 TO 64:DM2(I,T,7)=LIGHTSOLID(I,T):NEXT I:NEXT T 3470 FOR T=1 TO 64:FOR I=1 TO 64:DM2(I,T,8)=CHECKBOX(I,T):NEXT I:NEXT T 3480 RETURN 3490 *PREDISPLAYPASS 3500 GOTO *ROOTGO 3510 FOR R=1 TO 8:FOR T=1 TO 64:FOR I=1 TO 64:PRINT DM2(I,T,R);:NEXT:NEXT:PRINT:BEEP:BEEP:BEEP:NEXT 3520 FOR R=1 TO 8:FOR T=1 TO 64:FOR I=1 TO 64:PRINT CP(I,T,R);:NEXT:NEXT:PRINT:BEEP:BEEP:BEEP:NEXT:END 3530 *ROOTGO 3540 GOTO *RUNNINGPROGRAM 3550 :: 3560 *DITHERFILTERLING 3570 FOR T=1 TO 64:FOR I=1 TO 64: 3580 IF DARKSOLID(I,T)<>0 THEN CP(I,T,1)=CP 3590 IF DARKSOLID(I,T) =0 THEN CP(I,T,1)=BC 3600 NEXT I:NEXT T 3610 FOR T=1 TO 64:FOR I=1 TO 64: 3620 IF HEVYPALE(I,T)<>0 THEN CP(I,T,2)=CP 3630 IF HEVYPALE(I,T) =0 THEN CP(I,T,2)=BC 3640 NEXT I:NEXT T: 3650 FOR T=1 TO 64:FOR I=1 TO 64: 3660 IF HEVYHARF(I,T)<>0 THEN CP(I,T,3)=CP 3670 IF HEVYHARF(I,T) =0 THEN CP(I,T,3)=BC 3680 NEXT I:NEXT T: 3690 FOR T=1 TO 64:FOR I=1 TO 64: 3700 IF HARF(I,T)<>0 THEN CP(I,T,4)=CP 3710 IF HARF(I,T) =0 THEN CP(I,T,4)=BC 3720 NEXT I:NEXT T 3730 FOR T=1 TO 64:FOR I=1 TO 64: 3740 IF LIGHT(I,T)<>0 THEN CP(I,T,5)=CP 3750 IF LIGHT(I,T) =0 THEN CP(I,T,5)=BC 3760 NEXT I:NEXT T 3770 FOR T=1 TO 64:FOR I=1 TO 64: 3780 IF LIGHTPALE(I,T)<>0 THEN CP(I,T,6)=CP 3790 IF LIGHTPALE(I,T) =0 THEN CP(I,T,6)=BC 3800 NEXT I:NEXT T 3810 FOR T=1 TO 64:FOR I=1 TO 64: 3820 IF LIGHTSOLID(I,T)<>0 THEN CP(I,T,7)=CP 3830 IF LIGHTSOLID(I,T) =0 THEN CP(I,T,7)=BC 3840 NEXT I:NEXT T 3850 FOR T=1 TO 64:FOR I=1 TO 64: 3860 IF CHECKBOX(I,T)<>0 THEN CP(I,T,8)=CP 3870 IF CHECKBOX(I,T) =0 THEN CP(I,T,8)=BC 3880 NEXT I:NEXT T 3890 RETURN 3900 *SEQUENTIAL 3910 YY$=LEFT$(DATE$,2):MM$=RIGHT$(DATE$,5):MM$=LEFT$(MM$,2):DD$=RIGHT$(DATE$,2) 3920 REM :::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::: 3930 OPEN "MYPIC"+YY$+MM$+DD$+".ASC" FOR OUTPUT AS #1 3940 FOR DLAY=0 TO 7: 3950 FOR T=1 TO 64:FOR I=1 TO 64 3960 LAYER$(I,T,DLAY)=HEX$(LAYER(I,T,DLAY)):REM PRINT LAYER$(I,T,Dlay);LAYER(I,T,lay); 3970 NEXT:PRINT:NEXT:: 3980 FOR T=1 TO 64:FOR I=1 TO 64:LAYER$=LAYER$+LAYER$(I,T,DLAY):NEXT:DATAFLOOR$(T,DLAY)=LAYER$:LAYER$="":NEXT 3990 REM FOR I=1 TO 64:PRINT DATAFLOOR$(I,DLAY):NEXT 4000 NEXT 4010 FOR DLAY=0 TO 5:T=65:FOR I=1 TO 64:T=T-1: 4020 WRITE #1,DATAFLOOR$(I,DLAY),HEX$(T)+CHR$(44):NEXT:NEXT:CLOSE #1 4030 OPEN "LOGPIC.ASC" FOR OUTPUT AS #2 4040 FOR DLAY=0 TO 5:T=65:FOR I=1 TO 64:T=T-1: 4050 WRITE #2,DATAFLOOR$(I,DLAY),HEX$(T)+CHR$(44):NEXT:NEXT:WRITE #2,YY$+MM$+DD$+" DAYS END OF FILE"," ":CLOSE #2 4060 LOCATE 61,21:PRINT":MYPIC"+YY$+MM$+DD$+".ASC":LOCATE 61,22:PRINT"STATUS" 4070 LOCATE 61,23:PRINT"MATRIX X:64 Y:64":LOCATE 61,24:PRINT"/ LINE" 4080 COLOR@(0,0)-(79,24),0 ::: 4090 CLS:GOSUB *REFRESHTXT:GOTO *FIELDCNT 4100 REM :::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::: 4110 *SEQUENTIALLOAD 4120 YY$=LEFT$(DATE$,2):MM$=RIGHT$(DATE$,5):MM$=LEFT$(MM$,2):DD$=RIGHT$(DATE$,2) 4130 OPEN "MYPIC"+YY$+MM$+DD$+".ASC" FOR INPUT AS #3 4140 FOR T=1 TO 64:INPUT #3,DATAFLOOR$(T,0),CR$:NEXT 4150 FOR T=1 TO 64:FOR I=1 TO 64:LAYER(I,T,0)=VAL("&h"+RIGHT$(LEFT$(DATAFLOOR$(T,DLAY),I),1)):NEXT:NEXT 4160 CLOSE #3: 4170 REM FOR T=1 TO 64:FOR I=1 TO 64:PRINT LAYER(I,T,0);:NEXT:PRINT:NEXT: 4180 CLS:GOSUB *REFRESHTXT:GOTO *FIELDCNT 4190 :: 4200 :: 4210 *FDOT LOCATE 0,8:PRINT MSX;MSY,FMX;FMY,CP(I,T,DFL) 4220 J=0:WHILE J<1:MSX=MOUSE(0):MSY=MOUSE(1) 4230 IF MOUSE(2,1)=0 THEN J=1 4240 *DOTHIT 4250 FOR I=1 TO 64:FOR T=1 TO 64: 4260 IF (T*7)+20<MSX AND (T*7)+27>MSX THEN DOTX=T: 4270 NEXT T:IF (I*7)+20<MSY AND (I*7)+27>MSY THEN DOTY=I: 4280 NEXT I:LB=0 4290 FOR I=1 TO 64:FOR T=1 TO 64: 4300 IF (T*7)+20<MSX AND (T*7)+27>MSX THEN DOTXB=T: 4310 NEXT T:IF (I*7)+20<MSY AND (I*7)+27>MSY THEN DOTYB=I: 4320 NEXT I:LB=0 4330 IF DOTX<>DOTXB OR DOTY<>DOTYB THEN *DOTHIT 4340 IF DOTX>0 AND DOTY>0 AND DOTX<65 AND DOTY<65 THEN LINE(DOTX*7+20,DOTY*7+20)-(DOTX*7+27,DOTY*7+27),CP(DOTX,DOTY,DFL),BF:LAYER(DOTX,DOTY,LAY)=CP(DOTX,DOTY,DFL) 4350 WEND: 4360 GOTO *FIELDCNT 4370 END 4380 *FLINE CLK=0 4390 IF SWICH=0 THEN SWICH=1:GOTO *AREASC 4400 IF DC=1 THEN *AREASC 4410 REM IF DOUBLE=1 THEN DOUBLE=0:GOTO *AREASC 4420 IF UDX(IVC-1)=0 OR UDY(IVC-1)=0 THEN SWICH=1:GOTO *AREASC 4430 IF UDX(IVC)=UDX(IVC-1) AND UDY(IVC)=UDY(IVC-1) THEN *AREASC 4440 IF MCX=MOUSE(4,1) THEN ELSE *FIELDCNT 4450 IF XXL=1 OR UDX(IVC)=UDX(IVC-1) THEN *LINEHANDUD 4460 IF YYL=1 OR UDY(IVC)=UDY(IVC-1) THEN *LINEHANDRL 4470 IF XXL<0 AND YYL>0 THEN *LINEHANDRD 4480 IF XXL>0 AND YYL>0 THEN *LINEHANDLD 4490 IF XXL<0 AND YYL<0 THEN *LINEHANDRU 4500 IF XXL>0 AND YYL<0 THEN *LINEHANDLU 4510 *LINEHANDUD 4520 IF UDY(IVC)>UDY(IVC-1) THEN LHYY=UDY(IVC-1):LHYYL=YYL 4530 IF UDY(IVC)<UDY(IVC-1) THEN LHYY=UDY(IVC) :LHYYL=-YYL 4540 FOR I=LHYY TO LHYY+LHYYL STEP 1: 4550 LAYER(UDX(IVC),I,LAY)=CP(UDX(IVC),I,DFL):LINE(UDX(IVC)*7+20,I*7+20)-(UDX(IVC)*7+27,I*7+27),CP(UDX(IVC),I,DFL),BF 4560 NEXT:PRINT "ud";YYL;LHYY," 4570 GOTO *AREASC 4580 *LINEHANDRL 4590 IF UDX(IVC)>UDX(IVC-1) THEN LHXX=UDX(IVC-1):LHXXL=XXL 4600 IF UDX(IVC)<UDX(IVC-1) THEN LHXX=UDX(IVC):LHXXL=-XXL 4610 FOR T=LHXX TO LHXX+LHXXL STEP 1: 4620 LAYER(T,UDY(IVC),5)=CP(T,UDY(IVC),DFL):LINE(T*7+20,UDY(IVC)*7+20)-(T*7+27,UDY(IVC)*7+27),CP(T,UDY(IVC),DFL),BF 4630 NEXT:PRINT "RL";XXL;LHXX," 4640 GOTO *AREASC 4650 *LINEHANDRD 4660 XYL=XXL/YYL:STP=0:ISTP=0:BKSTP=0: 4670 FOR I=UDY(IVC-1) TO UDY(IVC) STEP 1:BKSTP=ISTP:STP=STP+XYL:ISTP=INT(STP) 4680 FOR T=UDX(IVC-1)+ISTP TO UDX(IVC-1)+BKSTP STEP 1: 4690 IF T>=UDX(IVC) AND T=<UDX(IVC-1) THEN LAYER(T,I,LAY)=CP(T,I,DFL):LINE(T*7+20,I*7+20)-(T*7+27,I*7+27),CP(T,I,DFL),BF 4700 NEXT: 4710 NEXT:PRINT "aa";XYL;STP;ISTP;BKSTP;YYL;T;I;" " 4720 GOTO *AREASC 4730 *LINEHANDLD 4740 XYL=XXL/YYL:STP=0:ISTP=0:BKSTP=0: 4750 FOR I=UDY(IVC-1) TO UDY(IVC) STEP 1:BKSTP=ISTP:STP=STP+XYL:ISTP=INT(STP) 4760 FOR T=UDX(IVC-1)+BKSTP TO UDX(IVC-1)+ISTP STEP 1: 4770 IF T>=UDX(IVC-1) AND T=<UDX(IVC) THEN LAYER(T,I,LAY)=CP(T,I,DFL):LINE(T*7+20,I*7+20)-(T*7+27,I*7+27),CP(T,I,DFL),BF 4780 NEXT: 4790 NEXT:PRINT "bb";XYL;STP;ISTP;BKSTP;T;I;" 4800 GOTO *AREASC 4810 *LINEHANDRU 4820 XYL=-XXL/-YYL:STP=0:ISTP=0:BKSTP=0:LOCATE 0,10:PRINT XYL;XXL;YYL," " 4830 FOR I=UDY(IVC) TO UDY(IVC-1) STEP 1:BKSTP=ISTP:STP=STP+XYL:ISTP=INT(STP) 4840 FOR T=UDX(IVC)+BKSTP TO UDX(IVC)+ISTP STEP 1: 4850 IF T>=UDX(IVC) AND T=<UDX(IVC-1) THEN LAYER(T,I,LAY)=CP(T,I,DFL):LINE(T*7+20,I*7+20)-(T*7+27,I*7+27),CP(T,I,DFL),BF 4860 NEXT: 4870 NEXT:PRINT "bb";XYL;STP;ISTP;BKSTP;T;I;" 4880 GOTO *AREASC 4890 *LINEHANDLU 4900 XYL=XXL/-YYL:STP=0:ISTP=0:BKSTP=0: 4910 FOR I=UDY(IVC) TO UDY(IVC-1) STEP 1:BKSTP=ISTP:STP=STP-XYL:ISTP=INT(STP): 4920 FOR T=UDX(IVC)+ISTP TO UDX(IVC)+BKSTP STEP 1: 4930 IF T>=UDX(IVC-1) AND T=<UDX(IVC) THEN LAYER(T,I,LAY)=CP(T,I,DFL):LINE(T*7+20,I*7+20)-(T*7+27,I*7+27),CP(T,I,DFL),BF 4940 NEXT: 4950 NEXT:PRINT "bb";XYL;STP;ISTP;BKSTP;T;I;" 4960 GOTO *AREASC 4970 *LINEUNDO 4980 REM FOR I=1 TO 64:FOR T=1 TO 64: 4990 END 5000 END 5010 END 5020 END 5030 END 5040 END 5050 END 5060 *TOOLS 5070 IF IVX(IVC)<488 THEN *FIELDCNT 5080 IF IVY(IVC)>39 AND IVY(IVC)<57 THEN *COLORPALLETE 5090 IF IVY(IVC)>58 AND IVY(IVC)<114 THEN *COLORCHANGE 5100 IF IVY(IVC)>115 AND IVY(IVC)<171 THEN *COLORLEVEL 5110 IF IVY(IVC)>172 AND IVY(IVC)<190 THEN *DITHER 5120 IF IVY(IVC)>191 AND IVY(IVC)<209 THEN *LINECARV 5130 IF IVY(IVC)>210 AND IVY(IVC)<228 THEN *PAINTPSET 5140 IF IVY(IVC)>229 AND IVY(IVC)<247 THEN *LAYERCHANGE 5150 IF IVY(IVC)>248 AND IVY(IVC)<285 THEN *PENCHANGE 5160 IF IVY(IVC)>286 AND IVY(IVC)<304 THEN *SPOITGLID 5170 IF IVY(IVC)>305 AND IVY(IVC)<323 THEN *UNDORESET 5180 IF IVY(IVC)>362 AND IVY(IVC)<380 THEN IF IVX(IVC)<MLC(77) AND IVX(IVC)>MLC(71) THEN *SEQUENTIALLOAD ELSE IF IVX(IVC)<MLC(71) THEN *SEQUENTIAL 5190 IF IVY(IVC)>362 AND IVY(IVC)<380 THEN IF IVX(IVC)<MLC(77) AND IVX(IVC)>MLC(71) THEN *SEQUENTIALLOAD ELSE IF IVX(IVC)<MLC(71) THEN *SEQUENTIAL 5200 IF IVY(IVC)>381 AND IVY(IVC)<399 THEN *FILENAME 5210 IVC=IVC-1 5220 GOTO *FIELDCNT 5230 END 5240 *COLORPALLETE 5250 FLAGCP=0 5260 FOR C=0 TO 15 5270 IF IVX(IVC)>MLC(C+61) AND IVX(IVC)<MLC(C+61) THEN FLAGCP=1:CP=C 5280 NEXT 5290 GOSUB *DITHERFILTERLING 5300 IF FLAGCP=1 THEN IF MOSE(2,2)<>0 THEN BC=CP:FLAGCP=0 5310 IF BCP=CP THEN *FIELDCNT 5320 I=0:FOR C=61 TO 76:LINE (MLC(C),MLF(2))-(MLCP(C),MLFP(2)),I,BF:I=I+1:NEXT C 5330 I=0:FOR C=61 TO 79 5340 IF CP=I THEN LINE (C,37)-(C+8,56),7,B 5350 I=I+1:NEXT 5360 GOTO *FIELDCNT 5370 END 5380 *LINECARV 5390 IF IVX(IVC)>488 AND IVX(IVC)<520 THEN FLAGS$="LINE" 5400 IF IVX(IVC)>552 AND IVX(IVC)<584 THEN FLAGS$="CARV" 5410 IF IVC>1 THEN IVC=IVC-1 ELSE IF IVC=1 THEN IVC=99 5420 COLOR 0:LOCATE 61,23:PRINT"/ ";FLAGS$;" ":LOCATE 73,23:PRINT" " 5430 GOTO *FIELDCNT 5440 END 5450 *PAINTPSET 5460 IF IVX(IVC)>488 AND IVX(IVC)<528 THEN FLAGS$="PAINT" 5470 IF IVX(IVC)>552 AND IVX(IVC)<576 THEN FLAGS$="DOT" 5480 IF IVC>1 THEN IVC=IVC-1 ELSE IF IVC=1 THEN IVC=99 5490 COLOR 0:LOCATE 61,23:PRINT"/ ";FLAGS$;" ":LOCATE 73,23:PRINT" " 5500 GOTO *FIELDCNT 5510 END 5520 *PENCHANGE 5530 IF IVX(IVC)>520 AND IVX(IVC)<528 THEN FLAGS$="PEN":PENTYPE$="circle" 5540 IF IVX(IVC)>552 AND IVX(IVC)<560 THEN FLAGS$="PEN":PENTYPE$="box " 5550 IF IVX(IVC)>576 AND IVX(IVC)<584 THEN FLAGS$="PEN":PENS=3 5560 IF IVX(IVC)>592 AND IVX(IVC)<600 THEN FLAGS$="PEN":PENS=5 5570 IF IVC>1 THEN IVC=IVC-1 ELSE IF IVC=1 THEN IVC=99 5580 COLOR 0:LOCATE 61,23:PRINT"/ ";FLAGS$;PENS;PENTYPE$; 5590 GOTO *FIELDCNT 5600 END 5610 END 5620 END 5630 END 5640 END 5650 *FPEN 5660 IF MSX>468 THEN *TOOLS 5670 IF MSX<20 OR MSX<20 OR MSX>468 OR MSX>468 THEN *COUNTERA 5680 J=0:NULL=MOUSE(2,1):IF NULL=0 THEN *AREASC 5690 IF PENTYPE$="circle" AND PENS=5 THEN *CPENFIVE 5700 IF PENTYPE$="circle" AND PENS=3 THEN *CPENTHREE 5710 IF PENTYPE$="box " AND PENS=5 THEN *BPENL 5720 IF PENTYPE$="box " AND PENS=3 THEN *BPENS 5730 IF PENTYPE$="" OR PENS=0 THEN PENS=5:PENTYPE$="circle":GOTO *FPEN 5740 GOTO *AREASC 5750 END 5760 *CPENFIVE LOCATE 0,8:PRINT MSX;MSY,FMX;FMY 5770 GOSUB *DITHERFILTERLING:FOR T=1 TO 64:LOCATE 0,20:PRINT CP(T,1,LAY);CP(T,2,LAY);CP(T,3,LAY);CP(T,4,LAY);CP(T,5,LAY);CP(T,6,LAY); 5780 PRINT CP(T,7,LAY);CP(T,8,LAY);CP(T,9,LAY);CP(T,10,LAY);CP(T,11,LAY);CP(T,12,LAY);CP(T,13,LAY); 5790 PRINT CP(T,14,LAY);CP(T,15,LAY);CP(T,16,LAY);CP(T,17,LAY);CP(T,18,LAY);CP(T,19,LAY);CP(T,20,LAY); 5800 PRINT CP(T,21,LAY);CP(T,22,LAY);CP(T,23,LAY);CP(T,24,LAY);CP(T,25,LAY);CP(T,26,LAY);CP(T,27,LAY); 5810 PRINT CP(T,28,LAY);CP(T,29,LAY);CP(T,30,LAY);CP(T,31,LAY);CP(T,32,LAY);CP(T,33,LAY);CP(T,34,LAY); 5820 PRINT CP(T,35,LAY);CP(T,36,LAY);CP(T,37,LAY);CP(T,38,LAY);CP(T,39,LAY);CP(T,40,LAY);CP(T,41,LAY); 5830 PRINT CP(T,42,LAY);CP(T,42,LAY);CP(T,43,LAY);CP(T,44,LAY);CP(T,45,LAY);CP(T,46,LAY);CP(T,47,LAY); 5840 PRINT CP(T,48,LAY);CP(T,49,LAY);CP(T,50,LAY);CP(T,51,LAY);CP(T,52,LAY);CP(T,53,LAY);CP(T,54,LAY); 5850 PRINT CP(T,55,LAY);CP(T,56,LAY);CP(T,57,LAY);CP(T,58,LAY);CP(T,59,LAY);CP(T,60,LAY);CP(T,61,LAY);CP(T,62,LAY);CP(T,63,LAY);CP(T,64,LAY); 5860 NEXT 5870 J=0:WHILE J<1:MSX=MOUSE(0):MSY=MOUSE(1):DFL=1 5880 IF MOUSE(2,1)=0 THEN J=1 5890 FOR I=1 TO 64:FOR T=1 TO 64: 5900 IF T*7+20<MSX AND T*7+27>MSX THEN PENX=T: 5910 NEXT T:IF I*7+20<MSY AND I*7+27>MSY THEN PENY=I: 5920 NEXT I:LB=0 5930 IF PENX>0 AND PENY>0 AND PENX<65 AND PENY<65 THEN LINE(PENX*7+20,PENY*7+20)-(PENX*7+27,PENY*7+27),CP(PENX,PENY,DFL),BF:LAYER(PENX,PENY,LAY)=CP(PENX,PENY,DFL) 5940 IF PENX>1 AND PENY>2 THEN LINE(PENX*7-7+20,PENY*7-14+20)-(PENX*7-7+27,PENY*7-14+27),CP(PENX-1,PENY-2,DFL),BF:LAYER(PENX-1,PENY-2,LAY)=CP(PENX-1,PENY-2,DFL) 5950 IF PENX>2 AND PENY>1 THEN LINE(PENX*7-14+20,PENY*7-7+20)-(PENX*7-14+27,PENY*7-7+27),CP(PENX-2,PENY-1,DFL),BF:LAYER(PENX-2,PENY-1,LAY)=CP(PENX-2,PENY-1,DFL) 5960 IF PENX>2 AND PENY>0 THEN LINE(PENX*7-14+20,PENY*7+0+20)-(PENX*7-14+27,PENY*7+0+27),CP(PENX-2,PENY ,DFL),BF:LAYER(PENX-2,PENY ,LAY)=CP(PENX-2,PENX ,DFL) 5970 IF PENX>2 AND PENY<64 THEN LINE(PENX*7-14+20,PENY*7+7+20)-(PENX*7-14+27,PENY*7+7+27),CP(PENX-2,PENY+1,DFL),BF:LAYER(PENX-2,PENY+1,LAY)=CP(PENX-2,PENY+1,DFL) 5980 IF PENX>1 AND PENY<63 THEN LINE(PENX*7-7+20,PENY*7+14+20)-(PENX*7-7+27,PENY*7+14+27),CP(PENX-1,PENY+2,DFL),BF:LAYER(PENX-1,PENY+2,LAY)=CP(PENX-1,PENY+2,DFL) 5990 IF PENX>1 AND PENY>1 THEN LINE(PENX*7-7+20,PENY*7-7+20)-(PENX*7-7+27,PENY*7-7+27),CP(PENX-1,PENY-1,DFL),BF:LAYER(PENX-1,PENY-1,LAY)=CP(PENX-1,PENY-1,DFL) 6000 IF PENX>1 AND PENY>0 THEN LINE(PENX*7-7+20,PENY*7+0+20)-(PENX*7-7+27,PENY*7+0+27),CP(PENX-1,PENY ,DFL),BF:LAYER(PENX-1,PENY ,LAY)=CP(PENX-1,PENX ,DFL) 6010 IF PENX>1 AND PENY<64 THEN LINE(PENX*7-7+20,PENY*7+7+20)-(PENX*7-7+27,PENY*7+7+27),CP(PENX-1,PENY+1,DFL),BF:LAYER(PENX-1,PENY+1,LAY)=CP(PENX-1,PENY+1,DFL) 6020 IF PENX>0 AND PENY>2 THEN LINE(PENX*7-0+20,PENY*7-14+20)-(PENX*7-0+27,PENY*7-14+27),CP(PENX ,PENY-2,DFL),BF:LAYER(PENX ,PENY-2,LAY)=CP(PENX ,PENY-2,DFL) 6030 IF PENX>0 AND PENY>1 THEN LINE(PENX*7-0+20,PENY*7-7+20)-(PENX*7-0+27,PENY*7-7+27),CP(PENX ,PENY-1,DFL),BF:LAYER(PENX ,PENY-1,LAY)=CP(PENX ,PENY-1,DFL) 6040 IF PENX>0 AND PENY<64 THEN LINE(PENX*7-0+20,PENY*7+7+20)-(PENX*7-0+27,PENY*7+7+27),CP(PENX ,PENY+1,DFL),BF:LAYER(PENX ,PENY+1,LAY)=CP(PENX ,PENY+1,DFL) 6050 IF PENX>0 AND PENY<63 THEN LINE(PENX*7-0+20,PENY*7+14+20)-(PENX*7-0+27,PENY*7+14+27),CP(PENX ,PENY+2,DFL),BF:LAYER(PENX ,PENY+2,LAY)=CP(PENX ,PENY+2,DFL) 6060 IF PENX<64 AND PENY>2 THEN LINE(PENX*7+7+20,PENY*7-14+20)-(PENX*7+7+27,PENY*7-14+27),CP(PENX+1,PENY-2,DFL),BF:LAYER(PENX+1,PENY-2,LAY)=CP(PENX+1,PENY-2,DFL) 6070 IF PENX<63 AND PENY>1 THEN LINE(PENX*7+14+20,PENY*7-7+20)-(PENX*7+14+27,PENY*7-7+27),CP(PENX+2,PENY-1,DFL),BF:LAYER(PENX+2,PENY-1,LAY)=CP(PENX+2,PENY-1,DFL) 6080 IF PENX<63 AND PENY>0 THEN LINE(PENX*7+14+20,PENY*7+0+20)-(PENX*7+14+27,PENY*7+0+27),CP(PENX+2,PENY ,DFL),BF:LAYER(PENX+2,PENY ,LAY)=CP(PENX+2,PENY ,DFL) 6090 IF PENX<63 AND PENY<64 THEN LINE(PENX*7+14+20,PENY*7+7+20)-(PENX*7+14+27,PENY*7+7+27),CP(PENX+2,PENY+1,DFL),BF:LAYER(PENX+2,PENY+1,LAY)=CP(PENX+2,PENY+1,DFL) 6100 IF PENX<64 AND PENY<63 THEN LINE(PENX*7+7+20,PENY*7+14+20)-(PENX*7+7+27,PENY*7+14+27),CP(PENX+1,PENY+2,DFL),BF:LAYER(PENX+1,PENY+2,LAY)=CP(PENX+1,PENY+2,DFL) 6110 IF PENX<64 AND PENY>1 THEN LINE(PENX*7+7+20,PENY*7-7+20)-(PENX*7+7+27,PENY*7-7+27),CP(PENX+1,PENY-1,DFL),BF:LAYER(PENX+1,PENY-1,LAY)=CP(PENX+1,PENY-1,DFL) 6120 IF PENX<64 AND PENY>0 THEN LINE(PENX*7+7+20,PENY*7+0+20)-(PENX*7+7+27,PENY*7+0+27),CP(PENX+1,PENY ,DFL),BF:LAYER(PENX+1,PENY ,LAY)=CP(PENX+1,PENY ,DFL) 6130 IF PENX<64 AND PENY<64 THEN LINE(PENX*7+7+20,PENY*7+7+20)-(PENX*7+7+27,PENY*7+7+27),CP(PENX+1,PENY+1,DFL),BF:LAYER(PENX+1,PENY+1,LAY)=CP(PENX+1,PENY+1,DFL) 6140 REM LOCATE 0,22:PRINT LAY;" ";CP(PENX,PENY,LAY);CP(PENX-1,PENY-2,LAY);CP(PENX-2,PENY+1,LAY);CP(PENX-2,PENY ,LAY);CP(PENX-2,PENY+1,LAY);CP(PENX-2,PENY+1,LAY);CP(PENX-1,PENY-1,LAY); 6150 REM LOCATE 0,23:PRINT CP(PENX-1,PENY ,LAY);CP(PENX-1,PENY+1,LAY);CP(PENX ,PENY-2,LAY);CP(PENX ,PENY-1,LAY);CP(PENX ,PENY+1,LAY);CP(PENX ,PENY+2,LAY);CP(PENX+1,PENY-2,LAY); 6160 REM LOCATE 0,24:PRINT CP(PENX+2,PENY-1,LAY);CP(PENX+2,PENY ,LAY);CP(PENX+2,PENY+1,LAY);CP(PENX+1,PENY+2,LAY);CP(PENX+1,PENY ,LAY);CP(PENX+1,PENY+1,LAY); 6170 WEND 6180 GOTO *AREASC 6190 END 6200 *CPENTHREE 6210 LOCATE 0,8:PRINT MSX;MSY,FMX;FMY,CP(I,T,LAY) 6220 J=0:WHILE J<1:MSX=MOUSE(0):MSY=MOUSE(1) 6230 IF MOUSE(2,1)=0 THEN J=1 6240 FOR I=1 TO 64:FOR T=1 TO 64: 6250 IF T*7+20<MSX AND T*7+27>MSX THEN PENX=T: 6260 NEXT T:IF I*7+20<MSY AND I*7+27>MSY THEN PENY=I: 6270 NEXT I:LB=0 6280 IF PENX>0 AND PENY>0 AND PENX<65 AND PENY<65 THEN LINE(PENX*7+20,PENY*7+20)-(PENX*7+27,PENY*7+27),CP(PENX,PENY,DFL),BF:LAYER(PENX,PENY,LAY)=CP(PENX,PENY,DFL) 6290 IF PENX>1 AND PENY>0 THEN LINE(PENX*7-7+20,PENY*7+0+20)-(PENX*7-7+27,PENY*7+0+27),CP(PENX-1,PENY ,DFL ),BF :LAYER(PENX-1,PENY ,LAY)=CP(PENX-1,PENY,DFL) 6300 IF PENX<64 AND PENY>0 THEN LINE(PENX*7+7+20,PENY*7+0+20)-(PENX*7+7+27,PENY*7+0+27),CP(PENX+1,PENY ,DFL ),BF :LAYER(PENX+1,PENY ,LAY)=CP(PENX+1,PENY,DFL) 6310 IF PENX>0 AND PENY<64 THEN LINE(PENX*7-0+20,PENY*7+7+20)-(PENX*7-0+27,PENY*7+7+27),CP(PENX ,PENY+1,DFL ),BF :LAYER(PENX ,PENY+1,LAY)=CP(PENX,PENY+1,DFL) 6320 IF PENX>0 AND PENY>1 THEN LINE(PENX*7-0+20,PENY*7-7+20)-(PENX*7-0+27,PENY*7-7+27),CP(PENX ,PENY-1,DFL ),BF :LAYER(PENX ,PENY-1,LAY)=CP(PENX,PENY-1,DFL) 6330 WEND 6340 GOTO *AREASC 6350 END 6360 *BPENL LOCATE 0,8:PRINT MSX;MSY,FMX;FMY,CP(I,T,DFL) 6370 J=0:J=0:WHILE J<1:MSX=MOUSE(0):MSY=MOUSE(1) 6380 IF MOUSE(2,1)=0 THEN J=1 6390 FOR I=1 TO 64:FOR T=1 TO 64: 6400 IF T*7+20<MSX AND T*7+27>MSX THEN PENX=T: 6410 NEXT T:IF I*7+20<MSY AND I*7+27>MSY THEN PENY=I: 6420 NEXT I:LB=0 6430 IF PENX>0 AND PENY>0 AND PENX<65 AND PENY<65 THEN LINE(PENX*7+20,PENY*7+20)-(PENX*7+27,PENY*7+27),CP(PENX,PENY,DFL),BF:LAYER(PENX,PENY,LAY)=CP(PENX,PENY,DFL) 6440 IF PENX>1 AND PENY>2 THEN LINE(PENX*7-7 +20,PENY*7-14+20)-(PENX*7 -7+27,PENY*7-14+27),CP(PENX+1,PENY-2,DFL),BF:LAYER(PENX+1,PENY-2,LAY)=CP(PENX+1,PENY-2,DFL) 6450 IF PENX>2 AND PENY>1 THEN LINE(PENX*7-14+20,PENY*7-7+20)-(PENX*7-14+27,PENY*7-7+27),CP(PENX-2,PENY-1,DFL),BF:LAYER(PENX-2,PENY-1,LAY)=CP(PENX-2,PENY-1,DFL) 6460 IF PENX>2 AND PENY>0 THEN LINE(PENX*7-14+20,PENY*7+0+20)-(PENX*7-14+27,PENY*7+0+27),CP(PENX-2,PENY ,DFL),BF:LAYER(PENX-2,PENY ,LAY)=CP(PENX-2,PENY ,DFL) 6470 IF PENX>2 AND PENY<64 THEN LINE(PENX*7-14+20,PENY*7+7+20)-(PENX*7-14+27,PENY*7+7+27),CP(PENX-2,PENY+1,DFL),BF:LAYER(PENX-2,PENY+1,LAY)=CP(PENX-2,PENY+1,DFL) 6480 IF PENX>1 AND PENY<63 THEN LINE(PENX*7-7+20,PENY*7+14+20)-(PENX*7-7+27,PENY*7+14+27),CP(PENX-1,PENY+2,DFL),BF:LAYER(PENX-1,PENY+2,LAY)=CP(PENX-1,PENY+2,DFL) 6490 IF PENX>1 AND PENY>1 THEN LINE(PENX*7-7+20,PENY*7-7+20)-(PENX*7-7+27,PENY*7-7+27),CP(PENX-1,PENY-1,DFL),BF:LAYER(PENX-1,PENY-1,LAY)=CP(PENX-1,PENY-1,DFL) 6500 IF PENX>1 AND PENY>0 THEN LINE(PENX*7-7+20,PENY*7+0+20)-(PENX*7-7+27,PENY*7+0+27),CP(PENX-1,PENY ,DFL),BF:LAYER(PENX-1,PENY ,LAY)=CP(PENX-1,PENY ,DFL) 6510 IF PENX>1 AND PENY<64 THEN LINE(PENX*7-7+20,PENY*7+7+20)-(PENX*7-7+27,PENY*7+7+27),CP(PENX ,PENY+1,DFL),BF:LAYER(PENX ,PENY+1,LAY)=CP(PENX ,PENY-2,DFL) 6520 IF PENX>0 AND PENY>2 THEN LINE(PENX*7-0+20,PENY*7-14+20)-(PENX*7-0+27,PENY*7-14+27),CP(PENX ,PENY-2,DFL),BF:LAYER(PENX ,PENY-2,LAY)=CP(PENX ,PENY-1,DFL) 6530 IF PENX>0 AND PENY>1 THEN LINE(PENX*7-0+20,PENY*7-7+20)-(PENX*7-0+27,PENY*7-7+27),CP(PENX ,PENY-1,DFL),BF:LAYER(PENX ,PENY-1,LAY)=CP(PENX ,PENY-1,DFL) 6540 IF PENX>0 AND PENY<64 THEN LINE(PENX*7-0+20,PENY*7+7+20)-(PENX*7-0+27,PENY*7+7+27),CP(PENX ,PENY+1,DFL),BF:LAYER(PENX ,PENY+1,LAY)=CP(PENX ,PENY+1,DFL) 6550 IF PENX>0 AND PENY<63 THEN LINE(PENX*7-0+20,PENY*7+14+20)-(PENX*7-0+27,PENY*7+14+27),CP(PENX ,PENY+2,DFL),BF:LAYER(PENX ,PENY+2,LAY)=CP(PENX ,PENY+2,DFL) 6560 IF PENX<64 AND PENY>2 THEN LINE(PENX*7+7+20,PENY*7-14+20)-(PENX*7+7+27,PENY*7-14+27),CP(PENX+1,PENY-2,DFL),BF:LAYER(PENX+1,PENY-2,LAY)=CP(PENX+1,PENY-2,DFL) 6570 IF PENX<63 AND PENY>1 THEN LINE(PENX*7+14+20,PENY*7-7+20)-(PENX*7+14+27,PENY*7-7+27),CP(PENX+2,PENY-1,DFL),BF:LAYER(PENX+2,PENY-1,LAY)=CP(PENX+2,PENY-1,DFL) 6580 IF PENX<63 AND PENY>0 THEN LINE(PENX*7+14+20,PENY*7+0+20)-(PENX*7+14+27,PENY*7+0+27),CP(PENX+2,PENY ,DFL),BF:LAYER(PENX+2,PENY ,LAY)=CP(PENX+2,PENY ,DFL) 6590 IF PENX<63 AND PENY<64 THEN LINE(PENX*7+14+20,PENY*7+7+20)-(PENX*7+14+27,PENY*7+7+27),CP(PENX+2,PENY+1,DFL),BF:LAYER(PENX+2,PENY+1,LAY)=CP(PENX+2,PENY+1,DFL) 6600 IF PENX<64 AND PENY<63 THEN LINE(PENX*7+7+20,PENY*7+14+20)-(PENX*7+7+27,PENY*7+14+27),CP(PENX+1,PENY+2,DFL),BF:LAYER(PENX+1,PENY+2,LAY)=CP(PENX+1,PENY+2,DFL) 6610 IF PENX<64 AND PENY>1 THEN LINE(PENX*7+7+20,PENY*7-7+20)-(PENX*7+7+27,PENY*7-7+27),CP(PENX+1,PENY-1,DFL),BF:LAYER(PENX+1,PENY-1,LAY)=CP(PENX+1,PENY-1,DFL) 6620 IF PENX<64 AND PENY>0 THEN LINE(PENX*7+7+20,PENY*7+0+20)-(PENX*7+7+27,PENY*7+0+27),CP(PENX+1,PENY ,DFL),BF:LAYER(PENX+1,PENY ,LAY)=CP(PENX+1,PENY ,DFL) 6630 IF PENX<64 AND PENY<64 THEN LINE(PENX*7+7+20,PENY*7+7+20)-(PENX*7+7+27,PENY*7+7+27),CP(PENX+1,PENY+1,DFL),BF:LAYER(PENX+1,PENY+1,LAY)=CP(PENX+1,PENY+1,DFL) 6640 IF PENX>2 AND PENY<63 THEN LINE(PENX*7-14+20,PENY*7+14+20)-(PENX*7-14+27,PENY*7+14+27),CP(PENX-2,PENY+2,DFL),BF:LAYER(PENX-2,PENY+2,LAY)=CP(PENX-2,PENY+2,DFL) 6650 IF PENX<63 AND PENY<63 THEN LINE(PENX*7+14+20,PENY*7+14+20)-(PENX*7+14+27,PENY*7+14+27),CP(PENX+2,PENY+2,DFL),BF:LAYER(PENX+2,PENY+2,LAY)=CP(PENX+2,PENY+2,DFL) 6660 IF PENX<63 AND PENY>2 THEN LINE(PENX*7+14+20,PENY*7-14+20)-(PENX*7+14+27,PENY*7-14+27),CP(PENX+2,PENY-2,DFL),BF:LAYER(PENX+2,PENY-2,LAY)=CP(PENX+2,PENY-2,DFL) 6670 IF PENX>2 AND PENY>2 THEN LINE(PENX*7-14+20,PENY*7-14+20)-(PENX*7-14+27,PENY*7-14+27),CP(PENX-2,PENY-2,DFL),BF:LAYER(PENX-2,PENY-2,LAY)=CP(PENX-2,PENY-2,DFL) 6680 WEND 6690 GOTO *AREASC 6700 END 6710 *BPENS 6720 LOCATE 0,8:PRINT MSX;MSY,FMX;FMY,CP(I,T,FL) 6730 J=0:WHILE J<1:MSX=MOUSE(0):MSY=MOUSE(1) 6740 IF MOUSE(2,1)=0 THEN J=1 6750 FOR I=1 TO 64:FOR T=1 TO 64: 6760 IF T*7+20<MSX AND T*7+27>MSX THEN PENX=T: 6770 NEXT T:IF I*7+20<MSY AND I*7+27>MSY THEN PENY=I: 6780 NEXT I:LB=0 6790 IF PENX>0 AND PENY>0 AND PENX<65 AND PENY<65 THEN LINE(PENX*7+20,PENY*7+20)-(PENX*7+27,PENY*7+27),CP(PENX,PENY,DFL),BF:LAYER(PENX,PENY,DFL)=CP(PENX,PENY,DFL) 6800 IF PENX>1 AND PENY>0 THEN LINE(PENX*7+7+20,PENY*7+0+20)-(PENX*7+7+27,PENY*7+0+27),CP(PENX+1,PENY ,DFL),BF :LAYER(PENX+1,PENY ,LAY)=CP(PENX-1,PENY ,DFL ) 6810 IF PENX<64 AND PENY>0 THEN LINE(PENX*7-7+20,PENY*7+0+20)-(PENX*7-7+27,PENY*7+0+27),CP(PENX-1,PENY ,DFL),BF :LAYER(PENX-1,PENY ,LAY)=CP(PENX-1,PENY ,DFL ) 6820 IF PENX>0 AND PENY<64 THEN LINE(PENX*7-0+20,PENY*7-7+20)-(PENX*7-0+27,PENY*7-7+27),CP(PENX ,PENY-1,DFL),BF :LAYER(PENX ,PENY-1,LAY)=CP(PENX ,PENY-1,DFL ) 6830 IF PENX>0 AND PENY>1 THEN LINE(PENX*7-0+20,PENY*7+7+20)-(PENX*7-0+27,PENY*7+7+27),CP(PENX ,PENY+1,DFL),BF :LAYER(PENX ,PENY+1,LAY)=CP(PENX ,PENY+1,DFL ) 6840 IF PENX>1 AND PENY>1 THEN LINE(PENX*7-7+20,PENY*7-7+20)-(PENX*7-7+27,PENY*7-7+27),CP(PENX-1,PENY-1,DFL),BF :LAYER(PENX-1,PENY-1,LAY)=CP(PENX-1,PENY-1,DFL ) 6850 IF PENX<64 AND PENY>1 THEN LINE(PENX*7+7+20,PENY*7-7+20)-(PENX*7+7+27,PENY*7-7+27),CP(PENX+1,PENY-1,DFL),BF :LAYER(PENX-1,PENY+1,LAY)=CP(PENX-1,PENY+1,DFL ) 6860 IF PENX>1 AND PENY<64 THEN LINE(PENX*7-7+20,PENY*7+7+20)-(PENX*7-7+27,PENY*7+7+27),CP(PENX-1,PENY+1,DFL),BF :LAYER(PENX-1,PENY+1,LAY)=CP(PENX-1,PENY+1,DFL ) 6870 IF PENX<64 AND PENY<64 THEN LINE(PENX*7+7+20,PENY*7+7+20)-(PENX*7+7+27,PENY*7+7+27),CP(PENX+1,PRNY+1,DFL),BF :LAYER(PENX+1,PENY+1,LAY)=CP(PENX+1,PENY+1,DFL ) 6880 WEND 6890 GOTO *AREASC 6900 END 6910 END 6920 END 6930 *FPAINT 6940 *PIXMASKSC 6950 MASKCNT=0:MASKCLE=2:MSX=MOUSE(0):MSY=MOUSE(1):IY=0:TX=0 6960 FOR I=1 TO 64:IY=INT(I/8):FOR T=1 TO 64:TX=INT(T/8) 6970 IF T*7+20<MSX AND T*7+27>MSX THEN MASKX=T:BLOCX=TX: 6980 NEXT T:IF I*7+20<MSY AND I*7+27>MSY THEN MASKY=I:BLOCY=IY: 6990 NEXT I:LB=0 7000 IF MASKX=0 OR MASKY=0 THEN *PIXMASKSC 7010 POINTX=MASKX-(BLOCX*8):POINTY=MASKY-(BLOCY*8) 7020 IF MASKX/2=INT(MASKX/2) THEN KIGUX$="GUSU" ELSE KIGUX$="KISU" 7030 IF MASKY/2=INT(MASKY/2) THEN KIGUY$="GUSU" ELSE KIGUY$="KISU" 7040 STEPX=BLOCX*8:STEPY=BLOCY*8:SX=BLOCX*4:SY=BLOCY*4:MP=LAYER(MASKX,MASKY,LAY) 7050 LOCATE 0,1:PRINT POINTX;POINTY;MASKX;MASKY;BLOCX;BLOCY;TX;IY 7060 PRINT "X:";KIGUX$;"/Y:";KIGUY$;STEPX;STEPY; 7070 IF KIGUX$="KISU" THEN *LUMASK 7080 IF KIGUX$="GUSU" THEN *RUMASK 7090 IF KIGUY$="KISU" THEN *LDMASK 7100 IF KIGUY$="GUSU" THEN *RDMASK 7110 END 無題 - 福岡大 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

海鳥亭画像HTMLタグ

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN"> <HTML> <HEAD> <META http-equiv="Content-Type" content="text/html; charset=Shift_JIS"> <META name="GENERATOR" content="IBM WebSphere Studio Homepage Builder Version 6.5.0.0 for Windows"> <META http-equiv="Content-Style-Type" content="text/css"> <TITLE>Graphic Arts05　海鳥亭（Sea Bird Stop Graphic Arts05）CopyRight 2005.12‐2025。未成年用。</TITLE> </HEAD> <BODY> <P><FONT size="+3">Graphic Arts05　海鳥亭（Sea Bird Stop Graphic Arts05）CopyRight 2005.12‐2025。未成年用。</FONT><BR> <BR> <FONT size="+3">LafA,B,C</FONT><BR> <FONT size="+3">見開き、本綴じ、艶消しフィルムコート紙、A5判予価2000円</FONT><BR> <iframe width="1324" height="745" src="https://www.youtube.com/embed/4JgOHR8Hm4M" title="Illustrator Mr.Dai Fukuoka,Professional Illustrator Mr.Dai Fukukuka,Laf03, MrDaiC,専業画家福岡大先生,プロ画家福岡大" frameborder="0" allow="accelerometer; autoplay; clipboard-write; encrypted-media; gyroscope; picture-in-picture; web-share" referrerpolicy="strict-origin-when-cross-origin" allowfullscreen></iframe> <BR> <BR> <iframe width="1324" height="745" src="https://www.youtube.com/embed/__ES_Ud2JK4" title="Illustrator Mr.Dai Fukuoka,Professional Illustrator Mr.Dai Fukukuka,Laf02, MrDaiB,専業画家福岡大先生,プロ画家福岡大" frameborder="0" allow="accelerometer; autoplay; clipboard-write; encrypted-media; gyroscope; picture-in-picture; web-share" referrerpolicy="strict-origin-when-cross-origin" allowfullscreen></iframe> <BR> <BR> <iframe width="1324" height="745" src="https://www.youtube.com/embed/DIViSRhlnEs" title="Illustrator Mr.Dai Fukuoka,Professional Illustrator Mr.Dai Fukukuka,Laf01, MrDaiA,専業画家福岡大先生,プロ画家福岡大" frameborder="0" allow="accelerometer; autoplay; clipboard-write; encrypted-media; gyroscope; picture-in-picture; web-share" referrerpolicy="strict-origin-when-cross-origin" allowfullscreen></iframe><BR> <FONT size="+3">ラフ<BR> <BR><iframe width="1324" height="745" src="https://www.youtube.com/embed/_mxqCeWjImU" title="SeaBirdStopLaf,海鳥亭GA05,2005-2010,AllRightReserved,Mr.Dai Fukuoka, Illustrator" frameborder="0" allow="accelerometer; autoplay; clipboard-write; encrypted-media; gyroscope; picture-in-picture; web-share" referrerpolicy="strict-origin-when-cross-origin" allowfullscreen></iframe> <BR> 海鳥亭color 見開き、本綴じ、艶消しフィルムコート紙、A5判予価5000円<BR> </FONT><FONT size="+2"><BR> </FONT><iframe width="1324" height="745" src="https://www.youtube.com/embed/w8ngCvB0uZ4" title="SeaBirdDaiFukuoka" frameborder="0" allow="accelerometer; autoplay; clipboard-write; encrypted-media; gyroscope; picture-in-picture; web-share" referrerpolicy="strict-origin-when-cross-origin" allowfullscreen></iframe><BR> <BR> <FONT size="+3">Black Rabbit　CG galleries<BR> 光ディスクメディア（CD-R、DVD-R、BluRayData、MO等で販売のみ）予価一枚７５０円、レターパックライト段ボール、送料込み。子供可。</FONT><FONT size="+2"><BR> </FONT><BR> <BR><iframe width="1324" height="745" src="https://www.youtube.com/embed/WWYr_QvbeFI" title="blackRabbitCG , Color Illust , Computer Graphics, 同人誌 , 出版" frameborder="0" allow="accelerometer; autoplay; clipboard-write; encrypted-media; gyroscope; picture-in-picture; web-share" referrerpolicy="strict-origin-when-cross-origin" allowfullscreen></iframe> <BR> <BR> <FONT size="+3">水彩画メディアで、BlackRabbitCG gallerries、３D等と一緒に光メディアに記録して販売予定。印刷予定なし。予価７５０円送料、税、レターパックライト込み。割安。</FONT><BR><iframe width="1324" height="745" src="https://www.youtube.com/embed/4GBUFtLiJAI" title="wateroncanvas,Slaideshow,Proffesional Illustrator,Mr.DaiFuk uoka" frameborder="0" allow="accelerometer; autoplay; clipboard-write; encrypted-media; gyroscope; picture-in-picture; web-share" referrerpolicy="strict-origin-when-cross-origin" allowfullscreen></iframe><BR> </P> <P><BR> <FONT size="+3">３dimension graphicsのpolygonarchitecture design作成。水彩画と、BlackRabbitCGgalleriesと、一緒に光メディアに記録して販売予定。予価７５０円。</FONT></P> <P><BR><iframe width="1324" height="745" src="https://www.youtube.com/embed/dcPWCEAb1RA" title="3dcgDaiFukuoka,3dimensioncomputergraphicgallery,Mr.DaiFukuoka,福岡大,Professonal illustrator,Shade 8" frameborder="0" allow="accelerometer; autoplay; clipboard-write; encrypted-media; gyroscope; picture-in-picture; web-share" referrerpolicy="strict-origin-when-cross-origin" allowfullscreen></iframe><BR> <BR> <FONT size="+3">カラーチャート。色を絵画やdesignを行うときに使うパレットのサンプルです。保育園児、小学校、中学校～専門学校生、通信制専門学校生対象。未成年の方は、大人の方に読んでもらって教えてもらってください。３Dと、水彩画と、BlackRabbitCGgalleries等と、一緒に光ディスクに記録してDVD-R等で製造。予価７５０円。税、送料、レターパックライト段ボール料金込み。返品は、着払いでお願いします。公正取引法適用製品。もし内容を見て価格に異議がある場合、また、思ったものと異なったものの場合（できればホームページで十分に確認して、安易に注文しないようにしていただきたく思います）、データー形式、機種が対応しないなど返品可能です。</FONT><BR> <BR><iframe width="1324" height="745" src="https://www.youtube.com/embed/bPtokfBgqQ0" title="colorDaiFukuoka,collar chart,collar skim,collar,gallery,画廊,色彩,慣用色,色見本,福岡大,Graphic Design" frameborder="0" allow="accelerometer; autoplay; clipboard-write; encrypted-media; gyroscope; picture-in-picture; web-share" referrerpolicy="strict-origin-when-cross-origin" allowfullscreen></iframe> <BR> <BR></FONT></P> </BODY> </HTML>