Module ZahlC
Sub Main()
Dim a, b, c, i As Integer
a = 1
b = 1
c = 1
For i = 1 To 10
If i = 10 Then
c = a * b * c - a * b
ElseIf i > 5 Then
b = c - a
c = c - 2
a = a - 1
Else
c = a + b
a = b
b = c
End If
Next i
MsgBox (c)
End Sub
End Module
TW9kdWxlIFphaGxDCiAgU3ViIE1haW4oKQogICAgRGltIGEsIGIsIGMsIGkgQXMgSW50ZWdlcgogICAgYSA9IDEKICAgIGIgPSAxCiAgICBjID0gMQogICAgCiAgICBGb3IgaSA9IDEgVG8gMTAKICAgICAgSWYgaSA9IDEwIFRoZW4KICAgICAgICBjID0gYSAqIGIgKiBjIC0gYSAqIGIKICAgICAgRWxzZUlmIGkgPiA1IFRoZW4KICAgICAgICBiID0gYyAtIGEKICAgICAgICBjID0gYyAtIDIKICAgICAgICBhID0gYSAtIDEKICAgICAgRWxzZQogICAgICAgIGMgPSBhICsgYgogICAgICAgIGEgPSBiCiAgICAgICAgYiA9IGMKICAgICAgRW5kIElmCiAgICBOZXh0IGkKICAgICAgCiAgICBNc2dCb3ggKGMpCiAgRW5kIFN1YgpFbmQgTW9kdWxlCgo=
prog.asm:1: error: parser: instruction expected
prog.asm:2: error: comma, colon or end of line expected
prog.asm:3: error: parser: instruction expected
prog.asm:4: error: parser: instruction expected
prog.asm:5: error: parser: instruction expected
prog.asm:6: error: parser: instruction expected
prog.asm:8: error: parser: instruction expected
prog.asm:9: error: parser: instruction expected
prog.asm:10: error: symbol `c' redefined
prog.asm:10: error: parser: instruction expected
prog.asm:11: error: parser: instruction expected
prog.asm:12: error: symbol `b' redefined
prog.asm:12: error: parser: instruction expected
prog.asm:13: error: symbol `c' redefined
prog.asm:13: error: parser: instruction expected
prog.asm:14: error: symbol `a' redefined
prog.asm:14: error: parser: instruction expected
prog.asm:16: error: symbol `c' redefined
prog.asm:16: error: parser: instruction expected
prog.asm:17: error: symbol `a' redefined
prog.asm:17: error: parser: instruction expected
prog.asm:18: error: symbol `b' redefined
prog.asm:18: error: parser: instruction expected
prog.asm:19: error: parser: instruction expected
prog.asm:20: error: parser: instruction expected
prog.asm:22: error: parser: instruction expected
prog.asm:23: error: symbol `End' redefined
prog.asm:24: error: symbol `End' redefined
prog.asm:24: error: parser: instruction expected