システムアドミニストレーター チャットプログラム コミュニケーション通信Ⅰー福岡大

*************
TopicMaster

100 REM --------------------
110 REM Programing by Dai Fukuoka TopicMaster (C)2017.04.17-5.19(FRI)
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 LOC1(80):DIM LOC2(25):DIM VUID$(9999):DIM CHECKLIST$(999)
170 DIM UPASS$(9999):DIM COMMENTLOG$(999):LET COUNT=1:DIM RESS$(999)
180 IF POINT(639,399)=POINT(639,479) THEN SHOWMODE=1:GOTO *SCREENSKIP
190 FOR I=1 TO 9999:VUID$(I)="":UPASS$(I)="":NEXT
200 FOR I=1 TO 999:CHECKLIST$(I)="United":NEXT
210 FOR T=1 TO 80:LOC1(T)=(T*8):NEXT:FOR I=1 TO 25:LOC2(I)=(I*16):NEXT
220 LINE(LOC1(0),LOC2(0))-(LOC1(80),LOC2(1)),1,BF
230 LINE(LOC1(0),LOC2(2))-(LOC1(80),LOC2(22)),1,BF
240 LINE(LOC1(0),LOC2(24))-(LOC1(80),LOC2(25)),1,BF
250 LINE(LOC1(7),LOC2(2))-(LOC1(7),LOC2(22)),6
260 LINE(LOC1(14),LOC2(2))-(LOC1(14),LOC2(22)),6
270 LINE(LOC1(19),LOC2(2))-(LOC1(19),LOC2(22)),6
280 GOTO *STANDBY
290 *SCREENSKIP
300 FOR T=1 TO 80:LOC1(T)=(T*8):NEXT:FOR I=1 TO 25:LOC2(I)=(I*19):NEXT
310 LINE(LOC1(0),LOC2(0))-(LOC1(80),LOC2(1)),1,BF
320 LINE(LOC1(0),LOC2(2))-(LOC1(80),LOC2(22)),1,BF
330 LINE(LOC1(0),LOC2(24))-(LOC1(80),LOC2(25)),1,BF
340 LINE(LOC1(7),LOC2(2))-(LOC1(7),LOC2(22)),6
350 LINE(LOC1(14),LOC2(2))-(LOC1(14),LOC2(22)),6
360 LINE(LOC1(19),LOC2(2))-(LOC1(19),LOC2(22)),6
370 GOTO *STANDBY
380 *SYSTEMUP
390 LOCATE 0,22:INPUT "Mode:1.Certifacation Account/2.Administrator Login/3.Registry(1-3) :",MODE1:CLS:IF MODE1<1 OR MODE1>3 THEN *SYSTEMUP
400 IF MODE1=1 THEN *M1 ELSE IF MODE1=2 THEN *M2 ELSE *M3
410 *M1 LOCATE 0,22:INPUT "User Account Identify (6 Count) :",UID$:CLS
420 FOR CHECK=1 TO 9999:IF UID$=VUID$(CHECK) THEN CHECKED=CHECK:CHECK=9999
430 NEXT CHECK:CLS:IF CHECKED=0 THEN *SYSTEMUP
440 IF MODE1=1 THEN LOCATE 0,22:INPUT "User's Pass Word (6 Count) :",IPASS$:CLS
450 IF LEN(IPASS$)=6 OR LEN(IPASS$)=5 THEN LFLAG=1 ELSE *SYSTEMUP
460 FOR CHECK=1 TO 9999:IF UID$=VUID$(CHECK) THEN CHECKED=CHECK
470 NEXT CHECK
480 IF IPASS$=UPASS$(CHECKED) THEN LOGON=1
490 IF LOGON=1 THEN LOCATE 0,22:INPUT "Your Enter Topic Accept Login :",A:COUNT=COUNT+1:CLS:GOTO *START ELSE LOCATE 0,22:MODE1=3:GOTO *M3
500 *M3 LOCATE 0,22:INPUT"Registry Mode:1.New Sign In/2.Delete Account/3.Support (1-3) :",REG:CLS:IF REG<1 OR REG>3 THEN *SYSTEMUP
510 IF REG=2 THEN LOCATE 0,22:INPUT "Thread Number (1-999) :",THREAD:CLS:IF THREAD<1 OR THREAD>999 THEN *SYSTEMUP
520 IF REG=2 AND NOT UID$=VUID$(THREAD) THEN LOCATE 0,22:INPUT "Missing Account ID Name's :",A:GOTO *SYSTEMUP
530 IF REG<1 OR REG>3 THEN *SYSTEMUP
540 IF REG=2 THEN LOCATE 0,22:INPUT "Usre's Pass Word (6 count) :",UPASS$(COUNT):IF NOT LEN(UPASS$)=6 THEN *SYSTEMUP
550 IF REG=1 THEN LOCATE 0,22:INPUT "Create Your Thread ID (6 Count ID Word) :",UID$:GOTO *PASSWORDREMIND ELSE *START
560 LOCATE 0,22:INPUT "Success :",A:GOTO *START
570 *M2 LOCATE 0,22:INPUT"Oparator Login:1.TopicMasterAccount/2.ChangeAccount/3.Threade Delete (1-3) :",ADAC:CLS
580 IF ADAC<1 OR ADAC>3 THEN *SYSTEMUP
590 IF ADAC=3 THEN LOCATE 0,22:INPUT "Thread Number (1-999) :",DT1:CLS:IF DT1<1 OR DT1>999 THEN *SYSTEMUP
600 IF ADAC=3 THEN LOCATE 0,22:INPUT "Administrator Pass Word :",ADPS$:CLS:IF NOT LEN(ADPS$)=19 THEN *SYSTEMUP
610 FOR CHECK=1 TO 9999:IF ADPS$=UPASS$(CHECK) THEN CHECKED=CHECK:UID$=VUID$(CHECKED)
620 NEXT CHECK
630 IF ADAC=2 THEN LOCATE 0,22:INPUT "Administrator Old PassWord :",OPASS$:CLS:IF NOT LEN(OPASS$)=19 THEN *SYSTEMUP
640 IF ADAC=2 THEN LOCATE 0,22:INPUT "New Changing Administorator PassWord (4-4-4-4) :",NCAP$:CLS
650 IF ADAC=2 THEN IF NOT LEN(NCAP$)=19 THEN *SYSTEMUP
660 IF ADAC=2 THEN LOCATE 0,22:INPUT "Changed Success :",A:IDFLAG=1:GOTO *START
670 IF ADAC=1 THEN LOCATE 0,22:INPUT "Topic Master Login :",LOGINTM$
680 IF ADAC=1 AND LEN(LOGINTM$)=19 THEN IF ADPS$=LOGINTM$ THEN *CERTIFIAD
690 END IF
700 *PASSWORDREMIND
710 FOR CHECK=1 TO 9999:IF NOT VUID$(CHECK)="" AND UPASS$(CHECK)="" THEN VUID$(CHECK)=""
720 NEXT CHECK:
730 AA$=MID$(TIME$,1,2):BB$=MID$(TIME$,4,2):CC$=MID$(TIME$,7,2)
740 AA=VAL(AA$):BB=VAL(BB$):CC=VAL(CC$):AA=AA*10000:BB=BB*100:CC=CC*1:
750 LOCATE 0,0:PRINT AA+BB+CC
760 IPASS$=MID$(STR$(AA+BB+CC),2,6):IF UPASS$(CHECKED)=IPASS$ THEN VUIDA$(CHECKED)="":GOTO *PASSWORDREMIND
770 IF CHECK>9999 THEN CLS:LOCATE 0,22:PRINT IPASS$;:INPUT " Check Remarks Your ID's PassWord :",A:UPASS$(COUNT)=IPASS$:CHECKLIST$(COUNT)=UID$:VUID$(COUNT)=UID$
780 FOR I=1 TO 9999:IF UPASS$(I)="" THEN VUID$(I)=""
790 NEXT I
800 IF COUNT<1000 THEN *START
810 FOR CHECK=2 TO 999:CHECKLIST$(CHECK-1)=CHECKLIST$(CHECK):COMMENTLOG$(CHECK-1)=COMMENTLOG$(CHECK)
820 CHECKLIST$(999)=UID$:COMMENTLOG$(999)="":NEXT CHECK:CLS:LOCATE 0,22:INPUT "That ID Inserted :",A:GOTO *SYSTEMUP
830 *START CLS
840 FOR I=1+SHOWCOUNT TO 20+SHOWCOUNT:LOCATE 0,I+1:PRINT VUID$(I):LOCATE 7,I+1:PRINT RESS$(I);:LOCATE 14,I+1:PRINT I;:LOCATE 20:PRINT COMMENTLOG$(I)
850 NEXT
860 LOCATE 0,22:PRINT "Your Enter Login":LET TC=1
870 *TIMEBK WHILE TC<2 :TIMED$=TIME$
880 IF NOT TIMED$=TIME$ THEN TC="TC+1
890" WEND:LOCATE 0,22:PRINT SPACE$(79)
900 *TIMESKIP
910 *SHOWDISPLAY
920 IF TURNPOINT="0" THEN TURNPOINT="1
930" FOR I="1" TO 20:LOCATE 0,I+1:PRINT VUID$(I+SHOWCOUNT):LOCATE 7,I+1:PRINT RESS$(I+SHOWCOUNT);:LOCATE 14,I+1:PRINT I+SHOWCOUNT;:LOCATE 20:PRINT COMMENTLOG$(I+SHOWCOUNT)
940 NEXT
950 IF TURNPOINT="1" THEN ELSE IF TURNPOINT="2" THEN ELSE *RESSLOOP
960 *RESSLOOP
970 LOCATE 0,0:PRINT "Write Your Comment :":LOCATE 0,1:INPUT "",COMM$
980 IF COMM$="" THEN *RESSLOOP
990 LOCATE 0,0:PRINT SPACE$(79):LOCATE 0,1:PRINT SPACE$(79)
1000 LOCATE 0,0:PRINT "Response Thread ID /Pass is My Thread :":LOCATE 0,1:INPUT "",RESST$
1010 LOCATE 0,0:PRINT SPACE$(79):LOCATE 0,1:PRINT SPACE$(79)
1020 LOCATE 0,0:PRINT "Log Out User 0:No/1:Yes :":LOCATE 0,1:INPUT "",LOGOUTIS$
1030 LOCATE 0,0:PRINT SPACE$(79):LOCATE 0,1:PRINT SPACE$(79)
1040 IF COMM$="" OR LEN(COMM$)>=59 THEN *RESSLOOP
1050 COMMENTLOG$(COUNT)=COMM$:RESS$(COUNT)=RESST$
1060 IF RESST$="" THEN RESST$=UID$
1070 IF RESS$(COUNT)="" THEN RESS$(COUNT)=UID$
1080 IF LOGOUTIS$="" THEN ELSE IF LOGOUTIS$="1" THEN TURNPOINT=2:GOTO *LOGOUT
1090 FOR CHECK=1 TO 999:IF RESST$=RESS$(CHECK) THEN CHECKED=CHECK:CHECK=999
1100 NEXT CHECK:IF NOT RESST$=RESS$(CHECKED) THEN *RESSLOOP
1110 VUID$(COUNT)=UID$:COMMENTLOG$(COUNT)=COMM$:RESS$(COUNT)=RESST$
1120 IF PAGECOUNT=0 THEN PAGECOUNT=1
1130 IF COUNT>20*PAGECOUNT THEN PAGECOUNT=PAGECOUNT+1:SHOWCOUNT=(PAGECOUNT*20)-20:CLS
1140 COUNT=COUNT+1:GOTO *SHOWDISPLAY
1150 *STANDBY
1160 IF ADPS$="" THEN ADPS$="7750-2310-9690-1255"
1170 OPEN "TMLOG" AS 1:LFLAG=EOF(1):CLOSE 1:IF LFLAG=0 THEN *SYSTEMUP
1180 OPEN "TMLOG" FOR INPUT AS #1:FOR I=1 TO 999:INPUT #1,COMMENTLOG$(I),CHECKLIST(I),RESS$(I):NEXT:CLOSE #1
1190 OPEN "TMDATA" FOR INPUT AS #1:FOR I=1 TO 9999:INPUT #1,VUID$(I),UPASS$(I):NEXT:CLOSE #1
1200 OPEN "TMSEC" FOR INPUT AS #1:INPUT #1,ADPS$,UID$,IPASS$,RESST$,SHOWCOUNT,PAGECOUNT:CLOSE #1
1210 IF ADPS$="" THEN ADPS$="7750-2310-9690-1255"
1220 GOTO *SYSTEMUP
1230 *LOGOUT
1240 COUNT=COUNT+1
1250 IF TURNPOINT=0 THEN *SYSTEMUP
1260 IF ADPS$="" THEN ADPS$="7750-2310-9690-1255"
1270 OPEN "TMLOG" AS 2:LFLAG=EOF(2):CLOSE 2
1280 OPEN "TMLOG" FOR OUTPUT AS #2:FOR I=1 TO 999:WRITE #2,COMMENTLOG$(I),CHECKLIST$(I),RESS$(I):NEXT:CLOSE #2
1290 OPEN "TMDATA" FOR OUTPUT AS #2:FOR I=1 TO 9999:WRITE #2,VUID$(I),UPASS$(I):NEXT:CLOSE #2
1300 OPEN "TMSEC" FOR OUTPUT AS #2:WRITE #2,ADPS$,UID$,IPASS$,RESST$,SHOWCOUNT,PAGECOUNT:CLOSE #2
1310 IF TURNPOINT=2 THEN *STANDBY ELSE END
1320 *CERTIFIAD
1330 LOCATE 0,22:INPUT "Menu 1.RestoreData 2.DocumentCopy 3.ReTurn :",AD01$:CLS
1340 IF AD01$="1" THEN *SHOWDISPLAY ELSE IF AD01$="2" THEN *DOCUMENTCOPY ELSE *SYSTEMUP
1350 *DOCUMENTCOPY LOCATE 0,22:INPUT "Type Txt Import Okay ?:",ASKIT1$:CLS
1360 LOCATE 0,22:INPUT "Change FileName / Pass is Accept :",ASKIT2$:CLS
1370 IF ASKIT2$="" THEN *OPERATOR ELSE *NEWFILENAMEADD1
1380 *OPERATOR
1390 OPEN "TMLOG.txt" AS 2:ENDOFFILES=EOF(2):CLOSE 2
1400 OPEN "TMLOG.txt" FOR OUTPUT AS #2:FOR I=1 TO 999:WRITE #2,COMMENTLOG$(I),CHECKLIST$(I),RESS$(I):NEXT:CLOSE #2
1410 OPEN "TMDATA.txt" FOR OUTPUT AS #2:FOR I=1 TO 9999:WRITE #2,VUID$(I),UPASS$(I):NEXT:CLOSE #2
1420 OPEN "TMSEC.txt" FOR OUTPUT AS #2:WRITE #2,ADPS$,UID$,IPASS$,RESST$,SHOWCOUNT,PAGECOUNT:CLOSE #2
1430 GOTO *SYSTEMUP
1440 *NEWFILENAMEADD1
1450 CFN$=ASKIT2$+"LOG.txt"
1460 OPEN CFN$ AS 2:ENDOFFILES=EOF(2):CLOSE 2
1470 OPEN CFN$ FOR OUTPUT AS #2:FOR I=1 TO 999:WRITE #2,COMMENTLOG$(I),CHECKLIST$(I),RESS$(I):NEXT:CLOSE #2
1480 CFN$=ASKIT2$+"DATA.txt"
1490 OPEN CFN$ FOR OUTPUT AS #2:FOR I=1 TO 9999:WRITE #2,VUID$(I),UPASS$(I):NEXT:CLOSE #2
1500 CFN$=ASKIT2$+"SEC.txt"
1510 OPEN CFN$ FOR OUTPUT AS #2:WRITE #2,ADPS$,UID$,IPASS$,RESST$,SHOWCOUNT,PAGECOUNT:CLOSE #2
1520 GOTO *SYSTEMUP

