Käyttöympäristö tekstin ja numeerisen tiedon luovaan käsittelyyn

Alkulukujen luettelointia Survon makrokielen avulla

Alkutilanne (ennen aktivointeja):

   1 *
   2 *Tämä on Survon makro-ohjelma (sukro), joka luettelee alkulukuja
   3 *
   4 *TUTSAVE A_LUVUT  / Ohjelman talletus
   5 / Tämä sukro luetteloi alkulukuja.
   6 / def Wluku=W1 Wjakaja=W2 Wjäännös=W3 Wneliö=W4
   7 *{tempo 1}{R}
   8 *{message}        Lopetus painamalla nappia '.' (piste)@
   9 *SCRATCH {act}{home}2 3{Wluku=1}
  10 + A: {Wluku=Wluku+2}{Wjakaja=1}
  11 + B: {Wjakaja=Wjakaja+2}{Wjäännös=Wluku%Wjakaja}
  12 - if Wjäännös = 0 then goto A
  13 *{Wneliö=Wjakaja*Wjakaja}
  14 - if Wneliö < Wluku then goto B
  15 * {write Wluku}{goto A}{end}
  16 *
  17 */A_LUVUT  / ohjelman käynnistys
  18 *

Lopputilanne (aktivointien jälkeen):

   1 *
   2 *Tämä on Survon makro-ohjelma (sukro), joka luettelee alkulukuja
   3 *
   4 *TUTSAVE A_LUVUT  / Ohjelman talletus
   5 / Tämä sukro luetteloi alkulukuja.
   6 / def Wluku=W1 Wjakaja=W2 Wjäännös=W3 Wneliö=W4
   7 *{tempo 1}{R}
   8 *{message}        Lopetus painamalla nappia '.' (piste)@
   9 *SCRATCH {act}{home}2 3{Wluku=1}
  10 + A: {Wluku=Wluku+2}{Wjakaja=1}
  11 + B: {Wjakaja=Wjakaja+2}{Wjäännös=Wluku%Wjakaja}
  12 - if Wjäännös = 0 then goto A
  13 *{Wneliö=Wjakaja*Wjakaja}
  14 - if Wneliö < Wluku then goto B
  15 * {write Wluku}{goto A}{end}
  16 *
  17 */A_LUVUT  / ohjelman käynnistys
  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 *  (Ohjelman toiminta lopetettu painamalla nappia .)
  27 *

 Edellinen | Seuraava