Directory of image this file is from
This file as a plain text file
C-PS/8 FOCAL, 1971 1.05 C SYMBO1.RE 1.10 L C FOCAL.TM 1.20 F X=2,8;D X 1.30 T !"*** SPECIAL CHARACTERS:"!!!!;G 9.1 1.40 D 2.2;F X=3,8;D X 2.10 T !!!!!"***** SYMBOLS:"!!!! 2.20 T "*** ARITHMETIC SYMBOLS:"!!!! 3.10 T "EXPONENTIATION":20,"[^] (INDICATES AN INTEGER EXPONENT)"! 3.20 T "TYPE 3^2":20,"(OUTPUTS A 9 --- 3 TO THE SECOND POWER)"! 3.30 T "SET X=Y^Z":20,"(SETS X EQUAL TO Y RAISED TO THE INTEGRAL Z POWER)"! 3.40 T "TYPE 2^3.5":20,"(OUTPUTS AN 8 --- THE .5 IS DROPPED)"!!!!! 4.10 T "MULTIPLICATION":20,"[*]"! 4.20 T "TYPE 2*4":20,"(OUTPUTS AN 8 )"! 4.30 T "SET X=Y*Z":20,"(SETS X EQUAL TO Y TIMES Z)"!!!!! 5.10 T "DIVISION":20,"[/]"! 5.20 T "TYPE 6/2":20,"(OUTPUTS A 3 )"! 5.30 T "SET X=Y/Z":20,"(SETS X EQUAL TO Y DIVIDED BY Z)"!!!!! 6.10 T "ADDITION":20,"[+]"! 6.20 T "TYPE 2+2":20,"(OUTPUTS A 4 )"! 6.30 T "SET X=Y+Z":20,"(SETS X EQUAL TO Y PLUS Z)"!!!!! 7.10 T "SUBTRACTION":20,"[-]"! 7.15 T "TYPE 3-X":20,"(OUTPUTS THE VALUE OF 3-X)"! 7.20 T "SET X=Y-Z":20,"(SETS X EQUAL TO Y MINUS Z)"!!!!! 8.10 T "ENCLOSURES":20,"(),[], AND <> MAY BE USED INTERCHANGEABLY"! 8.20 T :20,"IN MATCHED PAIRS TO ENCLOSE QUANTITIES"! 8.30 T :20,"WHICH ARE TO BE OPERATED ON AS A UNIT."!!!!! 9.10 T "RETURN/LINE FEED":20,"[!]"! 9.20 T "TYPE !!!!,X,!!":20,"(OUTPUTS 4 CARRIAGE RETURN/LINE FEEDS, THE VALUE"! 9.30 T :22,"OF X, AND THEN 2 MORE CARRIAGE RETURN/LINE FEEDS."!!!! 10.10 T "CARRIAGE RETURN":20,"[]"! 10.20 T "SEE WHAT THE " 10.22 T "" 10.23 T " DOES TO LINE " 10.24 T "10.35" 10.25 T " FIRST WRITTEN THEN EXECUTED:"! 10.26 T "(SEE HOW THE / AND THE = ARE SUPERIMPOSED)"! 10.30 W 10.35 10.35 TYPE "X=5",," /",!!!!! 11.10 T "TAB":20,"[:]"! 11.20 D 10.2;T ":";D 10.23;T "11.37";D 10.25;W 11.37 11.34 T %6.04 11.37 TYPE "NAME---":25,"ROGER":40,"AGE = ",2*13,!!!!! 12.10 T "OUTPUT FORMATTER":20,"[%]"! 12.20 D 10.2;T "%";D 10.23;T "12.30";D 10.25;W 12.3 12.30 SET X=123.456;TYPE %6.04 X,!;TYPE % 4.02 X,!;T % 3.0 X,!;T %,X,! 12.40 T " %4.02 PERMITS FOUR DIGITS TO BE OUTPUT INCLUDING UP TO TWO"! 12.50 T "DECIMAL PLACES; TYPE % ALONE GIVES POWERS OF TEN NOTATION."!!!!! 13.10 T "SYMBOL TABLE":20,"[$]"! 13.20 T "TYPE $":20,"(OUTPUTS LIST OF DEFINED VARIABLES)"!!!!! 14.10 T "QUOTATION MARKS":20,"[" 14.15 T %6.04 14.20 S X=FOUT(162) 14.30 T "]"! 14.40 T "TEXT MAY BE TYPED BY ENCLOSING IT IN QUOTES"! 14.50 D 10.2;D 14.2;D 10.23;T "14.65";D 10.25;W 14.65 14.65 TYPE "THE ANSWER IS ",3+8,!!!!! 15.10 T "TRACE":20,"[ ]"! 15.15 T %6.04 15.20 T "THE FIRST TIME FOCAL READS A (EXCEPT WITHIN QUOTES) IT WILL"! 15.30 T "START OUTPUTTING THE PROGRAM WHILE IT IS EXECUTING IT; THE NEXT"! 15.40 T "TIME IT ENCOUNTERS A IT WILL STOP TYPING OUT THE PROGRAM."! 15.50 D 10.2;T " ";D 10.23;T "15.60";D 10.25;W 15.6 15.60 SET X=3; SET Y=5;TYPE X/Y,! 15.70 T "A GO COMMAND WILL TRACE THE ENTIRE PROGRAM."!!!!! 16.10 L R SYMBO2.RE 6.1