What am I doing wrong?! This code is simple enough, but doesn't work!! It resets X & Y to zero. I'm missing something very basic, I think. But I can't figure out what... Any comments are appreciated. Thanks!
#DIM ALL
#COMPILE EXE
%USEMACROS = 1
#INCLUDE "Win32API.inc"
DEFEXT A-Z
FUNCTION PBMAIN()
LOCAL A$
LOCAL X, Y, Z AS EXT
A$ = INPUTBOX$("Enter value","INPUTBOX$ Test Program","1.23") : X = VAL(A$)
MSGBOX("A$="+A$+" val(A$)="+STR$(VAL(A$))+" X="+STR$(X))
A$ = INPUTBOX$("Enter value","INPUTBOX$ Test Program","4.56") : Y = VAL(A$)
MSGBOX("X ="+STR$(X)+" A$="+A$+" val(A$)="+STR$(VAL(A$))+" Y="+STR$(Y))
MSGBOX("X="+STR$(X)+" Y="+STR$(Y) + " X+Y="+STR$(X+Y))
Z = X+Y
MSGBOX("Z ="+STR$(Z))
END FUNCTION 'PBMAIN()
#DIM ALL
#COMPILE EXE
%USEMACROS = 1
#INCLUDE "Win32API.inc"
DEFEXT A-Z
FUNCTION PBMAIN()
LOCAL A$
LOCAL X, Y, Z AS EXT
A$ = INPUTBOX$("Enter value","INPUTBOX$ Test Program","1.23") : X = VAL(A$)
MSGBOX("A$="+A$+" val(A$)="+STR$(VAL(A$))+" X="+STR$(X))
A$ = INPUTBOX$("Enter value","INPUTBOX$ Test Program","4.56") : Y = VAL(A$)
MSGBOX("X ="+STR$(X)+" A$="+A$+" val(A$)="+STR$(VAL(A$))+" Y="+STR$(Y))
MSGBOX("X="+STR$(X)+" Y="+STR$(Y) + " X+Y="+STR$(X+Y))
Z = X+Y
MSGBOX("Z ="+STR$(Z))
END FUNCTION 'PBMAIN()
Comment