fb:
dim U as integer

anfang:
Input "U(1) =";U
IF U = 0 Goto anfang

asm:

	.intel_syntax noprefix

	#a1.bas' compilation started at 01:44:37 (FreeBASIC 0.90.1)

.section .text
.balign 16
_fb_ctor__a1:
push ebp
mov ebp, esp
sub esp, 4
.Lt_0002:
mov dword ptr [ebp-4], 0
.Lt_0004:
push -1
push -1
push 6
push offset _Lt_0005
call _fb_StrAllocTempDescZEx@8
push eax
call _fb_ConsoleInput@12
lea eax, [ebp-4]
push eax
call _fb_InputInt@4
cmp dword ptr [ebp-4], 0
jne .Lt_0007
jmp .Lt_0004
.Lt_0007:
.Lt_0003:
mov esp, ebp
pop ebp
ret

.section .fbctinf
.ascii "-l\0"
.ascii "user32\0"

	#a1.bas' compilation took 0.0002303914492856052 secs

.section .data
.balign 4
_Lt_0005:	.ascii	"U(1) =\0"

.section .ctors
.int _fb_ctor__a1