Introduction

Below, I listed a few programs that I have designed myself. They are not mega big programs because if you decide to try them, I don't want you to spend ages debugging. I have checked all of the programs below at least once, but if you have any problems, e-mail me.

1) Characters

Description: Shows all of the characters available on the Psion Siena. Probably more than you think!
Version: 1.0

PROC Char:
 LOCAL a%
 a%=14
 DO
  PRINT a%, CHR$(a%),
  a%=a%+1
  GET
 UNTIL a%=255
ENDP

2) VAT Calculator

Description: Works out how much Value Added Tax you pay on items.
Version: 1.0

PROC start:
 LOCAL a$(1), x
 PRINT "VAT Calculator"
 PRINT
 PRINT "Enter amount: £",
 INPUT x
 PRINT "(A)dd or (D)educt?"
 a$=UPPER$(GET$)

 IF a$="A"
  PRINT "Value including VAT = £", add:(x)
  GET
 ELSEIF a$="D"
  PRINT "Value excluding VAT = £", deduct:(x)
  GET
 ENDIF
 start:
ENDP

PROC add:(t)
 RETURN t*1.175
ENDP

PROC deduct:(t)
 RETURN t*0.825
ENDP

3) Quadratic Equation Solver

Description: Calculates the roots of a quadratic equation (very useful for A-level Mathematicians). Due do the Siena's processing power, the answers are often more accurate than those from a graphics calculator.
Version: 1.0

PROC quad:
 LOCAL a,b,c,e,r1,r2
 PRINT "Quadratic Equation Solver"
 PRINT
 PRINT CHR$(159);"(x)=ax";chr$(253);"+bx+c"
 PRINT
 PRINT "Enter coefficient a:",
 INPUT a
 PRINT "Enter coefficient b:",
 INPUT b
 PRINT "Enter coefficient c:",
 INPUT c

 e=(sqr((b*b)-(4*a*c)))
 r1=(((-b)+e)/(2*a))
 r2=(((-b)-e)/(2*a))

 PRINT
 PRINT "First root:",r1
 PRINT "Second root:",r2
 GET
 quad:
ENDP

A screen shot for the above code:

Back to Index