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