home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Transactor
/
Transactor_21_1988_Transactor_Publishing.d64
/
ml square roots
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2023-02-26
|
704b
|
24 lines
100 v%=rnd(0):rem .. this must be first
110 data 160, 2, 177, 45, 141, 161, 3, 169
120 data 0, 145, 45, 200, 177, 45, 141, 162
130 data 3, 160, 0, 140, 160, 3, 140, 163
140 data 3, 14, 162, 3, 46, 161, 3, 46
150 data 160, 3, 14, 162, 3, 46, 161, 3
160 data 46, 160, 3, 14, 163, 3, 173, 163
170 data 3, 10, 170, 232, 142, 164, 3, 173
180 data 160, 3, 205, 164, 3, 144, 9, 238
190 data 163, 3, 237, 164, 3, 141, 160, 3
200 data 200, 192, 8, 208, 204, 160, 3, 173
210 data 163, 3, 145, 45, 96
220 for j=828 to 912
230 read x: t=t+x: poke j,x
240 next j
250 if t<>8554 then stop
260 rem test run starts here
270 for j=1 to 10
280 v=int(rnd(1)*4096)
290 v%=v
300 sys 828
310 print "the root of";v;"is";v%
320 next j