シスアドⅥ 福岡大

Timer Set on Aram,Buzzer on Beep Loop Seting Times.
100 REM ---------------------
110 REM Aram Program by Dai Fukuoka 2018.05.09
120 REM (C)電脳組
130 REM ---------------------
140 CONSOLE 0,25,0,1:SCREEN 3,0,0,1:WIDTH 80,25:COLOR 0,7,0,0,1:CLS 3
150 A$=TIME$:FOR I=0 TO 1 STEP 0:IF TIME$="07:40:00" THEN I=1:BEEP:BEEP:BEEP:BEEP:BEEP:BEEP:END
160 NEXT

Suptport Attend Go to That Hospital's, Wake Up Beep Sound on Timming on Get Up And Stand by Attend.Command Line 140,Standard Setting at Source Coode
Command Line 150,Let Timmer Variable Value of A$ Let Times at Scond Process,Catch on Timmer in AM 7:40 Hour and Minute Set with Start Up Stand up Wake Timer and Buzzer of BEEP count 5 Aram Timer.That Timmer is Program at Wake up Aram Source Coode.Statement of End Command is Close Program at on Stand by "Beginner's All-purpose Symbolic Instruction Code" at Those Standard Command Prompt.
このプログラムは初期化と、起床時間のブザー音で知らせるタイマーを朝の７時４０分に出発準備をする例文のプログラムソフトです。単純な構造になっており、変数”Ａ＄”にタイマーをセットする事で、ＦＯＲによる無限ループによって、ビープ音で知らせて、ＥＮＤにて終了します。病院の通院の８時１０分発着発のバスを７時４０分から出発して待合します。









100 REM ---------------------
110 REM SearchAscii Program by Dai Fukuoka 2018.07.15
120 REM (C)電脳組
130 REM ---------------------
140 CONSOLE 0,25,0,1:SCREEN 3,0,0,1:WIDTH 80,25:COLOR 0,7,0,0,1:CLS 3
150 DIM STRAIGHT$(390000):DIM HITCOUNT(390000):DIM CASEFILE$(2,99999)
160 INPUT "Open Sequential File Type of CSV Data Base Files : (FileName) ",A$
170 REM ON ERROR GOTO *ERRORSTOP:GOTO *SKIP1
180 REM *ERRORSTOP PRINT "No File Name Error";ERR:END
190 *SKIP1
200 OPEN A$ FOR INPUT AS #1:COUNT=1:WHILE EOF(1)=0:INPUT #1,STRAIGHT$(COUNT)
210 COUNT=COUNT+1:WEND
220 ENDCOUNT=COUNT:COUNT=1:PRINT "This DataBase Catch Out Conut of";ENDCOUNT-1
230 INPUT "Definition Type Sarch Words (2Byte):",B$:WLENGTH=LEN(B$):PRINT "Condition :";B$
240 FOR I=1 TO ENDCOUNT-1:FOR T=1 TO LEN(STRAIGHT$(I))
250 IF MID$(STRAIGHT$(I),T,WLENGTH)=B$ THEN HITCOUNT(I)=HITCOUNT(I)+1
260 NEXT T,I
270 FOR I=1 TO ENDCOUNT-1:IF HITCOUNT(I)=0 THEN ELSE PRINT I;"Result";HITCOUNT(I);",";
280 NEXT:PRINT
290 COUNT=1:FOR I=1 TO ENDCOUNT-1:IF NOT HITCOUNT(I)=0 THEN PRINT COUNT;STRAIGHT$(COUNT);:I=ENDCOUNT
300 NEXT
310 INPUT"Are You Hope All Data Base File Up List(Condition Print)(Y:0/N:1)",A:IF A=1 THEN *SKIP3
320 FOR D=1 TO ENDCOUNT-1
330 IF HITCOUNT(D)=0 THEN ELSE CASEFILE$(2,D)=STRAIGHT$(D):PRINT CASEFILE$(2,D)+" ";
340 NEXT D
350 *SKIP3
360 OPEN "SA18.txt" AS #2:CLOSE #2
370 OPEN "SA18.txt" FOR OUTPUT AS #2
380 FOR I=1 TO ENDCOUNT-1:IF HITCOUNT(I)=0 THEN ELSE WRITE #2,CASEFILE$(2,I);
390 NEXT I:CLOSE #2


Saerch Words and Data Base Read in Common is Count and Count After Type and Type Looking InvestiGate.User is Input Typing Any Clause.User Hope Farvorite Word Quick Search This Program.Analyse Result Data Base Contents.Seach ITEM's Conteiner SA18.txt File is Write with Reference txt.

