()0P$BTC-PS/8 FOCAL, 1971?MB\BECOMMA2.RE?MB%BJL C FOCAL.TM?MO BTG 6.1?MILLJT "ERASE 2.17",:20,"(DELETES LINE 2.17 FROM INDIRECT PROGRAM)"!?MC%L^T "ERASE",:20,"(ZEROES ALL VARIABLES)"!?MDCL-T "ERASE ALL",:20,"(ERASES ENTIRE INDIRECT PROGRAM)"!!?MD,MPT "*ER SE [LINE OR GROUP NUMBER] (ZEROES VARIABLES IF NO NUMBER GIVEN)",!?MI/MUT !!!!?MD8OKT !!!!?MEXPJT "GO 8.17",:20,"(STARTS EXECUTING PROGRAM AT LINE 8.17)"!?ME8PTT "GOTO 3.1",:20,"(STARTS EXECUTING PROGRAM AT LINE 3.1)"!?MFZP^T "GO",:20,"(STARTS EXECUTING PROGRAM AT LOWEST LINE NUMBER)"!?MF&PT "G":20,"(SAME)"!?MGKP(T "GO ",:20,"( TRACE FEATURE -- PRINTS PROGRAM DURING EXECUTION)"!?MK P7T "G X",:20,"(STARTS EXECUTING PROGRAM AT LINE X)"!!?MG.QUT !!!!?MLMRJT "I (H-5)1.3,1.5,1.7 ( IF CHECKS THE VALUE INSIDE THE PARENTHESES)"!?ML7R"T "I (B-3)2.8,7.9; (GOES TO NEXT COMMAN IF (B-3) IS POSITIVE)"!?MISXT !!!!!?MTJL R COMMA3.RE 1.2?MCNLTT "E 3",:20,"(DELETES ANY GROUP 3 LINES --- 3.01 THROUGH 3.99)"!?MJ,NJT "FOR P=1,7;TYPE 3":20,"(OUTPUTS A 3 SEVEN TIMES)"!?MKKNTT "F X=2,2,8;T X/5,!":20,"(OUTPUTS .4 .8 1.2 AND 1.6 )"!?MJMNO "FOR J=1,5;DO 17.1":20,"(DOES LINE 17.1, FIVE TIMES)"!?MN?N^T "FOR Z=1,Y;DO 7":20,"(DOES GROUP 7, Y TIMES)"!!?MG(QPT "*GO [LINE NUMBER] (STARTS EXECUTING INDIRECT PROGRAM AT LINE L1)"!?MHTR T "IF (Y)2.7,1.2,L1 (FOCAL GOES TO LINE 2.7,1.2 OR L1 IF Y IS -, 0, OR +)"!?MM"R(T "I (Z)2.7;T 21":20,"(IF Z IS LESS THAN 0 --- THEN 2.7; OTHERWISE TYPE 21 )"!?MN$R2T "I (G)2.1,L1,2.4 (IF G=0 THEN GOES TO LINE L1)"!!?MB+CFT " L1, L2, OR L3 DEPENDING ON"!,:22,"WHETHER E1 IS -, 0, OR +)"!?MH9SPT "*IF (E1)L1[,L2,L3 (NEXT EXECUTES LINE";D 1.7?MD2N(T "*FOR X=E1[,E2],E3;[COMMAND TO BE REPEATED]"!;D 1.5;D 1.6?MPCB2T :20,"( FOR COMMANDS REPEAT AND ADD 1 (OR E2 ) TO E1 EACH"!?MNB