CO()0ITGPC-PS/8 FOCAL, 1971?MC:BD?MB4B(S A=FABS(FITR(100*FRAN()));S B=FABS(FITR(99*FRAN()))?MCHB2T %2,:4,A,!"+",:4,B,!"-------",!!?MD.B<A "=   ",REPLY,!?MENFJT "IF YOU ARE HAVING TROUBLE, ASK YOUR TEACHER FOR HELP.",!?ME	F^G 1.3?MHBBEC     THIS IS AN EDUC
TIONAL ROUTINE DESIGNED FOR CHILDREN IN?MCSDTT "SORRY, TRY AGAIN.",!;G 1.5?MF,CFI (RE-A-B) 2.1,1.8,2.1?MD\DJS WR=WR+1;I (WR-2) 2.2,2.2,3.1?MC4FTT "THE CORRECT ANSWER IS ",%3,A+B,!?MFKB]E?MHJT "CONGRATULATIONS! YOU ARE FINISHED."!!!!;Q?MBWBT "NOW THESE:"!?
FB^T "HELLO, PLEASE ADD THE FOLLOWING SETS OF NUMBERS."!;G 1.4?MF:CPS WRONG=0;T "CORRECT"!?MD<CZS CORRECT=CO+1;I (CO-19) 1.35,1.35,4.1?MG	BAC     ADDEX FROM 	PROGRAMMING LANGUAGES	?MIDBBC     COPYRIGHT 1970 BY DIGITAL EQUIPMENT CORP.?MH(BFC ELEMENTARY SCH
OL.  THE PURPOSE IS TO ALLOW THE STUDENTS TO USE THE?MEBGC COMPUTER AND TO AID THEM IN PRACTICING ADDITION.?MBTBCC     LAST CHANGE: 8/19/71?MN L S ADDEX?M? CHANGE: 8/19/71?MN PRACTICING ADDITION.?MM?E 1.14?M?ME THE?MGSBGC COMPUT

Note: Lines longer than 256 characters were wrapped