TITLE A PROGRAM TO TEST THE ERRORS 00000010 * EULER 00000020 * FLYHIGH 00000030 * NARROW 00000040 * SOURCE 00000050 * NOEULER 00000060 X YOU CANNOT CONTINUE A CONTROL CARD 00000070 DEF LEVEL MEANS NOTHING 00000080 DEF MEAN 00000090 DEF LEVEL MEANS EVERYTHING 00000092 DEF BODY THERE IS NO SUCH VARIABLE IN THIS PROGRAM 00000094 A 00000100 A LONGNAME.K= 00000110 C CON=2 00000120 N CNT=1 00000130 MEND YOU NEED A MACRO BEFORE THIS CARD 00000131 R RAT.K=10..2*E2.05-14*123456789E100+2EE3+4E+(-E2) 00000140 M MEAN.K=2 00000150 A MEN.==((13*2)+2)*(22*3)+3)+RATE.M+TRY.KL+CON.K 00000152 L LEVEL.K=INTGRL(RATE.JK)+RAT.JK 00000160 L LEV3.=INTGRL(CON+TRY.K+SUP.K)(1+4)5+((1+3)/2 00000162 R RATE.KL=LEVEL.K+TIME.K 00000170 S CON.K=15*2 00000171 MACRO BONE(A,B,C,D,E,F,G,H,I,J,K,K,L,M,N,O,P,Q,R) 00000172 MEND 00000173 EXPND BARB(C+D)+2 00000174 A TRY2.K=INTGRL(15) 00000182 A FUN.KTRY.K+10 00000183 X +15 00000190 X +TRY.K 00000200 A TIME.K=LEV.K+1 00000201 N TIME=1 00000202 S SUP.K=TRY.K+5 00000203 A TAB1.K=RATE.JK*RAT.JK 00000204 A LEV.K=%CHAN+2 00000205 A RATE.K=TIME.K*5 00000206 C SUP= 00000207 MACRO EYE(A,B,C,D,E,F,G,H,I,J,K,L,M,N,O,P) 00000208 A A=B+C+B+C+D+E+F+G+H+K+I+K+K+K+M+L+L+O+P+P+P+P+P 00000209 MEND 00000210 EXPND EYE(AAAAA,BBBBB,CCCCC,DDDDD,EEEEE,FFFFF,GGGGG,HHHHH, 00000211 X IIIII,JJJJJ,KKKKK,LLLLL,MMMMM,NNNNN,OOOOO,PPPPPP) 00000212 C CHANGE&=3 00000220 L LEV.K=COS(TIME.K)*INTGRL(RATE.KL*RAT.JK) 00000240 * SOURCE 00000250 EXPND (C,D) 00000255 MACRO BRAIN(EYES) 00000260 RERUN 00000270 A TRIED.=15*LEVEL.K 00000280 MACRO FEET(TOES) 00000290 EXPND FEET(TOE,ANKLE+10) 00000300 MEND 00000310 MACRO BRAIN 00000320 PARM DT=1 00000330 PARM START=20 00000340 PARM STOP=10 00000350 PARM PRTPER=1 00000360 PARM PLTPER=2 00000370 PRINT TRY=T,TRIED,CON,CNT,TIME.K,RAT,MEAN 00000380 PLOT TRY=T(1,10/)TAB=A(1,10(,TRY2=R(1,10)CON=C(1,10,RATE/ 00000394 MACRO FEET(A,B,C,)EXTRA 00000400 MEND 00000410 MACRO HAND( 00000420