MAGNET
	LDTMR 10
	ADDTRND 10
	CLRALL
	MSET
	RANDSEED
	LDR R1,1
	JUMP CHOOSEN
CHOOSEN
	CMP R1,1
	SKIPNZ
	JSR LEFT_INIT
	CMP R1,26
	SKIPNZ
	JSR RIGHT_INIT
	SKIPTOUT
	JUMP CHOOSEN
	RET
MAGNET_INIT
	LDRAND RY,5
	LDRAND RZ,5
	LDR RHOLD, 1
	PUSHR RHOLD
	LDRAND RHOLD,12
	PUSHR RHOLD
	ADD
	PULLR RHOLD
	RET

LEFT_INIT
	LDR RHOLD, 100
	LDXYZ 0,0,0
	PLANEX
	SHOW
	JSR INCMAG
	RET
RIGHT_INIT
	LDR RHOLD, 100
	LDXYZ 4,4,4
	PLANEX
	SHOW
	JSR DECMAG
	RET
	
INCMAG
	JSR MAGNET_INIT
	LDR R0,4
	LDR RX,0
	TSTVOX
	SKIPZ
	INCR R1
	TSTVOX
	SKIPZ
	JSR MAGNETRIGHT
	CMP R1,26
	SKIPNZ
	RET
	JUMP INCMAG

DECMAG
	JSR MAGNET_INIT
	LDR R0,4
	LDR RX,4
	TSTVOX
	SKIPZ
	DECR R1
	TSTVOX
	SKIPZ
	JSR MAGNETLEFT
	CMP R1,1
	SKIPNZ
	RET
	JUMP DECMAG

MAGNETRIGHT
	MCLR
	VOXM
	INCX
	MSET
	VOXM
	SHOW
	DECRSZ R0
	JUMP MAGNETRIGHT
	RET

MAGNETLEFT
	MCLR
	VOXM
	DECX
	MSET
	VOXM
	SHOW
	DECRSZ R0
	JUMP MAGNETLEFT
	RET