1PAGE 1 A PROGRAM TO TEST THE ERRORS (C) 1978 UND * * * * * S O U R C E L I S T I N G * * * * * 0001 TITLE A PROGRAM TO TEST THE ERRORS 0002 * EULER 0003 * FLYHIGH $ 1) ***** E R R O R ***** ND0204 0004 * NARROW 0005 * SOURCE 0006 * NOEULER $ 1) ***** E R R O R ***** ND0206 1) ***** E R R O R ***** ND0205 X YOU CANNOT CONTINUE A CONTROL CARD 0) ***** E R R O R ***** ND0101 0007 DEF LEVEL MEANS NOTHING 0008 DEF MEAN 0) ***** E R R O R ***** ND0153 0) ***** W A R N I N G ***** ND0589 0009 DEF LEVEL MEANS EVERYTHING 0) ***** E R R O R ***** ND0152 0010 DEF BODY THERE IS NO SUCH VARIABLE IN THIS PROGRAM 0) ***** W A R N I N G ***** ND0589 0011 A 0) ***** C R I T I C A L ***** ND0110 0012 A LONGNAME.K= $ $ 1) ***** C R I T I C A L ***** ND0503 2) ***** C R I T I C A L ***** ND0404 0013 C CON=2 0014 N CNT=1 $ 1) ***** W A R N I N G ***** ND0525 1) ***** W A R N I N G ***** ND0588 0015 MEND YOU NEED A MACRO BEFORE THIS CARD 0) ***** E R R O R ***** ND0103 0016 R RAT.K=10..2*E2.05-14*123456789E100+2EE3+4E+(-E2) $ $ $ $ $ $ $ $$$ 2) ***** E R R O R ***** ND0605 4) ***** W A R N I N G ***** ND0504 5) ***** E R R O R ***** ND0603 1PAGE 2 A PROGRAM TO TEST THE ERRORS (C) 1978 UND 6) ***** E R R O R ***** ND0604 7) ***** E R R O R ***** ND0608 9) ***** E R R O R ***** ND0611 8) ***** C R I T I C A L ***** ND0406 3) ***** C R I T I C A L ***** ND0516 10) ***** C R I T I C A L ***** ND0516 1) ***** W A R N I N G ***** ND0534 0017 M MEAN.K=2 0) ***** C R I T I C A L ***** ND0100 0018 A MEN.==((13*2)+2)*(22*3)+3)+RATE.M+TRY.KL+CON.K $ $ $ $ $ $ $ $ 2) ***** W A R N I N G ***** ND0508 6) ***** W A R N I N G ***** ND0504 3) ***** C R I T I C A L ***** ND0401 4) ***** C R I T I C A L ***** ND0405 5) ***** C R I T I C A L ***** ND0576 7) ***** C R I T I C A L ***** ND0516 8) ***** W A R N I N G ***** ND0530 1) ***** W A R N I N G ***** ND0532 1) ***** W A R N I N G ***** ND0588 0019 L LEVEL.K=INTGRL(RATE.JK)+RAT.JK $ $ 2) ***** C R I T I C A L ***** ND0902 1) ***** C R I T I C A L ***** ND0524 0020 L LEV3.=INTGRL(CON+TRY.K+SUP.K)(1+4)5+((1+3)/2 $ $ $ $ $ $ 2) ***** W A R N I N G ***** ND0508 6) ***** C R I T I C A L ***** ND0406 0) ***** C R I T I C A L ***** ND0403 3) ***** C R I T I C A L ***** ND0571 4) ***** C R I T I C A L ***** ND0516 5) ***** C R I T I C A L ***** ND0577 1) ***** W A R N I N G ***** ND0532 1) ***** C R I T I C A L ***** ND0524 1) ***** W A R N I N G ***** ND0588 0021 R RATE.KL=LEVEL.K+TIME.K 0022 S CON.K=15*2 $ 1) ***** C R I T I C A L ***** ND0541 0023 MACRO BONE(A,B,C,D,E,F,G,H,I,J,K,K,L,M,N,O,P,Q,R) $ $ 1) ***** E R R O R ***** ND0308 2) ***** C R I T I C A L ***** ND0302 0024 MEND 0025 EXPND BARB(C+D)+2 0026+ MEND BARB(C+D)+2 0027 A TRY2.K=INTGRL(15) $ $ 2) ***** C R I T I C A L ***** ND0526 1PAGE 3 A PROGRAM TO TEST THE ERRORS (C) 1978 UND 1) ***** W A R N I N G ***** ND0588 0028 A FUN.KTRY.K+10 $ 1) ***** W A R N I N G ***** ND0504 0) ***** C R I T I C A L ***** ND0801 X +15 0029 X +TRY.K 0) ***** C R I T I C A L ***** ND0102 0030 A TIME.K=LEV.K+1 $ 1) ***** C R I T I C A L ***** ND0560 0031 N TIME=1 $ 1) ***** C R I T I C A L ***** ND0550 0032 S SUP.K=TRY.K+5 $ 1) ***** C R I T I C A L ***** ND0516 0033 A TAB1.K=RATE.JK*RAT.JK $ $ $ 2) ***** C R I T I C A L ***** ND0576 3) ***** C R I T I C A L ***** ND0576 1) ***** W A R N I N G ***** ND0588 0034 A LEV.K=%CHAN+2 $ 1) ***** C R I T I C A L ***** ND0502 0035 A RATE.K=TIME.K*5 $ 1) ***** C R I T I C A L ***** ND0546 0036 C SUP= $ $ 1) ***** C R I T I C A L ***** ND0547 2) ***** C R I T I C A L ***** ND0404 0037 MACRO EYE(A,B,C,D,E,F,G,H,I,J,K,L,M,N,O,P) 0038 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 0039 MEND 0040 EXPND EYE(AAAAA,BBBBB,CCCCC,DDDDD,EEEEE,FFFFF,GGGGG,HHHHH, X IIIII,JJJJJ,KKKKK,LLLLL,MMMMM,NNNNN,OOOOO,PPPPPP) 0041+ A AAAAA=BBBBB+CCCCC+BBBBB+CCCCC+DDDDD+EEEEE+FFFFF+GGGGG+HHHHH+KKKKK+IIII $ $ $ $ $ $ $ $ $ $ $ $ 2) ***** C R I T I C A L ***** ND0516 3) ***** C R I T I C A L ***** ND0516 4) ***** C R I T I C A L ***** ND0516 5) ***** C R I T I C A L ***** ND0516 6) ***** C R I T I C A L ***** ND0516 7) ***** C R I T I C A L ***** ND0516 8) ***** C R I T I C A L ***** ND0516 1PAGE 4 A PROGRAM TO TEST THE ERRORS (C) 1978 UND 9) ***** C R I T I C A L ***** ND0516 10) ***** C R I T I C A L ***** ND0516 11) ***** C R I T I C A L ***** ND0516 12) ***** C R I T I C A L ***** ND0516 1) ***** W A R N I N G ***** ND0532 1) ***** W A R N I N G ***** ND0588 0042+ MEND 0043 C CHANGE&=3 $ 1) ***** C R I T I C A L ***** ND0502 1) ***** C R I T I C A L ***** ND0503 0044 L LEV.K=COS(TIME.K)*INTGRL(RATE.KL*RAT.JK) $ $ $ 1) ***** C R I T I C A L ***** ND0545 2) ***** C R I T I C A L ***** ND0574 3) ***** W A R N I N G ***** ND0533 0045 * SOURCE 0) ***** E R R O R ***** ND0107 0046 EXPND (C,D) 0047+ MEND (C,D) 0048 MACRO BRAIN(EYES) 0049 RERUN 0) ***** C R I T I C A L ***** ND0104 0050 A TRIED.=15*LEVEL.K 0051 MACRO FEET(TOES) 0) ***** C R I T I C A L ***** ND0109 0052 EXPND FEET(TOE,ANKLE+10) 0) ***** C R I T I C A L ***** ND0111 0053+ MEND 0054 MACRO BRAIN $ 1) ***** C R I T I C A L ***** ND0304 0055 PARM DT=1 0056 PARM START=20 0057 PARM STOP=10 0058 PARM PRTPER=1 0059 PARM PLTPER=2 0060 PRINT TRY=T,TRIED,CON,CNT,TIME.K,RAT,MEAN 0061 PLOT TRY=T(1,10/)TAB=A(1,10(,TRY2=R(1,10)CON=C(1,10,RATE/ 0062 MACRO FEET(A,B,C,)EXTRA 0) ***** C R I T I C A L ***** ND0109 0063 MEND 1PAGE 5 A PROGRAM TO TEST THE ERRORS (C) 1978 UND 0064 MACRO HAND( $ 1) ***** C R I T I C A L ***** ND0519 1) ***** E R R O R ***** ND0303 0) ***** C R I T I C A L ***** ND0112 1PAGE 6 A PROGRAM TO TEST THE ERRORS (C) 1978 UND * * * S T A T S A N D O P T I O N S * * * 64 SOURCE STATEMENTS 97 DIAGNOSTIC MESSAGES 20 WARNINGS 16 ERRORS 61 CRITICALS CARD TYPE OCCURRENCE C 3 PARM 5 N 2 L 3 A 12 R 2 S 2 X 4 * 6 PRINT 1 PLOT 1 RERUN 1 MACRO 7 MEND 8 EXPND 4 DEF 4 TITLE 1 UNRECOGNIZED 1 OPTIONS IN EFFECT: NOCHECK NOSYSTEM NODOCUMENT NARROW STATS NOGO NOSYMBOL NOXREF WARN NOOBJECT SOURCE NOTIME INTEGRATION METHOD: EULER LOWER SUM