BASIC Programs on HP 50G

[Alvaro]

(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

Very nice churichuro.
I just had a look about "Local Variables" definition in the HP´s Handbook and more and more I believe your UBASIC will be a "Must have" App for every one.