File ADDEX.FC (FOCAL source file)

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

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



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