灌水 - 回味一下Basic吧

[魔術王子]

作者: getter

背死渴 ...

想當年 ... 一開使接觸學習，可不像現在這樣有老師解說指令作用或是程式流程 ...

而是 ... 背程式 ... 背程式 ... 背程式 .... 打字 ... 打字 ... 打字 ...

記憶力好兼打字快的人多吃香啊 ...

記得那段時光,本來只寫一段小小的小程式,然後邊玩,腦筋邊浮出無數的靈感
就邊玩邊改,結果原本才十行不到,最後改到成快一百行

[魔術王子]

這是FOR的程式

__String ls;
__ls=s.SubString(s.Pos(" ")+1,3);
__SET(ls);
__s=s.SubString(s.UpperCase().Pos("TO"),s.Length());
__Tag_Num=s.SubString(s.Pos(" ")+1,s.Length()).ToInt();

NEXT

__String v1=s.SubString(s.Pos(" ")+1,s.Length()).UpperCase();
__for (int i=0 ; i<=Form2->ListBox1->Items->Count-1 ; i++) if (Form2->ListBox1->Items->Strings[i]==v1) s=Form2->ListBox2->Items->Strings[i];
__int n=s.ToInt();
__if (n==Tag_Num) {
__} else {
____n=n++;
____v1=v1+"="+n;
____SET(v1);
____for(int i=0;i<=Form2->RichEdit1->Lines->Count;i++){
______s=Form2->RichEdit1->Lines->Strings[i];
______if (s.UpperCase().Pos("FOR")) { Proc_No=i; break; }
____}
__}

GOTO

__String s1;
__s=s.SubString(s.Pos(" ")+1,s.Length());
__for(int i=0;i<=Form2->RichEdit1->Lines->Count;i++){
____s1=Form2->RichEdit1->Lines->Strings[i];
____s1=s1.SubString(1,s1.Pos(" ")-1);
____if (s1==s) { Proc_No=i-1; break; }
__}

ON ... GOTO

__String s1,v1,v2;
__v1=s.SubString(4,1);
__for (int i=0 ; i<=Form2->ListBox1->Items->Count-1 ; i++) if (Form2->ListBox1->Items->Strings[i]==v1) v2=Form2->ListBox2->Items->Strings[i];
__s=s.SubString(11,s.Length())+",over";
__int i=1;
__while(1){
____if (i==v2.ToInt()) {
______if (s.Pos(",")) s=s.SubString(1,s.Pos(",")-1);
______break;
____} else {
______if (s.Pos(",")) s=s.SubString(s.Pos(",")+1,s.Length()); else break;
____}
____i++;
__}
__if (s!="over") {
____for(int i=0;i<=Form2->RichEdit1->Lines->Count;i++){
______s1=Form2->RichEdit1->Lines->Strings[i];
______s1=s1.SubString(1,s1.Pos(" ")-1);
______if (s1==s) { Proc_No=i-1; break; }
____}
__}

下面是這個小程式,分享給大家玩玩,第一次用MEGA空間分享,不知會不會有問題
https://mega.nz/#!fMAQ3aiI!OL8Lx0A6r...PIR_ZLtngYcghw

https://mega.nz/#!KcxhVBrT!OmEE-sDWL...rn8y0atlZOySBY

[mini]

原來是在實作 basic直譯器
可以做一個中文直譯器
這樣可以給小學生玩（賣給安親班賺一筆）
例：
「錢包」<有7>元
<狀況1>爸爸<每1>天給10元<共6>天
所以「錢包」每次<加10>元
<狀況1完>
<告知>我的錢包擁有「錢包」元

「」裝變數
<> 裝識別字，及阿拉伯數字

「錢包」<有7>元
相當於「錢包」＝7

<狀況1>爸爸<每1>天給10元<共6>天
相當於1 To 6 Step 1

所以「錢包」每次<加10>元
相當於「錢包」=「錢包」+10

沒有被<>及「」所包住的字是註解 可有可無
如行首是<告知>
則列印出來

[魔術王子]

作者: mini

原來是在實作 basic直譯器
可以做一個中文直譯器
這樣可以給小學生玩（賣給安親班賺一筆）
例：
「錢包」<有7>元
<狀況1>爸爸<每1>天給10元<共6>天
所以「錢包」每次<加10>元
<狀況1完>
<告知>我的錢包擁有「錢包」元

「」裝變數
<> 裝識別字，及阿拉伯數字

「錢包」<有7>元
相當於「錢包」＝7

<狀況1>爸爸<每1>天給10元<共6>天
相當於1 To 6 Step 1

所以「錢包」每次<加10>元
相當於「錢包」=「錢包」+10

沒有被<>及「」所包住的字是註解 可有可無
如行首是<告知>
則列印出來

雖然程式勉強可以做出類似Basic的程式效果
但小王子仍舊不滿意,只是這已經是自己的極限了
所以分享出來,希望以後有人可以把它設計得更好