File: MISCL3.RE of Tape: Sources/Focal/fc3
(.FC,.FO Focal format converted to 'WRITE' listing)
C-PS/8 FOCAL, 1971
01.05 C MISCL3.RE
01.10 L C FOCAL.TM
18.10 T "PROGRAM NAMES --- UP TO SIX ALPHABETIC OR NUMERIC CHARACTERS. FOCAL"!
18.20 T "ASSUMES AN .FC OR .FD EXTENSION (PROGRAM OR DATA)."!!!!
18.30 T "PROGRAM SIZE --- WITH STANDARD FEATURES OF PS/8 FOCAL,1971 RETAINED,"!
18.40 T "PROGRAMS MAY BE ABOUT 3500 CHARACTERS LONG --- 7 BLOCKS. IF FILES"!
18.60 T "ARE DELETED IN THE INITIAL DIALOGUE, 5500 CHARACTER PROGRAMS ARE"!
18.70 T "POSSIBLE."!!!!
20.10 T "PUSHDOWN LIST OVERFLOW --- WHEN TOO MANY 'DO' OR 'LIBRARY GOSUB'"!
20.20 T "COMMANDS HAVE BEEN GIVEN WITHOUT A 'RETURN', FOCAL'S PUSHDOWN"!
20.30 T "LIST BECOMES FILLED. REMEDY: REDUCE NUMBER OF BLOCKS IN PROGRAM"!
20.40 T "LENGTH."!!!!
22.10 T "STRINGS --- ARE ANY SERIES OF CHARACTERS SUCH AS:"!!
22.25 TYPE "HELLO"!
22.27 T !"122.5"!"$99.95"!"NOW IS THE TIME FOR ALL GOOD MEN ...."!
22.28 T "TEST34"!!
22.30 T "THE ABOVE STRINGS WERE PRINTED OUT ['122.5' IS ALSO A NUMBER]"!
22.35 T "BY SURROUNDING THEM WITH QUOTATION MARKS IN A TYPE STATEMENT"!
22.40 T "AS IN LINE 22.25:"!!;W 22.25
22.50 T !!"STRINGS MAY ALSO BE PRINTED OUT CHARACTER BY CHARACTER USING"!
22.55 T "THE 'FOUT()' FUNCTION; INPUT OF STRINGS MAY BE HANDLED WITH THE"!
22.60 T "'FIN()' FUNCTION ---- HELP CAN REVIEW 'FIN', 'FOUT', AND 'QUOTATION"!
22.65 T "MARKS' FOR YOU. ALSO SEE THE FOCAL PROGRAM IN THE INITIAL DIALOGUE."!!
22.70 T "THE ASK COMMAND MAY BE USED TO INPUT SHORT STRINGS FOR COMPARISON"!
22.72 T "PURPOSES. OBSERVE THE FOLLOWING SUBROUTINE FIRST WRITTEN THEN EXECUTED:"!!!
22.74 F X=22.78,.02,22.88;W X
22.76 T !!!;G 22.9
22.78 COMMENT: 'YES OR NO' SUBROUTINE
22.80 ASK "ANSWER YES OR NO ? ",AN
22.82 IF (AN-0YES)22.84,22.86
22.84 IF (AN-0NO)22.8,22.88,22.8
22.86 SET X=2;RETURN
22.88 SET X=1;RETURN
22.90 T "*GO 22.8"!
22.91 T "ANSWER YES OR NO ? "
22.92 T "YEP"!;D 22.91;T "NOPE"!;D 22.91;T "YES"!!!
22.93 T "PROGRAM CONTROL WOULD THEN RETURN TO COMMAND FOLLOWING SUBROUTINE"!
22.94 T "CALL ('DO' OR 'LIBRARY GOSUB') WITH X EQUAL 2."!!!!!
23.10 T "SUBSCRIPTING --- VARIABLES MAY HAVE UNIQUE SUBSCRIPTS FROM -2048 THROUGH"!
23.20 T "2047 ALTHOUGH THE TOTAL NUMBER OF VARIABLES IS LIMITED BY CHOICES MADE"!
23.30 T "IN THE INITIAL DIALOGUE. NOTE THAT THE SYMBOL TABLE WILL ACCURATELY"!
23.40 T "OUTPUT ONLY THE SUBSCRIPTS BETWEEN 0 AND 99."!!!!
29.10 T "VARIABLES --- MAY BE ONE OR TWO CHARACTERS SUCH AS: A, X, Z7, P2, PI, AB"!
29.15 T "IF 'ABCDEFG' WERE USED AS A VARIABLE, ONLY 'AB' WOULD BE SIGNIFICANT."!
29.20 T "VARIABLES MAY NOT START WITH AN 'F' OR A DIGIT."!!
29.22 T "99 VARIABLES ARE AVAILABLE IF ALL FEATURES OF PS/8 FOCAL ARE RETAINED."!
29.24 T "UP TO 222 REGULAR VARIBLES CAN BE MADE AVAILABLE BY DELETING FEATURES"!
29.26 T "THROUGH THE INITIAL DIALOGUE"!!
29.30 T "'!', '"
29.35 S DU=FOUT(162)
29.40 T "', AND '#' ARE PROTECTED VARIABLES AND CANNOT BE 'TYPED', 'ASKED'"!
29.50 T "OR 'ERASED' DIRECTLY, BUT MAY BE 'SET' AND OTHERWISE USED AS REGULAR"!
29.60 T "VARIABLES. '#', THE SYSTEM STATUS VARIABLE, IS 'SET' TO SPECIAL CODES"!
29.70 T "BY THE INITIAL DIALOGUE."!!!!
30.10 L R HERROR.RE 1.2