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