Oakland CPM Archive/oakcpm.iso/cpmug/cpmug004.ark/AMUSE

Text File | 1984-04-29 | 583 b | 41 lines

`amuse  2/17/76
      1*8+1 = 9
     12*8+2 = 98
    123*8+3 = 987
        ...
      1*9+2 = 11
     12*9+3 = 111
    123*9+4 = 1111
        ...
    (l*k+i = m)
`

@{ns|amuse|{
    @{ns|l|1}
    @{ns|n|1}
    @{ns|k|8}
    @{loop}
    @{ps||}
    @{dd|@cb}
    @{ns|l|1}
    @{ns|n|1}
    @{ns|k|9}
    @{loop}
    @{ps|||I hope such things amuse you.|}
}}

@{ns|loop|{
    @{eq|@@{@cb}||{
        @{zz|10}
        @{ns|i|@@{ad|@@{n}|@@{k}|-8}}
        @{ns|m|@@{ad|@@{ml|@@{l}|@@{k}}|@@{i}}}
        @{ps|@@{l}*@@{k}+@@{i} = @@{m}|}
        @{ns|n|@@{ad|@@{n}|1}}
        @{ns|l|@@{l}@@{n}}
        @{loop}
    }}
}}

@{ps|Hit any key to stop.||}
@{amuse}