BASIC Programs on HP 50G

[Shawn Gibson]

(03-23-2014 01:08 AM)churichuro Wrote:  UBASIC now has the IF-THEN-ENDIF command and IF-THEN-ELSE-ENDIF command implemented for several lines of code, also corrected several BUGS.

the next step is to provide the interpetre a real string handling

executable size remains the same.

keep you informed of the progress in these small development UBASIC

new example of an Ubasic program:

Code:


Rem Quadratic Equation (Uses Square Root Function)

Print "Ax^2 + Bx + C = 0"
Input "A =",A
Input "B =",B
Input "C =",C

D= b*b-4*a*c
If D>0 Then
  Ds= Sqr(D)
  Print "Real Roots:",(-B-Ds)/(2*A),(-B+Ds)/(2*A)
Else
  If D=0 Then
     Print "Duplicate Root:",(-B)/(2*A)
  Else
     Ds= sqr(-D)
     Print "Complex Conjugate Roots:",(-B/(2*A));"+/-";Ds/(2*A);"i"
  EndIf
EndIf

Churichuro,
I want to thank you for sharing your project with us. I have been semi-interested in purchasing a 50G. I think that your uBasic may be just the application that gets me to "pull the trigger" on buying one.

Thanks again.
Shawn