C-PS/8 FOCAL, 1971 1.05 C MISCL1.RE 1.10 L C FOCAL.TM 1.20 I (-FABS(Q-.2))1.25;S K3=0;L G INDEX.RE 1.25 T "***** MISCELLANEOUS"!!!! 1.30 T "WORDS AND PHRASES LISTED UNDER MISCELLANEOUS IN THE INDEX BUT NOT GIVEN"! 1.40 T "IN THE BULK PRINT OUT ARE FOUND UNDER THEIR OWN NAMES. FILES , FOR"! 1.50 T "EXAMPLE, IS DESCRIBED UNDER FILE COMMANDS ."!!!! 1.60 G 3.1 2.10 D 3.22;D 3.24;D 3.26;D 3.28;T !!!! 3.10 T "***** CHANGES FROM FOCAL,1969:"!! 3.11 T "PROGRAMS WRITTEN IN FOCAL,1969 SHOULD REQUIRE ONLY ONE CHANGE TO"! 3.12 T "RUN UNDER PS/8 FOCAL,1971:"!! 3.13 T :5,"THE INPUT DEVICE IS SWITCHED TO THE HIGH SPEED PAPER TAPE READER"! 3.14 T :5,"WITH THE OPEN INPUT PTR: COMMAND AND SWITCHED BACK TO THE TERMINAL"! 3.15 T :5,"WITH OPEN INPUT TTY:,ECHO INSTEAD OF WITH THE * COMMAND OF"! 3.16 T :5,"FOCAL,1969."!!!!"OTHER CHANGES INCLUDE:"!!! 3.18 T " 1) EXTENDED LIBRARY FEATURES WITH DEVICE-INDEPENDENT CHAINING"! 3.20 T :5,"AND SUBROUTINE CALLS BETWEEN PROGRAMS."!! 3.21 T " 2) " 3.22 T :5,"FILE READING AND WRITING COMMANDS, 10 DIGIT PRECISION, AND/OR STANDARD"! 3.24 T :5,"TRIG FUNCTIONS, WHICH MAY BE DELETED BY THE INITIAL DIALOGUE TO ALLOW UP TO"! 3.26 T :5,"222 VARIABLES WITH 5500 CHARACTER PROGRAMS; WITH ALL FEATURES"! 3.28 T :5,"RETAINED, 98 VARIABLES AND 3500 CHARACTERS REMAIN."!! 3.30 T " 3) COMPUTED LINE NUMBERS."!! 3.32 T " 4) TABULATION."!! 3.34 T " 5) IMPROVED DISTRIBUTION AND PSEUDO-RANDOM INITIALIZATION OF FRAN() ,"! 3.36 T :5,"THE PSEUDO-RANDOM NUMBER FUNCTION."!! 3.38 T " 6) UNLIMITED LINE LENGTHS."!! 3.40 T " 7) CHARACTER MANIPULATIONS HANDLED WITH FIN() AND FOUT() ."!! 3.42 T " 8) FSGN(0)=0 [FSGN(0)=1 IN FOCAL,1969]"!! 3.44 T " 9) ERASE ALL AND MODIFY DO NOT ERASE VARIABLES."!! 3.46 T "10) IN ADDITION TO THE FDIS() DISPLAY FUNCTION FOR DEC S 34D DISPLAY,"! 3.48 T :5"VERSIONS ARE AVAILABLE WITH DISPLAY AND JOYSTICK FUNCTIONS FOR "! 3.50 T :5,"THE TEKTRONIX T-4002 GRAPHIC COMPUTER TERMINAL."!! 3.52 T "11) 3 SPECIAL VARIABLES ARE PROTECTED FROM THE ERASE COMMAND ---"! 3.54 T :5," ! , ";S DU=FOUT(162);T " ,AND . IS SET TO 1 BY THE INITIAL DIALOGUE"! 3.56 T :5,"IF ALL OPTIONAL FEATURES OF PS/8 FOCAL ARE DELETED, AND TO 2310 IF"! 3.58 T :5,"STANDARD FEATURES ARE RETAINED."!! 3.60 T "12) PS/8 FOCAL S STARTING ADDRESS IS 10200 (FIELD 1)."!!!! 3.70 T "  CTRL/P IS THE BREAK CHARACTER"! 3.80 T "  ------ -- --- ----- ---------"!!! 3.90 T "NOTE: PS/8 FOCAL DATA FILES ARE COMPATIBLE WITH EDIT AND TECO-8;"! 3.92 T :8"HOWEVER, PS/8 FOCAL PROGRAM FILES ARE SAVED AS CORE IMAGES."!!!!!!!! 7.10 G 7+Q 7.20 L R COMMA1.RE 1.2 7.61 L R MISCL2.RE 8.1