QUBIC NEW=for machine change.

	ana=ano
	pna=pno
	ala=alo

	start beg


BASIC MACROS=no program



define
	modify A,B
	cla
	add A
	add (B
	sto A
	terminate

define
	bymodi A,B
	cla
	add A
	add B
	sto A
	terminate

define
	mask A
	llr (A
	ana
	terminate

define
	five P
	P
	P
	P
	P
	P
	terminate

define
	sixx P
	five P
	P
	terminate

define
	load A,B
	llr (A
	slr B
	terminate

define
	write X
	add (X
	pnt
	pnt
	pna
	terminate

define
	subrut X
	llr (tra .+2
	tra X
	terminate

define
	switch A,B
	llr A
	slr B
	terminate

define
	perform
	sto .+2
	cla
	0
	terminate

define
	bkkeep
	cla
	add .-2
	add (1
	sto .-4
	terminate

define
	zero A
	amz
	trn A
	terminate

define
	clad X
	cla
	add X
	terminate

define
	adds X,Y
	add (X
	sto Y
	terminate

define
	wait
	lro
	lcc
	trn .-1
	terminate

define
	acmk Z
	llr (Z
	ana
	lac
	terminate

define
	tadd A,B,C
	cla
	add A
	add (B
	sto C
	terminate

define
	doad V
	add (V
	sto .+2
	cla
	0
	terminate

define
	split X,Y
	trn X
	tra Y
	terminate

define
	branch X,Y
	cla
	add X
	trn Y
	terminate

define
	trif X,Y
	add (-X
	trn Y
	terminate

define
	godo A,B,C
	llr (tra .+3
	slr A
	tra B
	llr (C
	slr A
	terminate

	start 14000



1=initial line sum.

20|	401010
	11
	12
	511213
	21
	00
	04
	25
	22
	04
	00
	26
	610623
	15
	16
	700767
	01
	20
	24
	05
	10
	402461
	512525
	13
	14
	612662
	702726
	17
	05
	23
	27
	01
	02
	24
	20
	06
	14
	704665
	614721
	17
	10
	514466
	404522
	13
	06
	27
	23
	02
	707214
	15
	16
	617017
	25
	03
	07
	21
	26
	07
	03
	22
	516427
	11
	12
	406563
	0001
	0401
	1001
	1401
	2001
	2401
	3001
	3401
	4001
	4401
	5001
	5401
	6001
	6401
	7001
	7401
	0004
	0104
	0204
	0304
	2004
	2104
	2204
	2304
	4004
	4104
	4204
	4304
	6004
	6104
	6204
	6304
	0020
	0120
	0220
	0320
	0420
	0520
	0620
	0720
	1020
	1120
	1220
	1320
	1420
	1520
	1620
	1720
	0005
	2005
		4005
	6005
	0303
	2303
	4303
	6303
	0024
	0124
	0224
	0324
	1414
	1514
	1614
	1714
	0021
	0421
	1021
	1421
	0317
	0717
	1317
	1717
	0025
	0323
	1415
	1713
	
	start beg




1a=rest of one.

600|	
bck,	load slr g+340,two
	load slr g+331,his
	load add g,ent
	load g+214,x+4
	cla
ent,	add g
	llr (77
	anl
	sixx shr
	adds add g+114,x
	lad
	sto x+1
	lad
	sto x+2
	lad
	sto x+3
	cla
x,	five 0
	com
	trn upl
	llr ent
	adds tra .+3,.+2
	0
	tra two
	tra err
	tra err
	tra his
	tra upl
	tra upl
	tra win
	tra err
	tra los
	tra upl
	tra upl
	tra upl
	tra won
err,	cla
	write flex A
	write flex dd 
	write flex err
	write flex or

	tra beg
won,	cla
	write flex I
	write flex  wo
	write flex n 

	tra beg
los,	cla
	write flex I
	write flex  lo
	write flex st

	tra flm
win,	slr g+330
	tra upl
his,	slr g+331
	bkkeep
	tra upl
two,	slr g+340
	bkkeep
upl,	modify ent,1
	modify x+4,1
	trif g+327,ent-1
	branch g+330,vcd
	load 1,ppl
	subrut fnd
	cla
	write flex I
	write flex  wi
	write flex n a
	write flex t  
	add ppl+1
	subrut bnp
	cla
	write flex 



	tra fwm
vcd,	branch g+331,pft
	clad pft+dff
	split .+2,pft
	clad g+331
	load 1,ppl
	subrut fnd
	clad ppl+1
	subrut wrm
	clad ppl+1
	load -3,ppl
	subrut upm
	tra sr1+rsp
res,	slr .+13
	switch ppl,.+4
	llr ppl+1
	clc
	0
	add .-1
	adds 1,.-2
	lad
	trn .-6
	0
k,	cla
	write flex    
	write flex I
	write flex lle
	write flex gal
	write flex  mo
	write flex ve

	tra sr1+rsp
fnd,	slr lve
	load ppl+1,vca
	llr (77
	perform
	anl
	sixx shr
	adds add g+114,.+3
	cla
vcb,	0
	trn vcc
	clad .-2
	trif add g+114,.+3
	tra .+2
	com
vca,	sto ppl+1
	modify ppl,-1
	trn lve
	modify vca,1
vcc,	lac
	add vcb
	tra vcb-2
lve,	0
wrm,	slr wro
	sto ppl
	cla
	write flex M
	write flex y m
	write flex ove
	write flex  is
	write flex    
	add ppl
	subrut bnp
	cla
	write flex 



wro,	0
upm,	slr .+14
	adds g+114,.+11
	doad add
	trn k
	clad ppl
	0
	cla
	0
bnp,	0
	

	start beg


v