wrtm program
define	motion op
iof=iot i i 
	iot i i 77 op
	term
define	data op
	iot i i 21 op
	termin

sel=0
fwd=600
rev=700
go=400
stop=500
define skprdy	motion 100	term
define	skpwok	motion 100	term
define	skpeot	motion 300	term
wtm=700
chk=300
cpy=iot i i 420

beg,	lio (i
	motion sel
	data sel
	motion fwd
	motion go
	law i 1000
	dac .ct
	wtm
	data chk
	sni 
	jmp beg
	lac (220000	/rev eot
	cpy
	cpy
	lac (100000	/rev cksm
	cpy
	lac (700000	/data (=0)
	cpy
	isp ct
	jmp .-2
	lac (730000	/cksm(=0)
	cpy
	lac (450000	/eot
	cpy 
	cpy
	motion stop
	data chk
	sni
	hlt
	dsm
constants
	variable
		start beg