fb:
dim U as integer

do
	Input "U(1) =";U
loop while U=0

asm:

	.intel_syntax noprefix

	#a2.bas' compilation started at 01:44:40 (FreeBASIC 0.90.1)

.section .text
.balign 16
_fb_ctor__a2:
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_0007
call _fb_StrAllocTempDescZEx@8
push eax
call _fb_ConsoleInput@12
lea eax, [ebp-4]
push eax
call _fb_InputInt@4
.Lt_0006:
cmp dword ptr [ebp-4], 0
je .Lt_0004
.Lt_0005:
.Lt_0003:
mov esp, ebp
pop ebp
ret

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

	#a2.bas' compilation took 0.0001766334438002559 secs

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

.section .ctors
.int _fb_ctor__a2