File: COMMA2.RE of Tape: Sources/Focal/fc3
(.FC,.FO Focal format converted to 'WRITE' listing)
C-PS/8 FOCAL, 1971
01.05 COMMA2.RE
01.10 L C FOCAL.TM
01.20 G 6.1
01.50 T :20,"('FOR' COMMANDS REPEAT AND ADD 1 (OR 'E2') TO 'E1' EACH"!
01.60 T :22,"TIME; THEN GO TO NEXT LINE WHEN 'E1' EXCEEDS 'E3'.)"!
01.70 T " L1, L2, OR L3 DEPENDING ON"!,:22,"WHETHER E1 IS -, 0, OR +)"!
06.10 T "ERASE 2.17",:20,"(DELETES LINE 2.17 FROM INDIRECT PROGRAM)"!
06.20 T "E 3",:20,"(DELETES ANY GROUP 3 LINES --- 3.01 THROUGH 3.99)"!
06.30 T "ERASE",:20,"(ZEROES ALL VARIABLES)"!
06.45 T "ERASE ALL",:20,"(ERASES ENTIRE INDIRECT PROGRAM)"!!
06.80 T "*ERASE [LINE OR GROUP NUMBER] (ZEROES VARIABLES IF NO NUMBER GIVEN)",!
06.85 T !!!!
07.10 T "FOR P=1,7;TYPE 3":20,"(OUTPUTS A '3' SEVEN TIMES)"!
07.15 T "FOR J=1,5;DO 17.1":20,"(DOES LINE 17.1, FIVE TIMES)"!
07.20 T "F X=2,2,8;T X/5,!":20,"(OUTPUTS .4 .8 1.2 AND 1.6 )"!
07.30 T "FOR Z=1,Y;DO 7":20,"(DOES GROUP 7, Y TIMES)"!!
07.40 T "*FOR X=E1[,E2],E3;[COMMAND TO BE REPEATED]"!;D 1.5;D 1.6
07.75 T !!!!
08.10 T "GO 8.17",:20,"(STARTS EXECUTING PROGRAM AT LINE 8.17)"!
08.20 T "GOTO 3.1",:20,"(STARTS EXECUTING PROGRAM AT LINE 3.1)"!
08.30 T "GO",:20,"(STARTS EXECUTING PROGRAM AT LOWEST LINE NUMBER)"!
08.35 T "G":20,"(SAME)"!
08.40 T "GO ?",:20,"('TRACE FEATURE' -- PRINTS PROGRAM DURING EXECUTION)"!
08.55 T "G X",:20,"(STARTS EXECUTING PROGRAM AT LINE X)"!!
08.80 T "*GO [LINE NUMBER] (STARTS EXECUTING INDIRECT PROGRAM AT LINE L1)"!
08.85 T !!!!
09.10 T "I (H-5)1.3,1.5,1.7 ('IF' CHECKS THE VALUE INSIDE THE PARENTHESES)"!
09.32 T "IF (Y)2.7,1.2,L1 (FOCAL GOES TO LINE 2.7,1.2 OR L1 IF Y IS -, 0, OR +)"!
09.34 T "I (B-3)2.8,7.9; (GOES TO NEXT COMMAND IF (B-3) IS POSITIVE)"!
09.40 T "I (Z)2.7;T 21":20,"(IF Z IS LESS THAN 0 --- THEN 2.7; OTHERWISE 'TYPE 21')"!
09.50 T "I (G)2.1,L1,2.4 (IF G=0 THEN GOES TO LINE L1)"!!
09.80 T "*IF (E1)L1[,L2,L3] (NEXT EXECUTES LINE";D 1.7
09.88 T !!!!!
10.10 L R COMMA3.RE 1.2