; Source File Generated on 10-04-2003 @ hh:mm:ss by BCET_Gen Version 0.04 (Beta)
; (Time left out to make generation compare easier - jlw)

; Later - all the compile & generation options will be listed here

	Include	BcetXc.Inc		; This is Optional!
	Include	Bcet.Inc		; This is REQUIRED!

MessageBoxA		Proto StdCall :Dword, :$Str, :$Str, :Dword

	IncludeLib	user32.lib


?ModuleStart


		Dword	HELLOM_Module
		Byte	'B', 0, 4, 0	; version info
		Dword	0	; String Pool Size
		Dword	0		; Nothing Yet

@CurSeg Ends

?StringConst

		Align	4
		Dword	6
String_0001		Byte	"user32", 0
		Align	4
		Dword	13
String_0002		Byte	"Hello, World!", 0
		Align	4
		Dword	29
String_0003		Byte	"From a Compiled Basic Program", 0
		Align	4
		Dword	14
String_0004		Byte	"Return Value: ", 0

@CurSeg Ends

?NumberConst

Number_0001		Dword	0	; "0"
Number_0002		Dword	2	; "2"
Number_0003		Dword	48	; "48"




; Block: 1: Module: HELLOM_Module ÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ


; Block Init Begin ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ

; StmtData 1: DIM		Src Line: 59

@CurSeg Ends

?UserVars

m_$_v_0_41		$Str	0

; StmtData 2: DIM		Src Line: 59

h_$_v_0_42		$Str	0

; StmtData 3: DIM		Src Line: 59

R_L_v_0_43		Dword	0

; StmtData 4: DIM		Src Line: 59

Handle_L_v_0_44		Dword	0

; StmtData 5: DIM		Src Line: 59

Style_L_v_0_45		Dword	0

; StmtData 12: vardim		Src Line: 76

_StrTmp_00001		$Str	0


; Block Init End ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ

@CurSeg Ends

.code

HELLOM_Module		Proc	<ForceFrame>

; Block Variable Init Begin ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ


; Block Variable Init End Code ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ


; Block Statements Begin ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ


; ===> Handle = 0
; Stmt     6: Assignment		Src Line: 61

	mov	Handle_L_v_0_44, 0	; GS: 'dVarBvR4  &' RT=L, RC=V, Ty=Sym, Name=Handle_L_v_0_44 RT=L, RC=C, Ty=Num, Val="0"

; ===> m$ = "Hello, World!"
; Stmt     7: Assignment		Src Line: 62

	push	Offset String_0002	; RT=$, RC=C, Ty=Str, Value="Hello, World!"
	push	Offset m_$_v_0_41	; GL: 'dVarBvR4g $' RT=$, RC=V, Ty=Sym, Name=m_$_v_0_41
	call	j$StringAssign@8	; GS: 'dVarBvR4  $' RT=$, RC=V, Ty=Sym, Name=m_$_v_0_41

; ===> h$ = "From a Compiled Basic Program"
; Stmt     8: Assignment		Src Line: 63

	push	Offset String_0003	; RT=$, RC=C, Ty=Str, Value="From a Compiled Basic Program"
	push	Offset h_$_v_0_42	; GL: 'dVarBvR4g $' RT=$, RC=V, Ty=Sym, Name=h_$_v_0_42
	call	j$StringAssign@8	; GS: 'dVarBvR4  $' RT=$, RC=V, Ty=Sym, Name=h_$_v_0_42

; ===> Style = MbAbortRetryIgnore OR MbIconExclamation
; Stmt     9: Assignment		Src Line: 64

	mov	edi, 2			; RT=L, RC=C, Ty=Num, Val="2"
	or	edi, 48			; RT=L, RC=C, Ty=Num, Val="48"
	mov	Style_L_v_0_45, edi	; GS: 'dVarBvR4  &' RT=L, RC=V, Ty=Sym, Name=Style_L_v_0_45

; ===> R = MBox(Handle, m$, h$, Style) ' this is the correct order
; Stmt     10: Assignment		Src Line: 70

	push	Style_L_v_0_45		; GL: 'dVarBvR4g &' RT=L, RC=V, Ty=Sym, Name=Style_L_v_0_45 PA: Parameter 1
	lea	edi, h_$_v_0_42		; GL: 'dVarBvR4g $' RT=$, RC=V, Ty=Sym, Name=h_$_v_0_42 PA: Parameter 2
	push	[edi]			; byval string - use ACTUAL string address
	lea	edi, m_$_v_0_41		; GL: 'dVarBvR4g $' RT=$, RC=V, Ty=Sym, Name=m_$_v_0_41 PA: Parameter 3
	push	[edi]			; byval string - use ACTUAL string address
	push	Handle_L_v_0_44		; GL: 'dVarBvR4g &' RT=L, RC=V, Ty=Sym, Name=Handle_L_v_0_44 PA: Parameter 4
	call	MessageBoxA		; Usr Fun Call, Name=MessageBoxA
	mov	R_L_v_0_43, eax		; GS: 'dVarBvR4  &' RT=L, RC=V, Ty=Sym, Name=R_L_v_0_43

; ===> PRINT "Return Value: " + HEX$(R)
; Stmt     11: PRINT		Src Line: 76

	push	R_L_v_0_43		; GL: 'dVarBvR4g &' RT=L, RC=V, Ty=Sym, Name=R_L_v_0_43 Sys Fun Call, Name=HEX$
	call	jf$HEX$_L_$@4
	mov	edi, eax
	push	Offset String_0004	; RT=$, RC=C, Ty=Str, Value="Return Value: "
	push	edi
	call	j$StringConcat@8
	push	eax
	call	js$Print$@4

; ===> END
; Stmt     13: END		Src Line: 78

	call	js$End@0

; Block Statements End ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ


; Block Cleanup Begin ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ

; StmtDone 1: DIM		Src Line: 59

	push	Offset m_$_v_0_41	; GL: 'dVarBvR4g $' RT=$, RC=V, Ty=Sym, Name=m_$_v_0_41
	call	j$StringDelete@4

; StmtDone 2: DIM		Src Line: 59

	push	Offset h_$_v_0_42	; GL: 'dVarBvR4g $' RT=$, RC=V, Ty=Sym, Name=h_$_v_0_42
	call	j$StringDelete@4

; StmtDone 12: vardim		Src Line: 76

	push	Offset _StrTmp_00001	; GL: 'dVarBvR4g $' RT=$, RC=V, Ty=Sym, Name=_StrTmp_00001
	call	j$StringDelete@4


; Block Cleanup End ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ

	ret	
HELLOM_Module		EndP

; ÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ

	End			; Gen Code Completed!