Radio Shack PC-6

Datasheet legend
Ab/c: Fractions calculation
AC: Alternating current
BaseN: Number base calculations
Card: Magnetic card storage
Cmem: Continuous memory
Cond: Conditional execution
Const: Scientific constants
Cplx: Complex number arithmetic
DC: Direct current
Eqlib: Equation library
Exp: Exponential/logarithmic functions
Fin: Financial functions
Grph: Graphing capability
Hyp: Hyperbolic functions
Ind: Indirect addressing
Intg: Numerical integration
Jump: Unconditional jump (GOTO)
Lbl: Program labels
LCD: Liquid Crystal Display
LED: Light-Emitting Diode
Li-ion: Lithium-ion rechargeable battery
Lreg: Linear regression (2-variable statistics)
mA: Milliamperes of current
Mtrx: Matrix support
NiCd: Nickel-Cadmium rechargeable battery
NiMH: Nickel-metal-hydrite rechargeable battery
Prnt: Printer
RTC: Real-time clock
Sdev: Standard deviation (1-variable statistics)
Solv: Equation solver
Subr: Subroutine call capability
Symb: Symbolic computing
Tape: Magnetic tape storage
Trig: Trigonometric functions
Units: Unit conversions
VAC: Volts AC
VDC: Volts DC
Years of production:   Display type: Alphanumeric display  
New price:   Display color: Black  
    Display technology: Liquid crystal display 
Size: 6"×6"×½" Display size: 24 characters
Weight: 6 oz    
    Entry method: BASIC expressions 
Batteries: 2×"CR-2032" Lithium + 1×"CR-1220" Lithium Advanced functions: Trig Exp Hyp Lreg Cmem Snd 
External power:   Memory functions:  
I/O: Printer, memory expansion     
    Programming model: BASIC 
Precision: 12 digits Program functions: Jump Cond Subr Lbl Ind  
Memories: 8(0) kilobytes Program display: Text display  
Program memory: 8 kilobytes Program editing: Text editor  
Chipset: Casio fx-790P   Forensic result: 9.00000716758  

pc6.jpg (38405 bytes)Another Casio OEM model, the PC-6 BASIC programmable calculator differs from its predecessor, the PC-5, in only one respect: it has more memory. It is Tandy's store label version of the Casio FX-790P.

So here's yet again this somewhat boring example, a Gamma function program:

100 INPUT "X=",X
110 T=1
120 IF X>=0 THEN 160
130 T=T*X
140 X=X+1
150 GOTO 120
160 G=1.00000000019
170 G=G+76.1800917295/(X+1)
180 G=G-86.5053203294/(X+2)
190 G=G+24.0140982408/(X+3)
200 G=G-1.23173957245/(X+4)
210 G=G+1.20865097387E-3/(X+5)
220 G=G-5.39523938495E-6/(X+6)
230 G=LN (SQR (2*π)*G/X)
240 G=G-X-5.5+LN (X+5.5)*(X+.5)