ロケーション関数をグラフィック座標で、カラムとラインの位置を、調整します。それによって、変数に文字幅が格納され、仮想関数を実現します。おもに、罫線の作成に使われる仮想関数です。その後の物も、時刻から自働でパスワードを振り分けたり、シンクロ座標から、空白のパスワードのＩＤを詰めて、ログインした回数で自働名簿を行います。また、番号を指定して該当順のメッセージレスポンスに対して、パスワードの入力と、記事の削除の機能の付加や、同じパスワードにログインする機能、ログイン時に、２秒経過すると、エントリー出来るように改良したりしました。主にこのソフトは、基本的なシーケンシャルを備えている他、メッセージログを溜めることと出力することが出来ます。主に食指を、サービス機関に設置されたコンピュータ上で、９８Ｂａｓｉｃで動作します。空港等に配置することにより、インターネット感覚でオフラインコミュニケーションを実現します。

This is Useing Virtual Function " LOC1 " And "LOC2 " is Automation A Justment Coordination at Cloumn And Line Inputing.Line-Out with on Drawing Virtual Function of Location Program,Next ITEM is Time-Pass-Word-Remind with No Synchronize List,This List is Delete Spacing Login Information,Slead Number Appointment Pass-Word Check It,Inquiry Same Pass-Word Gatein Delete Execution.This Program is Entery Same Time Wait 2 Second Times,Type Log is Entry Start.This Interface CSV Data Base is Standard 98 Basic Activity,Target User Service Area Examin Air Port and Install With 98Basic,This Program is Feeling of Internet Communication Compleate Offline BBS.



***********************

システムアドミニストレーター土地証券Ⅰデーターベース ー福岡大

