File ADDEX.FC (FOCAL source file)

Directory of image this file is from
This file as a plain text file

CO()0IUFIC-PS/8 FOCAL, 1971?MC4BD?MB4B(S A=FABS(FITR(100*FRAN()));S B=FABS(FITR(99*FRAN()))?MCHB2T %2,:4,A,!"+",:4,B,!"-------",!!?MD(B<A "=   ",REPLY,!?MHCFJT "IF YOU ARE HAVING TROUBLE, ASK YOUR TEACHER FOR HELP.",!?MF;BEC     THIS IS AN EDUCATIONAL ROU
INE DESIGNED FOR CHILDREN IN?MCSDTT "SORRY, TRY AGAIN.",!;G 1.5?ME%CFI (RE-A-B) 2.1,1.8,2.1?MDVDJS WR=WR+1;I (WR-2) 2.2,2.2,3.1?MH)B]E?MHJT "CONGRATULATIONS! YOU ARE FINISHED."!!!!;Q?ME3CPS WRONG=0;T "CORRECT"!?MD6CZS CORRECT=CO+1;I (CO-19) 1.35,1.35,4.1?
F BAC     ADDEX FROM 	PROGRAMMING LANGUAGES	?MHYBBC     COPYRIGHT 1970 BY DIGITAL EQUIPMENT CORP.?MG]BFC ELEMENTARY SCHOOL.  THE PURPOSE IS TO ALLOW THE STUDENTS TO?MEHBGC USE THE COMPUTER AND TO AID THEM IN PRACTICING ADDITION.?MELF^G 1.35?MG=FTT "THE CO
RECT ANSWER IS ",%3,A+B,!!!?MBTBCC     LAST CHANGE: 9/10/71?MIKB^T "HELLO, PLEASE ADD THE FOLLOWING 20 SETS OF NUMBERS."!;G 1.4?MBWBT "NOW THIS:"!?MDDL S ADDEX?M?HIS:"!?MDD THE FOLLOWING 20 SETS OF NUMBERS."!;G 1.4?MTHE?MGSBGC COMPUT

Note: Lines longer than 256 characters were wrapped



Feel free to contact me, David Gesswein djg@pdp8online.com with any questions, comments on the web site, or if you have related equipment, documentation, software etc. you are willing to part with.  I am interested in anything PDP-8 related, computers, peripherals used with them, DEC or third party, or documentation. 

PDP-8 Home Page   PDP-8 Site Map   PDP-8 Site Search