100 REM -------------------- 110 REM Programing by Dai Fukuoka Estate Stock Market 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 IF POINT(639,399)=POINT(639,479) THEN SHOWMODE=1 170 LOCATE 0,0:PRINT "Estate Stock Market,User Must Reply Item in Method Case." 180 LOCATE 0,1:PRINT "不動産証券に計算式の場合、使用者は、項目を返答しなければなりません" 190 LOCATE 0,2:PRINT "User Must Total Estate Account Reply Exsiste Now" 200 LOCATE 0,3:PRINT "使用者は、不動産経理の今の合算を答えなければなりません" 210 LOCATE 0,4:PRINT "User Need Key Board Typing with on Reply Ask it." 220 LOCATE 0,5:PRINT "返事を尋ねるそれの使用者は、キーボード入力を必要とします" 230 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." 240 LOCATE 0,8:PRINT "使用者の計画は2種類あり、30指数6千万円と、50指数1億円あります、これを選択します" 250 LOCATE 0,10:PRINT "All Alloment is Exchange Estate Fix Tax After Some Tax by Issue StockMarket." 260 LOCATE 0,11:PRINT"全部の配当は、固定不動産税のあと、同じ税によって証券発行をします" 270 LOCATE 0,12:PRINT "User Account is Decision Mounth Sale in 1 Year Total Tax Credit Debt." 280 LOCATE 0,13:PRINT "使用者の経理の結論は、月の売り上げを1年の合算税として、売掛します" 290 LOCATE 0,14:PRINT "This Stock Market is Target Estate Insurance Tax With Control." 300 LOCATE 0,15:PRINT "この証券は、不動産保険税を対象としています、また一緒に調整します" 310 LOCATE 0,16:PRINT "This Contents have 30 Exparent Category is First Park,Farm,Security, Secound FirePlace Last City Office Use Insurance." 320 LOCATE 0,18:INPUT "Next Clause Pages:",PAGE$:CLS 330 LOCATE 0,0:PRINT "この内容は、30指数の種類は、公園、農園、証券のものと、次に防火区域権、最後に、市役所が使う保険があります" 340 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." 350 LOCATE 0,4:PRINT "この内容は50指数の種類は、初めに煙草税、次に酒税、次に、弁護税、次に裁判税、最後に安全小包税" 360 LOCATE 0,6:PRINT "This StockMarket Account Sale is 100PerCapital Body,Addit 100PerCapital is Contract Accessment" 370 LOCATE 0,11:PRINT "20割の経理収入は20割中2割、所得税2割、固定資産税1割、雇用3割、雇用枠最大人数指数" 380 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." 390 LOCATE 0,11:PRINT "20割の経理は収入は20割中2割、所得税2割、固定資産税1割、雇用3割、雇用枠最大指数人数" 400 LOCATE 0,13:PRINT "煙草税は、精機、半導体に対応する、高い資材コスト、酒税は、総務と、販売士だけの一般市場、安全小包税は、主に、運輸業に充てられる" 410 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." 420 LOCATE 0,17:PRINT "このプログラムは、期間を月で開始し、その間、同じペースで増え、売上猶予を付け、不動産保険税証明書のかかる金額を、30と、50指数とします" 430 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" 440 LOCATE 0,21:INPUT "Next Clause Pages:",PAGE$:CLS 450 *START 460 LOCATE 0,0:INPUT "12ヶ月間始める月を答えてください/Between 12 Mounth Reply Begin Mounth :",CSV(PAGE,1) 470 LOCATE 0,1:INPUT "売掛をする年数を答てください/Reply Credit Debit Close Yearegin Mounth :",CSV(PAGE,2) 480 LOCATE 0,2:INPUT "日本円と比較する通貨の単価を答えてください/Reply Amount Ratio Exchange Compare Japan Yen to It:",CSV(PAGE,3) 490 LOCATE 0,4:INPUT "地方圏の最大個数を答えてください/Reply to Region Place andEstate Insurance Tax StockMarket Target Count It:",CSV(PAGE,4) 500 LOCATE 0,6:INPUT "借地権区域の最大個数を答えてください/Reply to High Density City Place andEstate Insurance Tax StockMarket Target Count It:",CSV(PAGE,5) 510 LOCATE 0,8:INPUT "剰余される税を残すか、期間を途中で停止するか0:途中停止と1:剰余加算で答えてください/Reply (0:Stop Terms) or (1:Exsist Surplus Addit Amount):",CSV(PAGE,6) 520 LOCATE 0,10:INPUT "土地を不当に売却すると、禁錮3か月以上に問われる事があります、売却土地代金で税金に投資することは合法ですが、税は都市間を移動できません/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) 530 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) 540 LOCATE 0,16:INPUT "登録される市区町村を答えてください/Reply Regist Section Name:",CSV$(PAGE,9) 550 LOCATE 0,17:INPUT "オペレータの名前を答えてください/Reply Naming Operator:",CSV$(PAGE,9) 560 LOCATE 0,18:INPUT "生年月日の情報を答えてください/Reply Birth infomation Year-Mounth-Day:",CSV$(PAGE,10) 570 LOCATE 0,19:INPUT "Next Clause Pages:",PAGE$:CLS 580 CSV$(PAGE,11)=DATE$+TIME$ 590 *PROGRESS1 600 *STARTYEAR 610 IF CSV(PAGE,1)=>1 AND CSV(PAGE,1)=<12 THEN ELSE *START 620 IF CSV(PAGE,3)=<0 OR CSV(PAGE,8)=<0 OR CSV(PAGE,2)=<0 THEN *START 630 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 640 STARTMOUNTH=CSV(PAGE,8)*(13-CSV(PAGE,1))/10/CSV(PAGE,3) 650 PRINT "FirstYearAccount with Ratio:";CSV(PAGE,8)/10*1.2# 660 FOR I=CSV(PAGE,1) TO 12:ADD1=(CSV(PAGE,8)/20/CSV(PAGE,3)):BEGINTOTAL=CSV(PAGE,8)/CSV(PAGE,3):PRINT I;"Mounth Income";ADD1;"total";BEGINTOTAL+(ADD1*I-ADD1*(13-CSV(PAGE,1))):NEXT:BEGINTOTAL=BEGINTOTAL+(ADD1*12-ADD1*(13-CSV(PAGE,1))) 670 NOWTOTAL=ADD1+CSV(PAGE,8):NOWUNIT=ADD1*CSV(PAGE,3)+CSV(PAGE,8) 680 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 690 *RESTARTYEAR 700 YEARS=YEARS+1:IF YEARSCOSTREGION THEN COUNTREGION=INT(BEGINTOTAL/COSTREGION) 750 IF BEGINTOTAL>COSTREGION*MAXREGION THEN COUNTREGION=MAXREGION 760 IF BEGINTOTAL>(COSTREGION*MAXREGION+COSTHIGHCITY*MAXHIGHCITY) THEN COUNTCITY=MAXHIGHCITY 770 IF BEGINTOTAL>(MAXREGION*COSTREGION) THEN COUNTCITY=INT((BEGINTOTAL-(COSTREGION*MAXREGION))/COSTHIGHCITY) 780 IF COUNTCITY>MAXCITY THEN COUNTCITY=MAXCITY 790 IF ((MAXREGION*COSTREGION)+(COSTHIGHCITY*MAXCITY))>BEGINTOTAL THEN SURPLUS=BEGINTOTAL-(MAXREGION*COSTREGION)+(MAXCITY*COSTHIGHCITY) 800 IF CSV(PAGE,2)=<1 THEN ERESULT=0 810 IF NOT ERESULT=0 THEN EXPARENT1=MAXREGIONEXPARENT+MAXCITYEXPARENT:PRINT "Exparent";EXPARENT1 820 INPUT "Close Plan Enter Continue:",LISTEN$:IF CSV(PAGE,2)=<1 THEN CLS 3:GOTO *START 830 IF BEGINTOTAL>=20000000 THEN OVERENTERPRISE=1 ELSE OVERENTERPRISE=0 840 PRINT "ESTATE REGION:";COUNTREGION;"/HIGH CITY:";COUNTCITY 850 FOR I=1 TO 12:ADD1=((COSTREGION/20*COUNTREGION)+(COSTHIGHCITY/20*COUNTCITY)):PRINT I;"Mounth Income";ADD1;"total";BEGINTOTAL+(ADD1*I):NEXT 860 PRINT "NextYearTotal Addition 12 Month:";BEGINTOTAL+(ADD1*12);"Income:";ADD1;"Between Term:";YEARS+1 870 BEGINTOTAL=BEGINTOTAL+(ADD1*12) 880 IF YEARS<=CSV(PAGE,2) THEN *RESTARTYEAR 890 *SKIP1