home *** CD-ROM | disk | FTP | other *** search
/ DP Tool Club 13 / CD_ASCQ_13_0494.iso / maj / 2200 / imagic2.exe / APPEL.BAS < prev    next >
BASIC Source File  |  1993-09-12  |  972b  |  35 lines
  1. 'Programme d'essai d'un appel à IMAG
  2. CLS
  3. PRINT "Voici une image affichée par IMAG"
  4. PRINT "Vous quitterez cette image en appuyant sur Entrée"
  5. PRINT
  6. PRINT "Ne fonctionne que si le répertoire contenant IMAG.EXE et IMAGE.01 est actif"
  7. PRINT
  8. PRINT "Appuyez sur une touche !"
  9. DO
  10. LOOP UNTIL INKEY$ <> ""
  11. 'Cette ligne peut évidemment se trouver dans un programme plus long
  12. SHELL "imag 9 image.01 0 0 28"
  13. PRINT "Forme de l'appel en Basic: SHELL "; CHR$(34); "imag 9 image.01 0 0 28"; CHR$(34)
  14. PRINT
  15. PRINT "Si l'on faisait afficher cette image aux coordonnées ( 200, 200)"
  16. PRINT "IMAG ne l'afficherait pas, faute de place à l'écran"
  17. PRINT "L'appel sera alors:"
  18. PRINT "Forme de l'appel en Basic: SHELL "; CHR$(34); "imag 9 image.01 200 200 28"; CHR$(34)
  19. PRINT "Appuyez sur une touche"
  20. DO
  21. LOOP UNTIL INKEY$ <> ""
  22.  
  23. SHELL "imag 9 image.01 200 200 28"
  24. PRINT "Programme APPEL.BAS exécuté"
  25. PRINT "Appuyez sur une touche"
  26. DO
  27. LOOP UNTIL INKEY$ <> ""
  28.  
  29.  
  30.  
  31.  
  32.  
  33.  
  34.  
  35.