Microsoft Small Basic

Program Listing: GDS044

List Program

' Challenge of the month October 2013 12 steps by NaochanON

For step1=0 To 1 'No=1
For step2=0 To 2 'No=2
If step1=0 Then
step2=2
EndIf
For step3=0 To 2 'No=3
If step2=0 Then
step3=2
EndIf
For step4=0 To 2 'No=4
If step3=0 Then
step4=2
EndIf
For step5=0 To 2 'No=5
If step4=0 Then
step5=2
EndIf
For step6=0 To 2 'No=6
If step5=0 Then
step6=2
EndIf
For step7=0 To 2 'No=7
If step6=0 Then
step7=2
EndIf
For step8=0 To 2 'No=8
If step7=0 Then
step8=2
EndIf
For step9=0 To 2 'No=9
If step8=0 Then
step9=2
EndIf
For step10=0 To 2 'No=10
If step9=0 Then
step10=2
EndIf
For step11=0 To 2 'No=11
If step10=0 Then
step11=2
EndIf
For step12=1 To 2 'No=12
If step11=0 Then
step12=2
EndIf
Total=step1+step2+step3+step4+step5+step6+ step7+step8+step9+ step10+step11+step12
If Total=12 Then
NN=NN+1
t14=text.Append(text.Append(step1,step2),text.Append(step3,step4))
t58=text.Append(text.Append(step5,step6),text.Append(step7,step8))
t912=text.Append(text.Append(step9,step10),text.Append(step11,step12))
t112= text.Append(Text.Append(t14,t58),t912)
TextWindow.WriteLine(NN+ " : "+ t112)
EndIf
EndFor
EndFor
EndFor
EndFor
EndFor
EndFor
EndFor
EndFor
EndFor
EndFor
EndFor
EndFor