********************
Annuity Addition
100 REM --------------------
110 REM CopyRight Programing 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 Financial 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
此のプログラムは、ＩＮＰＵＴと、ＰＲＩＮＴ機能を使った簡単な積算プログラムです。一月、一季節、一年を定額で年金の貯金を数え、それをＰＬＡＮ関数を変数から構成してつくり、結果を、ＲＥＳＵＬＴＩＴ（その結果）に対して一回ずつ加算していきます。数式は、３８０行目から始まっており、ＰＬＡＮ１変数をロードすると、ＰＬＡＮ３を１で選択した場合に、ＲＥＳＵＬＴＩＴ＝＝ＲＥＳＵＬＴＩＴ＋ＰＬＡＮ２と言うメソッドの関数を実行します。次に、ＰＬＡＮ３に２が変数に代入された場合、ＲＥＳＵＬＴＩＴ関数は、ＲＥＳＵＬＴＩＴ＝＝ＲＥＳＵＬＴＩＴ＋（ＰＬＡＮ２変数４倍）を積算関数ＲＥＳＵＬＴＩＴに加算します。また、変数ＰＬＡＮ３に３が代入された場合は、ＲＥＳＵＬＴＩＴ関数に、ＲＥＳＵＬＴＩＴ＝＝ＲＥＳＵＬＴＩＴ＋（ＰＬＡＮ２変数１２倍）を積算します。ＣＯＵＮＴ関係関数は、”０”から始まり、１９行に関係が達したとき、ＩＮＰＵＴ入力待ちをし、”ＮＥＸＴ．”を表示します。まず年度別の合計から表示し、またその次に、四半期料と、月額料を表示するシステムになっています。アウトプットは、”Ｙｅａｒｓ ｏｎ”＋Ｉカウンタ＋”Ｄｅｐｏｓｉｔ Ｒｅｓｕｌｔ Ｏｎ Ａｎｎｕｉｔｙ”＋ＲＥＳＵＬＴＩＴ積算関数となります。年度別が表示されると、２と３をＰＬＡＮ３変数にインプットしたものは、更に詳細を表示します。ＰＬＡＮ３が１の場合は、この時点で、”ＥＮＤ．”を表示して終了します。ＲＥＳＵＬＴ２にＰＬＡＮ１をロードし、ＦＯＲステートメントにて、ＰＬＡＮ４変数が終わるまで繰り返します。また、その区切りを、ＦＯＲステートメントでＩ変数を、４回実行して、Ｔが一上がります。表示は、”Ｙｅａｒｓ ｏｎ”＋Ｔ＋”Ｓｅａｓｏｎ”＋Ｉ＋”Ｒｅｓｕｌｔ ｉｓ”＋Ｒｅｓｕｌｔ２と成ります。ＮＥＸＴステートメントで、Ｉ変数を区切り、次にＣＯＵＮＴを４加算します。関係関数ＣＯＵＮＴは、２０を超える場合にＣＯＵＮＴ＝＝０となります。入力待ちＩＮＰＵＴの”Ｎｅｘｔ．”が表示され、エンターを押すと、画面を消去し、Ｔ変数のＮＥＸＴを閉じます。ＥＮＤが宣言され、行番号をブレークします。結果をＲＥＳＵＬＴ２関数をアウトプットのＰＲＩＮＴにて”Ｅｑｕｉｖａｌｅｎｔ Ｒｅｓｕｌｔ”＋ＲＥＳＵＬＴ２関数とします。＊ＴＨＲＥＥラベルからは同様のことを、ＲＥＳＵＬＴ３関数にＰＬＡＮ１に変数をロードし、ＦＯＲステートメントで、Ｔが１から始まり、ＰＬＡＮ４変数に代入された数まで繰り返します。ＦＯＲステートメントＩ変数は、１から１２ヶ月回数加算を繰り返します。ＲＥＳＵＬＴ３積算関数は、ＰＬＡＮ２を一回のＦＯＲステートメントにつき、ＲＥＳＵＬＴ３の結果に対して、ＰＬＡＮ２と同じ数を加算を繰り返します。ＦＯＲステートメントＩ変数が、アウトプットＰＲＩＮＴ ”Ｙｅａｒｓ ｏｎ”＋Ｔ＋”Ｍｏｕｎｔｈ”＋Ｉ＋”Ｒｅｓｕｌｔ ｉｓ”＋ＲＥＳＵＬＴ３の結果を表示し、ＮＥＸＴでＦＯＲのＩを閉じられ、インプットの”Ｎｅｘｔ．”のエンターの後、ＦＯＲステートメントのＴ変数が次のＮＥＸＴで閉じられます。結果をアウトプット関数ＰＲＩＮＴにて、”Ｅｑｕｉｖａｌｅｎｔ Ｒｅｓｕｌｔ”＋Ｒｅｓｕｌｔ３（の結果）を表示し、”Ｅｎｄ．”の表示の上、ＥＮＤ関数でブレークアウトします。
********************
StockMarketLister Summer Version
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))=
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
2570 IF LAP*50
Annuity Addition
100 REM --------------------
110 REM CopyRight Programing 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 Financial 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
此のプログラムは、ＩＮＰＵＴと、ＰＲＩＮＴ機能を使った簡単な積算プログラムです。一月、一季節、一年を定額で年金の貯金を数え、それをＰＬＡＮ関数を変数から構成してつくり、結果を、ＲＥＳＵＬＴＩＴ（その結果）に対して一回ずつ加算していきます。数式は、３８０行目から始まっており、ＰＬＡＮ１変数をロードすると、ＰＬＡＮ３を１で選択した場合に、ＲＥＳＵＬＴＩＴ＝＝ＲＥＳＵＬＴＩＴ＋ＰＬＡＮ２と言うメソッドの関数を実行します。次に、ＰＬＡＮ３に２が変数に代入された場合、ＲＥＳＵＬＴＩＴ関数は、ＲＥＳＵＬＴＩＴ＝＝ＲＥＳＵＬＴＩＴ＋（ＰＬＡＮ２変数４倍）を積算関数ＲＥＳＵＬＴＩＴに加算します。また、変数ＰＬＡＮ３に３が代入された場合は、ＲＥＳＵＬＴＩＴ関数に、ＲＥＳＵＬＴＩＴ＝＝ＲＥＳＵＬＴＩＴ＋（ＰＬＡＮ２変数１２倍）を積算します。ＣＯＵＮＴ関係関数は、”０”から始まり、１９行に関係が達したとき、ＩＮＰＵＴ入力待ちをし、”ＮＥＸＴ．”を表示します。まず年度別の合計から表示し、またその次に、四半期料と、月額料を表示するシステムになっています。アウトプットは、”Ｙｅａｒｓ ｏｎ”＋Ｉカウンタ＋”Ｄｅｐｏｓｉｔ Ｒｅｓｕｌｔ Ｏｎ Ａｎｎｕｉｔｙ”＋ＲＥＳＵＬＴＩＴ積算関数となります。年度別が表示されると、２と３をＰＬＡＮ３変数にインプットしたものは、更に詳細を表示します。ＰＬＡＮ３が１の場合は、この時点で、”ＥＮＤ．”を表示して終了します。ＲＥＳＵＬＴ２にＰＬＡＮ１をロードし、ＦＯＲステートメントにて、ＰＬＡＮ４変数が終わるまで繰り返します。また、その区切りを、ＦＯＲステートメントでＩ変数を、４回実行して、Ｔが一上がります。表示は、”Ｙｅａｒｓ ｏｎ”＋Ｔ＋”Ｓｅａｓｏｎ”＋Ｉ＋”Ｒｅｓｕｌｔ ｉｓ”＋Ｒｅｓｕｌｔ２と成ります。ＮＥＸＴステートメントで、Ｉ変数を区切り、次にＣＯＵＮＴを４加算します。関係関数ＣＯＵＮＴは、２０を超える場合にＣＯＵＮＴ＝＝０となります。入力待ちＩＮＰＵＴの”Ｎｅｘｔ．”が表示され、エンターを押すと、画面を消去し、Ｔ変数のＮＥＸＴを閉じます。ＥＮＤが宣言され、行番号をブレークします。結果をＲＥＳＵＬＴ２関数をアウトプットのＰＲＩＮＴにて”Ｅｑｕｉｖａｌｅｎｔ Ｒｅｓｕｌｔ”＋ＲＥＳＵＬＴ２関数とします。＊ＴＨＲＥＥラベルからは同様のことを、ＲＥＳＵＬＴ３関数にＰＬＡＮ１に変数をロードし、ＦＯＲステートメントで、Ｔが１から始まり、ＰＬＡＮ４変数に代入された数まで繰り返します。ＦＯＲステートメントＩ変数は、１から１２ヶ月回数加算を繰り返します。ＲＥＳＵＬＴ３積算関数は、ＰＬＡＮ２を一回のＦＯＲステートメントにつき、ＲＥＳＵＬＴ３の結果に対して、ＰＬＡＮ２と同じ数を加算を繰り返します。ＦＯＲステートメントＩ変数が、アウトプットＰＲＩＮＴ ”Ｙｅａｒｓ ｏｎ”＋Ｔ＋”Ｍｏｕｎｔｈ”＋Ｉ＋”Ｒｅｓｕｌｔ ｉｓ”＋ＲＥＳＵＬＴ３の結果を表示し、ＮＥＸＴでＦＯＲのＩを閉じられ、インプットの”Ｎｅｘｔ．”のエンターの後、ＦＯＲステートメントのＴ変数が次のＮＥＸＴで閉じられます。結果をアウトプット関数ＰＲＩＮＴにて、”Ｅｑｕｉｖａｌｅｎｔ Ｒｅｓｕｌｔ”＋Ｒｅｓｕｌｔ３（の結果）を表示し、”Ｅｎｄ．”の表示の上、ＥＮＤ関数でブレークアウトします。
********************
StockMarketLister Summer Version
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))=
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
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
2640 CLOSE
※コメント投稿者のブログIDはブログ作成者のみに通知されます