/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 /"