


three without macros=blah




	beg=14000
	ers=err
	g=120
	ppl=g+400
	ll=ppl+10
	spl=ppl+50
	plt=10076
	h=10122

10100|	-10
mph,	add h
ply,	0
beg|	wait
	tra f
bnp|	octpnt
tst,	tstsum lmw,tmb,pwn
tsf,	tstfix
lnu,	lineup
bla,	initlk
lms,	listcheck
ela,	lookup
pft,	decision
nwn,	tac
	cyr
	trn u2
	clad plt+1
	com
	trn u1
	modify plt,1
	add plt+2
	trn lkc
u1,	cla
	sto plt
	tra abc
u2,	clad plt
	zero nwn+3
	tra u1
wip,	wipeup
tmb,	tomnbk
lkw,	lookwin
lkc,	lookcl
pwn,	chkwin
lmw,	winfix
gen,	genmove
sr1,	switch tst,sr1+ept-1
	load add g+114,gen+spc
	load tra ts1,tst
	load 0,spl+1
	slr spl+6
	load 6,wgt+2
	load 40,wgt+3
	tac
	com
	trn sr1+men
	load 0,sr1+fmz-1
	load add g+214,sr1+fml
	cla
z99,	add g+214
	trif 1,sr1+fmy
	trif 1,sr1+fmz
	tra sr1+fmy
	0
z98,	bkkeep
z97,	modify sr1+fml,1
	trif add g+327,sr1+fml-1
	clad sr1+fmz-1
	trif 4,.+3
	clad (4
	cyl
	sto wgt+2
	cyl
	cyl
	sto wgt+3
z96,	subrut gen
	trn sr1+ept
	sto spl+5
	lro
	slr spl+7
	subrut lnu
	maximum spl+4
	tra sr1+men
	0
z95,	switch .-1,tst
	clad spl+4
	subrut wrm
	clad spl+4
	load -3,ppl
	subrut upm
z94,	tra qq
	write flex Y
	write flex our
	write flex  mo
	write flex ve 
	write flex is 
	listen
	subrut bnp
	load -2,ppl
	subrut upm
z93,	tra flx
	write flex 



	tra lkc
ts1,	tstst1
rvg,	reverse
cln,	clc
	sto pft+dff
	sto plt
	load add ply+1,pft+3
	load g+114,ppl
	load -g-457,ppl+1
	subrut res
	load slr g+114,.+3
	load 3,g+114
	bkkeep
	trif slr g+214,.-5
	cla
	write flex 



	write flex F
	write flex irs
	write flex t m
	write flex ove
	write flex  by
	write flex  
	wait
	cyl
	cyl
	trn yer
	cla
	write flex ach
	write flex ine
	write flex 



	tra bck
yer,	cla
	write flex lay
	write flex er 
	write flex 



	godo ts1-1,sr1+rsp,tra lkc
z89,	clad bnp+ax+1
	llr (25
	lpd
	sto spl+4
	anl
	lpd
	shr
	lpd
	zero sr1+ept+2
	llr (25
	lpd
	zero sr1+ept+2
	tra lkc

	mhp=mph
	lsm=lms
	wgt=ts1+ncd+1

abc,	cla
	switch hpl,plt+2
	load tra m1,abc
	load trn m2,lkw+lkf
	tra rvg
m2,	clc
	sto pft+dff
	load opr,m3
m1,	godo pft,rvg,cla
	slr abc
	switch mpl,plt+2
	load trn lkc,lkw+lkf
m3,	tra sr1
	load tra sr1,m3
	load add ply+1,m5+1
	load tra m5,gen
	tra sr1
m5,	clad ply+1
	acmk 7777
	zero m6
	expand
	slr m4
	godo gen,sr1+men+3,tra m5
	modify m5+1,1
	clad m4
	tra sr1+men+3
m4,	0
mpl,	-10
hpl,	-10
m6,	load slr gen+awa,gen
	tra sr1+ept
f,	cla
	write flex 



	write flex Y
	write flex our
	write flex  nu
	write flex mbe
	write flex r i
	write flex s  
f1,	listen
	zero npn
f2,	sto ppp
	doad add fls
	sto spl
	cla
	write flex    
	write flex R
	write flex ati
	write flex ng 
	add spl
f3,	subrut bnp
	adds 10,wgt
	shr
	shr
	sto wgt+4
	shr
	sto wgt+1
	trif 5,.+3
	clad (-6
	sto mpl
	adds 3,hpl
	load cla,cln+zif
	trif -4,cln
	load tra lkc,cln+zif
	tra cln
npn,	cla
	write flex 
  
	write flex R
	write flex ati
	write flex ng 
	listen
	sto spl+4
	modify fls,1
	godo f1,f,cla
	clad fls
	subrut bnp
	adds fls,.+4
	clad spl+4
	0
	cla
	write flex 
  
	clad fls
	tra f2
ppp,	0
fls,	0
fls+100|
flm,	tadd ppp,fls,.+11
	doad add
	shr
	0
	tra flf
	0
flx,	bkkeep
	cla
	tra sr1+lat+1
fwm,	clad flx-1
	add (-12
	com
	trn flf
	sto flx-1
	tadd ppp,fls,.+11
	doad add
	add flx-1
	0
flf,	sto flx-1
	cla
	write flex    
	write flex N
	write flex ew 
	write flex rat
	write flex ing
	add (char r 
	pna
	add flx-1
	subrut bnp
	cla
	sto flx-1
	tra beg
qq,	tac
	cyl
	trn .+3
	cla
	tra sr1+rsp+1
	load tra qq1,upl+16
	load tra vv2,wrm
	load tra vv7,abc
	tra lkc
qq1,	clad (char rb
	pna
	add g+331
	trn qqc
	cla
	write flex L
qqc,	load slr ppl,upl+16
	load slr wro,wrm
	load cla,pft
	slr abc
	clc
	sto pft+dff
	add (char r

	pna
	tra sr1+rsp+1
vv2,	lac
	trif tra vcd+21,vv4
	tra vv5
vv7,	load tra vvb,wrm
	load tra .+3,abc
	tra rvg
	load tra qqc,pft
	tra rvg
vv4,	clad (char rw
	pna
	tra qqc
vv5,	cla
	write flex L
	clc
	sto pft+dff
	tra vv7
vvb,	clad (char rw
	pna
	tra vv4-3



	fml=z99-sr1
	fmz=z98-sr1
	fmy=z97-sr1
	men=z96-sr1
	ept=z95-sr1
	rsp=z94-sr1
	lat=z93-sr1

	zif=z89-cln


	constants

	start add+beg



m