File: COMMA3.RE of Tape: Sources/Focal/fc3
(.FC,.FO Focal format converted to 'WRITE' listing)
C-PS/8 FOCAL, 1971
01.05 COMMA3.RE
01.10 L C FOCAL.TM
01.20 G 2.1
01.70 S DU=FOUT(162)
01.80 T " TO THE"!,:22,"COMMAND FOLLOWING THE 'DO' OR 'LIBRARY GOSUB')"!
02.10 T !!"'MODIFY 3.72' FOLLOWED BY A 'RETURN' AND THE LETTER 'X' WILL CAUSE"!
02.20 T "LINE 3.72 TO BE TYPED THROUGH ITS FIRST 'X'. YOU MAY THEN:"!!
02.45 T " 1) TYPE IN REST OF REVISED LINE AND HIT 'RETURN'"!
02.50 T " 2) USE 'RUB OUT' TO ERASE SINGLE CHARACTERS"!
02.52 T " 3) HIT 'LINE FEED' TO KEEP REMAINDER OF OLD LINE"!
02.54 T " 4) HIT CTRL/L TO GO TO NEXT OCCURRENCE OF 'X'"!
02.56 T " 5) HIT CTRL/BELL TO CHANGE SEARCH CHARACTER; THEN HIT NEW "
02.58 T "CHARACTER"!
02.60 T " 6) HIT '";S DU=FOUT(223);T "' (BACK ARROW) TO DELETE LINE OVER TO LEFT MARGIN"!!
02.62 T "*MODIFY L1"!"C",:20,"('C' IS THE PARTICULAR SEARCH CHARACTER CHOSEN)"!
02.63 T !!!!
03.10 T "Q":20,"(ABBREVIATION)"!!
03.15 T "*QUIT":20,"(TERMINATES PROGRAM EXECUTION)"!
03.20 T !!!!
04.10 T "R":20,"(ABBREVIATION)"!!
04.15 T "*RETURN":20,"(ALLOWS ESCAPE FROM A 'DO LOOP'";D 1.8
04.50 T !!!!
05.10 T "SET Y=37",:20,"(CAUSES 'Y' TO TAKE THE VALUE 37)"!
05.20 T "S A=110/P+32",:20,"(CAUSES 'A' TO ASSUME THE VALUE OF 110/P+32)"!
05.30 T "S Y=Y+1",:20,"(SETS THE NEW VALUE OF Y = 1 PLUS OLD VALUE)"!
05.32 T "S Z=#;T Z":20,"(PERMITS TYPING VALUE OF PROTECTED VARIABLE '#')"!
05.34 T "S #=0":20,"(ONLY WAY TO ZERO PROTECTED VARIABLE '#')"!!
05.40 T "*SET Y=<NUMBER,VARIABLE OR EXPRESSION>"!
05.50 T !!!!
06.10 T "TYPE 3":20"(OUTPUTS A 3 ON THE TELEPRINTER OR OTHER OUTPUT DEVICE)"!
06.20 T "T A":20"(OUTPUTS THE VALUE OF A)"!
06.30 T "T X/Y-1":20"(OUTPUTS THE VALUE OF THE EXPRESSION X/Y-1)"!
06.35 T "T ";D 1.7;T "A";D 1.7;T "!";D 1.7;T "B";D 1.7;T "!";
06.37 D 1.7;T "C";D 1.7;T "!",:20,"(OUTPUTS 'A', 'B' AND 'C' IN A VERTICAL ROW)"!
06.45 T "T !":20"(OUTPUTS A RETURN/LINE FEED)"!
06.50 T "T #",:20,"(OUTPUTS A CARRIAGE RETURN WITHOUT A LINE FEED)"!
06.52 T "T (#)":20"(OUTPUTS VALUE OF SYSTEM STATUS VARIABLE '#')"!
06.55 T "T ";D 1.7;T "ANS: ";D 1.7;T ",26+5":20,"(OUTPUTS 'ANS: 31'"!
06.58 T "T :8,";D 1.7;T "A";D 1.7;T :20,"(OUTPUTS 'A' IN POSITION 8 ON LINE)"!
06.60 T "T $",:20,"(OUTPUTS THE SYMBOL TABLE)"!
06.65 T "T %10.09",:20,"(SETS THE OUTPUT FORMAT TO ALLOW UP TO 10 DIGITS"!
06.68 T :22,"TO BE PRINTED, OF WHICH 9 MAY BE DECIMAL PLACES)"!
06.70 T "T %",:20,"(FORMATS OUTPUT IN POWERS-OF-TEN NOTATION)"!
06.72 T "(AN INITIAL DIALOGUE OPTION PROVIDES AUTOMATIC PRINTING OF AN '=' BY"!
06.73 T "THE'TYPE' COMMAND)"!!
06.75 T "*TYPE [NUMBERS, VARIABLES, EXPRESSIONS, TEXT IN QUOTES, !,#,:,$ OR %]"!
06.78 T !!!!
07.10 T "WRITE 2.27",:20,"(OUTPUTS LINE 2.27 OF THE INDIRECT PROGRAM)"!
07.20 T "W 2",:20,"(OUTPUTS GROUP 2)"!
07.30 T "WRITE ALL",:20,"(OUTPUTS ENTIRE INDIRECT PROGRAM)"!
07.40 T "W",:20,"(SAME)"!
07.45 T "W X",:20,"(OUTPUTS GROUP OR LINE GIVEN BY 'X')"!!
07.50 T "*WRITE [GROUP OR LINE NUMBER] (LISTS PROGRAM)"!
07.55 T !!!!!!!!
08.10 G 8+Q
08.20 L R LIBRAR.RE 1.2
08.31 L R LIBRAR.RE 1.2
08.32 L R HELP 4.7