福岡だいの動画と、同人誌の販売

同人誌 動画 プログラム 情報処理 アート グラフィックス 有償 2018年創業

システムアドミニストレーター16BitからのビジュアルC-福岡大

2018-11-30 18:09:58 | 日記
********************

Cを翻訳するにあたって、注意点や、互換点をBasicに比較します。Basicは、CommonGateWayInterfaceほど難しいプログラミングですが、初心者向けに作られているべーシックは、頭文字の意味は、ビギナーのBであり、まず初めにプログラミングを教習するのに、学校などの支援もあり、捕捉されます。Cからは、本格的なアプリケーションプログラミングインターフェイスをもち、専門学校以上で教習できます。
Translate of C hit Tips with Point Decision After Compare Basic, Basic Difference of Common Gate Way Interface(CGI NetWork Programming) Equivalent Level It,Make on Biginner's Edition Basic is Prefix of B mean is by Easy with Biginner's,First Plan Learn Program Starter Support School Use Target It,C Bigin Expart have API with Professional School Over Learn C .

一方向の評価
C
if(D==0){D=1;}
Basic
IF D=0 Then D=1
表記の注意点は、Cは、等価評価することに、==と2文字使うほか、ステートメントにあたるifに条件枠を数括弧”()”つかい、中括弧”{}”の中には、条件が成立した場合、書かれたコードを実行します。ここでは、変数”D”が”0”と等価の場合、変数”D”に”1”を代入しています。最後の区切りは、Cは何時も”;”セミコロンを使い、セミコロンで区切ってあれば、2行を1行にセミコロン2つを1行で表記できます。
This wrote Statement Funcion Appointment is C is Equivalent by "==" Dublue Equal Symbol use else hit Statement "if" at Terms Trim Border of "()" use After Middle Class Border "{}" to Contein Complate Terms in Case,Wrote Program Code on Execute, This Section "D" Variable by Equivalent "0" in Case "D" Variable In put "1", Last Divition is C by SemiCoron "" Carrige and 1 Line Addition Program Code Can Wrote It .



二方向の評価
C
if(D==1){D=0;} else {D=1;}
Basic
IF D=1 Then D=0 ELSE D=1
これは、2巡すれば、変数”D”は、”0”になります。この構文は、変数”D”が”1”の時、変数”D”を”0”に初期化します。二方向評価するにあたり、このコードは、1以下1以上で変数”D”を”1”とします。構文をセミコロンで区切ります。
This is 2 come round by "D" Variable Equivalent Value is "0" Result, This Word is "D" Variable is Then "D" Variable Bigin Setting of "0", Hit 2 Way Decision less than with more than by "D" Variable "1" Value,This String word is Shut SemiCoron .

多方向の評価
C
if(D==0){D=1} else if(D==1){D=0;} else {D=1;}
Basic
IF D=0 Then D=1 Else IF D=1 THen D=0 Else D=1
3段階の評価は、値”0”と”1”だけです。値が”0”の時、変数”D”を”1”とし、”D”が”1”であれば”0”に反転します、もし、値”0”と”1”以外が代入に値したときは、”0”と”1”以外の場合、変数”D”を”1”に設定後、2巡から、2方向の評価となります。
3 Way Decision is Value "0" and Value "1" Only, Then Value by "0" to "D" Variable Reply "1" Vakye,Then Value by "1" to "0" Reversed,IF Case is Out Of Value with not "0" or "1" to "D" Variable Set Value "1" After Repeat Count 1 ForWard Run 2 Count After 2 Way Decision .


繰り返し
C
int D=9;while (D>=0){D--;}
Basic
LET D=9:WHILE(D>=0):D=D-1:WEND
関数のintとLETの違いに注目してください。Cは、プロトタイプ宣言を必要としており、明確なキャストで有っても、型変換はできません。よって、数字型のintに数字変数”D”に”9”から始まり、関数”while”と”WHILE”の大文字と小文字は区別されるケースセンシティブを採用しています。”while”関数により、”D”が”0”と等価かそれ以上の時繰り返し、ベーシックは、同じ様に見えても、違う点は、コロンとセミコロンの使い方に注意してください。ベーシックは、必ず、”WEND”で折り返し点を確認していますが、Cは、関数”WEND”がありませんが、”{}”によって中身を実行すると、Dをデクリメントするにあたり、ここもベーシックと表記の違いを注意してください。Cは、”D--”と、することで、べーシックの表記では、”D=D-1”としなければなりません。
This Compare Function "int" and "LET" Defficult Pointment Attention,C by Declaration Need It,Exactness have by Cast No Exchange,Therefore Number Value of "int" Bigin "D" Variable Start"9" Repeat "-1" Value Morethan Between Statement Function "while" by Capital Letter size Compare Reverse Capital Letter size Each Difference Adoption "CaseSencitive",Basic is Look at Something by Diffierence "coron" and "SemiCoron" Attention use It,Basic must Repeat End at Need Carrige "WEND" System Check Compare C Nothing "WEND" Function by Turn Point,Middle Quart "{}" in Execute After "D" Variable Value Hit Decrement,This Location by Attention Compare Basic and C Difference,C is "D--" Equivalent Basic must "D=D-1" .

繰り返し2
C
for(int D=9;D>=0;D--){TextOut(hdc,D*16,0,D,1);D--;}
Basic
FOR D=9 TO 0 Step -1:LOCATION 0,0:PRINT D:NEXT
今度は、少し高度なCの繰り返しに挑戦してみました。”int”を”for”の内部で宣言され、変数"D”が”0”以上の間、変数”D”は、一づつ数を減らし”0”の値の後止まります。”{}”の中のコードは、Cの”TextOut”は、ベーシックの”PRINT”に相当するものです、”TextOut”にて、Dの値をカウントダウンします。ベーシックで、デクリメントを行うにあたり、”STEP"パラメーターを”-1”は、1づつ設定しなければなりません。
This Round is Any High Repeat by C Challenged,Declaration Private Internal Satement Function from "for" in "int" Function Declaration "D" Variable,"D" Variable MoreThan "0" Between by CountDown Result is LessThan "O" Stop, Middle Quate "{}" InSide Programming Code is Development Language "C" by "TextOut" Function is Equivalent Basic Language "PRINT" Function Value, Basic Declement Execute "Step" Parameter "-1" is must Each Setting .

繰り返し3
C
int D;do{TextOut(hdc,D*16,0,D,sizeof(D));D++;}while(D<10);
Basic
LET D:WHILE(D<10):LOCATION 0,0:PRINT D:D=D+1:WEND

こんどは、Cによる”do”に開始し、テキストアウト関数にて、ハンドル”hdc”と、変数”D”のバイト数を”sizeof”関数でデータ容量を量り、文字数と同じ文字の長さを指定しています。ベーシックは、”LOCATION”関数で”PRINT”の位置が動きません。今度は、Cが”while”で閉じている事が、”WEND”との違いです、変数”D”のインクリメントは必ず必要です。加算しないと、”for”関数と違い、無限ループに陥ります。
This Stage is Development Language by C and Begin "do" Start ForWard "TextOut" Function by with "hdc" HANDLE and Variable "D" Value Count of Byte by "sizeof" System Call Code,String Text Length SomeOne,Basic is "LOCATION" Function Show "PRINT" Function No Move It,This Round C is Close of "while" Function,This Thing Compare "WEND" Difference, "D" Variable Need Inclinement, This "do" Difficlut "for" Statement Function and No Count Addition Value is Endless Loop .

配列と文字列
C
int IdNum[10] ; char Names[25] ; float Coordinate[100][11] ; char Comeon[30]="Yes Go" ;
Basic
DIM IDNUM(10):DIM NAMES$(25):DIM COORDINATE(100,11):DIM COMEON$(30):LET COMEON$(1)="Y":LET COMEON$(2)="e":LET COMEON$(3)="s":LET COMEON$(4)=" ":LET COMEON$(5)="G":LET COMEON$(6)="o"
Cとベーシックの違いは”char”が1字づつのカウントを”30”回数えるほか、合わせるためには、煩雑です。”COMEON$(1)=”Y” ”と出来るほか、ベーシックの配列変数は、文字数に制限がないので、”COMEON$(1)=”Yes Go””とすることもできます。”float”にて宣言されているのは、ベーシックの”DIM”関数に相当する、2次元配列です。これを”DIM”は、”(100,11)”とします。
C Development Language Difference Basic to "char" by 1 Count to "30" Hit Count Else Combain Thing are Bad, "COMEON$(1)="Y" " Can It, Else Basic is Arregement Variable is Word Count No Count,This Thing is Can Easy by "COMEON$(1)="Yes Go"" , Declaration "float" Function is Doublue Dimention Variable is Arregement, This is by "DIM" Equivalent "(100,11)" Decision .

