Environment for creative processing of text
and numerical data | ![SURVO MM](../survologo3.gif) |
Listing prime numbers using the macro language of Survo
Beginning status (before activations):
1 *
2 *This is a Survo macro program (sucro), which lists prime numbers
3 *
4 *TUTSAVE PRIMES / Saving the program
5 / This sucro lists prime numbers.
6 / def Wnumber=W1 Wdivisor=W2 Wremainder=W3 Wsquare=W4
7 *{tempo 1}{R}
8 *{message} Stop by pressing the key '.' (full stop)@
9 *SCRATCH {act}{home}2 3{Wnumber=1}
10 + A: {Wnumber=Wnumber+2}{Wdivisor=1}
11 + B: {Wdivisor=Wdivisor+2}{Wremainder=Wnumber%Wdivisor}
12 - if Wremainder = 0 then goto A
13 *{Wsquare=Wdivisor*Wdivisor}
14 - if Wsquare < Wnumber then goto B
15 * {write Wnumber}{goto A}{end}
16 *
17 */PRIMES / starting the program
18 *
Ending status (after activations):
1 *
2 *This is a Survo macro program (sucro), which lists prime numbers
3 *
4 *TUTSAVE PRIMES / Saving the program
5 / This sucro lists prime numbers.
6 / def Wnumber=W1 Wdivisor=W2 Wremainder=W3 Wsquare=W4
7 *{tempo 1}{R}
8 *{message} Stop by pressing the key '.' (full stop)@
9 *SCRATCH {act}{home}2 3{Wnumber=1}
10 + A: {Wnumber=Wnumber+2}{Wdivisor=1}
11 + B: {Wdivisor=Wdivisor+2}{Wremainder=Wnumber%Wdivisor}
12 - if Wremainder = 0 then goto A
13 *{Wsquare=Wdivisor*Wdivisor}
14 - if Wsquare < Wnumber then goto B
15 * {write Wnumber}{goto A}{end}
16 *
17 */PRIMES / starting the program
18 *2 3 5 7 11 13 17 19 23 29 31 37 41 43 47 53 59 61 67 71 73 79 83 89 97
19 *101 103 107 109 113 127 131 137 139 149 151 157 163 167 173 179 181 191
20 *193 197 199 211 223 227 229 233 239 241 251 257 263 269 271 277 281 283
21 *293 307 311 313 317 331 337 347 349 353 359 367 373 379 383 389 397 401
22 *409 419 421 431 433 439 443 449 457 461 463 467 479 487 491 499 503 509
23 *521 523 541 547 557 563 569 571 577 587 593 599 601 607 613 617 619 631
24 *641 643 647 653 659 661
25 *
26 * (The program has been stopped by pressing the key .)
27 *
Previous
| Next