Google
 

Trailing-Edge - PDP-10 Archives - decuslib20-06 - decus/20-160/errors.dat
There are no other files named errors.dat in the archive.
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