help!!!!

[champion]

Thanks sayzer...I changed it to a gosub, and it freaked out because when it returns to the loop in still increments scale. So I tried goto calibrated and the LCD at least shows scale=, but it says "scale=r" WTF?

Here's what I've got. BTW, thanks again for all of your help. I'm already miles ahead just from reading your posts.

B0 var byte
scale var byte
LED var PORTB.1
Potpin var PORTB.2

for scale = 1 to 255

LCDout $FE, 1, "calibrating", $FE, $C0, "Scale=", DEC scale, "B0=", DEC B0
pot Potpin, scale, B0
If (B0 > 253) then
goto calibrated
endif
Pause 1000
next scale

Lcdout $FE, 1, "Increase R or C"
stop
calibrated:
lcdout $FE, 1, "Scale=", scale

end

[paul borgmeier]

Possibly you want

lcdout $FE, 1, "Scale=", DEC scale

when you jump out, otherwise you get the ASCII equivalent of scale?

[champion]

doh! Thanks. Works great! Here's my final code for others to use as reference.

B0 var byte
scale var byte
LED var PORTB.1
Potpin var PORTB.2

for scale = 1 to 255

LCDout $FE, 1, "Wait for Calibration", $FE, $C0, "Current Scale=", DEC scale
pot Potpin, scale, B0
If (B0 > 253) then
goto calibrated
endif
next scale

Lcdout $FE, 1, "Increase R or C"
stop
calibrated:
lcdout $FE, 1, "Use Scale=", DEC scale, $FE, $C0, "Have a nice day"
high led
end