?000008000      0001                    1 example calculate f of x
?000008000      0002
?000008000      0003                           blr 1951  1960 read area
?000008000      0004                      p0001blr 27   p0002 punch area
F919541953      0005240004800?600007001A  startrauone   1f    set x
F919541953      0006240011800?210027003?  1    stup0001       to 1
F919541953      0007240030800?190033000C       mpya           calculate
F919541953      0008240003800?150006006A       alob           f
F919541953      0009240061800?608002001I       rau 8002
F919541953      0010240019800?190027004G       mpyp0001
F919541953      0011240047800?150000000E       aloc
F919541953      0012240005800?200028003A       stlp0002
F919541953      0013240031800?710027003G       wr1p0001       punch
F919541953      0014240037800?600027008A       raup0001
F919541953      0015240081800?110034003I       supxmax        is x max
F919541953      0016240039800?440043987F       nzu       9876
F919541953      0017240043800?100046001A       aup101   1b    increase x
?000008000      0018
F919541953      0019240007800?000000000A  one   00 0000  0001 constants
F919541953      0020240034800?000000010?  xmax  00 0000  0100
F919541953      0021240046800?000000010A  101   00 0000  0101
?000008000      0022                           end