クラスの定義
C Only
Class And_Day {Public: And_Day(int YY,int MM,int DD);void ShowDay;~And_Day;Private: int Year,Mounth,Day; }
”~”チルダにて、宣言後の自作関数を削除します。他のクラスに継承するためのパブリックが設けられています。パブリックは、引数を持つAnd_Day”クラスであり、YYとMMとDDで継承されます。”void”は実行型関数を意味し、”CONST”は、固定値で有る事を意味しています。一つ一つ宣言することもできますが、”int”型は、一つで一斉に定義できます。”int”型は、”Year,Mounth,Day”として宣言できますが、プライベートは、内部変数で使われるので、クラス内部で使われる値なので、他のクラスに干渉関係がありません。実行型の”void”と判定型の”BOOL”と、パラメーター型の”int”があります。主に引数を引かない”void”は、メンバ関数他を、メンバ変数と言います。”return”関数で戻り値を持ち実行後の結果を引数を返します。主に”void”は、戻り値の必要無いグラフィック制御等に使われています。
Destructer Type Tilder Declaration Behind Make My Function at Deleate,Other Class Inheritance by "Public:" Install,"Public:" is Pull Value of Parameter have Exist Class "And_Day", Variable "YY","MM","DD" in Inheritance to New Class,"void" is Execute Function Mean UnderStand,"const" is Fix Control Value Mean UnderStand,Many One Can Declartion Each Difference,"int" Type Fuction is Can All in One Definition,"int" Type Function is Can Variable "Year","Mounth","Day" Value by Declartion Execute And Too,"Private:" Was Inside Used Class Value, Other Class Relation No Bridge,Execute Type "void" Type and Reverse and Reverse "BOOL" Type Value and "int" Type Exsistance, No Return Value "void" is Member Function and Other Class Factor Return Value with Member Variable,"return" Function have Return Value and Result Execute Pull Value,Mainning "void" by No Return Control Graphics Userful .

列挙型
C
enum coloring {Red="Red",Yellow="Yellow",Green="Green",Blue="Blue",Violet="Violet"};void main(){coloring Favorite; Farvorite=Violet;}
Basic
DIM COLORING$(5):LET COLORING$(1)="Red":LET COLORING$(2)="Yellow":LET COLORING$(3)="Green":LET COLORING$(4)="Blue":LET COLORING$(5)="Violet":FAVORITE$=COLORING$(5)
Basic
DIM COLORING$(1,1,1,1,1):LET COLORING$(1,0,0,0,0)="Red":LET COLORING$(0,1,0,0,0)="Yellow":LET COLORING$(0,0,1,0,0)="Green":LET COLORING$(0,0,0,1,0)="Blue":LET COLORING$(0,0,0,0,1)="Violet":LET FAVORITE$="COLORING$(0,0,0,0,1)

一個づつの定数で、深い配列が可能です。”enum”は、ベーシックで、”DIM”関数で、DIM A$(1,1,1,1,1)とすることもでき、一定の互換性があります。多次元配列を1までの定数として、複数列挙が可能ですが、本コードは、BasicとCの解釈は変わりません。ベーシックでも列挙はできますが、前のベーシックの方がスマートです。
Many one Can Fix Value with High Arragement,"enum" is Equivalent Baisc "DIM","DIM" Function Can "DIM A$(1,1,1,1,1)" Compatible, This Function Can Many Dimention Arragement Made List of Variable Value,This Code Program is Basic and C Development Language is No Change UnderStand,Basic "DIM" Function Can Made List of
Value,BackWard Basic by Smart .

ポインタデストラクタ
C
numOne=new int[10];
if (numOne)
{
delete [] numOne;
}
C
GetPointer() *numOne;
numOne = new GetPointer(1,2,3);
int i;
i=numOne->GetPointer();
numOne.delete;
Basic
DIM NUMONE$(100):ERASE NUMONE$
最初のものは、動的に”int”型で10バイト確保し、”if”関数にて”numOne”が否定系でなければ、”delete”関数にて、取得バイト数にかかわらず、”numOne”を削除します。次のものは、ポインタを用いた例です、”numOne”のクラス”GetPointer”を呼び出し、”numOne”のポインタに置き換わります。また、動的に”numOne”に”GetPointer”が取得され、変数”i”を宣言し、”i”に、”numOne”は、”GetPointer”クラスにポインタします。最後に、デストラクタとして、”numOne”が削除されます。
Begin Thing Dynamic "int" Type Function by 10Byte Get It,"if" Statement Function by "numOne" No not at delete No Much Arragement Value,Next Thing is Use Pointer Exsample,"numOne" Call Class "GetPointer()" and Replacement "numOne",Declare Variable Value "i" withon Pointer "GetPointer()" Class "numOne" It,Lasted Destractor delete This "numOne" Pointer.


論理演算
C
if (!hwnd)
{
HWND hwnd;
}

Basic
IF NOT HWND=0 THEN HWND=1

C
BOOL Reversible;
if (Reversible==-1||Reversible==0)
{
delete Reversible;
}


Basic
IF REVERSIBLE=0 THEN REVERSIBLE=-1 ELSE REVERSIBLE=0
IF REVERSIBLE=-1 OR 0 THEN ERESE REVERSIBLE

C
int X,Y,Measure;
BOOL bFlag;
X++;
Y++;
Measure=(X*Y);

LabelBegin:

if (X && Y)
{
bFlag=TRUE;
}
Else
{
bFlag=FALSE;
}
if (hdc)
{
TextOut(hdc,0,0,bFlag,sizeof(bFlag));
}
else
{
HDC hdc;
Goto LabelBegin: ;
}

Basic
LET X=0:LET Y=0:LET MEASURE=0
X=X+:Y=Y+1
*LABELBEGIN
IF X=Y THEN BFLAG=0 ELSE BFLAG=-1
LOCATE 0,0:PRINT BFLAG
GOTO *LABELBEGIN

”NOT”(否定)は、”if”関数にて”hwnd”が空の時、”HWND”ハンドルを、”hwnd”にコピーコントラクスタします。”OR”は”||”で連結され、どちらか、一つ正の時、if Statement内を”中括弧{}”で囲まれたものを実行します。”BOOL”値は”0”と”-1”の何れかでTUREと、FALSEです。”BOOL”値がある場合”delete”関数で削除されます。”AND”は、”&&”を使って結ばれます。ifの結果がXとYが同じであれば、”bFLAG”にTRUE、それ以外であれば”bFlag”にFALSEを代入します。Basicでは、2変数間の”AND”の指定は必要ありません。”=”で連結します。デバイスコンテキストが存在する場合、座標0,0に、”bFLAG”を表示します。その時、”bFlag”の文字数をsizeof()にて計算します。デバイスコンテキストが無い場合は、HDCコンテキストハンドルをコピーしてラベル”LabelBegin”に移動します。

"Not" by Statement Function "if" to Empty "hwnd" then "HWND" Copy Constractor "hwnd" Loaded."Or" is Linking "||" Deference Only True to Execute Statement "if" and "{}" Between,BOOL is "0" or "-1" at "True" or "False",Exsist by BOOL is Erase Value of BOOL by "delete"."And" is Linking "&&" Used.Result Same "X","Y" Value to "bFlag" at "Ture" Else "False" by Other Value It.Exsit Window Handle Case is Coordinate 0,0 Value on Show Display "bFlag",Then Count Word "bFlag".Nathing DeviceContext Case is Copy DeviceContext "HDC" to "hdc" with Return Label "LabelBegin:" Jump It.Basic is "And" by Bridge "=" No Use "And"."And" Linking "=".


Num. by 000-0006

メッセージループの課題研究のサクセスファイル、MultiDocumentInterfaceで動作確認済み、ソフトは、Test3.exeをダウンロード
宣言の確認と、型変換の無許可の検定済ファイル。これは、メッセージループの完成品。リリースソフトで動作を確認できます。
デバッカとビルド済み合格プログラム VisualC++
ビルドインプロジェクトリリースバージョン1.0
ファイルはリリースソフトNumber.01(Test3.exe)


// MainFrm.cpp : CMainFrame クラスの実装
//

#include "stdafx.h"
#include "test5.h"

#include "MainFrm.h"

#ifdef _DEBUG
#define new DEBUG_NEW
#endif





// CMainFrame

IMPLEMENT_DYNCREATE(CMainFrame, CFrameWnd)

BEGIN_MESSAGE_MAP(CMainFrame, CFrameWnd)
ON_WM_CREATE()
ON_COMMAND(ID_FILE_CLOSE, OnFileClose)
END_MESSAGE_MAP()

