TS1000 Advanced Calculator Program

My work is primarily applied math and engineering design. In addition to using mirco and main frame computers, much of the work is ‘one time thru’ evaluation of complex formulas and expressions. Prior to developing the programs presented herein, this was done with scientific calculators and hand written ‘engineering notes’ which were passed on to the client. Use of CALPR-1 below greatly increased the accuracy and efficiency of this work and the printout replaced the need for hand written notes. I predict anyone presently doing scientific computations ‘manually’ will find this concept helpful.

These programs convert the TS-1000/1500 computer (with 16 col., 32 col. or an 80 col. printer) into a superior printing scientific calculator which saves the last 25 formulas and 900 variables for reference and/or use in future expressions. The enhanced version, CALPR-1, provides for labeling of all expressions and variables for improved calculation notes. Poking to modify memory enables this to be done without formal use of arrays.

CALPR-0 uses no screen prompts. The writer has used it with a computer, 16 col. printer, battery and no display as a convenient portable unit. The program is started with GOTO 10, which preserves past variables and expression strings (formulas). The screen, if used, shows the computer awaiting a string input, which may include previous results (variables), functions, numbers, etc. Upon inputing your next expression, it and the result (with a two character notation) appears on the screen. After a two second pause, they are also sent to the printer. The next string is then called for and the cycle repeats. Strings A$ thru Y$ are preserved and the results are labeled A0 thru YZ (900 permutations).

Program CALPR-1 is similar except that provision is made for the operator to label each expression string and result variable. The labels and results are shown on the screen and sent to the printer. Prompts to input an expression, EXP$ or a label, LABEL are shown on the screen. Expression strings A$ thru X$ are preserved and variables A0 thru XZ (864 permutations) are preserved.

CALPR-1 BY D.L. DEAN A PRINTING
SCIENTIFIC CALCULATOR PROGRAM
WITH EXTENDED MEMORY AND LABELS


  10 INPUT A$
  15 LET Z$=A$
  20 LET Z=VAL Z$
  22 LET A0=Z
  23 PRINT "LABEL ";
  24 INPUT Y$
  25 PRINT Y$,CHR$ (PEEK 16514);"$= ";Z$,CHR$ PEEK 16514;CHR$ PEEK 16545;"= ";Z
  27 PAUSE 120
  29 LPRINT
  30 LPRINT Y$,CHR$ (PEEK 16514);"$= ";Z$,CHR$ PEEK 16514;CHR$ PEEK 16545;"= ";Z
  35 IF PEEK 16514>=61 THEN GOTO 50
  37 PRINT "EXP$ ";
  40 POKE 16514,(1+PEEK 16514)
  45 POKE 16525,(1+PEEK 16525)
  46 POKE 16544,1+PEEK 16544
  47 GOTO 10
  50 POKE 16514,38
  55 POKE 16525,38
  57 POKE 16544,38
  58 POKE 16545,(1+PEEK 16545)
  59 IF PEEK 16545>63 THEN POKE 16545,28
  60 GOTO 10
  80 PRINT "CALPR-1 BY D.L. DEAN A PRINTING SCIENTIFIC CALCULATOR PROGRAM  WITH EXTENDED MEMORY AND LABELS"

SYNTACTIC SUM = 35968

CALPR-0 BY D.L. DEAN A PRINTING
SCIENTIFIC CALCULATOR PROGRAM
WITH EXTENDED MEMORY


  10 INPUT A$
  15 LET Z$=A$
  20 LET Z=VAL Z$
  22 LET A0=Z
  25 PRINT CHR$ (PEEK 16514);"$= ";Z$,CHR$ PEEK 16514;CHR$ PEEK 16545;"= ";Z
  27 PAUSE 120
  29 LPRINT
  30 LPRINT CHR$ (PEEK 16514);"$= ";Z$,CHR$ PEEK 16514;CHR$ PEEK 16545;"= ";Z
  35 IF PEEK 16514>=62 THEN GOTO 50
  40 POKE 16514,(1+PEEK 16514)
  45 POKE 16525,(1+PEEK 16525)
  46 POKE 16544,1+PEEK 16544
  47 GOTO 10
  50 POKE 16514,38
  55 POKE 16525,38
  57 POKE 16544,38
  58 POKE 16545,(1+PEEK 16545)
  59 IF PEEK 16545>63 THEN POKE 16545,28
  60 GOTO 10
  80 PRINT "CALPR-0 BY D.L. DEAN A PRINTING SCIENTIFIC CALCULATOR PROGRAM  WITH EXTENDED MEMORY "

SYNTACTIC SUM = 33136