Pour mon éditeur

' ***************************************************************************
' Bienvenue.bas
' ***************************************************************************
Demarrer()
end
' *************************************************************************
SUB Demarrer()
   init()
   debut()
   suite()
END
' **************************************************************************
SUB Init()
   FULL_SPACE 0 : CAPTION 0,"Bienvenue dans PANORAMIC"
   SCENE3D 1 : COLOR 1, 0,0,0 : 3D_TEXT 1,"PAPYDALL TE SOUHAITE LA BIENVENUE "
   FULL_SPACE 1 : 3D_COLOR 1,0,0,255 : 3D_POSITION 1,-7,-.5,1
END_SUB
' *****************************************************************************
SUB debut()
   dim_local i
   FOR i = 0 TO 360 STEP 2: 3D_X_ROTATE 1,i : WAIT 10 : NEXT i
   FOR i = 1 TO .005 STEP -.005 : 3D_SCALE 1,i,i,i : WAIT 10 : NEXT i
   3D_TEXT 2,"NOUVEAU PANORAMICIEN" : 3D_COLOR 2,255,0,0
   3D_POSITION 2,-3.5,-.5,1
   FOR i = 0 TO 360 STEP 2: 3D_X_ROTATE 2,i : WAIT 10 : NEXT i
   FOR i = 1 TO .005 STEP -.005 : 3D_SCALE 2,i,i,i : WAIT 10 : NEXT i

END_SUB
' ***************************************************************************
SUB suite()
   dim_local i
   3D_TEXT 3,"BONNE PROGRAMMATION EN PANORAMIC" : 3D_COLOR 3,0,255,0
   3D_POSITION 3,-1.5,-.5,1
   FOR i = 0 TO 500 STEP 2 : 3D_Y_ROTATE 3,i : 3D_Z_ROTATE 3,i : WAIT 30 : NEXT i
   FOR i = 1 TO .01 STEP -.005 : 3D_SCALE 3,i,i,i : WAIT 30 : NEXT i
   3D_POSITION 3,-5,.5,1 : 3D_COLOR 3,255,255,0
   FOR i = .01 TO 1 STEP .005 : 3D_SCALE 3,i/2,i/2,i/2 : WAIT 30 : NEXT i
END_SUB
' **************************************************************************

' ******************************************************************************
'
'                 Table_Multiplication.bas
'                      par Papydall
'
' ******************************************************************************

' Exemple d'appel des procédures

' ==============================================================================
' Ici débute le module principal du programme
' Il se limite à la seule procédure 'Demarrer' qui fait appel aux autres procédures
Demarrer()
end  : '  Fin du programme
' ******************************************************************************
SUB Demarrer()
   Init() : ' Appel de la procédure d'initialisation
   Affiche("T A B L E  D E  M U L T I P L I C A T I O N",240,10) : ' Appel de la procédure d'affichage
   Affiche(string$(48,"*"),240,40) : ' 2ème appel de la procédure d'affichage avec d'autres paramètres
   for m% = 2 to 9 : ' Boucle d'appels de la procédure table avec passage de
      table(m%)    : ' paramètre par valeur
   next m%
END_SUB

' ==============================================================================
' ******** INITIALISATION
' Procédure INIT() sans paramètres d'appel mais les parenthèses sont obligatoires
SUB init()
   dim m% : ' Seule cette variable est globale
   width 0,800   : height 0,700 : ' Dimension de la fénêtre d'affichage
   color 0,0,0,0 : font_color 0,0,255,0 : ' Fond noir, texte en vert
   font_size 0,12 : font_bold 0 : ' Taille de la police et affichage en gras
   caption 0,"Table de multiplication" : ' Titre de la page principale du programme
END_SUB
' ==============================================================================

' ******** Afficher un texte à l'écran
' Le texte ainsi que la position de l'affichage sont passés comme paramètres
' formels par le module appelant
' Procédure Affiche : les 3 paramètres d'appel sont locaux
SUB Affiche(texte$,colonne%,ligne%)
   print_locate colonne%,ligne% : print texte$
END_SUB
' ==============================================================================
' ******** Afficher la table
' Affiche une table de multiplication : le multiplicande(m%) est passé comme
' paramètre formel par le module appelant.
' Le multiplicateur i% est déclaré dans la procédure comme variable locale
SUB table(m%)
   DIM_LOCAL i%,s$,lig%,col% : ' variables locales : à la sortie de la procédure
                               ' elles seront automatiquement éliminées.
   affiche(string$(54,"_"),150,50): ' Une procédure peut appeler une autre
   col% = 150*(m%-1): lig% = 70
   if col% > 600
     col% = col%-600 : lig% = 320
   end_if
   for i% = 1 to 9
       s$ = str$(i%*m%)
       if i%*m% < 10 then s$ = "  "+s$
       print_locate col%,lig% : print str$(i%)+" X "+str$(m%)+" = "+s$
       lig% = lig%+20
   next i%
   affiche(string$(54,"_"),150,270)
   affiche(string$(54,"_"),150,500)
END_SUB
' ==============================================================================