0001   1    EXAMPLE CALCULATE F OF X
0002
0003               BLR   1951   1960    READ AREA
0004        P0001  BLR   27    P0002    PUNCH AREA
0005        START  RAU  ONE    1F       SET X             0004  +60 0007 0011
0006        1      STU  P0001           TO 1              0011  +21 0027 0030
0007               MPY  A               CALCULATE         0030  +19 0033 0003
0008               ALO  B               F                 0003  +15 0006 0061
0009               RAU   8002                             0061  +60 8002 0019
0010               MPY  P0001                             0019  +19 0027 0047
0011               ALO  C                                 0047  +15 0000 0005
0012               STL  P0002                             0005  +20 0028 0031
0013               WR1  P0001           PUNCH             0031  +71 0027 0037
0014               RAU  P0001                             0037  +60 0027 0081
0015               SUP  XMAX            IS X MAX          0081  +11 0034 0039
0016               NZU          9876                      0039  +44 0043 9876
0017               AUP  101    1B       INCREASE X        0043  +10 0046 0011
0018
0019        ONE     00   0000   0001    CONSTANTS         0007  +00 0000 0001
0020        XMAX    00   0000   0100                      0034  +00 0000 0100
0021        101     00   0000   0101                      0046  +00 0000 0101
0022               END