********************
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は、補充されたという画面に表示します。
行番号７６０は、一月の収入変数ＡＤＤ１と、開始年合算変数ＢＥＧＩＮＴＯＡＬを表示します。
行番号７７０は、汎用カウンタＣＯＵＮＴＩＴが０から始まり、一年目のＣＳＶ（開始月）までをＦｏｒステートメントで積算します。一月あがる毎にＣＯＵＮＴＩＴが繰り上がります。汎用配列変数２ＡＣＯＵＮＴＩＴ（期間，年）＝＝ＣＳＶ（最初の予算額）＋ＣＳＶ（最初の予算額）÷１０×汎用変数ＣＯＵＮＴＩＴと公式となり、一月あがる毎に、最初の予算額の１０分の一が加算される。ＮＥＸＴステートメントで、Ｆｏｒステートメントを閉じます。
行番号７８０は、ここでは、終期の年変数ＣＬＯＳＥＹＥＡＲ（期間年）＝＝最初の合算として始めます。
行番号７９０は、飛び越すラベル＊ＲＥＳＴＡＲＴＹＥＡＲです。
行番号８００は、カウンタＹＥＡＲＳ＜ＣＳＶ（売り掛けする年数）を満たすとき（年のカウンタが、推定期間を超えないとき）、またその時０だったＹＥＡＲＳをＹＥＡＲＳ＋＋＝＝ＹＥＡＲＳ＝０＋ＹＥＡＲＳ＋１となり、ＹＥＡＲＳが１づつ一年で増えます。ＥＬＳＥステートメントにて、指定した推定期間を新規カウンタＹＥＡＲＳが上回る場合は、次のラベル＊ＳＫＩＰ１に移動します。
行番号８１０静的変数　最大の地方指数ＭＡＸＲＥＧＩＯＮＥＸＰＡＲＥＮＴは、ＣＳＶ（地方最大値）を、静的変数 最大の都市指数はＭＡＸＣＩＴＹＥＸＰＡＲＥＮＴ、ＣＳＶ（借地最大値）とし、静的変数に登録します。それによって、いつもＣＳＶ（指定番号）を使わないで、４条項と、５条項を使用できます。また、新しい代入を受け入れないことで、保護化を図ります。
行番号８２０は、中小企業年金費用　ＥｎｔｅｒＰｒｉｓｅＣｏｓｔ＝＝２０００００００とし、６０００００００以上あれば、地方指数を清算します。ＥＮＴＥＲＰＲＩＳＥＣＯＳＴは、２千万と等しい。静的変数　指数費用は、ＥＸＰＡＲＥＮＴＣＯＳＴ÷１００００００とし、１Ｄ－００６とは、１桁から、更に６桁差し引くので即ち百万で１指数 静的変数 ＥＸＰＡＲＥＮＴＣＯＳＴとする。因って指数は、２０となる。
行番号８３０は、地方費用＜初期予算の場合（正しくは、初期予算＞地方費用も同じ）、カウンタ地方指数＝＝小数点切捨て（開始予算÷地方費用）と成る。この点で、開始予算が、地方予算を優越している分の整数値の静的変数 初期予算において、幾つ地方費用を払えるかを求めます。これを、カウンタＣＯＵＮＴＲＥＧＩＯＮに格納します。初期予算から最初から購入できる上限まで差し引いたカウンタの数を求めます。
行番号８４０は、静的変数 開始予算ＢＩＧＩＮＴＯＴＡＬを、上限地方費用×地方費用が初期予算＜（上限値×地方費用）である公式の場合、決済可能額の範囲内であれば、カウンタ ＣＯＵＮＴＲＥＧＩＯＮ＝＝ＭＡＸＲＥＧＩＯＮ、つまり、地方費用のカウンタ指数は、上限と等しい。
行番号８５０は、ＢＥＧＩＮＴＯＴＡＬ＞（ＭＡＸＲＥＧＩＯＮ×ＣＯＳＴＲＥＧＩＯＮ）＋（ＭＡＸＨＩＧＨＣＩＴＹ×ＣＯＳＴＨＩＧＨＣＩＴＹ）の静的変数の関係演算と、比較は、開始費用＞地方指数費用合算＋都市指数費用合算となり、全ての土地株指数が初期予算が上回る場合、その時、カウンタ ＣＯＵＮＴＣＩＴＹ＝＝ＭＡＸＨＩＧＨＣＩＴＹ，ＣＯＵＮＴＲＥＧＩＯＮ＝＝ＭＡＸＲＥＧＩＯＮとなり、差し引いても、余りがあれば、始めに宣言した静的変数 ＭＡＸＲＥＧＩＯＮとＭＡＸＨＩＧＨＣＩＴＹと同等として、超える場合は、最大値を詰めます。
行番号８６０は、初期予算＞（地方指数×費用）を満たしている場合、地方支払いは無いものとし、カウンタ ＣＯＵＮＴＣＩＴＹ＝＝小数点切捨て（初期予算－（上限指数×費用）÷費用都市として此の公式は、ＣＯＵＮＴＣＩＴＹ＝＝（ＣＯＳＴＲＥＧＩＯＮ×ＭＡＸＲＥＧＩＯＮ）÷ＣＯＳＴＨＩＧＨＣＩＴＹの静的変数による求めです。この点で、初期費用が、地方を上回る場合にカウンタＣＯＵＮＴＣＩＴＹに地方費用に追加した形で、都市指数を、上限を下回る形でカウンタにその指数の合算を格納します。
行番号８７０は、今現在のカウンタ 地方指数＞上限都市として、静的変数は、 ＣＯＵＮＴＣＩＴＹ＞ＭＡＸＣＩＴＹ とし、その条件が満たすとき、またその時、カウンタ ＣＯＵＮＴＣＩＴＹ＝＝ＭＡＸＣＩＴＹ、カウンタ格納指数は、都市上限指数に等しいとする。
行番号８８０は、初期合算＞（（上限地方×費用）＋（上限都市×費用））を二回満たす場合、その時、剰余資産＝＝初期費用－（（上限地方×費用）＋（上限都市×費用））として、剰余資産の余りを求める。ＳＵＲＰＬＵＳ＝＝ＢＩＧＩＮＴＯＴＡＬ－（ＭＡＸＲＥＧＩＯＮ×ＣＯＳＴＲＥＧＩＯＮ）＋（ＭＡＸＣＩＴＹ×ＣＯＳＴＨＩＧＨＣＩＴＹ）と静的変数の保護値同士を求める。
行番号８９０は、地方、都市の合算の指数を表示する。地方は、３０倍、都市は５０倍である。カウンタのないものは０とする。
行番号９００は、空文字列　ＬＩＳＴＥＮ＄にキー入力を格納します。いかなる値も問いません。また後段に、ＡＤＤＭＯＵＮＴＨ＝＝ＣＳＶ（Ｐａｇｅ，１）をして静的変数として主に呼び出しを目的とした形で代入します。
行番号９１０は、初期予算が、２０指数以上である場合のフラグ ＯＶＥＲＥＮＴＥＲＰＲＩＳＥ＝＝１とし、２０以下を０とします。
行番号９２０は、地方証書の数と、都市証書の数をカウンタで個別に数字ランクを表示します。都市は、１億のコスト、地方は、６千万のコストで、今現在、採算より得られた、枚数を表示します。

システムアドミニストレーター 住所録Ⅰデーターベース：福岡大

***************
Master Address