探している文と、データーベースを読み込む共通の数と数、その後の文と文を見て調べる。使用者は入力して幾つかの箇条使用者は希望する好きな文をすばやく調べるこのソフトです。解析する結果のデーターベースの内容。探した項目は、ＳＡ１８．ｔｘｔのファイルに書いて一緒に参照するｔｘｔ





100 REM ---------------------
110 REM GuestArragement by Dai Fukuoka 2018.08.30-09.08
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$(27000):DIM SORTNUM$(255):DIM NEWCSV$(27000):DIM LETSORT$(255):DIM ALPHABET$(255):DIM NUM(27000):DIM TOP(27000):DIM NEWNUM(27000):DIM TWO$(27000,2)
160 INPUT "CSVデーターベースのファイル名を拡張子付きで書いてください",FLN$
170 OPEN FLN$ FOR INPUT AS #1
180 FOR I=1 TO 27000:IF EOF(1)=0 THEN INPUT #1,CSV$(I)
190 IF EOF(1)=-1 THEN ENDPERIOD=I:I=27000
200 NEXT:CLOSE #1
210 IF ENDPERIOD=1 AND CSV$(1)="" THEN PRINT "ファイルが空です"
220 DATA "あいうえおかきくけこさしすせそたちつてとなにぬねのはひふへほまみむめもやゆよらりるれろわをん"
230 READ B$:FOR I=1 TO 46:LETSORT$(I)=MID$(B$,I*2-1,2):NEXT
240 DATA "アイウエオカキクケコサシスセソタチツテトナニヌネノハヒフヘホマミムメモヤユヨラリルレロワヲン"
250 READ A$:FOR I=1 TO 46:LETSORT$(I+46)=MID$(A$,I*2-1,2):NEXT
260 DATA "AIUEOKaKiKuKeKoSaSiSuSeSoTaTiTuTeToNaNiNuNeNoHaHiHuHeHoMaMiMuMeMoYaYuYoRaRiRuReRoWaWoNn"
270 READ C$:FOR I=1 TO 5:ALPHABET$(I)=MID$(C$,I,1):NEXT
280 FOR I=1 TO 42:ALPHABET$(I+5)=MID$(C$,(I*2)+4,2):NEXT
290 FOR I=1 TO ENDPERIOD
300 FOR T=1 TO 5:IF NUM(I)=0 AND MID$(CSV$(I),1,1)=ALPHABET$(T) THEN NUM(I)=92+T
310 NEXT
320 FOR T=1 TO 42:IF NUM(I)=0 AND MID$(CSV$(I),1,2)=ALPHABET$(T+5) THEN NUM(I)=97+T
330 NEXT
340 FOR T=1 TO 92:IF NUM(I)=0 AND MID$(CSV$(I),1,2)=LETSORT$(T) THEN NUM(I)=T
350 NEXT
360 NEXT
370 LET R=1:FOR I=1 TO 139:FOR T=1 TO ENDPERIOD
380 IF NUM(T)=I THEN NEWCSV$(R)=CSV$(T):R=R+1
390 NEXT:NEXT
400 OPEN "sortExport.txt" AS #1
410 IF NOT EOF(1)=0 THEN ENDOFFILE=1
420 CLOSE
430 OPEN "sortExport.txt" FOR OUTPUT AS #1
440 FOR I=1 TO ENDPERIOD:WRITE #1,NEWCSV$(I):NEXT
450 CLOSE #1
460 FOR I=1 TO ENDPERIOD:PRINT NEWCSV$(I);:NEXT
470 PRINT "Result of Sort."
480 INPUT "on Enter Restart.",A$
490 RUN




This is Naming List Book at Japanese is Case of Hiragana,Kana,Roman Order Arragement Reference Firstest Hiragana Second Kana Next Roman Legal Rule.This is Examination Empty File ,And Too Stop on Case with Restarting,If Empty Case is Have File Name True That Touch Type File Name is No Error and Can ReStart.Command Line : 220 is Sort Arragement DataBase Reading Start,That File Put Exchange Word Number is Result 1 to 139 Arragement Changing Top Word Name at Nubmber.ReUse and Change Cycle Alphabet Arragement Remake If Can Your Technique and ABC Sort Arragement ReChange.Result is Display with Export Txt File,This is Note Pad Examination and Change Arragement Result See You Result on Note Pad Applette to "sortExport.txt".

このソフトは日本人名簿を並び替えます。並び替えを日本語でひらがな、カタカナ、ローマ字に並び替えるソフトです。Ｒｅａｄで順次、ソート項目を読み込み、ＤＡＴＡから文字配列を抽出します。応用すれば、ＡＢＣ順に並び替える事もできます。結果は、表示され、新しくソートエクスポートと言うＣＳＶデータ型でＴＸＴ形式のメモパッドで読み込み可能です。主に日本語の名前の並び替えに有効な使い道があります。