static UINT indicators[] =
{
ID_SEPARATOR, // ステータス ライン インジケータ
ID_INDICATOR_CAPS,
ID_INDICATOR_NUM,
ID_INDICATOR_SCRL,
};


// CMainFrame コンストラクション/デストラクション

CMainFrame::CMainFrame()
{
// TODO: メンバ初期化コードをここに追加してください。
}

CMainFrame::~CMainFrame()
{
}


int CMainFrame::OnCreate(LPCREATESTRUCT lpCreateStruct)
{
if (CFrameWnd::OnCreate(lpCreateStruct) == -1)
return -1;

if (!m_wndToolBar.CreateEx(this, TBSTYLE_FLAT, WS_CHILD | WS_VISIBLE | CBRS_TOP
| CBRS_GRIPPER | CBRS_TOOLTIPS | CBRS_FLYBY | CBRS_SIZE_DYNAMIC) ||
!m_wndToolBar.LoadToolBar(IDR_MAINFRAME))
{
TRACE0("ツール バーの作成に失敗しました。\n");
return -1; // 作成できませんでした。
}

if (!m_wndStatusBar.Create(this) ||
!m_wndStatusBar.SetIndicators(indicators,
sizeof(indicators)/sizeof(UINT)))
{
TRACE0("ステータス バーの作成に失敗しました。\n");
return -1; // 作成できませんでした。
}
// TODO: ツール バーをドッキング可能にしない場合は、これらの 3 行を削除してください。
m_wndToolBar.EnableDocking(CBRS_ALIGN_ANY);
EnableDocking(CBRS_ALIGN_ANY);
DockControlBar(&m_wndToolBar);

return 0;
}

BOOL CMainFrame::PreCreateWindow(CREATESTRUCT& cs)
{
if( !CFrameWnd::PreCreateWindow(cs) )
return FALSE;
// TODO: この位置で CREATESTRUCT cs を修正して Window クラスまたはスタイルを
// 修正してください。

return TRUE;
}


// CMainFrame 診断

#ifdef _DEBUG
void CMainFrame::AssertValid() const
{
CFrameWnd::AssertValid();
}

void CMainFrame::Dump(CDumpContext& dc) const
{
CFrameWnd::Dump(dc);
}

#endif //_DEBUG


// CMainFrame メッセージ ハンドラ

BOOL CMainFrame::LoadFrame(UINT nIDResource, DWORD dwDefaultStyle, CWnd* pParentWnd, CCreateContext* pContext)
{
// 基本クラスが実際の動作を行います。

if (!CFrameWnd::LoadFrame(nIDResource, dwDefaultStyle, pParentWnd, pContext))
{
return FALSE;
}

CWinApp* pApp = AfxGetApp();
if (pApp->m_pMainWnd == NULL)
pApp->m_pMainWnd = this;

// 2 番目のウィンドウで、[ファイル] メニューの [終了] オプションを [閉じる] に置き換えます。
if (AfxGetApp()->m_pMainWnd != this)
{
CMenu *pMenu = GetMenu();
ASSERT(pMenu);
pMenu->ModifyMenu(ID_APP_EXIT, MF_BYCOMMAND | MF_STRING, ID_FILE_CLOSE, "閉じる(&C)");
}

return TRUE;
}
LRESULT CALLBACK MyProc(HWND hWnd,UINT message,WPARAM wParam,LPARAM lParam)
{
bool nCmdShow=0;


bool InitInstance(bool HINSTANCE,bool nCmdShow);
{
if(!hWnd){return false;}
ShowWindow(hWnd,nCmdShow);return true;
}
int wmEvent ; PAINTSTRUCT ps;HDC hdc;

switch(message)
{

case WM_PAINT:
//long left,top,right,bottom;


hdc=BeginPaint(hWnd,&ps);
MessageBox(hWnd,"HelloWorld","title",MB_OK);
SetBkMode(hdc,OPAQUE);
SetTextColor(hdc,RGB(255,128,128));
SetBkColor(hdc,RGB(0,0,0));

typedef struct lprc
{
long left,top,right,bottom;
}

DrawTextEx(hdc,"HelloWorld2",12,(lprc.left,lprc.top,lprc.right,lprc.bottom),DT_CENTER,true);
EndPaint(hWnd,&ps);return true;

case WM_CREATE:
DrawTextEx(hdc,"HelloWorld2",12, (lprc.left,lprc.top,lprc.right,lprc.bottom),DT_CENTER,true);

case WM_COMMAND:;wmEvent=(HIWORD(wParam));
SetTextColor(hdc,RGB(255,128,128));
DrawTextEx(hdc,"HelloWorld2",12,(lprc.left,lprc.top,lprc.right,lprc.bottom),DT_CENTER,true);


default: return DefWindowProc(hWnd,message,wParam,lParam);

return 0;}
LRESULT CALLBACK About(HWND hDlg,UINT message,WPARAM wParam,LPARAM lParam);
{switch(message)
{
case WM_INITDIALOG: return true;

}return false;}}



void CMainFrame::OnFileClose()
{
DestroyWindow();
}





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







Num. by 000-0001
C(API Reference)Dai's C Laboratory Copy Right 2017.04-


WndProc->((HWND)hwnd,(UINT)message,(WPARAM)wParam,(LPARAM)lParam);
if (message.wParam)
{
wLength=(int)lstrlen(message.wParam)*8;
hLength=(int)lstrlen(message.wParam)*16;
countWord=(int)lstrlen(message.wParam);
SetRect(lprect,0,0,wLength,hLength);
DrawText(hdc,message.wParam,countWord,lprect,NULL);
}
else
{
massege &wParam;
if (!wParam)
{
WPARAM *wParam;
wParam=new Char[100];
}

}


Num. by 000-0001

今回は、WndProc(ウインドウプロシージャ)に対して、ポインタを指定します。”hwnd”ウインドウハンドルは、(HWND)キャストされています。メッセージは、キーボードストロークで整数値でキャストする2バイトの(UINT)キャストです。WPARAMとLPARAMパラメーターを引用します。UINTの条件が、”wParam”にオーバーライドされていない時、elseに、WPARAMのポインタ(*)に”wParam”を指定して、wParamにnew演算子にてキーボードストロークを100回分のキーボード入力をします。ifにて、”massage.wParam”にオーバーライドが、真で有れば文字の幅(8ピクセル)、文字の高さ(16ピクセル)、文字の数を、wLength,hLength,countWord各lstrenにて求めます。SetRectにて四角形の座標を入力して、レクトの形に合わせて、自動で文字幅を合わせられます。DrawText関数にて、事前に設定したパラメーターを入力します。
This Appointment is Pointer to WndProc withon Cast Settings,message is Get Key Borad Stroke Matrix 16Bit Cast of UINT,Call WPARAM and LPARAM,This Terms by No OverRide with Execute Then Though and else in WPARAM Pointer is (*) Marks with "wParam" on That by "new" Function and "Char" of KeyBorad Stroke Input Infometion Count to 100,User Reply Typing This Function ask it,if Statement by that "message.wParam" to OverRide is case in True as Word Width(x8),Word Height(x16),Word Count(Equivalent),But Variable(wLength and hLength and countWord) Execute in case by API (lstren) to Result Decision,Square of Rect In Put Coordinate Infomation,Automation Font Word Size at Fit Word,Behind Thing Settings Paramater InPut to DrawText(API).

C(API Reference)Dai's C Laboratory Copy Right 2017.04-

Num. by 000-0002

//PromptType Declaration

HANDLE* hFile;

HANDLE CreateFile
(
LPCTSTR lpFileName,DWORD dwDesiredAccess,DWORD dwShareMode,LPSECURITY_ATTRIBUTES lpSecurityAttributes,
DWORD dwCreationDistribution,DWORD dwFlagsAndAttributes,HANDLE hTemplateFile
);

//Parameter Settings

LPCTSTR lpFileName="NewSequential_Read_Write";
DWORD dwDesiredAccess=(GENERIC_READ|GENERIC_WRITE);
DWORD dwShareMode=(FILE_SHARE_WRITE);
LPSECURITY lpSecurityAttributes=NULL;
DWORD dwCreationDistribution=(CREATE_ALWAYS);
DWORD dwFlagsAndAttributes=(FILE_FLAG_SEQUENTIAL_SCAN);
HANDLEA hTemplateFile=NULL;


//CreateFile Execute
hFile=CreateFile
(
lpFileName,dwDesiredAccess,dwShareMode,lpSecurityAttributes,
dwCreationDistribution,dwFlagsAndAttributes,hTemplateFile
);

