The slot machine or one-arm bandit is a mechanical device that will absorb coins just about as fast as you can feed it.
The program was originally written by Fred Mirabelle and Bob Harper
The game is published as type-in source code in Basic Computer Games (Microcomputer Edition), ed. David H. Ahl with Steve North, Workman Publishing, New York, 1978 (ISBN 0-89480-052-3).
The BASIC source code listing is published in Microsoft BASIC 3.0; suggestions for conversion to a wide range of other BASIC implementations are provided.