File: ADDEX.FC of Tape: Sources/Focal/fc3

(.FC,.FO Focal format converted to 'WRITE' listing) 

---

C-PS/8 FOCAL, 1971

01.01 C     ADDEX FROM 'PROGRAMMING LANGUAGES'
01.02 C     COPYRIGHT 1970 BY DIGITAL EQUIPMENT CORP.
01.03 C     LAST CHANGE: 9/10/71
01.04 
01.05 C     THIS IS AN EDUCATIONAL ROUTINE DESIGNED FOR CHILDREN IN
01.06 C ELEMENTARY SCHOOL.  THE PURPOSE IS TO ALLOW THE STUDENTS TO
01.07 C USE THE COMPUTER AND TO AID THEM IN PRACTICING ADDITION.
01.29 E
01.30 T "HELLO, PLEASE ADD THE FOLLOWING 20 SETS OF NUMBERS."!;G 1.4
01.35 T "NOW THIS:"!
01.40 S A=FABS(FITR(100*FRAN()));S B=FABS(FITR(99*FRAN()))
01.50 T %2,:4,A,!"+",:4,B,!"-------",!!
01.60 A "=   ",REPLY,!
01.70 I (RE-A-B) 2.1,1.8,2.1
01.80 S WRONG=0;T "CORRECT"!
01.90 S CORRECT=CO+1;I (CO-19) 1.35,1.35,4.1

02.10 S WR=WR+1;I (WR-2) 2.2,2.2,3.1
02.20 T "SORRY, TRY AGAIN.",!;G 1.5

03.10 T "IF YOU ARE HAVING TROUBLE, ASK YOUR TEACHER FOR HELP.",!
03.20 T "THE CORRECT ANSWER IS ",%3,A+B,!!!
03.30 G 1.35

04.10 T "CONGRATULATIONS! YOU ARE FINISHED."!!!!;Q

---