if(!ar)
{
CArchive * ar;
CArchive &ar;
}
lpBuffer<
nNumberOfBytesWrite=(DWORD) sizeof(lpBuffer)

BOOL WriteFile(HANDLE hFile,LPCVOID lpBuffer,DWORD nNumberOfBytesWrite,
LPDWORD lpNumberOfBytesWritten,LPOVERLAPPED lpOverlapped);
if(!lpBuffer)
{
lpBuffer< }

lpNmuberOfByteRead=(LPCVOID)sizeof(lpBuffer);

BOOL ReadFile(HANDLE hFile,LPVOID lpBuffer,DWORD nNumberOfByteToRead,
LPDWORD lpNumberOfByteRead,LPOVERLAPPED lpOverlapped);

ar[].delete;
hFile[].delete

Num. by 000-0002

ファイルのオープンをする論文です。主にこのソースは、クリエイトファイルのプロトタイプ宣言を行っている他、全ての数値にパラメーターを代入しています。実行される直前に変数が空になりません。アーカイブを使ってストリーミングをしていない場合は、フレームワークからCArchiveにarにポインタし、これを、lpBufferにLPCVIOD形式で、CArchiveからストリーミングされます。arは参照されます。ストリーミング後のlpBufferにsizeofを指定して、ファイルサイズを計算しています。<<コマンドで配列を一斉に読み書きするため、配列子の[ ]は省略されません。最後にarとhFileにdeleteでデストラクタでポインタを最後に削除しておくようにします。

Decision Report of File Open,Main Source is PromtType Declare by Execute else All Value to In Put,No Empty Case Execute is Behind Now.No Use Streaming Case is by Pointer CArchive in Frame Work It.But lpBuffer is Type LPVOID Change Format,Reference Many Place ar,This Open File is sizeof Target lpBuffer in Total Size.Streaming Command is Execute << by at the same time,But Arregement "[ ] " is No Skip.Last is ar and hFile at Desstruct Release of Memory by delete and Mean.
C(API Reference)Dai's C Laboratory Copy Right 2017.04-

Num. by 000-0003

MSG*message;

[module(name=method1)];

struct method1
{
[switch_type(int), switch_is(message)] union members;
{
[case (256),int];
{
if(GetKeyState(17)<0)
{lstrcpy(ctrl,"ON");}
else{lstrcpy(ctrl,"OFF");}

if(GetKeyState(16)<0)
{lstrcpy(shift,"ON");}
else{lstrcpy(shift,"OFF");}


if(GetKeyState(20)<0)
{lstrcpy(caps,"ON");}
else{lstrcpy(caps,"OFF");}

wsprintf(scripts,"MessageCord= %0x , Ctrl = s% , Shift = s% , Caps= s%" , lpMsg , ctrl , shift , caps ) ;
InvalidateRect(hWnd,NULL,TRUE);
break;
}

[case (15),int];
{
hWnd=BeginPaint(hWnd,&ps);
lstrcat(scripts,lpMsg);
TextOut(hWnd,0,0,scripts,lstrlen(scripts));
EndPaint(hWnd,&ps);
break;
}
[case (2),int];
{
PostQuitMessage(0);
};
TranslateMessage(MSG message);
};};




文字コードとドグルの判定により、押下の判定と、文字コードをscriptsにwsprintfにて初期化文字列したものに加え、wParam.messageをMSGとコピーコントラクスタを置き、、*ポインタで、lpMsgを宣言します。ウインドウが描画されるとき、WM_PAINTが実行され、hWnd、ウインドウハンドルに、架空のペイントストラクトに参照して、連動して書き換えます。開始描画が宣言されたあと、scriptsと、lpMsgを追加合成し、実際に、文字コードが、入力した文字に変換されるように翻訳(Translate)を行います。TextOutにて、hWndハンドルに加え、座標を0,0に縦横をセットし、scriptsと、scripts文字数を記述し、TextOutで文字列が出力されます。開始したのは、終わりの宣言をもって、描画を終え、return 0 ; とします。この点でエラーは無いということです。主に此のプログラムは、GetKeyboardStateで入力されたのを、ドグルされていれば、0(Fault:偽)、-1(True:真)と成る、BOOL判定です。是を、GetKeyboardStateと比較することによって、押下されているか判定し、また、システムキー以外の文字位置の場合は、Aであれば文字コードは、其れの位置に相当するソフトキーボードの&H0041であり¥であれば&HFFE5と成ります。ソフトキーボードは、IMEパットで読み出せます。文字コードは、4桁の16進数ですから0からFまであります。また、Translate後の文字コードは、字に変換されるので、&H0041であれば、「A」と同じ文字に直されます。閉じるボタンを押したときは、PostQuitMessage(0);にて、終了処理を取ります。テキストアウトは、インバリデートレクトにて、hWndのハンドルで開始描画し、長方形の取得を、NULLは、領域全体に対して、次のTRUEは、画面を消去して、文字列を描画します。


User's Typing This Program of Terms Hit Out with Push Down,Word Cord Hit Down in Result,Foundation Text Format Insert Variable Value on Conteiner by wsprintf.Copy Construct Copy Template to MSG by wParam.message,Declaration *Pointer to lpMsg.This Program is in Drawing Then Execute WM_PAINT,Add hWnd,WindowHandle and Empty PaintStruct Reference Linking Wote,That Same Times is Begin Paint Drawing Text View of Show Display,scripts[80] Addition Translate Key Cord x0041 at "A".Text Drawing Coordinate Horizontal,Vertical is 0 and 0 Start Setting,with scripts,Addition Count Out Number,Begin and End Drawing is Result return 0;This is No Mistake Result 0.Mainning This Program is Type and Type by GetKeyboardState That Thing Typed Result Hit Down Switch On is Fault(0),True(-1) and Bool Hit Count,Type by Relation Switch up as Same Thing,Through No System key Hit Down,Passenger No System key is Character "A" is x0041(&H0041) Translate "A" Type Word Changes,Show Soft Key Board Reference IME - Pad by Information,\ is xFFE5 is 2Byte Character.Close Window and End Window by PostQuitMessage(0); with Destroy Window.InvalidateRect Coordinate Full Screen Clear with All Vector Drawing by NULL and TRUE with hWnd Handle.

Num. by 000-0004

ウインドウプロシージャ更新版、動作確認済み雛形
test5.exeダウンロード400KB以内のソースコード
こちらのものは、マイクロソフト”.NET”動作可能修正済コード。主に、メッセージループの間に、WCEXを定義しないことで動作可能とした。全てのコマンドは、スルーされるよって雛形のみの動作を確認している

test5.cpp
********************



WNDCLASSEX wcex;
wcex.cbSize=sizeof(WNDCLASSEX);
wcex.style=CS_HREDRAW | CS_VERDRAW | CS_DBLCLKS;
wcex.lpfnWndProc=(WNDPROC)WndProc;
wcex.cbClsExtra=0;
wcex.WndExtra=0;
wcex.hInstance=hInstance;
wcex.hIcon=LoadIcon(NULL,IDI_APPLICATION);
wcex.hCursor=LoadCursor(NULL,IDC_ARROW);
wcex.hbrBackgrpund=(HBRUSH)(COLOR_WINDOW+1);
wcex.lpszMNenuName=NULL;
wcex.lpszClassName="ModelAPP";
wcex.hIconSm=LoadIcon(NULL,IDI_APPLICATION);
RegisterClassEx(&wcwex);

hWnd=CreateWindow(wcex.lpszClassName,WS_OVERLAPPEDWINDOW,CW_USERDEFAULT,CW_USERDEFAULT,CW_USERDEFAULT,CW_USERDEFAULT,NULL,NULL,hInstance,NULL);

LRESULT CALLBACK MyProc(HWND hWnd,UINT message,WPARAM wParam,LPARAM lParam)
{
bool nCmdShow=0;


bool InitInstance(bool HINSTANCE,bool nCmdShow);
{
if(!hWnd){return FALSE;}
ShowWindow(hWnd,nCmdShow);return TRUE;
}
int wmEvent ; PAINTSTRUCT ps;HDC hdc;

switch(message)
{

case WM_PAINT:


hdc=BeginPaint(hWnd,&ps);
MessageBox(hWnd,"HelloWorld","title",MB_OK);
SetBkMode(hdc,OPAQUE);
SetTextColor(hdc,RGB(255,128,128));
SetBkColor(hdc,RGB(0,0,0));
TextOut(hdc,0,0,"HelloWorld",lstrlen("HelloWorld"));

screct.left=0;
screct.top=0;
screct.right=640;
screct.bottom=480;

DrawTextEx(hdc,"指数は幾つですか",100,&screct,DT_CENTER,NULL);
EndPaint(hWnd,&ps);return 0;

case WM_CREATE:
hDC=GetDC(hwnd);
GetTextExtentPoint32(hdc,"HelloWorld",10,NULL);
ReleaseDC(hWnd,hdc);
return 0;


TextOut(hdc,0,0,"HelloWorld",10);

case WM_COMMAND:;wmEvent=(HIWORD(wParam));

default: return DefWindowProc(hWnd,message,wParam,lParam);

return 0;}
LRESULT CALLBACK About(HWND hDlg,UINT message,WPARAM wParam,LPARAM lParam);
{switch(message)
{
case WM_INITDIALOG: return TRUE;

}return FALSE;}}