100 REM ---------------------
110 REM Programming by Dai Fukuoka
120 REM (C)電脳組 2016.07.06-07.15
130 REM ---------------------
140 CONSOLE 0,25,0,1:SCREEN 3,0,0,1:COLOR 0,7,0,0,1:WIDTH 80,25:CLS 3
150 DIM CSV$(10000,11):DIM CHECK$(11):DIM TITLE$(12)
160 DIM LOC1(80):DIM LOC2(25)
170 *SETSCREEN IF POINT(639,479)=POINT(639,399) THEN *RESTART
180 FOR T=1 TO 80:LOC1(T)=(T*8):NEXT:FOR I=1 TO 25:LOC2(I)=(I*16):NEXT
190 LINE(LOC1(0),LOC2(0))-(LOC1(80),LOC2(1)),5,BF
200 LINE(LOC1(0),LOC2(2))-(LOC1(80),LOC2(3)),5,BF
210 LINE(LOC1(0),LOC2(6))-(LOC1(80),LOC2(7)),5,BF
220 LINE(LOC1(0),LOC2(13))-(LOC1(80),LOC2(14)),5,BF:GOTO *TEXTBASE
230 *RESTART LINE(0,0)-(640,19),5,BF:LINE(0,57)-(640,76),5,BF
240 LINE(0,115)-(640,134),5,BF:LINE(0,172)-(640,192),5,BF
250 LINE(0,229)-(640,248),5,BF:LINE(0,286)-(640,305),5,BF
260 *TEXTBASE
270 TITLE$(1)="Card ID :":TITLE$(2)="Secure ID:":TITLE$(3)="E-Mail Address :"
280 TITLE$(4)="TelePhone :":TITLE$(5)="Name : ":TITLE$(6)="2Byte Name :"
290 TITLE$(7)="ZIP Code :":TITLE$(8)="Country,Continental,City : ":TITLE$(9)="Section,Street,Address Number :"
300 TITLE$(10)="Birth Year,Mounth,Day :":TITLE$(11)="Card Use Time Cycle Limid :"
310 *OPENFILENAME
320 CLS
330 LOCATE 0,0:PRINT "Open file Name :";:INPUT "",OFN$:IF OFN$="" THEN OFN$="StandardMA":GOTO *START
340 OPEN OFN$ AS 1
350 IF EOF(1)=-1 THEN MAKE=-1 ELSE IF EOF(1)=0 THEN MAKE=1
360 CLOSE 1
370 IF MAKE=-1 THEN *MAKEFILE ELSE IF MAKE=1 THEN *INPUTFILE
380 *INPUTFILE
390 OPEN OFN$ FOR INPUT AS #1
400 FOR I=1 TO 10000:INPUT #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$(I,11):NEXT I
410 CLOSE #1
420 *START
430 CLS : LOCATE 0,0:PRINT "Page:";:INPUT "",PAGE:LOCATE 40,0:PRINT "Lot Number:";:INPUT "",LOT
440 IF PAGE=0 OR LOT=0 THEN *OPENFILENAME
450 IF LOT=1 THEN *TRYBLOCK ELSE IF LOT=2 THEN *TRYBLOCK1
460 IF LOT=3 THEN *TRYBLOCK2
470 IF LOT=4 THEN *TRYBLOCK3 ELSE IF LOT=5 THEN *TRYBLOCK4
480 IF LOT=5 THEN *TRYBLOCK4 ELSE IF LOT=6 THEN *TRYBLOCK5
490 IF LOT=7 THEN *TRYBLOCK5 ELSE IF LOT=8 THEN *TRYBLOCK6
500 IF LOT=9 THEN *TRYBLOCK8 ELSE IF LOT=10 THEN *TRYBLOCK9
510 IF LOT=11 THEN *TRYBLOCK10
520 *TRYBLOCK LOCATE 0,1:PRINT CSV$(PAGE,1):LOCATE 0,2:INPUT "Card ID Number:(19 Count):",A$
530 ALEN=LEN(A$)
540 IF ALEN=0 THEN IF NOT CSV$(PAGE,1)="" THEN *TRYBLOCK1
550 IF NOT ALEN=19 THEN *START
560 FOR I=1 TO PAGE-1
570 IF A$=CSV$(PAGE,1) THEN *START
580 NEXT
590 FOR I=PAGE+1 TO 10000
600 IF A$=CSV$(I,1) THEN *START
610 NEXT
620 IF CSV$(PAGE,1)="" THEN CSV$(PAGE,1)=A$:GOTO *TRYBLOCK1
630 GOTO *SKIPTO
640 *MAKEFILE
650 FOR I=1 TO 11:CSV$(1,I)="":NEXT
660 FOR I=1 TO 10000:FOR T=1 TO 11:CSV$(I,T)="":NEXT T,I
670 OPEN OFN$ FOR OUTPUT AS #1
680 FOR I=1 TO 10000
690 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$(I,11)
700 NEXT I:CLOSE #1
710 GOTO *START
720 *SKIPTO
730 *TRYBLOCK1 LOCATE 0,4:PRINT CSV$(PAGE,2);
740 LOCATE 0,5:PRINT "Secure ID (001-9999) : ";:INPUT "",SID$
750 IF VAL(SID$)<1 AND VAL(SID$)>9999 THEN *TRYBLOCK1 ELSE *TRYBLOCK2
760 IF CSV$(PAGE,2)="" THEN CSV$(PAGE,2)=SID$:GOTO *TRYBLOCK2
770 *TRYBLOCK2 LOCATE 0,7:PRINT CSV$(PAGE,3);
780 LOCATE 0,8:PRINT "E-Mail Address : ";:INPUT "",EMA$
790 IF LEN(EMA$)=0 THEN IF NOT CSV$(PAGE,3)="" THEN *TRYBLOCK3
800 TB2$="false"
810 FOR I=1 TO LEN(EMA$):IF MID$(EMA$,I,1)="@" THEN TB2$="True"
820 NEXT I
830 IF CSV$(PAGE,3)="" THEN CSV$(PAGE,3)=EMA$
840 IF TB2$="True" THEN *TRYBLOCK3 ELSE IF TB2$="false" THEN *TRYBLOCK2
850 *TRYBLOCK3 LOCATE 0,10:PRINT CSV$(PAGE,4);
860 LOCATE 0,11:PRINT "TelePhone : ";:INPUT "",TEL$
870 IF LEN(TEL$)=0 THEN IF NOT CSV$(PAGE,4)="" THEN *TRYBLOCK4
880 IF TB3$="True" THEN *TRYBLOCK4 ELSE IF TB3$="false" THEN *TRYBLOCK3
890 IF CSV$(PAGE,4)="" THEN CSV$(PAGE,4)=TEL$
900 *TRYBLOCK4 LOCATE 0,13:PRINT CSV$(PAGE,5);
910 LOCATE 0,14:PRINT "Name English : ";:INPUT "",NAMEENG$
920 IF LEN(NAMEENG$)=0 THEN IF NOT CSV$(PAGE,5)="" THEN *TRYBLOCK5
930 IF NAMEENG$="" OR NAMEENG$=" " OR NAMEENG$="-" THEN *TRYBLOCK4
940 IF CSV$(PAGE,5)="" THEN CSV$(PAGE,5)=NAMEENFG$
950 *TRYBLOCK5 LOCATE 0,16:PRINT CSV$(PAGE,6);
960 LOCATE 0,17:PRINT "Name Japan Kanji : ";:KINPUT KANJINAME$
970 IF LEN(KANJINAME$)=0 THEN IF NOT CSV$(PAGE,6)="" THEN *TRYBLOCK6
980 IF KLEN(KANJINAME$,3)>0 THEN ELSE *TRYBLOCK5
990 IF KANJINAME$="" OR KANJINAME$=" " OR KANJINAME$="-" THEN *TRYBLOCK5
1000 IF CSV$(PAGE,6)="" THEN CSV$(PAGE,6)=KANJINAME$
1010 CLS
1020 *TRYBLOCK6 CLS:LOCATE 0,4:PRINT CSV$(PAGE,7);
1030 LOCATE 0,5:PRINT "ZIP Code : ";:INPUT "",ZIP$
1040 TB6$="false":FOR I=1 TO 79:IF MID$(ZIP$,I,1)="-" THEN TB6$="True"
1050 IF LEN(ZIP$)=0 THEN IF NOT CSV$(PAGE,7)="" THEN *TRYBLOCK7
1060 NEXT I:IF TB6$="True" THEN *TRYBLOCK7 ELSE IF TB6$="false" THEN *TRYBLOCK6
1070 IF CSV$(PAGE,7)="" THEN CSV$(PAGE,7)=ZIP$
1080 *TRYBLOCK7 LOCATE 0,7:PRINT CSV$(PAGE,8);
1090 LOCATE 0,8:PRINT "Contry And Continental and City : ";:INPUT "",ADR1$
1100 IF LEN(ADR1$)=0 THEN IF NOT CSV$(PAGE,8)="" THEN *TRYBLOCK8
1110 IF ADR1$="" OR ADR1$=" " OR ARD1$="-" THEN *TRYBLOCK7
1120 IF CSV$(PAGE,8)="" THEN CSV$(PAGE,8)=ADR1$
1130 *TRYBLOCK8 LOCATE 0,10:PRINT CSV$(PAGE,9);
1140 LOCATE 0,11:PRINT "Section and Street Number Address : ";:INPUT "",ADR2$
1150 IF LEN(ADR2$)=0 THEN IF NOT CSV$(PAGE,9)="" THEN *TRYBLOCK9
1160 IF ADR2$="" OR ADR2$=" " OR ARD2$="-" THEN *TRYBLOCK8
1170 IF CSV$(PAGE,9)="" THEN CSV$(PAGE,9)=ADR2$
1180 *TRYBLOCK9 LOCATE 0,13:PRINT CSV$(PAGE,10);
1190 LOCATE 0,14:PRINT "Birth Year-BirthMounth-BirthDay : ";:INPUT "",BIRTH$
1200 IF LEN(BIRTH$)=0 THEN IF NOT CSV$(PAGE,10)="" THEN *TRYBLOCK10
1210 IF BIRTH$="" OR BIRTH$=" " OR BIRTH$="-" THEN *TRYBLOCK9
1220 *TRYBLOCK10 LOCATE 0,16:PRINT CSV$(PAGE,11);
1230 LOCATE 0,17:PRINT "Limid MM/YY And Renewal Card : ";:INPUT "",LIMID$
1240 IF LEN(LIMID$)=0 THEN IF NOT CSV$(PAGE,11)="" THEN *CHECK
1250 TB3$="false":FOR I=1 TO LEN(LIMID$):IF MID$(LIMID$,I,1)="/" THEN TB3$="True"
1260 NEXT I
1270 IF CSV$(PAGE,11)="" THEN CSV$(PAGE,11)=LIMID$
1280 IF LEN(LIMID$)=5 OR LEN(LIMID$)=7 THEN ELSE *TRYBLOCK10
1290 *CHECK
1300 IF NOT A$="" THEN LET CSV$(PAGE,1)=A$
1310 IF NOT SID$="" THEN LET CSV$(PAGE,2)=SID$
1320 IF NOT EMA$="" THEN LET CSV$(PAGE,3)=EMA$
1330 IF NOT TEL$="" THEN LET CSV$(PAGE,4)=TEL$
1340 IF NOT NAMEENG$="" THEN LET CSV$(PAGE,5)=NAMEENG$
1350 IF NOT NAMEKANJI$="" THEN LET CSV$(PAGE,6)=NAMEKANJI$
1360 IF NOT ZIP$="" THEN LET CSV$(PAGE,7)=ZIP$
1370 IF NOT ADR1$="" THEN LET CSV$(PAGE,8)=ADR1$
1380 IF NOT ADR2$="" THEN LET CSV$(PAGE,9)=ADR2$
1390 IF NOT BIRTH$="" THEN LET CSV$(PAGE,10)=BIRTH$
1400 IF NOT LIMID$="" THEN LET CSV$(PAGE,11)=LIMID$
1410 OPEN OFN$ AS 1:OFLAG=EOF(1):CLOSE:OPEN OFN$ FOR OUTPUT AS #1
1420 FOR I=1 TO 10000: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$(I,11):NEXT I
1430 CLOSE #1
1440 LOCATE 0,18:PRINT "0:SKIP 1:Print Mode ?:";:INPUT "",PRINTER
1450 IF PRINTER=0 THEN GOTO *START
1460 IF PRINTER=1 THEN *PRINTSCREEN
1470 *PRINTSCREEN CLS:CLS 3
1480 OPEN OFN$ FOR INPUT AS #1
1490 FOR I=1 TO 10000:INPUT #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$(I,11):NEXT I
1500 CLOSE #1
1510 COUNT=0:LC=1:FOR COUNT=1 TO 11
1520 LOCATE 0,LC:PRINT CSV$(PAGE,COUNT)
1530 LC=LC+2
1540 NEXT
1550 LOCATE 0,0:PRINT TITLE$(1)
1560 COUNT=0:LC=2:FOR COUNT=2 TO 11
1570 LOCATE 0,LC:PRINT TITLE$(COUNT)
1580 LC=LC+2
1590 NEXT:LOCATE 70,0:INPUT "",Q$
1600 GOTO *SETSCREEN
1610 *LOOPOUT



