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