File: SYMBO1.RE of Tape: Sources/Focal/fc3
(.FC,.FO Focal format converted to 'WRITE' listing)
C-PS/8 FOCAL, 1971 01.05 C SYMBO1.RE 01.10 L C FOCAL.TM 01.20 F X=2,8;D X 01.30 T !"*** SPECIAL CHARACTERS:"!!!!;G 9.1 01.40 D 2.2;F X=3,8;D X 02.10 T !!!!!"***** SYMBOLS:"!!!! 02.20 T "*** ARITHMETIC SYMBOLS:"!!!! 03.10 T "EXPONENTIATION":20,"[^] (INDICATES AN INTEGER EXPONENT)"! 03.20 T "TYPE 3^2":20,"(OUTPUTS A '9' --- 3 TO THE SECOND POWER)"! 03.30 T "SET X=Y^Z":20,"(SETS X EQUAL TO Y RAISED TO THE INTEGRAL Z POWER)"! 03.40 T "TYPE 2^3.5":20,"(OUTPUTS AN '8' --- THE .5 IS DROPPED)"!!!!! 04.10 T "MULTIPLICATION":20,"[*]"! 04.20 T "TYPE 2*4":20,"(OUTPUTS AN '8')"! 04.30 T "SET X=Y*Z":20,"(SETS X EQUAL TO Y TIMES Z)"!!!!! 05.10 T "DIVISION":20,"[/]"! 05.20 T "TYPE 6/2":20,"(OUTPUTS A '3')"! 05.30 T "SET X=Y/Z":20,"(SETS X EQUAL TO Y DIVIDED BY Z)"!!!!! 06.10 T "ADDITION":20,"[+]"! 06.20 T "TYPE 2+2":20,"(OUTPUTS A '4')"! 06.30 T "SET X=Y+Z":20,"(SETS X EQUAL TO Y PLUS Z)"!!!!! 07.10 T "SUBTRACTION":20,"[-]"! 07.15 T "TYPE 3-X":20,"(OUTPUTS THE VALUE OF 3-X)"! 07.20 T "SET X=Y-Z":20,"(SETS X EQUAL TO Y MINUS Z)"!!!!! 08.10 T "ENCLOSURES":20,"(),[], AND <> MAY BE USED INTERCHANGEABLY"! 08.20 T :20,"IN MATCHED PAIRS TO ENCLOSE QUANTITIES"! 08.30 T :20,"WHICH ARE TO BE OPERATED ON AS A UNIT."!!!!! 09.10 T "RETURN/LINE FEED":20,"[!]"! 09.20 T "TYPE !!!!,X,!!":20,"(OUTPUTS 4 CARRIAGE RETURN/LINE FEEDS, THE VALUE"! 09.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