行番号１００と１１０と１２０と１３０は、マスターアドレスの著作者とＢＡＳＩＣ／９８の開発法人名をサインインしています。
Command Line 100,110,120,130, This Caption is Master Addrfess into Author by Dai Fukuoka with Development Coopration "Dennougumi" Wrote .
行番号１７０から開始する事ができません、必ず配列変数の定義を先に行っておき、プログラムの始めからＤＩＭ関数の配列定義を行番号１５０と１６０を通しておきます。
Command Line 170 User with Developer This is Can Not Start Program ,Surely Go Start Filter Passager Command Line 150 with 160 .
行番号１５０と、１６０の”ＤＩＭ”この関数の定義と配列変数値と、形式は”ＣＳＶ”規格と、確認の１１こ、キャプションの１２個、文字の幅と、文字の高さの定義を実行します。
Command Line 150,160, This "DIM" Function is Difintion Arragement Variable Value, Type is "CSV" Standard and System "Check" with Caption "Title" and Charactor width "Loc1" and Charactor Height "Loc2" executive Difintion .
行番号１８０は、２次元の座標を”ＬＯＣ１”と、”ＬＯＣ２”に分けて文字の画像座標を割り出します、８０を指定すると、６４０ピクセルを８で割った８０行目（システムは７９で０を１）端まで描画されます。
Command Line 180, This is 2 Dimension Variable Arragement on "LOC1" is Charactor change to Graphics 80count width and "LOC2" is Charactor change to Graphics 25count height Coordination .This is Screen View Deep and Deep with on Charactor Coordinate .
行番号１９０から２２０は、”ＬＩＮＥ”関数にて、範囲を定義し”ＢＦ”背景を塗ります。座標位置を”ＬＯＣ１”と”ＬＯＣ２”を呼び出し、目標の位置を参照します。これは、４００ラインモードの場合実行されます。
Command Line 190,200,210,220, This View Control Function "Line" by Range on Difintion with "BF" Parameter on Paint , coordinate Now Location Call "Loc1" with "Loc2" Target Reference, This is Screen Mode is 400 Line Standard Mode case by execution . Go to Skip Label "Restart" with Go on Label "Textbase" .
行番号２３０と２４０と２５０は、４８０ラインモードにて、高さが１６ではなく１９になります、座標の自動入力が困難のため、任意の位置を電卓から求めた座標を”レクトペイント”に入力します。
Command Line 230,240,250, This System Case is Height 480 Line Screen Mode execute Method coordinate Charactor Height 19Px-20Px , Screen View is Difficlut No Automation Type Out, Calculator Method Measure coordinate View Point Box Fill Paint BackGround Color execute "Line" Paint1 .
行番号２５０から３００は、配列文字列”ＴＩＴＬＥ”に１１個の要因を入力します。１にはカードＩＤ、２にはセキュリティＩＤ、３には、電子手紙、４には電話、５には名前、６には２Ｂｙｔｅ、７には郵便番号、８には、住所の先頭、９には住所の後、１０には、誕生日、１１にはカードの有効期限。
Command Line 250,260,270,280,290,300, "TITLE" Variable Arragement Strings is 11 Factor with chaption in put 11 infomation, Case 1 Card ID, Case 2 Security ID, Case 3 Electrics Mails, Case 4 Tele Phone, Case 5 Names, Case 6 2Byte Names, Case 7 Postal Card Number, Case 8 Address Top, Case 9 Address Bottom, Case 10 Birth Day , Case 11 Card Limited Day .
行番号３２０は、テキストの範囲を消去します。
Command Line 320, Clear Text String Field on Erased .
行番号３３０は、テキストの座標１、１に”ＯＰＥＮ ＦＩＬＥ ＮＡＭＥ”を表示し、”ＯＦＮ”の変数に任意の入力を待ちます。また空の場合を想定して空の場合はラベル”ＳＴＡＲＴ”に戻ります。
Command Line 330, Text Area 1,1 Locate to Wait Accept Type Variable "OPN" Case About Conteiner Empty is Return Label "START" .
行番号３４０と、３５０と３６０は、新しいＣＳＶ形式のファイルを作成します、その時、”＃”シーケンスを指定しません。開いている間 ＥＯＦがー１か調べることができます、ＣＬＯＳＥまでに”ＭＡＫＥ”変数は、状態を情報によって始めることができます。
Command Line 340,350,360, New CSV Standard Make File, Then Not Sequence Type and "For" Option. Open File Timming is Between Abstraction EndOfFile Value Search Count -1 or 0 Find Value Then Close File and Variable "MAKE" Status Stand by Infomation .
行番号３７０と３８０は、”ＭＡＫＥ”変数がー１か１の時－１終端に達していてファイルが空の場合ー１が指定され、新しくランダムファイルを作成するラベル”ＭＡＫＥＦＩＬＥ”へ移動し書き込みます。０で返ることで１とフィルタし、ファイルが終端に達しない状態でファイルが空でない場合に読み込みます。
Commnad Line 370,380, "MAKE" Variable is -1 or 1 then -1 with Reach EndOfFile Case Empty File to Open New File Now, IF "MAKE" is -1 Value Go to Label "MAKEFILE" and Open New File, Return 0 Case Equivalent 1 with Filter No EndOfFIle and Open Rambom File Now then Read File "OFN" File Name .
行番号３９０と４００と４１０は、ファイル名”ＯＦＮ”に対して読み込みモードの”ＩＮＰＵＴ”付属を指定します。また、その間、ネストで、カウンタの値１から１万回数えて読み込みます。ファイルモードは、＃１番です。ＣＳＶ（カウンタ、１～１１種類）によって、この規格に、どこのカウンタの階でも、１１個の情報が取り出せるようにします。
Command Line 390,400,410, Target "OFN" File Name Read Mode Nest Option "INPUT" AndToo, Then Value Counter 1 to 10000 Between by Nest, FIle Mode is #1 Count and CSV Standard "CSV(counter,11 Article Infomation) by This Standard is When Floor Because Get Infomation 11 Article .
行番号４３０は、”ＰＡＧＥ：”と”ＬＯＴＮＵＭＢＥＲ：”を表示しています。ユーザーは必要項目に入力する必要があります。入力することによって、参照点を変えることができます。
Command Line 430, Show Display "PAGE:" and "LOTNUMBER:" It, User is Must Need Typing Many Item, User Can Type Change Reference Locate Point .
行番号４４０は、”ＰＡＧＥ”と”ＬＯＴ”変数が”０”で空の時ラベル”ＯＰＥＮＦＩＬＥＮＡＭＥ”に移動します。
Command Line 440, "Page" Variable and "Lot" Variable is "0" Value Case Go to Label "OPENFILENAME" Move It .
行番号４５０から５１０のステートメント関数によるルーチンの振り分けを”ＬＯＴ”変数を参考値に分岐します。
Command Line First 450 to Last 510, This Statement Function by Brunch Case Routine Reference "LOT" Variable Exsample Values, Brunch is Label "TRYBLOCK" Plus (1-11) Section .
行番号５２０は、２行目に”ＣＳＶ”規格の配列（ＰＡＧＥ，１条）、１９桁の空白文字を含む番号が１９桁に合致していなければ、再入力を求めます。
Command Line 520, 2Line Standard "CSV" Arragement (Page,"1 Article") contein Space Word with Number 19 Column, Checking 19 Column Length, Not Equivalent Case ReTyping Purchase .
行番号５３０と５４０と５５０は、変数”ＡＬＥＮ”に先に入力した変数”Ａ”文字列に対して長さを求めます、長さを求め”０”で通り越せないように”ＩＦ”ステートメント関数にて”０”の場合”ＣＳＶ”（ＰＡＧＥ，１）が空の場合は、ラベル”ＴＲＹＢＬＯＣＫ１”に進めます。行番号５５０番は、変数”ＡＬＥＮ”の長さが１９を否定した場合”ＩＦ”ステートメント関数は最初辺りのラベル”ＳＴＡＲＴ”に移動します。
Command Line 530,540,550, "ALEN" Variable is RearWard Result "A" String Variable PurChase Word Length, No Skip "0" Value, No Type is Skip to Start, Empty Variable "CSV" Standard at Go to Label "TRYBLOCK1" Can Progress, Command Line 550, Word Length Variable String "ALEN" Not 19 Column Case is by Statement Function "IF" to Jump "Start" Move It .
行番号５６０，５７０，５８０は、同じカード番号が既存している場合にラベル”ＳＴＡＲＴ”へ移動します。最大値まで一つ一つ調べます。式は、文字列変数”Ａ”＝”ＣＳＶ（回数，１条）”。
Command Line 560,570,580, Exisiting Checking Card Number, Equivalent Exisiting Value is Return Label "START" Move It, Count is Maximum Matter-Affeir by 1 Count , Method False is String Variable "A" Equivalent String Arragement Variable "CSV" (Counter,Article 1) Find Check out .
行番号５９０と６００と６１０は、”ＰＡＧＥ”に０から１に足した形で１万件文字列”Ａ”と、”ＣＳＶ”規格（数える変数，１条）に照会が一致する場合にラベル”ＳＴＡＲＴ”に移動します。
Command Line 590,600,610, Variable Value of "I" Start Page Variable Plus 1 to 10Thousand Counter Count Check It, Standard "CSV" Type (Count,Article 1) Equivalent String text Variable "A" Then Go to Label "Start" Move it .
行番号６２０と６３０は、現在位置の規格の”ＣＳＶ”が（ＰＡＧＥ変数，１条）の配列が空の時同じ位置の規格”ＣＳＶ”にテキスト変数”Ａ”を代入します。規格”ＣＳＶ”が指定の空の場合にラベル”ＴＲＹＢＬＯＣＫ１”に移動します、空ではない場合はラベル”ＳＫＩＰＴＯ”に移動して行程を省略します。
Command Line 620,630, Standard "CSV" Arragement Variable is Sequence Location Now Then Case Empty to Substitute "CSV" to "A" After Equivalent "CSV" is String Text "A" Variable,Target to Standard "CSV" Case is Empty Go to Label "TRYBLOCK1" Move It, Then Not Empty is Skip Method and Goto Label "SKIPTO" Move It .
行番号６４０と６５０と６６０は、ラベル“ＭＡＫＥＦＩＬＥ”の行程です。６５０は、変数”Ｉ”に一万項、変数”Ｔ”に十一条を初期化します。一条から十一条まで空を入力して残存記憶を消去し設定します。
Command Line 640,650,660, Label "MAKEFILE" Plan Routine Command Line 640,650,660, Count Variable "I" is Count 1 to Count 10Thousand with 11 Article Standard "CSV" 2 Dimension Arragement Variable This "MAKEFILE" is All Format Setting and Memory Flush Value Equivalent Empty .
行番号６７０と６８０と６９０と７００は、変数文字列”ＯＦＮ”に書き込みモードで開きます。規格”ＣＳＶ”の１項から１０千項まで１から１１条までの項目をＷＲＩＴＥ関数にて、書き込み設定します。
Command Line 670,680,690,700,710 Generic Write Mode is Fuction Open Mode, String Text Variable "OFN" Open File Name Clause 1 to 10Thousand with 1 to 11 Article Write It, Step End at Jump to Label "Start" turn loop .
行番号７２０と７３０は、ラベル”ＭＡＫＥＦＩＬＥ”を行程を省略してキーボードカーソルの位置を４行に揃えその時の規格”ＣＳＶ”（項，２条）を表示します。
Command Line 720,730, Step Skip to Label "MAKEFILE" Not Work, KeyBorad Cusor Line 4 with Standard "CSV" Variable (PageCount,Article 2) Show Display It .
行番号７４０はクレジットカードの裏にある認証番号をＶＩＳＡは１から９９９、ＭａｓｔｅｒＣａｒｄは１から９９９９までで、入力を必要としています。入力したユーザ情報は鍵番号と確認します。変数”ＳＩＤ”に情報が格納されます。
Command Line 740,Passenger User Need Credit Card BeHind Look at Accept Number Typing is Case Visa equivalent 1 to 999(3 Column), Case MasterCard 1 to 9999(4 Column) Type In Put Secure ID Number,User Typed Infomation is Checking PassWord Number, "SID" Variable Value in Conteiner Variable Infomation .
行番号７５０は、”ＳＩＤ”変数に文字列から算数値にＶＡＬ関数で変換して１以下と、９９９９以上にならないようにします。その時例外が入力された場合に７３０行にある最も近いラベル”ＴＲＹＢＬＯCK１”に移動します。
Command Line 750, "SID" Variable Text Comvert Function "VAL" to Exchange Number,Exception 1Under with 9999Over Then No Pass and ReStart Most Near Label "TRYBLOCK1" Move and Jump It .
行番号７６０は、”ＣＳＶ”規格の次の条を２に設定して空の場合に先程の変数”ＳＩＤ”を置き換えます。
Command Line 760,IF "CSV" Arrangement Variable Standard Case Empty by Next Value Article "2" Replacement Exchange RearWard Variable "SID" .
行番号７７０と７８０と７９０は、”ＣＳＶ”規格の３条を表示します。表示の後、Ｅ－ｍａｉｌを入力し、変数”ＥＭＡ”を格納する。ＥＭＡが関数ＬＥＮによって１文字以下で確認している場合に”ＣＳＶ”規格がなおかつ空でない場合、ラベル”ＴＲＹＢＬＯＣＫ３”まで工程を省略します。
Command Line 770,780,790, "CSV" Standard and Article "3" Show Display After User Word Type "E-MAIL" Variable "EMA" Conteiner In Put Case Function "LEN" by Variable "EMA" Word Length Under "1" and "CSV" (PAGE,3) Equivalent Empty Then Skip Command Line Jump to Label "TRYBLOCK3"
８００は、省略しなかった場合に、変数”ＴＢ２”に”ｆａｌｓｅ”を自動で入力します。
Command Line 800, User Type Infomation Case No Skip Then Variable "TB2" In Put Conteiner Word "false" by Automation Typing .
行番号８１０と８２０は、変数”Ｉ”を１から始まりＬＥＮ関数で文字数の間を実行します。もし、文字列解析”ＭＩＤ”関数で、特定の”＠”が見つかれば変数”ＴＢ２”を”Ｔｒｕｅ”に置換します。その際の式はＭＩＤ（”ＥＭＡ“，回数，１文字づつ）です。
Command Line 810,820, "I" Valible Start Value "1" to Function "LEN" and Variable "EMA" Word Length Between Execute Command Line,IF Word Analiysis Function "MID" execute Find "@" Mark by Serch in Look and RePlacement "false" change "True" by Method is MID Function (Variable "EMA" , Counter , 1Length Word) .
行番号８３０は、規格”ＣＳＶ”が項と、３条が空の時、“ＣＳV"に変数”ＥＭＡ”を置換します。
Command Line 830, "CSV" Standard is Clause with Article 3 is Empty Then RePlacement "CSV" to "EMA" .
行番号８４０は、変数”ＴＢ２"の結果が”Ｔｒｕｅ”の場合次のラベル”ＴＲＹＢＬＯＣＫ３”に移動します、変数”ＴＢ２”の結果が”ｆａｌｓｅ”の場合”Ｔｒｕｅ”の後のラベル”ＴＲＹＢＬＯＣＫ２”に戻ります。
Command Line 840, "TB2" Variable is Result "True" Case Jump to "TRYBLOCK3" Next Stage Else "TB2" Variable is Result "false" Case Jump to Return Behind Block "TRYBLOCK2" .
行番号８５０と８６０と８７０と８８０と８９０は、”ＣＳＶ”規格（項，条４）を表示し、変数”ＴＥL”の置き換わる変数を入力します。文字列”ＴＥＬ”の文字数が０の場合その条件は、”ＣＳＶ”規格が、空で有る事を否定系である事で次のラベル”ＴＲＹＢＬＯＣＫ４”に進みます。次に変数”ＴＢ３”の結果が”Ｔｒｕｅ”の場合ラベル”ＴＲＹＢＬＯＣＫ４”に移動します。その結果が”ｆａｌｓｅ”の場合後ろのラベル”ＴＲＹＢＬＯＣＫ３”に戻り入力をやり直します。次は”ＣＳＶ”規格が（項，条４）が空の時、別の変数”ＴＥＬ”を置き換えます。
Command Line First 850 to Last 890, "CSV" Standard is Show Display "CSV(Page,Article4)" Typing This System Can Variable "TEL" Replacement Nothing Infomation "CSV" Arragement Variable Value,User Typing Case Equivalent Word Length 0 This Terms "CSV" Standard Arragement Variable Value of Result Not Nothing Jump to Label "TRYBLOCK4" Move It,Next Terms "TB3" Variable Value Result "True" Case Jump to Label "TRYBLOCK4" Move It, Else "TB3" Variable Value Result "false" Case Return to BeHind Label "TRYBLOCK3" Move It,"CSV" Standard is (Page,Article4) Case is Empty Then Distinction By "TEL" Variable Value Replacement "CSV" Standard Empty Clause Change It .
行番号９００と９１０と９２０と９３０と９４０は、関数”ＬＯＣＡＴＥ”によって１４行に位置し”ＣＳＶ”規格の”（項、条５）”を表示します。そのあと、行番号９００と９４０の間、関数”ＬＥＮ”にて、文字列変数”ＮＡＭＥＥＮＧ”の文字数が０のとき且つ”ＣＳＶ”規格が空でない時次のラベル”ＴＲＹＢＬＯＣＫ５"に移動します。変数”ＮＡＭＥＥＮＧ”が無効な文字列の場合ラベル”ＴＲＹＢＬＯＣＫ４”に戻り同じ質問を繰り返します。”ＣＳＶ”規格が空の時、”ＣＳＶ”規格が変数”ＮＡＭＥＥＮＧ”に置換されます。
Command Line First 900 to Last 940, Function "LOCATE" by Place 14 word Line Pottision, Show Display "CSV" Standard by "(PAGE,ARTICLE5)" After Forward First 900 to Last 940 Between Then "LEN" Function "NAMEENG" Variable Value Count word by "0" with "CSV" Standard is Not Empty Then Go to "TRYBLOCK5" Move It, IF Key Board Typing is In Put From by Invalidity String word Case Return Go to Label "TRYBLOCK4" Looping Type, Out Follow Same Answer ReQuesting,Else and Value Empty by "CSV" Standard in Replacement Arragement Variable Value "(Page,Article5)" to "NAMEENG" Variable .
行番号９５０と９６０と９７０と９８０と９９０と１０００と１０１０は、関数”ＬＯＣＡＴＥ”にて、文字位置が１６行に移動し、規格”ＣＳＶ”と配列”（項，条６）”の結果の値を表示します。また文字位置が１７に移動し、日本名前の漢字モードで答えなければなりません、外国の場合不要です。関数”ＫＬＥＮ”にて、”ＫＡＮＪＩＮＡＭＥ”の変数の漢字文字数の値を返します。結果が”０”（空）で、”ＣＳＶ”規格も空で有れば、次のラベル”ＴＲＹＢＬＯＣＫ６”に進歩します。”ＫＬＥＮ”関数にて、”３”のパラメーターが指定され、変数”ＫＡＮＪＩＮＡＭＥ”が”０”で空の場合、何もしません、その他は、ラベル”ＴＲＹＢＬＯＣＫ５”に戻って同じ質問をします。無効な文字列が入力された時もラベル”ＴＲＹＢＬＯＣＫ５”に戻ります。”ＣＳＶ”規格が”（項，条６）”の条件で空の時、変数”ＫＡＮＪＩＮＡＭＥ”に、”ＣＳＶ”規格が置き換わるように置換されます。そのあと、画面を文字列を全て消去して、次のステージに進歩します。
Command Line First 950 to Last 1010, Function "LOCATE" by Move Jump to KeyBorad Coursol Posittion Line 16 Move It, Result on Show Display "CSV" Standard and Parameter "(Page,Article6)" Value And User Must Answer Typing Kanji in Japanese, KeyBoard Coursol Move to 17 Line Pottision,This Answer "KANJINAME" Variable Touch Typing by Other Country is Need less, Function "KLEN" is Parameter "3" Localize "KANJINAME" Variable is Empty and ZeroWord to Return Label Move to "TRYBLOCK5" This Answer is Same, Invalidity String Text Touch Typing is 1 Count RearWard Label "TRYBLOCK5" and Question isSame Answer, "CSV" Standard is Parameter "(Page,Article6)" Tarms in Decision by Empty at Replace "CSV" Arragement Variable Value Change to "KANJINAME" Variable From In Put Continer by Japan After ForWard Clear Screen and Next Stage Answer Progress .
行番号１０２０と１０３０と１０４０と１０５０と１０６０と１０７０は、画面を消去したあとの、最初の入力です。”ＬＯＣＡＴＥ”関数で、キーボードカーソルの位置を４行目から開始します。 ４行目は、次の項だったバックステージより項目数が少ないので、４行目から開始します。４行目に”ＣＳＶ”規格の”（項，条７）を表示し、空で有れば、表示されない４行です。５行に移動して、アイテム（項目）を表示します。郵便番号を聞いています。入力情報は、変数”ＺＩＰ”に入れられます。５行目に項目と照会が一致する情報を入力しなければなりません。変数”ＴＢ６”に”ｆａｌｓｅ”を自動入力します。次の工程に”ＦＯＲ”関数にて、７９列カウントを変数”Ｉ”にします。間隔は、１列づつです。”ＭＩＤ”関数にて先程入力した”ＺＩＰ”変数に文字列”－”がある場合、郵便番号が成立し、変数”ＴＢ６”を”Ｔｒｕｅ”に変更します。”ＩＦ”関数と、文字列の数を数える”ＬＥＮ”関数が実行され空の時、”０”を示し、”ＣＳＶ”規格の”（項，条７）の結果が空を否定の時、ラベル”ＴＲＹＢＬＯＣＫ７”に移動します。”ＮＥＸＴ”関数で条件が終わりを迎えた時、関数”ＩＦ”によって変数”ＴＢ６”に”Ｔｒｕｅ”が一致する場合、ラベル”ＴＲＹＢＬＯＣＫ７”に移動します。他は、変数”ＴＢ６”を”ｆａｌｓｅ”に自動で入力します。その時、ラベル”ＴＲＹＢＬＯＣＫ６”に質問を戻る事ができます。”ＣＳＶ”規格の”（項，条７）が空の時、変数”ＺＩＰ”に置き換わります。
Command Line First 1020 to Last 1070, User Typed to Screen Clear After Begin KeyBorad Type, Function "LOCATE" by Move to Key Coursol Possition Line 4 with In Put "ZIP" Variable Conteiner Start on, Line 4 is Less Than Back Stage ITEM and Start Line 4,This 4 Line is "CSV" Standard and "(Page,Article7)" Show Display Then "CSV" Standard is Value of Case Empty is Show Nothing, Move to Line 5 by Function "LOCATE" at Show ITEM Display,Type and Request "ZIP Code" Typing Infomation in Conteiner "ZIP" Variable, That Line 5 is Must Type Infomation with Identity Check It,"TB6" Variable Value Automation in Replace "false", Next Process Statement Function "FOR" by Cloumn 79 Count Setting "I" Variable in Value and Step 1 Cloumn to Between and "MID" Function to From Back Typed "ZIP" Variable Contein "-" String Text Value is Complate "ZIP Code" and "TB6" Variable Change "True" It,"IF" Statement Function and Word Count "LEN" Function Execute Then Tell Empty and Zero Value, Result of "CSV" Standard with "(Page,Article7)" Case is Not Empty Jump to Label "TRYBLOCK7" Go It,"NEXT" Function Looped at Tarms is End Then "IF" Statement Function by "TB6" Variable Checking of "True" Case by Check Each Agree Go to Label "TRYBLOCK7" Step by Skip Sorce Code Move It,Else Other "TB6" Variable "false" on Automation Input THen Label "TRYBLOCK6" to Back Answer Return Thing,"CSV" Standard and "(Page,Article7)" Case is Empty Then Replacement "ZIP" Variable Change It .
行番号１０８０と、１０９０と、１１００と１１１０と１１２０は、関数”ＬＯＣＡＴＥ”にて文字座標を７行として、規格”ＣＳＶ”があれば表示します。使用者は入力しなければなりません。最初の住所、区画（国名、県州省、都市の名前）にそれぞれ分けられます。使用者が無効な文字列を入力していないか、自動で調べる事ができます。規格”ＣＳＶ”が空の時、セルフで入力したＩＤを持つ変数”ＡＤＲ１”に置き換わります。
Command Line First 1080 to Last 1120 with Between, Function "LOCATE" by Word Line 7 by User Self Typing Have Infomation "CSV" Standard Show Display,User Must Typing In Put "ADR1" Variable Conteiner Value,Begin Start Address and Section (Country , Continent, City Name) Difficult Each It,User is Case by Invalidity Typing Character Word at Checking Contents After Automation System Self Checking,"CSV" Standard is by Empty Case is User Have Self Identify Typing "ADR" Variable Value Replace to "CSV" Standard .
行番号１１３０と１１４０と１１５０と１１６０と１１７０は、次までの間、住所の市と県省州と国籍のそれ以外の住所を使用者は必要な情報を入力しなければなりません、無効な文字列は無視され位置が動かず質問を繰り返します。空等であれば元のラベル”ＴＲＹＢＬＯＣＫ８”に帰ります。すでに規格”ＣＳＶ”が空でない場合は、変数”ＡＤＲ２”に置き替えます。次にあるラベル”ＴＲＹＢＬＯＣＫ９”に進歩します。
Command Line First 1130 to Last 1170, At Next Behind Between Address by User Must KeyBoard Typing Skip Inter National or Continent or CIty Other is Need Infomation , Invalidity Word Character at Ignore with on No Move Repeat Answer, Case by Empty are Send Return Label " TRYBLOCK8", Already "CSV１" Standard is Have a Infomation by Change Replace Variable "ADR2", Progress Next Label "TRYBLOCK9" Go on .
行番号１１８０と、１１９０と、１２００と、１２１０は、関数”ＬＯＣＡＴＩＯＮ”にて１３行目に既に有った場合”ＣＳＶ”規格の”（項，条１０）”によって中身を表示します。１４行で、誕生日の年、月、日を使用者は、入力しなければなりません。無効な文字列を入力することはできません。そしてその時元のラベル”ＴＲＹＢＬＯＣＫ８”に帰ります。
Command Line 1180,1190,1200,1210, Function "LOCATION" Parameter Have Line 13 and Show Display Arragement Variable "CSV" Standard "(Page,Article10)" by Contents Conteiner, User By Line 14 Typing Number as "Birth" with Year,Mounth,Day, User Can Not Invalidity Character KeyBoard Typing, Through Then Back Label "TRYBLOCK8" Go Returns .
行番号１１２０と１２３０と１２４０は、初頭から”ＬＯＣＡＴＥ”関数で１６行に移動を実行します。その時規格”ＣＳＶ”が空でなければ表示します。１７行に移動し、使用者はクレジットカードの更新期限を入力しなければなりません。必要な情報の一つとしています。もしも長さが０のその時規格”ＣＳＶ”が空でなければラベル”ＣＨＥＣＫ”に移動して、個人情報の質問の全ては終わります。変数”ＴＢ３”を”ｆａｌｓｅ”に設定して、入力文字の全部に”／”を含めば変数”ＴＢ３”に”Ｔｒｕe”に変えます。文字数まで繰り返しします。規格”ＣＳＶ”が空で有れば、今入力していた変数”ＬＩＭＩＤ”を規格”ＣＳＶ”に置き換えます。もしも文字数が５他７の場合何もしません、その他、元の質問のラベル”ＴＲＹＢＬＯＣＫ１０”に使用者は、再入力しなければなりません。
Command Line Fist 1180 Between Last 1280, Operation Oder Next Topics by Function "LOCATE" is Move To Line17 Cursol on Execute, Then "CSV" Standard Show Display if Not Empty Case on Show, Move To Line 17 After Typing User Must Cad Limid End Tarm on Year/Mounth, This is Need Infomation Many One, If String Text Length Case Equivalent "0" Then "CSV" Standard is bu Not Empty at Label "Check" Go it,Type All Conteiner In Put Infomation Only Person Data on End, "TB3" Variable to Input Conteiner Value Equivalent "false" Variable Set on, User Typing Find Check up Contein Character Word of Use "/" at Change on "True", Repeat Count String Text Length, "CSV" Standard is Not Empty in Case Pass Execute,RearWard "LIMID" Variable Value After Replace to "CSV" Standard,If Character Length in Case is 5 or 7 by Nothing, Else Back Answer Go to Label "TRYBLOCK10" Repate and ReTyping by Self User .
行番号１３００と１３１０と１３２０と１３３０と１３４０と１３５０と１３６０と１３７０と１３８０と１３９０と１４００は、１１項目の変数”Ａ”、”ＳＩＤ”、”ＥＭＡ”、”ＴＥＬ”、”ＮＡＭＥＥＮＧ”、”ＮＡＭＥＫＡＮＪＩ”、”ＺＩＰ”、”ＡＤＲ１”、”ＡＤＲ２、”ＢＩＲＴＨ”、”ＬＩＭＩＤ”の全てが、情報を持っていれば、規格”ＣＳＶ”に置き換えます。”（項，条１～１１）”から、１１項目の変数に対して１１項目の変数を置き換えます。
Command Line First 1300 to Last 1400, This Section is 11 ITEM Variable Value with "A" and "SID" and "EMA" and "TEL" and "NAMEENG" and "NAMEKANJI" and "ZIP" and "ADR1" and "ADR2" and "BIRTH" ans "LIMID" all 11ITEM Variable Value is IF Not Empty at "CSV" Standard Arragement Variable Value Replace Change to Variable 11ITEM .
行番号１４１０と１４２０と１４３０は、先ず”ＯＦＮ”シーケンシャルを仮開きした時に得た関数”ＥＯＦ”の値を変数”ＯＦＬＡＧ”を置き換えます。ファイル”ＯＦＮ”が空で有れば”ＯＦＬＡＧ”は、”－１”の値を示します。閉じたあと、新しいファイルが作られ、開くことができます。１から１万件まで管理し、１件につき１１項目を同時に書き込み閉じます。
Command Line 1410,1420,1430, First Pre Open "OFN" Sequencial File Then Execute Function "EOF" Parameter is "1" with Get Value,IF This Get Value is "-1" in Case is End of FIle by Empty,"OFLAG" Variable Replace to Function "EOF" on Result,Close After Make New File,User Can Open File in Suggetion, FIrst "1" to "10000" count Arragement Variable "CSV" Standard After Write File of "OFN" Sometime Wrote by Close .
行番号１４４０は書き込んだ後、印刷するか尋ねます。その場合、”０”は、いいえ、”１”は、はい。はいの場合、変数を整列します。
Command Line 1440, Write Open File Was After Ask Printing It,This Case is "0" No, Case is "1" Yes, That Case is Align Variable All on Time .
行番号１４５０と１４６０と１４７０は、先程変数”ＰＲＩＮＴＥＲ”に入力された値が、”０”の場合最初に、”１”の場合、ラベル”ＰＲＩNTＳＣＲＥＥＮ”に移動します。”１”の場合、移動後文字列を”ＣＬＳ”関数、画像を”ＣＬＳ　３”関数で消去します。
Command Line 1450,1460,1470, Behind of Varible on "PRINTER" to User Typing Input Value with in Result is Case by "0" is Begin Status and Starting,Behind Variable in Result is Case by "1" to After "CLS" Function with "CLS 3" Function Execute in Erased Screen of String Text and Graphics .
行番号１４８０と１４９０と１５００は、書き込んだ後”ＦＬＵＳＨ”によって失った変数記憶を、書き戻ります。”１”から”１００００”まで書き戻します。そのあと、”ＯＦＮ”のファイルを閉じます。
Command Line 1480,1490,1500,Lost Memory by Flush at Open Write File was Return Memory of "1" Start "10000" End of File to Close Open FIle Name "OFN" Variable .
行番号１５１０と１５２０と１５３０と１５４０は、変数”ＣＯＵＮＴ”と”ＬＣ”を”０”と”１”の数を設定します。ステートメント関数”ＦＯＲ”にて、変数”ＣＯＵＮＴ”が”１”から”１１”までを、繰り返します。”ＬＯＣＡＴＥ”関数で文字座標を列を”０”、行を変数値”ＬＣ”にて、規格”ＣＳＶ"の”（項，条＝ＣＯＵＮＴ）”の条件にて印刷の情報表示します。変数”ＬＣ”は、”１行”の間隔を経て一回で”２”の数を追加します。”ＮＥＸＴ”にて繰り返し点です。
Command Line FIrst 1510 to Last 1540, Set Variable "COUNT" and "LC" Equivalent "0" or "1", Statement Function "FOR" by Repeat Value "1" to "11" Loop up, Function "LOCATE" Move to Coordinate X and Y Character Size with Cloumn "0" and Line "LC" Variable, Show Display "CSV" Standard "(Page,Count)" Terms Case by Print Out Mode Infomation, "LC" Variable is "1" Line Between Pass One More Addition "2" Value, Repeat Point Break Turn by "NEXT" Function .
行番号１５５０と、１５６０と１５７０と１５８０と１５９０と１６００と１６１０は、初めの状態が横”０”縦”０”に配列変数”ＴＩＴＬＥ”を”１”の因数の結果を表示します。次に、変数”ＣＯＵＮＴ”を０に、変数”ＬＣ”を”２”から始めます。関数”ＦＯＲ”にて変数”ＣＯＵＮＴ”は、”２”の値から始まり、”１１”で終わります。関数”ＬＯＣＡＴＥ”にて横は”０”縦は変数値”ＬＣ”に配列変数”ＴＩＴＬＥ”を”ＣＯＵＮＴ”の回数を因数に結果を表示します。変数”ＬＣ”は、”２”づつ加算されます。”ＮＥＸＴ”で閉じたあと、”ＬＯＣＡＴＥ”関数で、”７０”の横で、”０”の縦でキーボードカーソルを移動します。その時、変数”Ｑ”を使用者は、入力したあと、ラベル”ＳＥＴＳＣＲＥＥＮ”に移動し、繰り返し作業の現在の”ＰＡＧＥ”を終えます。
Command Line First 1550 to Last 1610, Starting Status is KeyBord Cursol is Horizontal "0" and Vertical "0" to Arragement Variable "TITLE" in Factor Show Result,Next is "COUNT" Variable Equivalent "0" and "LC" Equivalent "2" Begine, Statement Function "FOR" by "COUNT" Variable Start "2" to "11" End, Function "LOCATE" by Horizontal "0" and Vertical "LC" Variable Show Display Arragement Variable "TITLE" Value at "COUNT" on Factor Parameter Show Result, "LC" Variable is Addtion "2" Count Plus, Close Function "NEXT" After by "LOCATE" Function of Hrizontal "70" Column Vertical Line "0" Move to Keyboard Coursol, Then User is Typing "ENTER" After Screen Format, Repate Work is End "PAGE" Now .


********************