File: HELP08.HF of Tape: Sources/Focal/s4
(Source file text)
***** MISCELLANEOUS:
EXPRESSIONS --- AN EVALUATABLE GROUP OF NUMBERS OR VARIABLES:
(2+3*X) OR (22/7)
THE FOLLOWING 3 LINE PROGRAM WILL ASK FOR 10 NUMBERS FROM THE READER:
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
*** COMMAND DECODER:
FOS8 CALLS THE COMMAND DECODER ONCE AFTER THE
.R FOS8 (OR FOCAL$ IN CCL) COMMAND.
THIS PERMITS THE USE UNDER BATCH AND THIS STILL WORKS
WITH ONLY 12K (16K IF THE BAT: HANDLER IS USED TO OBTAIN
INFORMATION FROM THE BATCH STREAM).
THE FORMAT OF THE CD COMMAND STRING IS: (OR CCL)
*OUTPUT FILE(.FD)<PROGRAM(.FC),INPUT FILE(.FD)/OPTIONS$ (OR RETURN)
OPTIONS CODE
------------------------------------------------
ASK COMMAND OUTPUTS A ':' /A
IF TTY HAS BACKSPACE; THIS OPTIMIZES T : /B
CHAINS TO DEFAULT RUN FILE 'FCINIT' /C
PROGRAM IS STARTED,NOT ONLY CALLED /G
ECHO FOR INPUT FILE /I
NO EXTENDED FUNTIONS (INCL. FSQR) /N
ECHO FOR OUTPUT FILE /O
ASK COMMAND PRINTS '?' /Q
ASK COMMAND OUTPUTS A RINGING SOUND /R
RETURN TO KM TO SAVE CURRENT VERSION(OPTIONS) /S
LIST .FC FILE ON OUTPUT DEV.(RETURN TO KM) /W
6 DECIMAL REDUCED PRECISION MODE /6
ADJUST TTY: PAGE SIZE =YYYXXXX
YYY:# OF LINES IN PAGE (OCTAL)
XXXX:# OF CHARACTERS ON LINE (OCTAL)
$ OR RETURN AT THE END OF THE COMMAND REGULATES THE
BEHAVIOUR OF FOS8 AFTER THE END OF PROGRAM EXECUTION
(RETURN TO IMMEDIATE MODE VIA Q COMMAND, ERROR OR BREAK).
IF AN ALT/ESC($) IS GIVEN THE PROGRAM IS AUTOMATICALLY
STARTED AND IT RETURNS TO THE KM AFTER IT'S END.
RETURN LETS FOS8 RETURN TO THE IMMEDIATE MODE AND A
^C MUST BE GIVEN TO RETURN TO THE KM.
($ AND RETURN MEANING IS INVERTED IN THE CCL)
LINE NUMBERS --- MAY RANGE FROM 1.01 THROUGH 31.99 BUT MUST NOT
INCLUDE INTEGERS. VARIABLES NOT STARTING WITH 'A' MAY BE USED IN PLACE
OF LINE NUMBERS (EXAMPLE: 'GOTO X'). GROUP NUMBERS ARE INTEGERS FROM
1 - 31 AND REFERENCE GROUPS OF LINES WITH 'DO', 'WRITE' AND 'ERASE'
COMMANDS.
PRECISION --- IF YOU CHOOSE TO DELETE EXTENDED PRECISION (10 DIGITS)
IN THE INITIAL DIALOGUE, YOU WILL HAVE ROOM FOR 20% MORE VARIABLES
(234 VARIABLES WITHOUT FUNCTIONS)
PIP,FOTP,DIRECT --- ARE HELPFUL CUSPS IN THE OS/8 ENVIRONMENT.
PROGRAM NAMES --- UP TO SIX ALPHABETIC OR NUMERIC CHARACTERS. FOCAL
ASSUMES AN .FC, .FA OR .FD EXTENSION (PROGRAM, ARRAY OR DATA).
PROGRAM SIZE --- WITH STANDARD FEATURES OF PS/8 FOCAL,1971 RETAINED,
PROGRAMS MAY BE ABOUT 5000 CHARACTERS LONG --- 14 BLOCKS.
PUSHDOWN LIST OVERFLOW --- WHEN TOO MANY 'DO' OR 'LIBRARY GOSUB'
COMMANDS HAVE BEEN GIVEN WITHOUT A 'RETURN', FOCAL'S PUSHDOWN
LIST BECOMES FILLED. REMEDY: REDUCE NUMBER OF BLOCKS IN PROGRAM
LENGTH.(UP TO 350 NESTED DO CALLS)
STRINGS --- ARE ANY SERIES OF CHARACTERS SUCH AS:
HELLO
122.5
$99.95
NOW IS THE TIME FOR ALL GOOD MEN ....
TEST34
THE ABOVE STRINGS WERE PRINTED OUT ['122.5' IS ALSO A NUMBER]
BY SURROUNDING THEM WITH QUOTATION MARKS IN A TYPE STATEMENT
AS IN LINE 22.25:
22.25 TYPE "HELLO"!
STRINGS MAY ALSO BE PRINTED OUT CHARACTER BY CHARACTER USING
THE 'FOUT()' FUNCTION; INPUT OF STRINGS MAY BE HANDLED WITH THE
'FIN()' OR 'FIND()' FUNCTION ---- HELP CAN REVIEW 'FIN', 'FOUT',7FIND'
AND 'QUOTATION MARKS' FOR YOU.
THE ASK COMMAND MAY BE USED TO INPUT SHORT STRINGS FOR COMPARISON
PURPOSES. OBSERVE THE FOLLOWING SUBROUTINE FIRST WRITTEN THEN EXECUTED:
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
*GO 22.8
ANSWER YES OR NO ? YEP
ANSWER YES OR NO ? NOPE
ANSWER YES OR NO ? YES
PROGRAM CONTROL WOULD THEN RETURN TO COMMAND FOLLOWING SUBROUTINE
CALL ('DO' OR 'LIBRARY GOSUB') WITH X EQUAL 2.
SUBSCRIPTING --- VARIABLES MAY HAVE UNIQUE SUBSCRIPTS FROM -2048 THROUGH
2047 ALTHOUGH THE TOTAL NUMBER OF VARIABLES IS LIMITED BY CHOICES MADE
IN THE INITIAL DIALOGUE. NOTE THAT THE SYMBOL TABLE WILL ACCURATELY
OUTPUT ONLY THE SUBSCRIPTS BETWEEN 0 AND 99.
VARIABLES --- MAY BE ONE OR TWO CHARACTERS SUCH AS: A, X, Z7, P2, AB
IF 'ABCDEFG' WERE USED AS A VARIABLE, ONLY 'AB' WOULD BE SIGNIFICANT.
VARIABLES MAY NOT START WITH AN 'F' OR A DIGIT.
120 VARIABLES ARE AVAILABLE WITH ALL FEATURES.
194 WITH 6 DECIMAL PRECISION 234 WITHOUT FUNCTIONS AND 6 DECIMAL.