.00.0     0100   ERROR DEFN  100
   .00.0     0000   LOG   CRB
   .00.0     0001         BMA 8 F+
   .00.0     0002         BZA 8 F+
   .00.0     0003         SRT   2
   .00.0     0004         STA 8 EXP,42
   .00.0     0005         SLT   4
   .00.0     0006         CFA 8 CP1+
   .00.0     0007         BCL 8 SMALL
   .00.0     0008         CFA 8 CP2+
   .00.0     0009         BCH 8 SMALL
   .00.0     0010         SRT   1
   .00.0     0011         ADD 8 +316227766
   .00.0     0012         STA 6 ERROR+52
   .00.0     0013         SUB 8 +632455532
   .00.0     0014   *CP1  F4246 1014,15,ERROR+52
   .00.0     0015         STA 6 ERROR+52
   .00.0     0016         MUL 6 ERROR+52                                        V
   .00.0     0017         STA 6 ERROR+49      B                                 V**2
   .00.0     0018         MUL 8 +0410597044                                     A1
   .00.0     0019         ADD 8 +0057228327                                     A2
   .00.0     0020         MUL 6 ERROR+49      B
   .00.0     0021         ADD 8 +0250341093                                     A3
   .00.0     0022         MUL 6 ERROR+49      B
   .00.0     0023         ADD 8 +0282433571                                     A4
   .00.0     0024         MUL 6 ERROR+49      B
   .00.0     0025         ADD 8 +0400193033                                     A5
   .00.0     0026         MUL 6 ERROR+49      B
   .00.0     0027         ADD 8 +0666661710                                     A6
   .00.0     0028         MUL 6 ERROR+49      B
   .00.0     0029         ADD 8 +2000000037                                     A7
   .00.0     0030         MUL 6 ERROR+52
   .00.0     0031         ADD 8 +1151292547                                     A8
   .00.0     0032   *A    BFA 8 D+,22,00
   .00.0     0033   *CP2  F424  9858,48,1
   .00.0     0034         IBB 8 A-,1
   .00.0     0035   *D    STA 9 RGN,08
   .00.0     0036   *B    CAD 8 EXP
   .00.0     0037         FSU 8 +5251000000
   .00.0     0038         BCL 8 *+2
   .00.0     0039         FAD 6 ERROR+51      =1.0=
   .00.0     0040         FMU 8 +5123025851
   .00.0     0041         FAD 9 RGN
   .00.0     0042         LDB 8 LOG
   .00.0     0043         BUN - 0
   .00.0     0044   SMALL BFA 8 A+,11,1
   .00.0     0045         SRT   1
   .00.0     0046         SUB 8 +2000000000
   .00.0     0047   *A    FAD 8 +1000000000
   .00.0     0048         BZA 8 E+
   .00.0     0049         STA 6 ERROR+52
   .00.0     0050         IFL 6 ERROR+52,22,39
   .00.0     0051         CAD 6 ERROR+52
   .00.0     0052         FMU 8 -5025000000
   .00.0     0053         FAD 8 +5033333333
   .00.0     0054         FMU 6 ERROR+52
   .00.0     0055         FAD 8 -5050000000
   .00.0     0056         FMU 6 ERROR+52
   .00.0     0057         FMU 6 ERROR+52
   .00.0     0058         FAD 6 ERROR+52
   .00.0     0059   *E    STA 8 RGN+3
   .00.0     0060         IBB 8 B-,3
   .00.0     0061   *F    LDR 8 $LOG$
   .00.0     0062         LDB 8 LOG
   .00.0     0063         BUN 6 ERROR+7
   .00.0     0064   RGN   CNST  4900000000
   .00.0     0065               5000000000
   .00.0     0066               5100000000
   .00.0     0067               0000000000
   .00.0     0068   EXP         5200000000
   .00.0     0069   LOCN  LOCN  *+18
   .00.0     0087         CNST  40000990000
   .00.0     0088         CNST  $LOG,REAL(REAL) ERROR=1 $
   .00.0     0093         CNST  90000000000
   .00.0     0094         LOCN  LOCN
   .00.0     0069         FINI  LOG
               69               +1000000000
               70               +2000000000
               71               +5033333333
               72               +5123025851
               73               +0316227766
               74               +0057228327
               75               +0632455532
               76               +0400193033
               77               -5025000000
               78               $LOG
               79               +0666661710
               80               +2000000037
               81               +0410597044
               82               -5050000000
               83               +5251000000
               84               +0250341093
               85               +0282433571
               86               +1151292547