#MKFiles 2

       ; registres utiles

#reg 0 Index
#reg e ObjectAddress

DO

       ; calcule l'adresse de l'objet
       ; en mmoire BINAIRE selon une table

  ENTER
  #NUM Table + PRGM
  $1000 +
  STO ObjectAddress

       ; efface l'cran

  0 EXEC \CLS

       ; pour 20 boucles

  $20 STO Index

  FOR Index

       ; coordonnes calcules au hasard
    $56 RND *
    $120 RND * SET \x0y0

       ; puis on dessin l'objet
    @ObjectAddress EXEC \PUTGB

  NEXT

       ; affiche l'cran graphique
  GRPH

       ; attend une touche
  REPEAT
    GET \NEXTKEY
    NOT
  UNTIL(x<>0)

       ; attend une nouvelle valeur
  INPUT

LOOP
    
       ; table des 3 adresses
Table:
#DAL star square circle #END

       ; bascule en mmoire BINAIRE
#BINARY

star:
#DEFGRAPH
  *..*..*
  .*.*.*.
  ..***..
  *******
  ..***..
  .*.*.*. 
  *..*..*
#END

square:
#DEFGRAPH
  *******
  *.....*
  *.....*
  *.....*
  *.....*
  *.....*
  *.....*
  *******
#END

circle:
#DEFGRAPH
  ..***..
  .*...*.
  *.....*
  *.....*
  *.....*
  *.....*
  .*...*.
  ..***..
#END