ShowWindow(hWnd,nCmdShow);
UpdateWindow(hwnd);
while(GetMessage(&msg,NULL,0,0)){TranslateMessage(&msg);DispatchMessage(&msg);}




stdafx.cpp
********************

#include "stdafx.h"

LRESULT CALLBACK MyProc(HWND hWnd,UINT message,WPARAM wParam,LPARAM lParam)
{
bool nCmdShow=0;


bool InitInstance(bool HINSTANCE,bool nCmdShow);
{
if(!hWnd){return FALSE;}
ShowWindow(hWnd,nCmdShow);return TRUE;
}
int wmEvent ; PAINTSTRUCT ps;HDC hdc;

switch(message)
{

case WM_PAINT:


hdc=BeginPaint(hWnd,&ps);
MessageBox(hWnd,"HelloWorld","title",MB_OK);
SetBkMode(hdc,OPAQUE);
SetTextColor(hdc,RGB(255,128,128));
SetBkColor(hdc,RGB(0,0,0));
TextOut(hdc,0,0,"HelloWorld",lstrlen("HelloWorld"));
DrawTextEx(hdc,"指数は幾つですか",100,NULL,DT_CENTER,NULL);
EndPaint(hWnd,&ps);return 0;

case WM_CREATE:
SetTextColor(hdc,RGB(255,128,128));
TextOut(hdc,0,0,"HelloWorld",10);

case WM_COMMAND:;wmEvent=(HIWORD(wParam));

default: return DefWindowProc(hWnd,message,wParam,lParam);

return 0;}
LRESULT CALLBACK About(HWND hDlg,UINT message,WPARAM wParam,LPARAM lParam);
{switch(message)
{
case WM_INITDIALOG: return TRUE;

}return FALSE;}}

システムアドミニストレーター情報技術Ⅰ-福岡大

2018-11-30 18:09:21 | 日記
キャラクターベースインターフェイスその2018年度版
BASIC アーカイブ ディスカッション
解説
index.html
戻る↑

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.
このプログラムは初期化と、起床時間のブザー音で知らせるタイマーを朝の7時40分に出発準備をする例文のプログラムソフトです。単純な構造になっており、変数”A$”にタイマーをセットする事で、FORによる無限ループによって、ビープ音で知らせて、ENDにて終了します。病院の通院の8時10分発着発のバスを7時40分から出発して待合します。







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.

探している文と、データーベースを読み込む共通の数と数、その後の文と文を見て調べる。使用者は入力して幾つかの箇条使用者は希望する好きな文をすばやく調べるこのソフトです。解析する結果のデーターベースの内容。探した項目は、SA18.txtのファイルに書いて一緒に参照する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".

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

システムアドミニストレーター 構造学Ⅰデーターベース

