File: MISCL2.RE of Tape: Sources/Focal/fc3
(.FC,.FO Focal format converted to 'WRITE' listing)
C-PS/8 FOCAL, 1971 01.05 C MISCL2.RE 01.10 L C FOCAL.TM 01.20 G 2.1 02.10 T !!!!!!!! 02.20 T "***** MISCELLANEOUS:"!!!!! 05.10 C THIS IS A BIG TEST 08.10 T "EXPRESSIONS --- AN EVALUATABLE GROUP OF NUMBERS OR VARIABLES:"! 08.20 T "(2+3*X) OR (22/7)"!!!! 10.10 T "HIGH SPEED PAPER TAPE READER CAN READ IN FOCAL PROGRAMS:"!! 10.20 T " 1) TYPE 'OPEN INPUT PTR:'"! 10.30 T " 2) AFTER '^' IS TYPED OUT, HIT SPACE BAR TO READ TAPE"! 10.40 T " 3) AFTER '?' IS TYPED OUT, HIT 'CTRL/P'"!!! 10.45 T "THE FOLLOWING 3 LINE PROGRAM WILL ASK FOR 10 NUMBERS FROM THE READER:"!!;W 10.6 10.56 W 10.65 10.57 W 10.7 10.59 G 10.9 10.60 OPEN INPUT PTR: 10.65 FOR X=1,10;ASK A(X) 10.70 OPEN INPUT TTY:,ECHO;COMMENT --- RESTORES TERMINAL TO NORMAL 10.90 T !!!! 12.10 T "INITIAL DIALOGUE --- ASK FOCAL'S INITIAL DIALOGUE FOR 'HELP' WHICH WILL "! 12.20 T "LIST OPTIONS OTHER THAN STANDARD FEATURES. '#' IS THE SYSTEM STATUS"! 12.30 T "VARIABLE (PROTECTED) AND IS 'SET' TO THE PRODUCT OF CODES REPRESENTING"! 12.40 T %4.00,"FEATURES CHOSEN IN THE INITIAL DIALOGUE."!!! 12.50 T "FEATURE":45"CODE"!;F I=1,43;T "-" 12.52 T " ----"! 12.55 T "'0' NO OPTIONAL FEATURES":43,1,! 12.60 T "'1' FSIN AND FCOS FUNCTIONS":43,2,!"'2' FSIN, FCOS, FLOG, FEXP AND FATN":43,6,! 12.70 T "'3' EXTENDED PRECISION (10 DIGITS)":43,5,!"'4' FILE COMMADS":43,7,! 12.80 T "'5' LEADING SPACE IN 'TYPE'":43,11,!"'6' '=' AUTOMATICALLY PRINTED BY 'TYPE'":43,13,! 12.90 T "'7' ':' AUTOMATICALLY PRINTED BY 'ASK'":43,17,! 12.92 T "'8' '&' IN POWERS-OF-TEN NOTATION":47,"-1"! 12.94 T "'9' FEATURES 2,3,4":43,210,!! 12.96 T "'YES' STANDARD FETURES 2,3,4,5":43,2310,!!!!! 13.10 T "LINE NUMBERS --- MAY RANGE FROM 1.01 THROUGH 31.99 BUT MUST NOT"! 13.20 T "INCLUDE INTEGERS. VARIABLES NOT STARTING WITH 'A' MAY BE USED IN PLACE"! 13.30 T "OF LINE NUMBERS (EXAMPLE: 'GOTO X'). GROUP NUMBERS ARE INTEGERS FROM"! 13.40 T "1 - 31 AND REFERENCE GROUPS OF LINES WITH 'DO', 'WRITE' AND 'ERASE'"! 13.50 T "COMMANDS."!!!! 14.10 T "MERGING PROGRAMS --- 'A' AND 'B' IS DONE WITH A SERIES OF COMMANDS"! 14.11 T "WHICH CONVERT 'A' INTO A DATA FILE (PS/8 EDITOR COMPATIBLE) AND"! 14.12 T "THEN BRING IT IN 'ON TOP' OF PROGRAM 'B':"!! 14.20 T " 1) LIBRARY CALL A"! 14.25 T " 2) OPEN INPUT TTY:"! 14.30 T " 3) OPEN OUTPUT A":25,"(STEPS 3-5 WILL NOT PRINT OUT)"! 14.40 T " 4) SET B=FOUT(223);W"! 14.50 T " 5) SET B=FOUT(223);OUTPUT CLOSE;OPEN INPUT TTY:,ECHO"! 14.54 T " 6) LIBRARY CALL B"! 14.58 T " 7) OPEN INPUT A"! 14.60 T " 8) [HIT 'CTRL/P'; WAIT FOR '?01.00']"! 14.65 T " 9) LIBRARY DELETE A.FD"!! 14.70 T "THE MERGED PROGRAM WILL NOW BE IN YOUR PROGRAM BUFFER."!!!! 15.10 T "PRECISION --- IF YOU CHOOSE TO DELETE EXTENDED PRECISION (10 DIGITS)"! 15.20 T "IN THE INITIAL DIALOGUE, YOU WILL HAVE ROOM FOR 20% MORE VARIABLES"!!!! 16.10 T "PIP --- A PS/8 SYSTEM PROGRAM WHICH CAN LIST YOUR ENTIRE DEVICE DIRECTORY"! 16.20 T "BY TYPING 'R PIP' TO PS/8 MONITOR THEN '/L'. HIT 'CTRL/C' TO RETURN TO"! 16.30 T "PS/8 MONITOR. BE SURE TO USE '/I' OPTION WHEN TRANSFERRING PROGRAMS."!!!! 17.10 L R MISCL3.RE 18.1