21 - TEACHER - Arithmetic Trainer

Post Reply
Peet
Posts: 94
Joined: Tue Sep 29, 2020 12:01 am
Location: Germany

21 - TEACHER - Arithmetic Trainer

Post by Peet »

HP41 Standard Applications (based on 1981 bug-fixed version, modified).
Changes (among others): Local label instead of global, operation optimized

Usage: XEQ "TE" (needs "ZZ" and "TO" from Basics)
Display: "MAX?"
Input: <largest mumber to use> e.g. 10 R/S
Display: "-7 +4 *1 /0"
Input: e.g. for multiplication 1 R/S
Display: "math problem"
Input: <solution> R/S
Display: YES or NO (you have 2 attempts for each problem)
after 10 tasks the evaluation appears and a new round starts

Code: Select all

LBL "TE"
FIX 0
CF 29
LBL 03
"MAX?"
PROMPT
1
+
STO 04
0
STO 08
STO 09
10
STO 07
"-7 +4 *1 /0"
PROMPT
STO 01
LBL 09
XEQ 05
STO 02
XEQ 05
STO 05
RCL 02
XEQ IND 01
LBL 08
ARCL 05
ARCL 06
ARCL 02
"|-=?"
PROMPT
RCL 03
X=Y?
GTO 02
"NO "
AVIEW
TONE 2
FS?C 00
GTO 06
SF 00
1
ST+ 09
GTO 08
LBL 06
ARCL 05
ARCL 06
ARCL 02
"|-="
ARCL 03
AVIEW
PSE
GTO 06
LBL 02
CF 00
"YES"
AVIEW 
1
ST+ 08
LBL 06
DSE 07
GTO 09
RCL 09
X=0?
XEQ "TO" 	; XEQ "TO" from Basics or BEEP
RCL 08
.1
/
CLA
ARCL X
"|-% OK" 
AVIEW
PSE
PSE
GTO 03
LBL 04 		; "+"
+
STO 03
LASTX
-
LASTX
"+"
ASTO 06
CLA
RTN
LBL 07 		; "-"
-
X<=0?
XEQ 06
STO 03
LASTX
+
LASTX
"-" 
ASTO 06
CLA
RTN
LBL 06
CHS
RCL 02
X<> 05
X<> 02
RDN
RTN
LBL 01		; "*" - 1981 bug-fix - prevents div by zero
*
STO 03
RCL 05
LASTX
"*"
ASTO 06
CLA
RTN
LBL 00 		; "/" - 1981 bug-fix 
X=0?
E^X
STO 02
X<>Y
STO 03
*
STO 05
"/"
ASTO 06
CLA
RTN
LBL 05
XROM 26,36	; XEQ "ZZ" (Basics), XROM 26,36 (TRNG - DM41X), XROM 01,49 (RAN - DM42)
SQRT		; prefer higher numbers
RCL 04
*		; ZZ from 0 to R04-1
INT
END
Attachments
21_TE_Lernspiel.raw
(214 Bytes) Downloaded 11 times
My programmable calculators - former: CBM PR100, HP41CV, HP28S, HP11C - current: HP48G(+), HP35S, DM41X, DM42
Post Reply