サブルーチンを2〜4回使用した後。 「続行するには、任意のキーを押してください...」というメッセージが表示されます。

Question

私はSmall Basicを使用しています。ここに私のサブルーチンがあります：

Sub MoneyClasses 
    If CurrentJob = "Cleaner" Then 
     Money = Money + 1 
    ElseIf CurrentJob = "Farmer" Then 
     Money = Money + 3 
    ElseIf CurrentJob = "Factory Worker" Then 
     Money = Money + 5 
    ElseIf CurrentJob = "Teacher" Then 
     Money = Money + 10 
    ElseIf CurrentJob = "Shopkeeper" Then 
     Money = Money + 20 
    ElseIf CurrentJob = "Doctor" Then 
     Money = Money + 30 
    ElseIf CurrentJob = "Soldier" Then 
     Money = Money + 25 
    ElseIf CurrentJob = "Officer" Then 
     Money = Money + 45 
    ElseIf CurrentJob = "General" Then 
     Money = Money + 100 
    ElseIf CurrentJob = "Supreme Leader" Then 
     Money = Money + 10000 
    EndIf 
EndSub 

Sub Work1 
    MoneyClasses() 
    Energy = Energy - 10 
EndSub 

Sub Sleep1 
    Energy = Energy + 10 
    Money = Money - 1 
EndSub 

Sub Stats1 
    TextWindow.WriteLine(" ") 
    TextWindow.WriteLine("You have " + Energy +" Energy.") 
    TextWindow.WriteLine("You have " + Money +" Won.") 
    TextWindow.Write(" ") 
    TextWindow.Read() 
EndSub 

Sub Menu 
    TextWindow.WriteLine("Current Job = " + CurrentJob + "") 
    TextWindow.WriteLine("Name = " + Name + "") 
    TextWindow.WriteLine("1 - Work") 
    TextWindow.WriteLine("2 - Sleep") 
    TextWindow.WriteLine("3 - Show Stats") 
    TextWindow.WriteLine(" ") 
    TextWindow.Write("What to do?: ") 
    PlayerInput = TextWindow.Read() 
    TextWindow.Clear() 
EndSub 

ええ、私は何が間違っているのか全く分かりません。これはおそらく小さなエラーです。 私はゲームがまだ完全に終わっていないと言及すべきであり、それは私が途中でさえいないことを意味する。ちょうど "基礎"を作る。

Answer 1

「キーを押し続ける」は、プログラムの完了時にポップアップするメッセージです。私の最高の推測は、サブルーチンを呼び出した後に2回あなたのプログラムが宣伝されていることです。ボールを回転させるループ機構がなければ、プログラムは終了する。

私は、サブルーチンコールとトップまでジャンプバック下部に後藤の前に、上部にラベルを配置することをお勧め。このようなもの：

top: 
'Your Program code 
Goto top