2018-11-30 18:01:58 | 日記
********************
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 STAFFEXPONENT(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 EXPONENT(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 "EXPONENT 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$;"今日の日付と、株の申告予定日 年は4桁、他は2桁";: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 EXPONENT=INT(VAL(CSV$(9,1))/RATE+.1#*1000000)
640 INCOME=INT(EXPONENT/100000*3+.1#)
650 PRINT "EXPONENT of";EXPONENT;" 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 "EXPONENT 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 "EXPONENT 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 EXPONENT(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:EXPONENT(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:EXPONENT(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:EXPONENT(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:EXPONENT(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:EXPONENT(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)=EXPONENT(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):EXPONENT(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):EXPONENT(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):EXPONENT(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):EXPONENT(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:EXPONENT(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:EXPONENT(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:EXPONENT(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 "2支店以上を入力するには、(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

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 2630 *OUTIN
2640 CLOSE


不動産登記法Ⅰ福岡大

2018-11-30 17:59:25 | 日記
18/09/24(1)自国の不動産登記制度は不動産の物理的現状と権利関係を記録した一定の公簿を公開することで不動産の取引を安全に円滑に資するための制度です。その成り立ちの違いから表示に関する登記と権利に関する登記に分かれている。(2)色々な場面で次のような違いか在るとされています。まず表示に関する登記は不動産の物理的現状を公示する物であるから対抗力がありませんが権利に関する登記は不動産の権利関係を公示するものであるから対抗力が在ると違いがあります。(3)次に表示に関する登記は当事者に申請義務が有ると共に登記の職権に因り登記を行う事も出来ますが、権利に関する登記は私的自治の原則から当事者に申請義務がありませんし、登記官の職権により登記を行う事も出来ません。(4)更に実質的審査権限が認められていますが、権利に関する登記は登記官の登記について実質的審査権限が認められていません。-
18/09/24(1)不動産登記法は、不動産の表示及び不動産に関する権利を公示するための登記に関する制度について定める事にするにより国民の権利の保全を図り、もって取引の安全と円滑に資する。(不登1条)(2)不動産登記は、表示に関する登記と、権利に関する登記がある。(不登2条3号、4号)表示に関する登記は表題部に記録される。(不登2条7号)不動産登記の状況を明確する機能を表示に関する登記は有し民法177条の第三者に対する対抗要件ではない。(3)表示に関する登記は当事者に対して申請義務が課せられる。(不登47Ⅰ)公益性を有し、登記官が職権ですることも出来る。(不登28条)登記官は実質的審査権利を有し、事項を調査し当日中に検査し所有者と関係者を質問する事ができる。(不登29条)(4)これに対する権利に関する登記は私的自治の原則から登記の申請をするかどうかは自由であり、登記法上登記申請が強制されない。物件の得喪及び変更を登記すれば第三者に対抗する事が出来る。(民法177条)-
18/09/25(1)登記を信頼して過失無く不動産を取得した者は登記名義人の所有で無かったとしても取得するという公信力の問題であり、取得しても登記をしなければ第三者に対抗出来ないと言う問題とは混同されやすいが個別の問題である。(2)登記に公信力を認め不実の登記がされていても信頼して取引に入り登記を得たものが権利を取得する事があることから、真の権利者は自己の不動産に不実の登記がされていないか常に注意しないと不利益を受ける畏れが生じる事になってしまう。(3)登記に公信力が認められるためには登記記録どおりの権利関係があるものと信頼し、信じるに過失が無い事が必要とし、取引に入ろうとする者は物権変動の過程を逐一過去に遡って調査される事を要求されていない。(4)登記に公信力が認められるためには現地を調査する事等が要求されている事から真の権利者が、同じ不動産を現時点に利用している時は権利を失う畏れは少ないと考えられる。(5)登記無くして物権変動が生じるかどうかは物権変動に於ける意思主義か形式主義のどちらかを取るのか問題であって、物権変動において登記に公信力を認めることについて述べているものであって次元に異にする問題である。
18/09/26(1)権利登記で登記記録通りの実体が存在しない場合でも記録に従い実体法上の権利有存として扱うことで記録を信頼して取引関係に入った三者を保護する公信力の原則と呼び公信力の有無に帰結する問題は登記には公信力が認められず民法94条Ⅱの適用による。(2)登記がされてそれに対応する実体上の権利関係が真正に存在するであろうという推定を表示する効力を権利推定力という登記に認められる以上信頼した場合には無過失と推定される。登記しを信頼した者が無過失が推定される事は権利推定力の帰結である。(3)一旦登記がされた以上其の登記が有効であるか無効であるかに関わらず登記手続き上は勝手にこれを処理する事は出来ないとする効力を登記の形式的確定力という。区分地上権の設定契約が無効でも一人の身勝手で地上権を抹消できず共同申請を要する。(4)登記の申請が有った場合既存の登記と抵触するか否かの審査は既存の登記の有効性を判断することなく記録と照らし合わせ形式的に判断する。形式確定力の帰結にあたる。実態的に存続期間が満了しているか判断は登記官の審査外である。登記受理されない。(5)同一不動産にあれた二個以上の登記の優劣は原則として登記の前後による。同区にされた登記については順位番号により、別区にされた登記は受け付け番号に因る。(不登規則2条)優劣は効力の問題であり区分地上権は用益権であり消滅しない。民執188条
18/09/26(1)所有権保存登記を抹消した時は同時に表題部の登記を抹消し登記記録を閉鎖するのが原則である。この趣旨は所有権保存の登記がされていると表題部所有者に関する登記事項を抹消する記号を記録しなければならない。不登規則158条所有記録消失に不相当。(2)取引が所有権移転につき権利変動の過程や態様を忠実に登記記録に反映させる不登の理念に最も合致する。抹消登記以外にも真正な登録名義の回復を登記原因し移転する事が先例上認められている。登記官には形式的審査権しかない為実体合致しない。(3)贈与の所有権移転が在ったにもかかわらず売買が登記原因としてされた所有権移転登記は実体合致しない為無効とすべき。実体と異なる登記をされるのも多く、無効にすると取引安全が害される。物権変動の原因を反映していない場合でも現在に合致以上有効。(4)時効取得による所有権の取得は実体法上は原始取得と解されるため現状の所有権を抹消したうえで時効取得者名義で所有権保存の登記をするべきである。時効対象不動産は通常所有権の登記が既に既存しているため所有者交替所有権移転登記が合理的である。(5)所有権の登記の無い不動産について表題部所有者である被相続人が不動産を売却し登記申請無く死亡した場合所有権保存の登記は相続人から被相続人の名義で行う事が出来る。実体に即したものは無くなる。それよりは所有権保存登記(不登74条Ⅰ)良い。
18/09/26(1)所有権移転の権利の消滅に関する事項の定めの登記を申請する場合登記権利者が権利を取得し買主を申請情報の内容とする登記は記録されない。義務者権利者共通の取得の登記。(不登規3条6号)(2)地役権設定登記申請をする場合登記権利者として地役者要益地の所有名義を内容とする。登記には登記権利者の地役者は記録されない。(不登80条Ⅱ)要益地の所有権が移転すれば地役も移転し地役権で公示できない。(3)通常の地上権区分を地上権変更する登記を申請する場合に登記権利者を設定者名義人と申請情報とするが、登記記録には所有権名義人は記録されない。登記権利者が既に登記名義人と成っており、改めて記録しなくても誰の申請か知る事が出来る為とされる。(4)抵当権の順位変更登記申請をする場合、順位変更の合意当事者全員を申請人として内容とするが、(不登89条Ⅰ)登記記録は変更後の順位が記録される限定とし、合意当事者申請記録は無い。(5)買戻し特約仮登記登記は、登記事項とし、記録権利者が記録されないものとしている。(記録例588条)買戻し特約登記に付き、記録権利者が記録される。(記録例500条)
18/09/28(1)不動産原始取得者は所有権保存登記をする為に他と物件の取得を相争う関係ではなくて私法上の対抗力問題は無い。未不登不動産が二重譲渡された場合は継承取得者は自己の権利を他に主張する為に保存登記の申請しなければならない。(2)相続所有権移転は意思表示物件変動は無く、被相続人死去に相続財産に相続人が全て継承取得することになるので対抗力の問題は発生しない。相続財産取得した後は、他と対抗問題が生じる事がある。(3)表示に関する登記の内、区分建物関係敷地権に表題部に最初に登記するときは敷地権目的の土地登記について登記官が職権で敷地権である旨の登記をしなければ成らない。(不登46条)分離処分を禁止する公示をするため意味に於ける登記事項。(4)承役地に地役権の設定登記がされた場合は登記官が職権で登記記録にも一定の事項を記録する。(不登80条Ⅳ)地役権は要益地に付随する権利であり要益地に公示する事が望ましい。(5)抵当権の被担保債権が弁済により消滅すると付随性によって抵当権は絶対的に消滅となり対抗力を発生しない。
18/09/30(1)賃借権設定登記の申請情報内容事項は絶対的記録事項(以下賃料)任意記録事項が建物所有の目的、支払い事項の定め、譲渡転貸借特約、借地法22条、23条、38条、39条Ⅰの定め敷金。財産処分の行為能力の制限無しの定め、不登令別表81条38項(2)地役権設定登記申請情報内容事項は絶対的記録事項が要益地、目的、範囲、任意的記録事項が民法281条Ⅰ、285条Ⅰ、286条の定めである不登令別表80条35項Ⅰ、存続期間について地役権設定当事者約定する事は出来るが申請情報内容とされない。(3)抵当権設定登記の申請情報の内容とする事項は絶対的記録事項が債権額、債務者の氏名、名称、住所、任意記録事項が利息、損害賠償の定め、債権条件、民法370条、所有権以外の不動産権利、利息返済期、利息場所、不登令83条Ⅰ、88条Ⅰ、55項。(4)地上権設定登記の申請情報を内容とする事項は絶対的記録事項が設定の目的、任意記録事項が存続期間、地代とおの支払い時期の定め、借地法22条、23条Ⅰの定め、地上に所有する建物が借地23条Ⅰ、Ⅱの事業に供する定め、不登令別表78条33項。(5)質権設定登記の内容の事項は絶対的記録事項が債権額、債務者の氏名、名称、住所、任意記録事項が存続期間、利息、違約金、賠償の定め、債権条件、民法346条、356条、357条、370条、所有権以外目的権利、不登令83条Ⅰ、95条Ⅰ46項。
18/09/30(1)不動産工事先取り特権の保存登記は費用の予算額、不登85条、債務者の氏名、名称、住所、不登83条Ⅰ2号。(2)不動産質権設定の登記事項は不登83条Ⅰに定める、債権額、債務者氏名、住所、存続期間、利息、債権条件の定め、不登95条。(3)賃借権設定の登記事項は賃料、存続期間、賃料の支払い時期の定め、譲渡転貸特約、賃借人が財産の処分に行為能力制限を受けた者か財産の処分の権限を有しない者、敷金、不登81条。(4)地上権の登記事項は設定の目的、地代支払い時期、存続期間、借地借家法22条、23条Ⅰの定め、地上権設定の目的が借地借家法23条Ⅰ、Ⅱの規定する建物の所有である時はその旨、不登78条である。(5)永小作権設定の登記事項は小作料、存続期間又は小作料の支払い時期の定め、民法272条、永小作人の権利又は義務に関する事項、不登79条である。(6)地役権設定の登記事項は要益地、設定の目的範囲、その他民法に規定し不登80条Ⅰ、存続支払い債務の何れも登記事項とならない。
18/10/01(1)借地借家法22条、定期賃貸:存続期間を50年以上として借地権を設定するには契約の更新、建物の築造による存続が延長が無く其の特約は公正証書の書面に因らなければならない。(2)借地借家法23条、事業用定期借地等:専ら事業用の建物に供する建物の所有を目的として存続期間を30以上50年未満として借地権を設定する場合契約の更新及び建物の築造による存続期間の延長が無く買取の請求をしないことを旨と定めることができる。(3)借地借家法23条Ⅰ:存続期間を10年から30年未満として借地を設定する場合には3,8,13,18条の適用しない。(4)借地借家法23条Ⅱ:借地権の目的とする契約は公正証書に因ってしなければ成らない。(4)民法177条、不動産に関する物件の変動の対抗要件:不動産に関する物件の得喪及び変更は不動産登記法平成16年123号そのほかの登記に関する法律を定めるところに従い其の登記をしなければ第三者に対抗する事が出来ない。(5)民法94条Ⅰ、虚偽表示:相手側と通じてした意思表示は無効とする。Ⅱ:前項Ⅰの意思表示の無効はは第三者に対抗する事が出来ない。
18/10/01(1)民法281Ⅰ:地役権は要役地の所有を従たる者ものとしてその所有を移転して要役地について存する目的とする。Ⅱ:地役地は要役地から分離して譲渡し他の権利とすることが出来ない。(2)民法285条Ⅰ、用水地役権:用水役地の承役地に於いて水が要役地及び承役地に需要に比して不足するときは、その土地の需要に応じてまずこれを生活用に供し、其の残余を他の用途に供するものとする。(3)民法286条Ⅰ、承役地の所有者の工作物の設置義務等:設定行為又は、設定後の契約により、承役地の所有者が自己の費用で地役権の行使の為に工作物を設け、修繕する義務を負担した時に承役地の所有者の特定承継人も其の義務を負担する。(4)民法370条、抵当権の効力の及ぶ範囲:抵当権は抵当地の上に存ずる建物を除きその目的である不動産(次から抵当不動産)に付加して一体となっている物をに及ぶ。但し設定行為に別段の定めがある場合及び民法424条により債権者が債務者を取り消す。(5)民法424条Ⅰ、詐害行為取消権:債権者は債務者が債務者を害する事を知ってしまった法律行為取り消しを裁判所に提出する事ができる。其の行為によって利益を受けた者または転得者が行為又は転得の時に債権者を害すべき事実を知らなかった限りでない。
18/10/01(1)民法346条、質権の被担保範囲:質権は元本、利息、違約金、質権の実行の費用、建物の保存の費用及び、債務の不履行または買い物の隠れた瑕疵によって生じた損害賠償を担保する。但し、設定行為に別段の定めがある場合は限りでない。(2)民法356条、不動産賃貸者による使用及び収益:不動産質権者は、質権の目的である不動産の用途に従い、その使用および収益することが出来る。(3)民法272条、永小作権の譲渡又は土地の賃貸:永小作人は、其の権利を他人に譲渡し、また其の権利の存続期間内において耕作若しくは牧畜のための土地を賃貸できる。但し設定を禁じた時はこの限りでない。--

英会話入門-福岡大

2018-11-30 17:58:35 | 日記
"Mind The Door","扉に注意"
"We Will Leave Company Inheritance Remain Staff","わたし達の決意は、会社の遺産継承を残る業務員に残すだろう"
"Contact Us","わたし達に接触してください"
"Allow","許し認めてください"
"I Want Believe","信じて欲しい"
"Hello,Nice To Meet To You","こんにちは、素晴らしいのと出会いをあなたに"
"No,I Did Not","いいえ、違います"
"What It is Really Now?","そのことは今本当"
"Trush and False","真と偽"
"He May Read Note Book at After Time","彼は、午後の時間ノートを読むかもしれない"
"Near Missing That It Now","それは今近くに消息を絶った"
"Regular Meal have a Taste Restaurant Now","定食を味わって食べている今飲食店"
"He is New Standard Bussiness Take Method Advocacy","彼は、新しい標準の仕事を方法を提唱した"
"You,Get It TeaPod Please","君、茶急須を取ってくれ"
"She Sick Hevay Degree,Now is in The Home Stay","彼女は、症状が重い程度今は家に居る"
"My Model Make Could Complete Yesterday This Work","自分が昨日模型製作を完成させた"
"She Did Death Yesterday,Regret To She This Thing","彼女が昨日死去したこのことを彼女を悔いる"
"Return Go Home","家に帰れ"
"You,You Feeling at Me,Send To You By Impression","あなた、あなたを私に感じる感想によってあなたに伝える"
"You,What Have a Interest Computer?","あなた、パソコンに興味は有りませんか"
"How Much Payed Charge,Get It Price Value Please You","幾らをどの様に請求して払い、価格を得てください。"
"How Do You?","あなたどうしたらいいですか"
"How Arrive Goin Your Hotels,Firstest Soon Location at Approach Guide","あなたの宿泊施設はどの方法で着く、直ぐに最も早い近づく教えて"
"This Hotel Map Paper Information Guide,Let's Go Goal Location","この宿泊地図情報案内、皆で行こう目的地"
"Ski Instrusctions Tour Enjoy HolyDay","スキー教習旅行休日の楽しみ"
"You,That is NeedLess","あなた、それは必要ない"
"Which Who are You","どなたですか"
"Surpport Approach Me,Friend Depend on It Works","私に支援を近づけて、仕事を友達に頼る"
"This Home Leave is My Travel Trip Only Mine","この家庭を離れ、私の孤独な旅にでる"
"Promising You To I asked Only one Thing","約束をあなたから私に依頼する一つのみの事"
"Trace He BeHind Root Ways","彼のいった道を追っている"
"You,That Structure Building Open The Doors in My Here Come on","あなた、建物の扉を開けてここへ来てくれ"
"UnderStand To You,That Thing on Talk is Listen to Me","あなたを理解する、その事を話して私が聞く"
"Now on The Fire Out This Place,We is Escape This Structure,Out in Building","ここは出火した、わたし達は、この建物を脱出して、施設を出た"
"Smart Phone ForGet in Here,StandStill Me","携帯電話をここに忘れて、私に立ち往生した"
"If For You Instance To By Me is Did Not Will","もしあなたに例えば私がその様な事をしなかっただろう"
"All Right Okay","よし了解した"
"No Execute It,By Object is Be Enough","それを実行しない、対象物によって足りる"
"Happy Birth Day To You","あなたに誕生日おめでとう"
"This Present is For You","この贈り物はあなたの為に"
"Include Team in Me","集団に私を加えて"
"No Wake Shake in Building Destroyed,No Behinded Thing Promise BackFuture","地震に入り、建物が壊れない、過去の事ではない過去を誓う"
"Your Kindness Me,Thank You","あなたの親切ありがとう"
"I am TeenAger","私は10代である"
"They go to Those Sloop long long a way","彼らはそれらの坂を長い道のりを行きなさい"
"That Had Mine,You No Get That,Return Mine That Object","それは私が持っている、あなたそれを取らないでくれ、その対象物を私に返してくれ"
"I Have Taste Meal Eat Now","今私が食事を食べて満喫している"
"Kind You","あなたは親切な方だ"
"Same Dress style to Me,You Good Favorite Feeling","私と同じ格好だ、あなたは良い好みの感じ"
"Tell Me","私に告げる"
"Just Twelve Hour a Moment Wait You","12時丁度一時の期間あなたは待ってください"
"Justice And Freedom on Declaration","正義と自由宣言"
"Demand Definition Objection","要求定義異議"
"I Moving Location Equipment Mobile Phone on Now","私は位置を移動している携帯電話を今装備している"
"You,Eject SD Memory Card From My Computer,You Take Get That Give Me","あなた、SDカードを私のパソコンから取り出して、あなたが私に与えてください"
"Are You Investment My Capital on Trade to My","あなたは、私の証券に投資しましたか"
"Stock Index Investment Exparent Take Payid on Market","証券市場指数を投資支払う"
"Good Bye,See You Again","さようなら,またもう一度会う日を"
"I'm Sorry","私は気の毒に思う"
"Excuse Me","私を許してください"
"Try Again","再挑戦してください"
"Take Order Check Receipt Account List","要する注文伝票受領会計覧"
"Remember to Me","私を忘れずに居る"
"Change Post on Staff","役を交代する職員"
"Now,Watch Time Is This","今何時ですか"
"NeverFuture So Thing Nothing","決して将来その様なこと無い"
"Dead and Alive","死と生"
"Fresh Food in Freeze Keep This","生鮮食品を凍結させ保存するこれ"
"SavePoor Restore Economy at People","貧困を救済する経済再編を民"
"Anyone,Each AlWays Continue","だれか、それぞれ常に続く"
"Deep and Deep,Edge To End","端と端"
"I am Give Up WithOn This Works","わたしは、この作業を断念する"
"Do Not Worry","心配するな"
"He is Say Vacation Tomrrow","彼は、明日休暇を取る事を言う"
"Global Possitioning System and Location System","世界的位置機構(衛生)と場所機構"
"Employ with wage to Me,How Job Staff Licence","私に雇用と賃金、どのような職と職員免許"
"Many Way Any Way","たくさんの道と、何かの道"
"EveryThing Such Thing","全てのこと何一つ無い"
"I am Hope in Now,Order First Account This Paying","私は、今注文の会計を先支払いを希望する"
"I Need You","私はあなたが必要だ"
"Why That Thing Know to You","何故その事をあなたに知っている"
"Are You Have SomeThing","あなたは、何かを持っていますか"
"Always Casual Thing EveryDay","常に何気ない事いつもの日"
"They are Difficult Tell Thing is","彼らに告げること難しいであろう"
"Pay Charge Those Cash Card","それらの支払いカードに支払い充填する"
"Rental Charge After Day on Pay","借用料金の後日払い"
"You Hope Mean Sayed,I Do Not Mean,No I Have Respons","君は言いたい意味を言ったが、私は理解できない、私は、返事を持っていけない"
"You Tell Me,I Understand You,I Have Your Means","あなたは私に告げた、あなたを私は理解する、私はあなたの意味を持つ"
"Are You Arrive Paying Post Office CaseBox and Shop Stock","あなたの郵便は着払いで、ダンボールの商店在庫ですか"
"Santa Misa Day Soon by Approach Date,This is Hope Give Present to You","ミサの日にもう直ぐ、近づく日付、それを希望するあなたに贈呈を与える"
"You Send Mail From America,You is Other Country,I am Send Message to You","あなたにアメリカより手紙、あなたは外国、私は送る言葉をあなたに"
"My Greeting is Write Begin on How Do You,Hello They Are","私の挨拶は、書き始めに初めまして、やあ、彼らである"
"Very Good","大変良い"
"Earth Quake is Happen Thing,Destroy by Structure Shake It","偶然起こる地震のこと、建物が揺れに倒壊する"
"Why Such Thing For You","何故そんな事あなたの為に"
"When This Thing is For My Feel Imaging Still Now on UnderStand","その場合このことは私の感じる映像の為に今も尚理解する"
"Notice with Attention This Place is No Wrong Thing No Keeping","注目と注意は、この場所は悪事を保つ事を禁じる"
"I am a Student,This Laboratory Staff Members","私は一人の学生です この研究室の一員の職員です"
"This Casual Times Traffic Confusion Now in This Road Way","この気軽な時間の交通混雑している今にこの道路の道に入る"
"Chase You on Lag","最後の一人があなたを追う"
"Hello You,Good Morning","やああなた良い今朝を"
"This Subject is My Theory and Learning on Revolution Target is Begin Now","この課題は私の学説と、学問革命を目標は今から"
"What is This.That is Cafe Cup","これは何ですか。それはコーヒーカップです"
"You,Large Many Your School Student.Yes,Very Much","あなた、あなたの学校は広範囲に多い学生ですね。はい、非常にずっと多いです"
"You Know.Really?","あなたは知っています。本当に"
"Ocure Frequency Terrorism in Together","同時多発テロ"
"Activation System","活性化構造"
"I am a Determibation Not ComPromise No Change Thing","私は、一つの決意を譲る事を否定し変ること無い"
"From You Send My Message","あなたから私の言葉を送ってください"
"That Thing is I Conscius Nothing Yet","その事について私は未だ自覚が無い"
"Are You Singer Song Writer ?.Yes,I do","あなたは作詞家ですか。はいそうです"
"Can You Struct Drawing.No I do.My Reason is Do Not Have No PlatFroms","あなたは、建築図面を描けますか。書けません。理由は私はその開発環境を持っていない"
"My Expresstion Think by I Drawing","私の表現を思う私の描画によって"
"Are You Previous Meeting","あなたは以前に会ったことが有りますか"
"You,No Accept But That","君、それについて許さない"
"Through Me","私を通り越して"
"This is Desk","これは学習デスクです"
"Teachar and Student","先生と学生"
"Fresh Man with Proffessor in Campus","新入生と、教授が、大学にて"
"You,I Have Design Then Alway Contents Material Used","君、私は設計するとき何時も内容素材を使う"
"This Buyer's Item is Sold Out Yet","この買い手項目は既に売り切れている"
"I Belive is She Reverence and Private Life This Thing","私は彼女の宗教と私生活の事を信じている"
"He is Region Servant,He Employ is Fire Fighting Group","彼は地方公務員だ、彼を雇うは、消防団です"
"But About is Trough","それについては答えない"
"This CopyRight is All Right Reserved","此の著作権は全部の権利は控えめです"
"That's Great","それらは素晴らしい"
"Good Luck","幸運を祈る"
"Real Estate Investment Trust","不動産投資信託"
"Accounting Check it Me","会計を調べていただけませんか"
"Take Challenge Me","私の要する挑戦"
"I am Will Any Kind of Unlost by Terrorism","私の意志はいかなるテロリストによって負けない"
"All in one Package","全部揃っている包装です"
"That is Bribery it,I Can not No Receipt It","それは受託収賄です。私は受け取る事が出来ません。"
"I Will Remain Inheritance CopyRight Made Computer Making","私の意志は、残った継承の著作権は情報処理加工過程にて作られています"
"Let It Me.No I Do Not","私を通してください。それは出来ません"
"She is Just a Wait Bus Stop","彼女は、丁度バス停留を待っています"
"The End of Finale of This Novels","この物語の終焉"
"You,The Get Table on The Vase with Flowers","君、そこの卓上にある花瓶と花を取ってくれ"
"I am Then Time Wake Up Now Out of Bed Hurry up","私はそのとき、の今目覚めた、ベットから出て急いだ"
"That is This Shell Box in This Tool Box","それはこのシェル箱の中にこの道具箱です"
"ThisTools on This Table Have Been Put Away","この道具のテーブルの上はしまった"
"He is Away Be Come","彼は遠方から来ている"
"You,This Place is Market Rules in Shelf Service Sold Shopping Register by Consumer","君、ここの市場の決まりは消費者自身による売る会計なんだ"
"Objective in Consumer Market","指向は、消費者市場だ"
"Commision Shelf Washer Box in Dress Post in The Coin on Pay","手動による洗濯依頼をその箱の物の中に衣類を入れ、貨幣を支払う"
"Turst Me","私の依頼"
"This Car Road Way is Confusion Traffic Now","この自動車道は混雑の往来を今している"
"Shut up Please,Be Quiet","黙ってください、静かに"
"Stand Up Please,Good Every Morning","立って下さい、何時もの良い朝でです"
"Sit Down","座ってください"
"This Thing is I Was Wish","この事は私が望んだ事だった"
"Those is Bad","それらは悪い"
"You,Do not Hate Me","あなた、私を嫌わないで下さい"
"Did You Experience This Course","あなたはこの学科に経験がありますか"
"This Shop is Closed on This Time","この店は、この時間に閉まった"
"You Open The Door","あなた扉を開けてください"
"My Heart Close to You","私は、あなたに心を閉ざしている"
"Soon Arrive Christmas","もうじきクリスマスがやってきます"
"This Present to You","これをあなたに贈ります"
"Gift Season","歳暮季節"
"Yes,I Did Not","はい、私は違いました"
"Rainy and SunShine on Today","雨と晴れの現在の今日"
"First Dinner with You","最初の晩餐をあなたと一緒に"
"Slow Turtle Vie Early Rabbit Result Turtle Winner","遅い亀と競った早い兎の結果は亀が勝者になった"
"Bank Account Pay Cashing on Delivery Me,Please It","銀行通帳現金支払いを受け渡しを私に置いて下さい"
"May I Help You","私はあなたを手伝うかもしれない"
"Friend With Me and Snap Shot on Photo Graph by Camera","友達と私を一緒に記念撮影を置く写真をカメラによる"
"Delete Dust in Photo Graph That Object Visual Reduction","その対象の目に見える規模を下げる写真の中の塵の削除"
"No Far Going,You is Late Follow with Me","遠くに歩行しないで遅れてあなたは私と一緒に着いて来て"
"Hey You","オイ!"
"Keep Out","出てください"
"Moving People City with You","あなたで動く民の都市です"
"I Do Not Mind You","私はあなたを注意しない"
"Thanks Your Letter on Send Message It","有難うあなたの手紙の上の伝言のそれ"
"Do You Have Favorite","あなたはどの様な好みを持ちますか"
"My Freiend with I was go Travel so in Class Mate Group","私の友達と一緒に私は旅行に行きましたまたそのクラスメイトの組織です"
"For You","あなたの為に"
"From You","あなたから"
"Follow Send Root Way in Map","地図の中の通路の転送してください"
"Escort Guard To You","あなたを見張って護衛します"
"End of File","ファイルの終わり"
"In That Case Every Body,Stand Up Please,Hello,Good Afernoon Every Body,Sit Down Please","それでは皆さん席をお立ちください。こんにちは、座ってください"
"The Bus is By Soon Arrival on Time","そのバスはもう直ぐ到着による時間になる"
"Good Timing","丁度よい時期に"
"Reign Government Registance Reaction,And too You","貴方は統治の支配に抵抗した反応をした、それとまたあなたです"
"Work Job and Retire Employment,His DeskChairman Now","彼の副会長の今は作業の勤め先に引退した雇用"
"Hey What Do You","オイ!あなたは何をしている"
"I mine Money","私の物の金"
"Money Business by My Management have me For Company","現金仕事を私の経営を以って会社の為に"
"From You Your Send Letter","あなたから宛てたあなたの手紙"
"This Travel Vacation is Richness","この旅行の休日は豊富だ"
"Just Me Friends","私にぴったりの友人"
"Dream Again","夢再び"
"Those Talk is Hot","その話題が熱い"
"This is Better","これが妥当です"
"May I Die Than Say","死ぬその時の私は言うだろう"
"on This Time now","この時間の今"
"Draw is Me Future","描くは私の未来"
"Mine Lisence is Food Responsibility MemberShip Reached","私のもの免許は食費責任者会員に就く"
"He is Reached ForWard Cheif Executive Office Responsibility on Post","彼は地位にこれから就く最高経営責任者"
"Can You My Emotion in Feel Thing To You","あなたは私の感情をあなたに感じる事ができますか"
"I am Busy,In Bussiness For Best","私は忙しいです。仕事を最善の為に入ります"
"My Holiday","私の休暇"
"That is Good","それが良い"
"If You is Absenced","もしあなたが居なかったら"