                                   /fio deck convertor

94p,	0
	dap 95p
	dap 99p
	law 77
	and 94p
	add (tb101
	dac 94p
	lio i 94p
	spi
	jmp 97p
	rcl 1s
	spi i
	jmp .+5
	law 74
	sas .ocas
99p,	xct .
	dac .ocas
	rcl 7s
	sad (40
	jmp 98p
	xct i 99p
	idx 95p
97p,	idx 95p
	law 72
	sas .ocas
	xct i 99p
	dac .ocas
95p,	jmp .

98p,	xct i 99p
	law 73
	jmp 97p-2


define
	doubl a,b,c,d
	zz=c^3+d
	zzx2000+bx100+a
	termin

          
                                                                 
p94,	0
	dap p95
	law 77
	and p94
	sas (74
	sad (72
	jmp p93
	add (tb101
	dac p94
	law 1777
	and i p94
	cli
	rcr 6s
	sza
	jmp p96
	rcl 6s
	sas (12)
p98,	xct i p95
	sas (12)
	idx p95
	idx p95
p95,	jmp .

p93,	dac .icas
	jmp p95-1

p96,	add (tb202
	dac p94
	law 74
	sad .icas
	jmp .+3
	cla
	jmp p98-2
	lac i p94
	jmp p98

          
                                                                 
tb101,	doubl 60,0,0,20
	doubl 1,7,0,1
	doubl 2,1,0,2
	doubl 3,0,0,3
	doubl 4,0,0,4
	doubl 5,0,0,5
	doubl 6,0,0,6
	doubl 7,0,0,7
	doubl 8,0,0,8	/10
	doubl 9,2,0,9
	doubl 12,0,7,0
	doubl 12,0,1,33
	doubl 12,0,1,2
	doubl 12,0,7,0
	doubl 12,0,7,0
	doubl 12,0,7,0
	doubl 0,0,1,54	/20
	doubl 61,3,0,61
	doubl 62,0,0,62
	doubl 63,0,0,63
	doubl 64,0,0,64
	doubl 65,0,0,65
	doubl 66,0,0,66
	doubl 67,0,0,67
	doubl 70,0,0,70	/30
	doubl 71,0,0,71
	doubl 12,0,7,0
	doubl 73,4,0,73
	doubl 12,0,0,55
	doubl 12,0,0,40
	doubl 72,0,0,74
	doubl 12,0,7,0
	doubl 33,0,0,54	/40
	doubl 41,0,0,41
	doubl 42,0,0,42
	doubl 43,0,0,43
	doubl 44,0,0,44
	doubl 45,0,0,45
	doubl 46,0,0,46
	doubl 47,0,0,47
	doubl 0,0,0,50	/50
          
                                                                 
	doubl 51,0,0,51
	doubl 12,0,7,0
	doubl 12,0,1,9
	doubl 40,5,1,73
	doubl 34,0,0,77
	doubl 12,0,1,21
	doubl 74,0,7,0
	doubl 12,0,0,0	/60
	doubl 21,0,0,21
	doubl 22,0,0,22
	doubl 23,0,0,23
	doubl 24,0,0,24
	doubl 25,0,0,25
	doubl 26,0,0,26
	doubl 27,0,0,27
	doubl 30,0,0,30	/70
	doubl 31,0,0,31
	doubl 12,0,0,36
	doubl 12,6,0,33
	doubl 12,0,0,57	/74
	doubl 35,0,7,0
	doubl 12,0,7,0
	doubl 55,0,7,0

tb202=.-1
	14	/'
	53	/^
	56	/?
	13	/=
	20	/+
	54	/x
	37	/"
          
                                                                                                                     

