E A

C FOCAL15 V9A
02.01 T !"LET'S LEARN SOME ARITHMETIC SYMBOLS SUCH AS:
02.02 T !"   + IS +"!"    - IS -"!"   * IS X (TIMES)"
02.03 T !"   / IS DIVIDE"!"   ^ IS TAKE TO A POWER, E.G 3^2=9
02.30 T !!"NOW TRY WRITING YOUR OWN PROGRAM.  THE ONLY COMMAND YOU
02.31 T !"WILL NEED IS TYPE OR T.  USE GROUP 6.  FOR EXAMPLE
02.32 T !"YOUR PROGRAM COULD BE:"!;W 6.05
02.33 W 6.10
02.34 T !" YOU MAY NEED TO USE (  ) TO KEEP THINGS STRAIGHT.
02.35 T !"EXECUTE YOUR PROGRAM WITH A GO 6.05. ";Q
02.37 T !"  NOW TRY A PROGRAM WITH SENTENCES AND NUMERICAL ANSWERS.
02.38 T !"WRITE 6.01 TO SEE A HANDY WAY TO DO THIS.";Q
02.39 T !"YOU CAN OMIT THE NUMBERS ON YOUR STATEMENTS AND USE FOCAL
02.40 T !"AS A DESK CALCULATOR. TRY THE FOLLOWING WITH NO STATEMENT
02.41 T !" NUMBER: T 2 + 2    T 5 ^ 3   , NO = IS USED."
02.42 T !"THE NEW * MAY BE SPACED FUNNY.";Q
02.44 T !!"LET'S LEARN SOMETHING USEFUL.
02.46 T !"FSQT IS SQUARE ROOT" !"FSIN IS SIN, (FCOS AND FTAN ALSO)
02.47 T !"FLOG IS NATURAL LOGARITHM
02.48 T !"NOW DO SOME DESK CALCULATING AND COME BACK TO 2.60
02.49 T !"AN EXAMPLE CALCULATION IS T FLOG(2)/2.303 TO GET LOG
02.50 T !"TO THE BASE 10 OF 2. TRY SOME PROGRAMS OF YOUR OWN."; Q
02.60 T !"IT IS TIME TO LEARN TO USE SYMBOLS AND THE COMMAND
02.61 T !" SET (OR S).  FOCAL VARIABLES START WITH ALPHABETIC
02.62 T !"CHARACTERS AND CAN HAVE DIGITS BUT NO INTERNAL BLANKS
02.63 T !"OR PUNCTUATION MARKS. EG. X, X1, POP, MN4, ETC.
02.64 T !"IT IS PERMISSIBLE TO USE SUBSCRIPTED VARIABLES
02.65 T !"DESIGNATED X(1), MOM(3), Y1(5), Z(J), ETC. BUT DON'T
02.66 T !"WORRY ABOUT THIS FOR NOW.  THE COMMAND S IS USED TO
02.67 T !"DEFINE A SYMBOL, EG. S X=5.7 OR S Y =FLOG(X)
02.68 T !"TRY WRITING YOUR OWN PROGRAM USING GROUP 7 ALONG
02.69 T !"THE LINES OF THE FOLLOWING:"!;W 12
02.70 Q
02.79 T !"FOR CONVENIENCE, MORE THAN ONE COMMAND CAN BE ON A LINE
02.80 T !"OF THE PROGRAM. EG. "!;W 3.13
02.81 T !"TRY WRITING A COMPACT PROGRAM OF YOUR OWN BY
02.82 T !"CHANGING YOUR PREVIOUS PROGRAM.  YOU CAN
02.83 T !"SIMULTANEOUSLY ERASE AND WRITE BY GIVING A NEW
02.84 T !"STATEMENT THE SAME NUMBER AS AN OLD ONE. USE GROUP 7.";Q
03.10 L I TEACH3
03.11 Q
03.13 S X=7;S Y=953;S Z=Y/X;T Z
06.01 T !"THE ANSWER ="
06.05 T 5 + 7
06.10 T 12.3/(45+67.8)
06.99 Q
12.92 S X=12.345
12.93 S Y=FLOG(X)/2.303
12.94 T !"X =   ","Y =
12.95 T X,Y

*;G