' ********************************************************
' **      GENERATEUR DE CODE PAR THYREX/NLC             **
' **                                                    **
' ** Voici le g‚n‚rateur de code pour le champ d'‚toile **
' ** vous n'avez qu'a mettre le nombre d'‚toile d‚sir‚  **
' ** et lancer le programme.                            **
' ********************************************************
'
nombre%=100
'
GOSUB adresse
GOSUB oldebut
GOSUB efface
GOSUB affiche
GOSUB magic          ! Merci … Jedi/Sector one pour ses le‡ons dans ST MAG
'
EDIT
'
> PROCEDURE adresse
  '
  OPEN "o",#1,"\adresse.lst"
  '
  FOR star&=0 TO nombre%-1
    '
    PRINT #1,"thx";star&+1;"%=ADD(xb%,CARD{add(pt%,";star&*4;")})"
    '
  NEXT star&
  '
  CLOSE #1
  '
RETURN
> PROCEDURE oldebut
  '
  OPEN "o",#1,"\oldebut.lst"
  '
  FOR star&=1 TO nombre%*2 STEP 2
    '
    PRINT #1,"old";star&;"%=ecran2%"
    PRINT #1,"old";star&+1;"%=xb%"
    '
  NEXT star&
  '
  CLOSE #1
  '
RETURN
> PROCEDURE efface
  '
  OPEN "o",#1,"\efface.lst"
  '
  FOR star&=1 TO nombre%
    '
    PRINT #1,"card{OLD";star&*2-1;"%}=0"
    '
  NEXT star&
  '
  CLOSE #1
  '
RETURN
> PROCEDURE affiche
  '
  OPEN "o",#1,"\affiche.lst"
  '
  FOR star&=0 TO nombre%-1
    '
    PRINT #1,"CARD{thx";star&+1;"%}=CARD{thx";star&+1;"%} OR CARD{add(pt%,";star&*4+2;")}"
    '
  NEXT star&
  '
  CLOSE #1
  '
RETURN
> PROCEDURE magic
  '
  OPEN "o",#1,"\magic.lst"
  '
  i%=1
  FOR star&=1 TO nombre%*2 STEP 2
    '
    PRINT #1,"old";star&;"%=old";star&+1;"%"
    PRINT #1,"old";star&+1;"%=thx";i%;"%"
    PRINT #1,"'"
    '
    INC i%
  NEXT star&
  '
  CLOSE #1
  '
RETURN