********************
Estate Stock Market
100 REM --------------------
110 REM Programing by Dai Fukuoka Estate Stock Market
120 REM (C)2017.03.24-04.12 Rev.2017-04-24
130 REM Development Soft by Dennougumi(C)電脳組
140 REM --------------------
150 CONSOLE 0,25,0,1:SCREEN 3,0,0,1:COLOR 0,7,0,0,1:WIDTH 80,25:CLS 3:PAGE=1
160 DIM CSV$(999,12):DIM CSV(999,12):DIM METHOD$(999,12):DIM METHOD(999,12)
170 DIM ACCOUNTIT(12,99):DIM CLOSEYEAR(99):LET PAGE=1:YEARS=1
180 IF POINT(639,399)=POINT(639,479) THEN SHOWMODE=1
190 LOCATE 0,0:PRINT "Estate Stock Market,User Must Reply Item in Method Case."
200 LOCATE 0,1:PRINT "不動産証券に計算式の場合、使用者は、項目を返答しなければなりません"
210 LOCATE 0,2:PRINT "User Must Total Estate Account Reply Exist Now"
220 LOCATE 0,3:PRINT "使用者は、不動産経理の今の合算を答えなければなりません"
230 LOCATE 0,4:PRINT "User Need Key Board Typing with on Reply Ask it."
240 LOCATE 0,5:PRINT "返事を尋ねるそれの使用者は、キーボード入力を必要とします"
250 LOCATE 0,6:PRINT "User Plan is 2 Type Category on 30 EXPONENT Type (\6,000,000) or 50 EXPONENT Type (\100,000,000) Choicen It."
260 LOCATE 0,8:PRINT "使用者の計画は２種類あり、３０指数６千万円と、５０指数１億円あります、これを選択します"
270 LOCATE 0,10:PRINT "All Alloment is Exchange Estate Fix Tax After Some Tax by Issue StockMarket."
280 LOCATE 0,11:PRINT"全部の配当は、固定不動産税のあと、同じ税によって証券発行をします"
290 LOCATE 0,12:PRINT "User Account is Decision Mounth Sale in 1 Year Total Tax Credit Debt."
300 LOCATE 0,13:PRINT "使用者の経理の結論は、月の売り上げを１年の合算税として、売掛します"
310 LOCATE 0,14:PRINT "This Stock Market is Target Estate Insurance Tax With Control."
320 LOCATE 0,15:PRINT "この証券は、不動産保険税を対象としています、また一緒に調整します"
330 LOCATE 0,16:PRINT "This Contents have 30 EXPONENT Category is First Park,Farm,Security, Secound FirePlace Last City Office Use Insurance."
340 LOCATE 0,18:INPUT "Next Clause Pages:",PAGE$:CLS
350 LOCATE 0,0:PRINT "この内容は、３０指数の種類は、公園、農園、証券のものと、次に防火区域権、最後に、市役所が使う保険があります"
360 LOCATE 0,2:PRINT "This Contents have 50 EXPONENT Category is First Cigarette,Secound Alcoholic Tax Third Low-Justice Tax Force Order-Gudge Tax Last Safe Poket Cargo Tax."
370 LOCATE 0,4:PRINT "この内容は５０指数の種類は、初めに煙草税、次に酒税、次に、弁護税、次に裁判税、最後に安全小包税"
380 LOCATE 0,6:PRINT "This StockMarket Account Sale is 100PerCapital Body,Addit 100PerCapital is Contract Accessment"
390 LOCATE 0,11:PRINT "２０割の経理収入は２０割中２割、所得税２割、固定資産税１割、雇用３割、雇用枠最大人数指数"
400 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 EXPONENT."
410 LOCATE 0,11:PRINT "２０割の経理は収入は２０割中２割、所得税２割、固定資産税１割、雇用３割、雇用枠最大指数人数"
420 LOCATE 0,13:PRINT "煙草税は、精機、半導体に対応する、高い資材コスト、酒税は、総務と、販売士だけの一般市場、安全小包税は、主に、運輸業に充てられる"
430 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."
440 LOCATE 0,17:PRINT "このプログラムは、期間を月で開始し、その間、同じペースで増え、売上猶予を付け、不動産保険税証明書のかかる金額を、３０と、５０指数とします"
450 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 EXPONENT 30,50"
460 LOCATE 0,21:INPUT "Next Clause Pages:",PAGE$:CLS
470 *START
480 LOCATE 0,0:INPUT "１２ヶ月間始める月を答えてください/Between 12 Mounth Reply Begin Mounth :",CSV(PAGE,1)
490 IF CSV(PAGE,1)=0 THEN *START
500 LOCATE 0,1:INPUT "売掛をする年数を答てください/Reply Credit Debit Close Year Mounth :",CSV(PAGE,2)
510 IF CSV(PAGE,2)=0 THEN *START
520 LOCATE 0,2:INPUT "日本円と比較する通貨の単価を答えてください/Reply Amount Ratio Exchange Compare Japan Yen to It:",CSV(PAGE,3)
530 IF CSV(PAGE,3)=0 THEN *START
540 LOCATE 0,4:INPUT "地方圏の最大個数を答えてください/Reply to Region Place and Estate Insurance Tax StockMarket Target Count It:",CSV(PAGE,4)
550 LOCATE 0,6:INPUT "借地権区域の最大個数を答えてください/Reply to High Density City Place and Estate Insurance Tax StockMarket Target Count It:",CSV(PAGE,5)
560 LOCATE 0,8:INPUT "剰余される税を残すか、期間を途中で停止するか０：途中停止と１：剰余加算で答えてください/Reply (0:Stop Terms) or (1:Exist Surplus Addit Amount):",CSV(PAGE,6)
570 LOCATE 0,10:INPUT "土地を不当に売却すると、禁錮３か月以上に問われる事があります、売却土地代金で税金に投資することは合法ですが、税は都市間を移動できません/Place No Buy,But Arrest 3 Mounth,Place Buy Cost Exchange Tax Not Illegal,Tax No Move City(0:Yes/1:No):",CSV(PAGE,7)
580 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)
590 IF CSV(PAGE,8)=<0 THEN *START
600 LOCATE 0,16:INPUT "登録される市区町村を答えてください/Reply Regist Section Name:",CSV$(PAGE,9)
610 LOCATE 0,17:INPUT "オペレータの名前を答えてください/Reply Naming Operator:",CSV$(PAGE,10)
620 LOCATE 0,18:INPUT "生年月日の情報を答えてください/Reply Birth infomation Year-Mounth-Day:",CSV$(PAGE,11)
630 LOCATE 0,19:INPUT "Next Clause Pages:",PAGE$:CLS
640 SP$=" ":CSV$(PAGE,12)=DATE$+TIME$
650 *PROGRESS1
660 *STARTYEAR
670 MAXREGION=CSV(PAGE,4):MAXCITY=CSV(PAGE,5):COSTREGION=60000000:COSTHIGHCITY=100000000:BOOLIANT=0:FIRSTYEAR=STARTMOUNTH:ANUITY=59999999/CSV(PAGE,3)
680 IF CSV(PAGE,1)=>1 AND CSV(PAGE,1)=<12 THEN ELSE *START
690 IF CSV(PAGE,3)=<0 OR CSV(PAGE,8)=<0 OR CSV(PAGE,2)=<0 THEN *START
700 IF (CSV(PAGE,1)*(CSV(PAGE,8)/10)/CSV(PAGE,3))<(CSV(PAGE,4)*COSTREGION/CSV(PAGE,3))+(CSV(PAGE,5)*COSTHIGHCITY/CSV(PAGE,3)) THEN IRESULT="1" ELSE IRESULT="2
710" STARTMOUNTH="CSV(PAGE,8)*(13-CSV(PAGE,1))/10/CSV(PAGE,3)
720" PRINT "FirstYearAccount with Ratio:";CSV(PAGE,8)/10
730 FOR I="CSV(PAGE,1)" TO 12:ADD1=(CSV(PAGE,8)/10/CSV(PAGE,3)):PRINT I;"Mounth Income";ADD1;"total";CSV(PAGE,8)+(ADD1*(I+1-CSV(PAGE,1)));"Result";CSV(PAGE,8)+(ADD1*(I+1-CSV(PAGE,1)))-(COSTHIGHCITY*COUNTCITY)-(COSTREGION*COUNTREGION):NEXT
740 BEGINTOTAL="CSV(PAGE,8)+(ADD1*(13-CSV(PAGE,1)))
750" IF SUBTOTAL="<999999" THEN ERESULT="0:PRINT" "Out of Account" ELSE IF SUBTOTAL="<20000000" THEN ERESULT="1:PRINT" "Charge Enterprise Annuity and ";BEGINTOTAL
760 PRINT "Accessment Estate Insurance Place Tax is ";ADD1;"on Year.";BEGINTOTAL:PRINT " Between Term: 1"
770 COUNTIT="0:FOR" I="CSV(PAGE,1)" TO 12:COUNTIT=COUNTIT+1:ACCOUNTIT(I,YEARS)=CSV(PAGE,8)+(CSV(PAGE,8)/10*COUNTIT):NEXT
780 CLOSEYEAR(YEARS)=BEGINTOTAL
790 *RESTARTYEAR
800 IF YEARS<CSV(PAGE,2) THEN YEARS="YEARS+1" ELSE *SKIP1
810 MAXREGIONEXPONENT="(CSV(PAGE,4)*30):MAXCITYEXPONENT=(CSV(PAGE,5)*50)
820" ENTERPRISECOST="20000000:EXPONENTCOST=1D-006:REGIONEXPONENT=COSTREGION*EXPONENTCOST:HIGHCITYEXPONENT=COSTHIGHCITY*EXPONENTCOST
830" IF BEGINTOTAL>COSTREGION THEN COUNTREGION=INT(BEGINTOTAL/COSTREGION)
840 IF BEGINTOTAL>MAXREGION*COSTREGION THEN COUNTREGION=MAXREGION
850 IF BEGINTOTAL>(MAXREGION*COSTREGION)+(MAXHIGHCITY*COSTHIGHCITY) THEN COUNTCITY=MAXHIGHCITY:COUNTREGION=MAXREGION
860 IF BEGINTOTAL>(MAXREGION*COSTREGION) THEN COUNTCITY=INT(BEGINTOTAL-(COSTREGION*MAXREGION)/COSTHIGHCITY)
870 IF COUNTCITY>MAXCITY THEN COUNTCITY=MAXCITY
880 IF ((MAXREGION*COSTREGION)+(COSTHIGHCITY*MAXCITY))<BEGINTOTAL THEN SURPLUS="BEGINTOTAL-((MAXREGION*COSTREGION)+(MAXCITY*COSTHIGHCITY))
890" PRINT "EXPONENT";(COUNTREGION*30)+(COUNTCITY*50)
900 INPUT "Close Plan Enter Continue:",LISTEN$:ADDMOUNTH=CSV(PAGE,1)
910 IF BEGINTOTAL>=20000000 THEN OVERENTERPRISE=1 ELSE OVERENTERPRISE=0
920 PRINT "ESTATE REGION:";COUNTREGION;"/HIGH CITY:";COUNTCITY
930 IF BEGINTOTAL<COSTREGION THEN ENTERPRISE="BEGINTOTAL/10" ELSE ENTERPRISE="0
940" FOR I="1" TO 12:ADD1=(COUNTREGION*COSTREGION/20)+(COUNTCITY*COSTHIGHCITY/20)+ENTERPRISE:ACCOUNTIT(I,YEARS)=BEGINTOTAL+(ADD1*I)
950 PRINT I;"Mounth Income";ADD1;"total";BEGINTOTAL+(ADD1*I);"Result";BEGINTOTAL+(ADD1*(I+1-ADDMOUNTH))-(COSTHIGHCITY*COUNTCITY)-(COSTREGION*COUNTREGION):NEXT
960 PRINT "NextYearTotal Addition 12 Month:";BEGINTOTAL+(ADD1*12);"Income:";ADD1;"Result";BEGINTOTAL+(ADD1*(I-ADDMOUNTH))-(COSTHIGHCITY*COUNTCITY)-(COSTREGION*COUNTREGION):PRINT "Between Term:";YEARS
970 BEGINTOTAL="BEGINTOTAL+(ADD1*12):CLOSEYEAR(YEARS)=BEGINTOTAL
980" IF YEARS<=CSV(PAGE,2) THEN *RESTARTYEAR ELSE *LOADOPENFILE
990 *SKIP1
1000 *LOADOPENFILE
1010 OFN$="ESM"+MID$(DATE$,1,2)+MID$(DATE$,4,2)+MID$(DATE$,7,2)
1020 OFN2$="ESMTAG"+MID$(DATE$,1,2)+MID$(DATE$,4,2)+MID$(DATE$,7,2)
1030 OPEN OFN$ AS 1:IDENTIFY=EOF(1):CLOSE
1040 IF IDENTIFY="-1" THEN *NEWOPENFILE ELSE *SKIPOUT
1050 *NEWOPENFILE
1060 OPEN OFN$ FOR OUTPUT AS #1:T=1:FOR I="1" TO 12:WRITE #1,ACCOUNTIT(I,T):NEXT I:WRITE #1,CLOSEYEAR(T):IF YEARS=>2 THEN ELSE *LOADOPENFILE
1070 FOR T=2 TO YEARS:FOR I=1 TO 12:WRITE #1,ACCOUNTIT(I,T):NEXT I:WRITE #1,CLOSEYEAR(T):NEXT T:CLOSE #1
1080 OPEN OFN2$ AS 2:IDENTIFY=EOF(2):CLOSE #2
1090 IF IDENTIFY=-1 THEN *NEWOPENTAG ELSE *LOADFILENAME
1100 *NEWOPENTAG OPEN OFN2$ FOR OUTPUT AS #2:FOR I=1 TO 8:WRITE #2,CSV(PAGE,I):NEXT:FOR I=9 TO 12:WRITE #2,CSV$(PAGE,I):NEXT:CLOSE #2
1110 *LOADFILENAME OPEN OFN$ AS 1:LCHECK=EOF(1):CLOSE 1
1120 IF LCHECK=-1 THEN *FORWARD ELSE *SKIPOUT
1130 *FORWARD OPEN OFN2$ FOR INPUT AS #2:FOR I=1 TO 8:INPUT #2,CSV(PAGE,I):NEXT I:FOR I=9 TO 12:INPUT CSV$(PAGE,I):CLOSE #2
1140 OPEN OFN$ FOR INPUT AS #1:T=1:FOR I=CSV(PAGE,1) TO 12:INPUT #1,ACCOUNTIT(I,T):NEXT I:INPUT #1,CLOSEYEAR(T)
1150 FOR T=2 TO YEARS:FOR I=1 TO 12:INPUT #1,ACCOUNTIT(I,T):NEXT I:INPUT #1,CLOSEYEAR(T):NEXT T:CLOSE #1
1160 *SKIPOUT
パラメーターをラベル化することにより、よりオブジェクト指向に近い形でプログラミングをベーシックに実現します。完全な形でクラスは実現できませんが、全ての実数は、変数に置き換えられ、番号、、数値を使わないで、関数の各項目を入力する実践の試供は別の項目、「Dai's C Laboratory」に解説してあります。関数定義で、複数のパラメーターを、数値以外で指定することにより、ビジュアル化を図ります。これに少なくとも近い形の思想をベーシックにも実現できます。データベースの作成法等、Ｃとの差は有りますが、ＣＳＶ規格で記録されています。特に、変数を関数化することに役に立ち、グラフィックスのインターフェイスでなくても、キャラクターベースで有っても、数値は、置き換えられます。また、変数ラベルを比較することで、入力状況を調査管理しています。概約は、一年間は、株でないかたちで剰余を運営し、２年目から倍の契約料の株に置き換えられるので、一年目の１０ヶ月と、二年目の１０ヶ月は、同額の収入となります。配当金の１割で資産を投資するので、追加土地証券は、５分の資産が加算されます。よって、２０分の一づつのマーケットプレースを追加する約款のソフトとなっております。
Directional Object with Visual Parameter and Actural Cover Variable This Labeling to Basic Programing Compleate Exsitance,No Perfect Calss After This Character Base Interface Extanal Control No Acturalism.Class ExSample is Difference This Basic Standard Discuttion " Dai's C Laboratory ".This Original Make Function is Variable Base Method Value.This Image Directional by Basic Standard's,Differnce Sequence Archive Input Output to Visual C by Basic CSV Data Base Programing,This Make Function Variable Value is Standard JavaScript Function Like This Scripting,This Archive Basic is No Graohic Interface,No Open Actural with Virtual Function,Relational Make Function and Result to Operating Find and Control Input Output.This Agree First Year is Double Incomming 10/1 After Year by Pass Market Place Security Trading by Incomming 20/1 This Standard SoftWare.
行番号１００から１４０は、プログラムの創作者氏名と、日付と、開発環境提供者の署名です。
Command Line 100 to 140,Signature Author By Dai Fukuoka And Date With Development Soft Ware House of Dennougumi.
行番号１５０は、必要な初期設定です。di
Command Line 150,System is Needed Start Settings.
行番号１６０、１７０は、配列変数（二次元配列変数）の宣言です。
Command Line 160 and 170,System is Declaration 2 Demention Two Dimensional Variable Value.
行番号１８０は、画面端の色彩の採取です。スクリーン画面は、白色なので、画面をはみ出しているときは、式の結果が「０：黒」、画面内の場合は、結果が「＆ＨＦＦＦ：白」と成ります。採取位置は、639,399 or 639,479です。
Command Line 180,This View Screen Deep in Capture Color,If case No White is Value 0 Then Else 4096,Capture Point Location is Trams Horizontal of 639 with Vertical of 399(Hi-zore Display) or 479(Standard Display Settings) By Location.
行番号１９０から３４０まで、画面スクリーンに一杯に日、英表記の規定文書画面を表示します。また、３４０で、空変数”Ｐａｇｅ＄”に、エンターの入力を受付、入力内容を検査しません。
Command Line 190 to 340,Full Fill up at View Screen,Desplay Language is Japanese and English Standard,System is Free Pass Enter Key,No Check out it on Variable Value of Pages$ by Pass.
行番号３５０から４６０は、１９０から３４０までのものの次項です。同じように”Ｐａｇｅ＄”でエンターで同意して進みます。
Command Line 350 to 460 is 190 to 340 to Next Clause,Same Accept Enter Page$ on Start.
行番号４７０は、ラベル”Ｓｔａｒｔ”によってプログラムの開始が宣言されます。
Command Line 470,By Start is Declaration Program Starter.
行番号４８０は配列ＣＳＶ（”項”,”一条”）に数値の形式で入力した数値をＣＳＶ配列に格納します。ここでは、１２ヶ月内、開始月を聞いています。
Command Line 480,Arrangement Variable Value by CSV(Clause,Article) DataBase Type Number on Input Container After On Ward Start Mounth at Listen.
行番号４９０は、配列ＣＳＶの前行にて入力された数値の結果が「０」と等しく空の場合、その時スタートにスキップして、入力を始めからやり直します。一回も入力ミスできません。
Command Line 490,Then Front Arragement Value CSV is Result Equivalent If Case Zero,Then Skip and Back Start,Re Try and No Mistake No Get Onece.
行番号５００から５７０までは、内容をチェックしないで日本語と英語で入力を進められます。
Command Line 500 to 570,No Check Out with Language Japanese and English to Enter.
売り掛けする年数、円単価に対するレート、地方ストック、借地ストックの上限、剰余金の額、無資格土地売買の禁止などを質問されます。其れによりＣＳＶ”（Ｐａｇｅ＄，Ａｒｔｉｃｌｅ－６）”迄を格納します。
Allotment Dividend on Investment Program,Year,Yen Rate,Region Stock,Leased Land Stock with Highest,Surplus Account,Stop No Lisence Land Buyer,About Input Container Arragement Variable CSV Standard on CSV(Page$,Article) Save in Keeps.
行番号５７０からは、２尺択一で「０」と「１」で答えます。
Command Line 570 to For,User is Choice One by Two,Then 0:False 1:True Selected.
行番号６３０にて、空のエンターキーを、”Ｐａｇｅ＄”に得ます。
Command Line by 630,This is Push Enter Key Get Empty of Page$.
システムは、回答項目が１１条迄でも、１２条項に日付と時間を自働で挿入します。”ＳＰ＄”に空白の文字を格納します。
System is Reply to Full with Eleven Then Case Twelve Automation Insert Time Date Now.SP$ Value is Character Spacing Input Container Fill up.
行番号６５０、進行過程１がラベルで”Ｐｒｏｇｒｅｓｓ１”が宣言されます。
Command Line 650,Progress Step by One Label in Declare Progress1.
行番号６６０は、ここから年を始めます。よってラベル”ＳＴＡＲＴＹＥＡＲ”を宣言します。
Command Line 660,This Point is Start Year,About by Declare Label STARTYEAR.
行番号６７０からは、実数のラベリングを行い、ウインドウプロシージャ（ウインドウ構造体変数）の設定例をもとに、ラベルばかりで、比較をしたり、変数のラベルを、クラス関数の代わりに使ったりする目的で、実数を覆い隠した形で、Ｂａｓｉｃにオブジェクト対策をします。実際に、本物のクラスや、定義関数と、仮想的にまったく同じには出来ませんが、最先端の技術を採用することにより、それに極限まで近づける目的があります。是により、掛けたり割ったりすることを、方程式のＸ，Ｙ方程式のように比較の調査と、加算減算、割り算掛け算をします。ユーザー側は、入力された情報が覆い隠されるので、操作上は、シームレス（無階層）の平たい設定入力が出来ます。
Command Line 670 For,Actual Labeling Executed,Model Source Window Proceed Use Model Settings,Relation Static Label Method,Exchange Variable Label as Virtual Function,This is Highest Step Out Useing Technology Change Target,Private Actual Typing Objective Counter-Measurement by 98 Basic.Model Actual is Pure Class or Defintion Function No Same Virtual,Get Plan Technology is Approach Visual C to Purpose.This Case is Multiply or Divide or Addtion or Subtract Execute Method,Model Math X,Y Near Analyze.Side User is Accept Type Infomation on Hidden Private by User Can Oparation on Flat Seamles Selected Inputing.
行番号６７０は、地方証書上限と、借地証書上限、またその２つの価格が設定されます。
Command Line 670 is Peak Region Stock and Peak Capital Stock,And Too Setting Price.
行番号６８０と、６９０は、ＣＳＶ（項、条項）を月日と、絶対値を比較します。「０」以上であるか、「０」以下であるか、また、１から１２の範囲内であるかを調べて、異なる場合に、ラベル”Ｓｔａｒｔ”に逆戻りします。この点で、入力は、初期の地点に戻りやり直しです。前は、そのまま進めましたが、不正な値の格納を検査し、合格は00通過できます。
行番号７００は、地方上限以下の判定の場合、ＣＳＶ（単価）で割り、ＣＳＶ（最初の予算額の１割）最初の１年目のＣＳＶ（開始月）の回数で掛け、結果を比較します。２月から始まれば、等倍の予算高を１０割となります。比較は、今の結果に対して、借地上限に、借地費用を掛け、利率で割ります。それに加え、地方上限に借地費用を掛け、利率で割った場合、その時、真であればｉＲｅｓｕｌｔは「１」と等しい、偽であればｉＲｅｓｕｌｔは「２」と等しい。
行番号７００は、インプット（入力と格納）によって、に動的に変動する入力（タイプ）に於いて、ＣＳＶが何時変更されても、数値を求めることが出来るＣＳＶ二次元配列から計算式を使っていくことは、ＣＵＩのビジュアル化に於いて、静的変数（コンストラクションバリアブル）のラベリングを行うことが重要であり、あるソースコードの位置から採取される固定式の変数データ（静的変数）の定義がオブジェクト指向に最も重要であり、動的変数を使った、ＣＳＶは、オブジェクト指向化にはあまり重要ではない。また、参照を行わないので、リンクバリアブル（アッパー記号などで扱われる連動リンキング変数）とも異なる。主に、静的にする利点は、最初の入力情報が固定化されて、いつも同じ数値を引き出せる利点が在る。この点をオブジェクト指向の課題と捉えよう。これからオブジェクト指向で求められていく要点は、方程式のように実数を持たない組織系列であり、全ての数値の位、全ての文字列の位を静的変数に変更していくことを求められていく。
行番号７００は、CSV(最初の予算額）÷１０÷CSV(レーティング）それのCSV(結果）＜（ CSV(地方券上限個数）×地方券価格÷為替レート＋（借地券最大個数×借地券価格÷１０÷CSV（為替レート）） ）と成れば、地方、借地、レート＝＜CSV（結果）であれば、比較は、真となり、iResult=1とし、CSV（結果）＝＜地方、借地、レートであれば結果は偽となり終了する、iResult=2とする。
行番号７１０は、この点で開始月を定義します。静的変数（STARTMOUNTH）に始めの値を格納します。CSV(最初の予算額）×１３月－CSV(開始月）＞＝１、CSV（開始月）＜＝１２ならば、CSV（最初の予算額）×（１３月－CSV(開始月）÷１０（一月分とする）÷CSV(レーティング）の結果をSTARTMOUNTHの静的変数とする。
行番号７２０は、CSV(最初の予算額）÷１０（初期入力した資産の一月を求めるため、１割とする）をCSV（結果）を初年度経理と利率として、画面に表示します。
行番号７３０は、For（ステートメント）により、積算をします。動的変数「i」にCSV(初年月）から「i」年末のファーストイアーを、結果「１」静的変数ADD１＝＝（CSV(初期予算）÷１０÷CSV（利率））とし、結果「２」は、CSV(初期予算）＋（結果「１」×（動的変数「i」＋１－CSV(開始月））とする。NEXTをもってI＋＋（Ｉ＝Ｉ＋１）を次の条件Ｉ＝＜１２と、Ｉ＝＞１を満たすものとする。
番号７５０は、７４０の「ＢｅｇｉｎＴｏｔａｌ」再定義します。ＢｅｇｉｎＴｏｔａｌ＝＝ＣＳＶ（初期予算）＋（変数ＡＤＤ１｛７３０行を参照｝×（１３月－ＣＳＶ（開始月））と変更する。此の更新で先の代入を不要済みとする。
行番号７６０は、ＳｕｂＴｏｔａｌ＝＜９９９９９９の比較として此の条件は、満たす場合は、eResult==0とする。その場合、画面に「Out of Account」と表示する。１００万未満を無効とし、ELSEにて分岐し、
ＳubTotal＝＜２０００００００と比較し、真であればeResult==1とし、画面にBeginTotalの結果と、中小企業年金と、BeginTotalは、補充されたという画面に表示します。
行番号７６０は、一月の収入変数ＡＤＤ１と、開始年合算変数ＢＥＧＩＮＴＯＡＬを表示します。
行番号７７０は、汎用カウンタＣＯＵＮＴＩＴが０から始まり、一年目のＣＳＶ（開始月）までをＦｏｒステートメントで積算します。一月あがる毎にＣＯＵＮＴＩＴが繰り上がります。汎用配列変数２ＡＣＯＵＮＴＩＴ（期間，年）＝＝ＣＳＶ（最初の予算額）＋ＣＳＶ（最初の予算額）÷１０×汎用変数ＣＯＵＮＴＩＴと公式となり、一月あがる毎に、最初の予算額の１０分の一が加算される。ＮＥＸＴステートメントで、Ｆｏｒステートメントを閉じます。
行番号７８０は、ここでは、終期の年変数ＣＬＯＳＥＹＥＡＲ（期間年）＝＝最初の合算として始めます。
行番号７９０は、飛び越すラベル＊ＲＥＳＴＡＲＴＹＥＡＲです。
行番号８００は、カウンタＹＥＡＲＳ＜ＣＳＶ（売り掛けする年数）を満たすとき（年のカウンタが、推定期間を超えないとき）、またその時０だったＹＥＡＲＳをＹＥＡＲＳ＋＋＝＝ＹＥＡＲＳ＝０＋ＹＥＡＲＳ＋１となり、ＹＥＡＲＳが１づつ一年で増えます。ＥＬＳＥステートメントにて、指定した推定期間を新規カウンタＹＥＡＲＳが上回る場合は、次のラベル＊ＳＫＩＰ１に移動します。
行番号８１０静的変数 最大の地方指数ＭＡＸＲＥＧＩＯＮＥＸＰＡＲＥＮＴは、ＣＳＶ（地方最大値）を、静的変数 最大の都市指数はＭＡＸＣＩＴＹＥＸＰＡＲＥＮＴ、ＣＳＶ（借地最大値）とし、静的変数に登録します。それによって、いつもＣＳＶ（指定番号）を使わないで、４条項と、５条項を使用できます。また、新しい代入を受け入れないことで、保護化を図ります。
行番号８２０は、中小企業年金費用 ＥｎｔｅｒＰｒｉｓｅＣｏｓｔ＝＝２０００００００とし、６０００００００以上あれば、地方指数を清算します。ＥＮＴＥＲＰＲＩＳＥＣＯＳＴは、２千万と等しい。静的変数 指数費用は、ＥＸＰＡＲＥＮＴＣＯＳＴ÷１００００００とし、１Ｄ－００６とは、１桁から、更に６桁差し引くので即ち百万で１指数 静的変数 ＥＸＰＡＲＥＮＴＣＯＳＴとする。因って指数は、２０となる。
行番号８３０は、地方費用＜初期予算の場合（正しくは、初期予算＞地方費用も同じ）、カウンタ地方指数＝＝小数点切捨て（開始予算÷地方費用）と成る。この点で、開始予算が、地方予算を優越している分の整数値の静的変数 初期予算において、幾つ地方費用を払えるかを求めます。これを、カウンタＣＯＵＮＴＲＥＧＩＯＮに格納します。初期予算から最初から購入できる上限まで差し引いたカウンタの数を求めます。
行番号８４０は、静的変数 開始予算ＢＩＧＩＮＴＯＴＡＬを、上限地方費用×地方費用が初期予算＜（上限値×地方費用）である公式の場合、決済可能額の範囲内であれば、カウンタ ＣＯＵＮＴＲＥＧＩＯＮ＝＝ＭＡＸＲＥＧＩＯＮ、つまり、地方費用のカウンタ指数は、上限と等しい。
行番号８５０は、ＢＥＧＩＮＴＯＴＡＬ＞（ＭＡＸＲＥＧＩＯＮ×ＣＯＳＴＲＥＧＩＯＮ）＋（ＭＡＸＨＩＧＨＣＩＴＹ×ＣＯＳＴＨＩＧＨＣＩＴＹ）の静的変数の関係演算と、比較は、開始費用＞地方指数費用合算＋都市指数費用合算となり、全ての土地株指数が初期予算が上回る場合、その時、カウンタ ＣＯＵＮＴＣＩＴＹ＝＝ＭＡＸＨＩＧＨＣＩＴＹ，ＣＯＵＮＴＲＥＧＩＯＮ＝＝ＭＡＸＲＥＧＩＯＮとなり、差し引いても、余りがあれば、始めに宣言した静的変数 ＭＡＸＲＥＧＩＯＮとＭＡＸＨＩＧＨＣＩＴＹと同等として、超える場合は、最大値を詰めます。
行番号８６０は、初期予算＞（地方指数×費用）を満たしている場合、地方支払いは無いものとし、カウンタ ＣＯＵＮＴＣＩＴＹ＝＝小数点切捨て（初期予算－（上限指数×費用）÷費用都市として此の公式は、ＣＯＵＮＴＣＩＴＹ＝＝（ＣＯＳＴＲＥＧＩＯＮ×ＭＡＸＲＥＧＩＯＮ）÷ＣＯＳＴＨＩＧＨＣＩＴＹの静的変数による求めです。この点で、初期費用が、地方を上回る場合にカウンタＣＯＵＮＴＣＩＴＹに地方費用に追加した形で、都市指数を、上限を下回る形でカウンタにその指数の合算を格納します。
行番号８７０は、今現在のカウンタ 地方指数＞上限都市として、静的変数は、 ＣＯＵＮＴＣＩＴＹ＞ＭＡＸＣＩＴＹ とし、その条件が満たすとき、またその時、カウンタ ＣＯＵＮＴＣＩＴＹ＝＝ＭＡＸＣＩＴＹ、カウンタ格納指数は、都市上限指数に等しいとする。
行番号８８０は、初期合算＞（（上限地方×費用）＋（上限都市×費用））を二回満たす場合、その時、剰余資産＝＝初期費用－（（上限地方×費用）＋（上限都市×費用））として、剰余資産の余りを求める。ＳＵＲＰＬＵＳ＝＝ＢＩＧＩＮＴＯＴＡＬ－（ＭＡＸＲＥＧＩＯＮ×ＣＯＳＴＲＥＧＩＯＮ）＋（ＭＡＸＣＩＴＹ×ＣＯＳＴＨＩＧＨＣＩＴＹ）と静的変数の保護値同士を求める。
行番号８９０は、地方、都市の合算の指数を表示する。地方は、３０倍、都市は５０倍である。カウンタのないものは０とする。
行番号９００は、空文字列 ＬＩＳＴＥＮ＄にキー入力を格納します。いかなる値も問いません。また後段に、ＡＤＤＭＯＵＮＴＨ＝＝ＣＳＶ（Ｐａｇｅ，１）をして静的変数として主に呼び出しを目的とした形で代入します。
行番号９１０は、初期予算が、２０指数以上である場合のフラグ ＯＶＥＲＥＮＴＥＲＰＲＩＳＥ＝＝１とし、２０以下を０とします。
行番号９２０は、地方証書の数と、都市証書の数をカウンタで個別に数字ランクを表示します。都市は、１億のコスト、地方は、６千万のコストで、今現在、採算より得られた、枚数を表示します。
Estate Stock Market
100 REM --------------------
110 REM Programing by Dai Fukuoka Estate Stock Market
120 REM (C)2017.03.24-04.12 Rev.2017-04-24
130 REM Development Soft by Dennougumi(C)電脳組
140 REM --------------------
150 CONSOLE 0,25,0,1:SCREEN 3,0,0,1:COLOR 0,7,0,0,1:WIDTH 80,25:CLS 3:PAGE=1
160 DIM CSV$(999,12):DIM CSV(999,12):DIM METHOD$(999,12):DIM METHOD(999,12)
170 DIM ACCOUNTIT(12,99):DIM CLOSEYEAR(99):LET PAGE=1:YEARS=1
180 IF POINT(639,399)=POINT(639,479) THEN SHOWMODE=1
190 LOCATE 0,0:PRINT "Estate Stock Market,User Must Reply Item in Method Case."
200 LOCATE 0,1:PRINT "不動産証券に計算式の場合、使用者は、項目を返答しなければなりません"
210 LOCATE 0,2:PRINT "User Must Total Estate Account Reply Exist Now"
220 LOCATE 0,3:PRINT "使用者は、不動産経理の今の合算を答えなければなりません"
230 LOCATE 0,4:PRINT "User Need Key Board Typing with on Reply Ask it."
240 LOCATE 0,5:PRINT "返事を尋ねるそれの使用者は、キーボード入力を必要とします"
250 LOCATE 0,6:PRINT "User Plan is 2 Type Category on 30 EXPONENT Type (\6,000,000) or 50 EXPONENT Type (\100,000,000) Choicen It."
260 LOCATE 0,8:PRINT "使用者の計画は２種類あり、３０指数６千万円と、５０指数１億円あります、これを選択します"
270 LOCATE 0,10:PRINT "All Alloment is Exchange Estate Fix Tax After Some Tax by Issue StockMarket."
280 LOCATE 0,11:PRINT"全部の配当は、固定不動産税のあと、同じ税によって証券発行をします"
290 LOCATE 0,12:PRINT "User Account is Decision Mounth Sale in 1 Year Total Tax Credit Debt."
300 LOCATE 0,13:PRINT "使用者の経理の結論は、月の売り上げを１年の合算税として、売掛します"
310 LOCATE 0,14:PRINT "This Stock Market is Target Estate Insurance Tax With Control."
320 LOCATE 0,15:PRINT "この証券は、不動産保険税を対象としています、また一緒に調整します"
330 LOCATE 0,16:PRINT "This Contents have 30 EXPONENT Category is First Park,Farm,Security, Secound FirePlace Last City Office Use Insurance."
340 LOCATE 0,18:INPUT "Next Clause Pages:",PAGE$:CLS
350 LOCATE 0,0:PRINT "この内容は、３０指数の種類は、公園、農園、証券のものと、次に防火区域権、最後に、市役所が使う保険があります"
360 LOCATE 0,2:PRINT "This Contents have 50 EXPONENT Category is First Cigarette,Secound Alcoholic Tax Third Low-Justice Tax Force Order-Gudge Tax Last Safe Poket Cargo Tax."
370 LOCATE 0,4:PRINT "この内容は５０指数の種類は、初めに煙草税、次に酒税、次に、弁護税、次に裁判税、最後に安全小包税"
380 LOCATE 0,6:PRINT "This StockMarket Account Sale is 100PerCapital Body,Addit 100PerCapital is Contract Accessment"
390 LOCATE 0,11:PRINT "２０割の経理収入は２０割中２割、所得税２割、固定資産税１割、雇用３割、雇用枠最大人数指数"
400 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 EXPONENT."
410 LOCATE 0,11:PRINT "２０割の経理は収入は２０割中２割、所得税２割、固定資産税１割、雇用３割、雇用枠最大指数人数"
420 LOCATE 0,13:PRINT "煙草税は、精機、半導体に対応する、高い資材コスト、酒税は、総務と、販売士だけの一般市場、安全小包税は、主に、運輸業に充てられる"
430 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."
440 LOCATE 0,17:PRINT "このプログラムは、期間を月で開始し、その間、同じペースで増え、売上猶予を付け、不動産保険税証明書のかかる金額を、３０と、５０指数とします"
450 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 EXPONENT 30,50"
460 LOCATE 0,21:INPUT "Next Clause Pages:",PAGE$:CLS
470 *START
480 LOCATE 0,0:INPUT "１２ヶ月間始める月を答えてください/Between 12 Mounth Reply Begin Mounth :",CSV(PAGE,1)
490 IF CSV(PAGE,1)=0 THEN *START
500 LOCATE 0,1:INPUT "売掛をする年数を答てください/Reply Credit Debit Close Year Mounth :",CSV(PAGE,2)
510 IF CSV(PAGE,2)=0 THEN *START
520 LOCATE 0,2:INPUT "日本円と比較する通貨の単価を答えてください/Reply Amount Ratio Exchange Compare Japan Yen to It:",CSV(PAGE,3)
530 IF CSV(PAGE,3)=0 THEN *START
540 LOCATE 0,4:INPUT "地方圏の最大個数を答えてください/Reply to Region Place and Estate Insurance Tax StockMarket Target Count It:",CSV(PAGE,4)
550 LOCATE 0,6:INPUT "借地権区域の最大個数を答えてください/Reply to High Density City Place and Estate Insurance Tax StockMarket Target Count It:",CSV(PAGE,5)
560 LOCATE 0,8:INPUT "剰余される税を残すか、期間を途中で停止するか０：途中停止と１：剰余加算で答えてください/Reply (0:Stop Terms) or (1:Exist Surplus Addit Amount):",CSV(PAGE,6)
570 LOCATE 0,10:INPUT "土地を不当に売却すると、禁錮３か月以上に問われる事があります、売却土地代金で税金に投資することは合法ですが、税は都市間を移動できません/Place No Buy,But Arrest 3 Mounth,Place Buy Cost Exchange Tax Not Illegal,Tax No Move City(0:Yes/1:No):",CSV(PAGE,7)
580 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)
590 IF CSV(PAGE,8)=<0 THEN *START
600 LOCATE 0,16:INPUT "登録される市区町村を答えてください/Reply Regist Section Name:",CSV$(PAGE,9)
610 LOCATE 0,17:INPUT "オペレータの名前を答えてください/Reply Naming Operator:",CSV$(PAGE,10)
620 LOCATE 0,18:INPUT "生年月日の情報を答えてください/Reply Birth infomation Year-Mounth-Day:",CSV$(PAGE,11)
630 LOCATE 0,19:INPUT "Next Clause Pages:",PAGE$:CLS
640 SP$=" ":CSV$(PAGE,12)=DATE$+TIME$
650 *PROGRESS1
660 *STARTYEAR
670 MAXREGION=CSV(PAGE,4):MAXCITY=CSV(PAGE,5):COSTREGION=60000000:COSTHIGHCITY=100000000:BOOLIANT=0:FIRSTYEAR=STARTMOUNTH:ANUITY=59999999/CSV(PAGE,3)
680 IF CSV(PAGE,1)=>1 AND CSV(PAGE,1)=<12 THEN ELSE *START
690 IF CSV(PAGE,3)=<0 OR CSV(PAGE,8)=<0 OR CSV(PAGE,2)=<0 THEN *START
700 IF (CSV(PAGE,1)*(CSV(PAGE,8)/10)/CSV(PAGE,3))<(CSV(PAGE,4)*COSTREGION/CSV(PAGE,3))+(CSV(PAGE,5)*COSTHIGHCITY/CSV(PAGE,3)) THEN IRESULT="1" ELSE IRESULT="2
710" STARTMOUNTH="CSV(PAGE,8)*(13-CSV(PAGE,1))/10/CSV(PAGE,3)
720" PRINT "FirstYearAccount with Ratio:";CSV(PAGE,8)/10
730 FOR I="CSV(PAGE,1)" TO 12:ADD1=(CSV(PAGE,8)/10/CSV(PAGE,3)):PRINT I;"Mounth Income";ADD1;"total";CSV(PAGE,8)+(ADD1*(I+1-CSV(PAGE,1)));"Result";CSV(PAGE,8)+(ADD1*(I+1-CSV(PAGE,1)))-(COSTHIGHCITY*COUNTCITY)-(COSTREGION*COUNTREGION):NEXT
740 BEGINTOTAL="CSV(PAGE,8)+(ADD1*(13-CSV(PAGE,1)))
750" IF SUBTOTAL="<999999" THEN ERESULT="0:PRINT" "Out of Account" ELSE IF SUBTOTAL="<20000000" THEN ERESULT="1:PRINT" "Charge Enterprise Annuity and ";BEGINTOTAL
760 PRINT "Accessment Estate Insurance Place Tax is ";ADD1;"on Year.";BEGINTOTAL:PRINT " Between Term: 1"
770 COUNTIT="0:FOR" I="CSV(PAGE,1)" TO 12:COUNTIT=COUNTIT+1:ACCOUNTIT(I,YEARS)=CSV(PAGE,8)+(CSV(PAGE,8)/10*COUNTIT):NEXT
780 CLOSEYEAR(YEARS)=BEGINTOTAL
790 *RESTARTYEAR
800 IF YEARS<CSV(PAGE,2) THEN YEARS="YEARS+1" ELSE *SKIP1
810 MAXREGIONEXPONENT="(CSV(PAGE,4)*30):MAXCITYEXPONENT=(CSV(PAGE,5)*50)
820" ENTERPRISECOST="20000000:EXPONENTCOST=1D-006:REGIONEXPONENT=COSTREGION*EXPONENTCOST:HIGHCITYEXPONENT=COSTHIGHCITY*EXPONENTCOST
830" IF BEGINTOTAL>COSTREGION THEN COUNTREGION=INT(BEGINTOTAL/COSTREGION)
840 IF BEGINTOTAL>MAXREGION*COSTREGION THEN COUNTREGION=MAXREGION
850 IF BEGINTOTAL>(MAXREGION*COSTREGION)+(MAXHIGHCITY*COSTHIGHCITY) THEN COUNTCITY=MAXHIGHCITY:COUNTREGION=MAXREGION
860 IF BEGINTOTAL>(MAXREGION*COSTREGION) THEN COUNTCITY=INT(BEGINTOTAL-(COSTREGION*MAXREGION)/COSTHIGHCITY)
870 IF COUNTCITY>MAXCITY THEN COUNTCITY=MAXCITY
880 IF ((MAXREGION*COSTREGION)+(COSTHIGHCITY*MAXCITY))<BEGINTOTAL THEN SURPLUS="BEGINTOTAL-((MAXREGION*COSTREGION)+(MAXCITY*COSTHIGHCITY))
890" PRINT "EXPONENT";(COUNTREGION*30)+(COUNTCITY*50)
900 INPUT "Close Plan Enter Continue:",LISTEN$:ADDMOUNTH=CSV(PAGE,1)
910 IF BEGINTOTAL>=20000000 THEN OVERENTERPRISE=1 ELSE OVERENTERPRISE=0
920 PRINT "ESTATE REGION:";COUNTREGION;"/HIGH CITY:";COUNTCITY
930 IF BEGINTOTAL<COSTREGION THEN ENTERPRISE="BEGINTOTAL/10" ELSE ENTERPRISE="0
940" FOR I="1" TO 12:ADD1=(COUNTREGION*COSTREGION/20)+(COUNTCITY*COSTHIGHCITY/20)+ENTERPRISE:ACCOUNTIT(I,YEARS)=BEGINTOTAL+(ADD1*I)
950 PRINT I;"Mounth Income";ADD1;"total";BEGINTOTAL+(ADD1*I);"Result";BEGINTOTAL+(ADD1*(I+1-ADDMOUNTH))-(COSTHIGHCITY*COUNTCITY)-(COSTREGION*COUNTREGION):NEXT
960 PRINT "NextYearTotal Addition 12 Month:";BEGINTOTAL+(ADD1*12);"Income:";ADD1;"Result";BEGINTOTAL+(ADD1*(I-ADDMOUNTH))-(COSTHIGHCITY*COUNTCITY)-(COSTREGION*COUNTREGION):PRINT "Between Term:";YEARS
970 BEGINTOTAL="BEGINTOTAL+(ADD1*12):CLOSEYEAR(YEARS)=BEGINTOTAL
980" IF YEARS<=CSV(PAGE,2) THEN *RESTARTYEAR ELSE *LOADOPENFILE
990 *SKIP1
1000 *LOADOPENFILE
1010 OFN$="ESM"+MID$(DATE$,1,2)+MID$(DATE$,4,2)+MID$(DATE$,7,2)
1020 OFN2$="ESMTAG"+MID$(DATE$,1,2)+MID$(DATE$,4,2)+MID$(DATE$,7,2)
1030 OPEN OFN$ AS 1:IDENTIFY=EOF(1):CLOSE
1040 IF IDENTIFY="-1" THEN *NEWOPENFILE ELSE *SKIPOUT
1050 *NEWOPENFILE
1060 OPEN OFN$ FOR OUTPUT AS #1:T=1:FOR I="1" TO 12:WRITE #1,ACCOUNTIT(I,T):NEXT I:WRITE #1,CLOSEYEAR(T):IF YEARS=>2 THEN ELSE *LOADOPENFILE
1070 FOR T=2 TO YEARS:FOR I=1 TO 12:WRITE #1,ACCOUNTIT(I,T):NEXT I:WRITE #1,CLOSEYEAR(T):NEXT T:CLOSE #1
1080 OPEN OFN2$ AS 2:IDENTIFY=EOF(2):CLOSE #2
1090 IF IDENTIFY=-1 THEN *NEWOPENTAG ELSE *LOADFILENAME
1100 *NEWOPENTAG OPEN OFN2$ FOR OUTPUT AS #2:FOR I=1 TO 8:WRITE #2,CSV(PAGE,I):NEXT:FOR I=9 TO 12:WRITE #2,CSV$(PAGE,I):NEXT:CLOSE #2
1110 *LOADFILENAME OPEN OFN$ AS 1:LCHECK=EOF(1):CLOSE 1
1120 IF LCHECK=-1 THEN *FORWARD ELSE *SKIPOUT
1130 *FORWARD OPEN OFN2$ FOR INPUT AS #2:FOR I=1 TO 8:INPUT #2,CSV(PAGE,I):NEXT I:FOR I=9 TO 12:INPUT CSV$(PAGE,I):CLOSE #2
1140 OPEN OFN$ FOR INPUT AS #1:T=1:FOR I=CSV(PAGE,1) TO 12:INPUT #1,ACCOUNTIT(I,T):NEXT I:INPUT #1,CLOSEYEAR(T)
1150 FOR T=2 TO YEARS:FOR I=1 TO 12:INPUT #1,ACCOUNTIT(I,T):NEXT I:INPUT #1,CLOSEYEAR(T):NEXT T:CLOSE #1
1160 *SKIPOUT
パラメーターをラベル化することにより、よりオブジェクト指向に近い形でプログラミングをベーシックに実現します。完全な形でクラスは実現できませんが、全ての実数は、変数に置き換えられ、番号、、数値を使わないで、関数の各項目を入力する実践の試供は別の項目、「Dai's C Laboratory」に解説してあります。関数定義で、複数のパラメーターを、数値以外で指定することにより、ビジュアル化を図ります。これに少なくとも近い形の思想をベーシックにも実現できます。データベースの作成法等、Ｃとの差は有りますが、ＣＳＶ規格で記録されています。特に、変数を関数化することに役に立ち、グラフィックスのインターフェイスでなくても、キャラクターベースで有っても、数値は、置き換えられます。また、変数ラベルを比較することで、入力状況を調査管理しています。概約は、一年間は、株でないかたちで剰余を運営し、２年目から倍の契約料の株に置き換えられるので、一年目の１０ヶ月と、二年目の１０ヶ月は、同額の収入となります。配当金の１割で資産を投資するので、追加土地証券は、５分の資産が加算されます。よって、２０分の一づつのマーケットプレースを追加する約款のソフトとなっております。
Directional Object with Visual Parameter and Actural Cover Variable This Labeling to Basic Programing Compleate Exsitance,No Perfect Calss After This Character Base Interface Extanal Control No Acturalism.Class ExSample is Difference This Basic Standard Discuttion " Dai's C Laboratory ".This Original Make Function is Variable Base Method Value.This Image Directional by Basic Standard's,Differnce Sequence Archive Input Output to Visual C by Basic CSV Data Base Programing,This Make Function Variable Value is Standard JavaScript Function Like This Scripting,This Archive Basic is No Graohic Interface,No Open Actural with Virtual Function,Relational Make Function and Result to Operating Find and Control Input Output.This Agree First Year is Double Incomming 10/1 After Year by Pass Market Place Security Trading by Incomming 20/1 This Standard SoftWare.
行番号１００から１４０は、プログラムの創作者氏名と、日付と、開発環境提供者の署名です。
Command Line 100 to 140,Signature Author By Dai Fukuoka And Date With Development Soft Ware House of Dennougumi.
行番号１５０は、必要な初期設定です。di
Command Line 150,System is Needed Start Settings.
行番号１６０、１７０は、配列変数（二次元配列変数）の宣言です。
Command Line 160 and 170,System is Declaration 2 Demention Two Dimensional Variable Value.
行番号１８０は、画面端の色彩の採取です。スクリーン画面は、白色なので、画面をはみ出しているときは、式の結果が「０：黒」、画面内の場合は、結果が「＆ＨＦＦＦ：白」と成ります。採取位置は、639,399 or 639,479です。
Command Line 180,This View Screen Deep in Capture Color,If case No White is Value 0 Then Else 4096,Capture Point Location is Trams Horizontal of 639 with Vertical of 399(Hi-zore Display) or 479(Standard Display Settings) By Location.
行番号１９０から３４０まで、画面スクリーンに一杯に日、英表記の規定文書画面を表示します。また、３４０で、空変数”Ｐａｇｅ＄”に、エンターの入力を受付、入力内容を検査しません。
Command Line 190 to 340,Full Fill up at View Screen,Desplay Language is Japanese and English Standard,System is Free Pass Enter Key,No Check out it on Variable Value of Pages$ by Pass.
行番号３５０から４６０は、１９０から３４０までのものの次項です。同じように”Ｐａｇｅ＄”でエンターで同意して進みます。
Command Line 350 to 460 is 190 to 340 to Next Clause,Same Accept Enter Page$ on Start.
行番号４７０は、ラベル”Ｓｔａｒｔ”によってプログラムの開始が宣言されます。
Command Line 470,By Start is Declaration Program Starter.
行番号４８０は配列ＣＳＶ（”項”,”一条”）に数値の形式で入力した数値をＣＳＶ配列に格納します。ここでは、１２ヶ月内、開始月を聞いています。
Command Line 480,Arrangement Variable Value by CSV(Clause,Article) DataBase Type Number on Input Container After On Ward Start Mounth at Listen.
行番号４９０は、配列ＣＳＶの前行にて入力された数値の結果が「０」と等しく空の場合、その時スタートにスキップして、入力を始めからやり直します。一回も入力ミスできません。
Command Line 490,Then Front Arragement Value CSV is Result Equivalent If Case Zero,Then Skip and Back Start,Re Try and No Mistake No Get Onece.
行番号５００から５７０までは、内容をチェックしないで日本語と英語で入力を進められます。
Command Line 500 to 570,No Check Out with Language Japanese and English to Enter.
売り掛けする年数、円単価に対するレート、地方ストック、借地ストックの上限、剰余金の額、無資格土地売買の禁止などを質問されます。其れによりＣＳＶ”（Ｐａｇｅ＄，Ａｒｔｉｃｌｅ－６）”迄を格納します。
Allotment Dividend on Investment Program,Year,Yen Rate,Region Stock,Leased Land Stock with Highest,Surplus Account,Stop No Lisence Land Buyer,About Input Container Arragement Variable CSV Standard on CSV(Page$,Article) Save in Keeps.
行番号５７０からは、２尺択一で「０」と「１」で答えます。
Command Line 570 to For,User is Choice One by Two,Then 0:False 1:True Selected.
行番号６３０にて、空のエンターキーを、”Ｐａｇｅ＄”に得ます。
Command Line by 630,This is Push Enter Key Get Empty of Page$.
システムは、回答項目が１１条迄でも、１２条項に日付と時間を自働で挿入します。”ＳＰ＄”に空白の文字を格納します。
System is Reply to Full with Eleven Then Case Twelve Automation Insert Time Date Now.SP$ Value is Character Spacing Input Container Fill up.
行番号６５０、進行過程１がラベルで”Ｐｒｏｇｒｅｓｓ１”が宣言されます。
Command Line 650,Progress Step by One Label in Declare Progress1.
行番号６６０は、ここから年を始めます。よってラベル”ＳＴＡＲＴＹＥＡＲ”を宣言します。
Command Line 660,This Point is Start Year,About by Declare Label STARTYEAR.
行番号６７０からは、実数のラベリングを行い、ウインドウプロシージャ（ウインドウ構造体変数）の設定例をもとに、ラベルばかりで、比較をしたり、変数のラベルを、クラス関数の代わりに使ったりする目的で、実数を覆い隠した形で、Ｂａｓｉｃにオブジェクト対策をします。実際に、本物のクラスや、定義関数と、仮想的にまったく同じには出来ませんが、最先端の技術を採用することにより、それに極限まで近づける目的があります。是により、掛けたり割ったりすることを、方程式のＸ，Ｙ方程式のように比較の調査と、加算減算、割り算掛け算をします。ユーザー側は、入力された情報が覆い隠されるので、操作上は、シームレス（無階層）の平たい設定入力が出来ます。
Command Line 670 For,Actual Labeling Executed,Model Source Window Proceed Use Model Settings,Relation Static Label Method,Exchange Variable Label as Virtual Function,This is Highest Step Out Useing Technology Change Target,Private Actual Typing Objective Counter-Measurement by 98 Basic.Model Actual is Pure Class or Defintion Function No Same Virtual,Get Plan Technology is Approach Visual C to Purpose.This Case is Multiply or Divide or Addtion or Subtract Execute Method,Model Math X,Y Near Analyze.Side User is Accept Type Infomation on Hidden Private by User Can Oparation on Flat Seamles Selected Inputing.
行番号６７０は、地方証書上限と、借地証書上限、またその２つの価格が設定されます。
Command Line 670 is Peak Region Stock and Peak Capital Stock,And Too Setting Price.
行番号６８０と、６９０は、ＣＳＶ（項、条項）を月日と、絶対値を比較します。「０」以上であるか、「０」以下であるか、また、１から１２の範囲内であるかを調べて、異なる場合に、ラベル”Ｓｔａｒｔ”に逆戻りします。この点で、入力は、初期の地点に戻りやり直しです。前は、そのまま進めましたが、不正な値の格納を検査し、合格は00通過できます。
行番号７００は、地方上限以下の判定の場合、ＣＳＶ（単価）で割り、ＣＳＶ（最初の予算額の１割）最初の１年目のＣＳＶ（開始月）の回数で掛け、結果を比較します。２月から始まれば、等倍の予算高を１０割となります。比較は、今の結果に対して、借地上限に、借地費用を掛け、利率で割ります。それに加え、地方上限に借地費用を掛け、利率で割った場合、その時、真であればｉＲｅｓｕｌｔは「１」と等しい、偽であればｉＲｅｓｕｌｔは「２」と等しい。
行番号７００は、インプット（入力と格納）によって、に動的に変動する入力（タイプ）に於いて、ＣＳＶが何時変更されても、数値を求めることが出来るＣＳＶ二次元配列から計算式を使っていくことは、ＣＵＩのビジュアル化に於いて、静的変数（コンストラクションバリアブル）のラベリングを行うことが重要であり、あるソースコードの位置から採取される固定式の変数データ（静的変数）の定義がオブジェクト指向に最も重要であり、動的変数を使った、ＣＳＶは、オブジェクト指向化にはあまり重要ではない。また、参照を行わないので、リンクバリアブル（アッパー記号などで扱われる連動リンキング変数）とも異なる。主に、静的にする利点は、最初の入力情報が固定化されて、いつも同じ数値を引き出せる利点が在る。この点をオブジェクト指向の課題と捉えよう。これからオブジェクト指向で求められていく要点は、方程式のように実数を持たない組織系列であり、全ての数値の位、全ての文字列の位を静的変数に変更していくことを求められていく。
行番号７００は、CSV(最初の予算額）÷１０÷CSV(レーティング）それのCSV(結果）＜（ CSV(地方券上限個数）×地方券価格÷為替レート＋（借地券最大個数×借地券価格÷１０÷CSV（為替レート）） ）と成れば、地方、借地、レート＝＜CSV（結果）であれば、比較は、真となり、iResult=1とし、CSV（結果）＝＜地方、借地、レートであれば結果は偽となり終了する、iResult=2とする。
行番号７１０は、この点で開始月を定義します。静的変数（STARTMOUNTH）に始めの値を格納します。CSV(最初の予算額）×１３月－CSV(開始月）＞＝１、CSV（開始月）＜＝１２ならば、CSV（最初の予算額）×（１３月－CSV(開始月）÷１０（一月分とする）÷CSV(レーティング）の結果をSTARTMOUNTHの静的変数とする。
行番号７２０は、CSV(最初の予算額）÷１０（初期入力した資産の一月を求めるため、１割とする）をCSV（結果）を初年度経理と利率として、画面に表示します。
行番号７３０は、For（ステートメント）により、積算をします。動的変数「i」にCSV(初年月）から「i」年末のファーストイアーを、結果「１」静的変数ADD１＝＝（CSV(初期予算）÷１０÷CSV（利率））とし、結果「２」は、CSV(初期予算）＋（結果「１」×（動的変数「i」＋１－CSV(開始月））とする。NEXTをもってI＋＋（Ｉ＝Ｉ＋１）を次の条件Ｉ＝＜１２と、Ｉ＝＞１を満たすものとする。
番号７５０は、７４０の「ＢｅｇｉｎＴｏｔａｌ」再定義します。ＢｅｇｉｎＴｏｔａｌ＝＝ＣＳＶ（初期予算）＋（変数ＡＤＤ１｛７３０行を参照｝×（１３月－ＣＳＶ（開始月））と変更する。此の更新で先の代入を不要済みとする。
行番号７６０は、ＳｕｂＴｏｔａｌ＝＜９９９９９９の比較として此の条件は、満たす場合は、eResult==0とする。その場合、画面に「Out of Account」と表示する。１００万未満を無効とし、ELSEにて分岐し、
ＳubTotal＝＜２０００００００と比較し、真であればeResult==1とし、画面にBeginTotalの結果と、中小企業年金と、BeginTotalは、補充されたという画面に表示します。
行番号７６０は、一月の収入変数ＡＤＤ１と、開始年合算変数ＢＥＧＩＮＴＯＡＬを表示します。
行番号７７０は、汎用カウンタＣＯＵＮＴＩＴが０から始まり、一年目のＣＳＶ（開始月）までをＦｏｒステートメントで積算します。一月あがる毎にＣＯＵＮＴＩＴが繰り上がります。汎用配列変数２ＡＣＯＵＮＴＩＴ（期間，年）＝＝ＣＳＶ（最初の予算額）＋ＣＳＶ（最初の予算額）÷１０×汎用変数ＣＯＵＮＴＩＴと公式となり、一月あがる毎に、最初の予算額の１０分の一が加算される。ＮＥＸＴステートメントで、Ｆｏｒステートメントを閉じます。
行番号７８０は、ここでは、終期の年変数ＣＬＯＳＥＹＥＡＲ（期間年）＝＝最初の合算として始めます。
行番号７９０は、飛び越すラベル＊ＲＥＳＴＡＲＴＹＥＡＲです。
行番号８００は、カウンタＹＥＡＲＳ＜ＣＳＶ（売り掛けする年数）を満たすとき（年のカウンタが、推定期間を超えないとき）、またその時０だったＹＥＡＲＳをＹＥＡＲＳ＋＋＝＝ＹＥＡＲＳ＝０＋ＹＥＡＲＳ＋１となり、ＹＥＡＲＳが１づつ一年で増えます。ＥＬＳＥステートメントにて、指定した推定期間を新規カウンタＹＥＡＲＳが上回る場合は、次のラベル＊ＳＫＩＰ１に移動します。
行番号８１０静的変数 最大の地方指数ＭＡＸＲＥＧＩＯＮＥＸＰＡＲＥＮＴは、ＣＳＶ（地方最大値）を、静的変数 最大の都市指数はＭＡＸＣＩＴＹＥＸＰＡＲＥＮＴ、ＣＳＶ（借地最大値）とし、静的変数に登録します。それによって、いつもＣＳＶ（指定番号）を使わないで、４条項と、５条項を使用できます。また、新しい代入を受け入れないことで、保護化を図ります。
行番号８２０は、中小企業年金費用 ＥｎｔｅｒＰｒｉｓｅＣｏｓｔ＝＝２０００００００とし、６０００００００以上あれば、地方指数を清算します。ＥＮＴＥＲＰＲＩＳＥＣＯＳＴは、２千万と等しい。静的変数 指数費用は、ＥＸＰＡＲＥＮＴＣＯＳＴ÷１００００００とし、１Ｄ－００６とは、１桁から、更に６桁差し引くので即ち百万で１指数 静的変数 ＥＸＰＡＲＥＮＴＣＯＳＴとする。因って指数は、２０となる。
行番号８３０は、地方費用＜初期予算の場合（正しくは、初期予算＞地方費用も同じ）、カウンタ地方指数＝＝小数点切捨て（開始予算÷地方費用）と成る。この点で、開始予算が、地方予算を優越している分の整数値の静的変数 初期予算において、幾つ地方費用を払えるかを求めます。これを、カウンタＣＯＵＮＴＲＥＧＩＯＮに格納します。初期予算から最初から購入できる上限まで差し引いたカウンタの数を求めます。
行番号８４０は、静的変数 開始予算ＢＩＧＩＮＴＯＴＡＬを、上限地方費用×地方費用が初期予算＜（上限値×地方費用）である公式の場合、決済可能額の範囲内であれば、カウンタ ＣＯＵＮＴＲＥＧＩＯＮ＝＝ＭＡＸＲＥＧＩＯＮ、つまり、地方費用のカウンタ指数は、上限と等しい。
行番号８５０は、ＢＥＧＩＮＴＯＴＡＬ＞（ＭＡＸＲＥＧＩＯＮ×ＣＯＳＴＲＥＧＩＯＮ）＋（ＭＡＸＨＩＧＨＣＩＴＹ×ＣＯＳＴＨＩＧＨＣＩＴＹ）の静的変数の関係演算と、比較は、開始費用＞地方指数費用合算＋都市指数費用合算となり、全ての土地株指数が初期予算が上回る場合、その時、カウンタ ＣＯＵＮＴＣＩＴＹ＝＝ＭＡＸＨＩＧＨＣＩＴＹ，ＣＯＵＮＴＲＥＧＩＯＮ＝＝ＭＡＸＲＥＧＩＯＮとなり、差し引いても、余りがあれば、始めに宣言した静的変数 ＭＡＸＲＥＧＩＯＮとＭＡＸＨＩＧＨＣＩＴＹと同等として、超える場合は、最大値を詰めます。
行番号８６０は、初期予算＞（地方指数×費用）を満たしている場合、地方支払いは無いものとし、カウンタ ＣＯＵＮＴＣＩＴＹ＝＝小数点切捨て（初期予算－（上限指数×費用）÷費用都市として此の公式は、ＣＯＵＮＴＣＩＴＹ＝＝（ＣＯＳＴＲＥＧＩＯＮ×ＭＡＸＲＥＧＩＯＮ）÷ＣＯＳＴＨＩＧＨＣＩＴＹの静的変数による求めです。この点で、初期費用が、地方を上回る場合にカウンタＣＯＵＮＴＣＩＴＹに地方費用に追加した形で、都市指数を、上限を下回る形でカウンタにその指数の合算を格納します。
行番号８７０は、今現在のカウンタ 地方指数＞上限都市として、静的変数は、 ＣＯＵＮＴＣＩＴＹ＞ＭＡＸＣＩＴＹ とし、その条件が満たすとき、またその時、カウンタ ＣＯＵＮＴＣＩＴＹ＝＝ＭＡＸＣＩＴＹ、カウンタ格納指数は、都市上限指数に等しいとする。
行番号８８０は、初期合算＞（（上限地方×費用）＋（上限都市×費用））を二回満たす場合、その時、剰余資産＝＝初期費用－（（上限地方×費用）＋（上限都市×費用））として、剰余資産の余りを求める。ＳＵＲＰＬＵＳ＝＝ＢＩＧＩＮＴＯＴＡＬ－（ＭＡＸＲＥＧＩＯＮ×ＣＯＳＴＲＥＧＩＯＮ）＋（ＭＡＸＣＩＴＹ×ＣＯＳＴＨＩＧＨＣＩＴＹ）と静的変数の保護値同士を求める。
行番号８９０は、地方、都市の合算の指数を表示する。地方は、３０倍、都市は５０倍である。カウンタのないものは０とする。
行番号９００は、空文字列 ＬＩＳＴＥＮ＄にキー入力を格納します。いかなる値も問いません。また後段に、ＡＤＤＭＯＵＮＴＨ＝＝ＣＳＶ（Ｐａｇｅ，１）をして静的変数として主に呼び出しを目的とした形で代入します。
行番号９１０は、初期予算が、２０指数以上である場合のフラグ ＯＶＥＲＥＮＴＥＲＰＲＩＳＥ＝＝１とし、２０以下を０とします。
行番号９２０は、地方証書の数と、都市証書の数をカウンタで個別に数字ランクを表示します。都市は、１億のコスト、地方は、６千万のコストで、今現在、採算より得られた、枚数を表示します。
※コメント投稿者のブログIDはブログ作成者のみに通知されます