attempt at hypercalc mod

0 'hypercalc basic
1 let t=%;
3 let t0=t;
4 print "t0 is "; t0
6 if t0<0=1 then 500
7 if t0<0=0 then 10
10 let  t1=t0/64;
11 print "t1 is "; t1
12 if t1<64=1 then 485
15 ' 185 is end seq
16 'get len
19 let len=0;
20 let t2=t1*10;
25 let len=len+1;
30 if t2<1=1 then 40
32 if t2<1=0 then 20
35 if t2=1=1 then 20
37 if t2<0=1 then 485
40 let length=len;
45 print "length is "; length
50 let t3=t2*10^length;
52 print "t3 is "; t3
55
110  let d=%;
130  let d1=d;
131  let d1=d1-1;
132 if d1<1=0 then 136
134 if d1<1=1 then 138
136 go to 131
138 let rem=d1;
140 ' print "rem is "; rem
142 let mod=d-d1;
144 ' print "mod is "; mod














185 let d=t1;
186 let d1=d;
188 let d1=d1-1;
190 if d1<1=0 then 188
192 if d1<1=1 then 193
193 let rem=d1;
194 print "                                                     "; rem
195 let mod=d-d1;
196 ' print "mod is "; mod
197 let t7=mod/64;
198 print "                                                     "; t7
200 go to 300
485 print "error negative int"
500 end
























15 let t2=logn(64,t1);
16 ' print "t2 is "; t2
20 let d=t2;
30 let d1=d;
31 let d1=d1-1;
40 if d1<1=0 then 60
50 if d1<1=1 then 70
60 go to 31
70 let rem=d1;
71 ' print "rem is "; rem
80 let mod=d-d1;
81 ' print "mod is "; mod
120 let t3=mod;
121 ' print "t3 is "; t3
125 let t4=64^t3;
126 ' print "t4 is "; t4
130 let t5=t1-t4;
131 ' print "t5 is "; t5
133 let d=t5;
136 let d1=d;
139 let d1=d1-1;
142 if d1<1=0 then 148
145 if d1<1=1 then 151
148 go to 139
151 let rem=d1;
154 ' print "rem is "; rem
157 let mod=d-d1;
160 ' print "mod is "; mod
163 print "                                                     "; rem
166 let t6=t5-rem;
169 ' print "t6 is "; t6
172 let t0=t1-rem;
175 ' print "t0 is "; t0
176 if t5<0=1 then 200
178 if t5<0=0 then 4
180 if t1<64=1 then 185
185 let d=t1;
186 let d1=d;
188 let d1=d1-1;
190 if d1<1=0 then 188
192 if d1<1=1 then 193
193 let rem=d1;
194 print "                                                     "; rem
195 let mod=d-d1;
196 ' print "mod is "; mod
197 let t7=mod/64;
198 print "                                                     "; t7
200 end