format PE CONSOLE 4.0
include 'K:\asm\INCLUDE\win32ax.inc'
entry main2

drawbarstring db '*', 0
newline db 10, 0

proc drawbar
drawbarloop:
push ecx
invoke prints, drawbarstring
pop ecx
loop drawbarloop
invoke prints, newline
ret ;EAX should stay the same...
endp

proc drawbox, num, num2
pusha
mov ecx, ebx
drawboxloop:
push ecx
mov ecx, eax
invoke printint, ecx
stdcall drawbar, ecx   ;stdcall for locals, invoke for DLLs
pop ecx
loop drawboxloop
popa
ret ;EAX should stay the same...
endp

section '.code' code readable executable writeable
pausestring db "pause", 0
main2:
mov eax, 1
mov ebx, 1
main:
inc eax
inc ebx
pusha
stdcall drawbox ;Make sure values are always above 0
;invoke cmd, "CLS"
popa

cmp eax, 24
je eaxcheck
retaftereaxinc:

cmp ebx, 24
je ebxcheck
retafterebxinc:

jmp main

eaxcheck:
mov eax, 1
jmp retaftereaxinc

ebxcheck:
mov ebx, 1
jmp retafterebxinc

invoke return,0   ;Never called, but used to keep it working with windows

section '.reqdata' import readable writeable

library kernel, 'kernel32.dll',\
        commoncode, 'printstuff.dll'

import kernel,\
       return, 'ExitProcess'

import commoncode,\
       prints, 'printstring',\
       printint, 'printint',\
       cmd, 'cmd'