La diffusion en fichier texte est suffisante et pratique!
Pour la conversion, j'ai été obligé de rester en basic pur... car le MEMORY me bridait au niveau du SYMBOL AFTER, pour réinitialisait la table de caractère de "La clinique du Docteur Spounz".( rester en SYMBOL AFTER 32 avec CHARGEMENT de la police de caractère, à chaque modification de la table, pour afficher un dessin!... )
J'ai donc utiliser un PRINT du caractère plein #143 en MODE TAG (position avec MOVE)
MAIS...
Cette fonction basic est boguée!
Version 1: (ajoute deux caractères parasites avant l'affichage!)
10 X$=CHR$(143)+CHR$(143)+CHR$(143)+CHR$(143)... (40 caract.)
57000 TAG:GPEN D3:FOR I=0 TO D2-1:MOVE A,(400-B)-(I*16):PRINT LEFT$(X$,D1):NEXT:TAGOFF:RETURN
Version 2: (ajoute deux caractères parasites avant l'affichage!!)
10 X$=CHR$(143)+CHR$(143)+CHR$(143)+CHR$(143)... (longueur D1)
57000 TAG:GPEN D3:FOR I=0 TO D2-1:MOVE A,(400-B)-(I*16):PRINT X$:NEXT:TAGOFF:RETURN
Version 3: (ajoute deux caractères parasites avant l'affichage!!!)
57000 TAG:GPEN D3:FOR I=0 TO D2-1:MOVE A,(400-B)-(I*16):PRINT CHR$(143);CHR$(143);CHR$(143);CHR$(143);:NEXT:TAGOFF:RETURN
Version 4: (Celle qui fonctionne!)
57000 TAG:GPEN D3:FOR I=0 TO D2-1:MOVE A,(400-B)-(I*16):FOR II=1 TO D1:PRINT CHR$(143);:NEXT:NEXT:TAGOFF:RETURN
Donc pas de formules complexe avec cette fonction TAG !!!
Le traitement des variables provoque un plantage à l'affichage.
Par contre, le point-virgule est obligatoire après le caractère, car évite des caractères parasites... à la fin!
Le Basic mémorise tout de même la ligne graphique en Y, avec un point-virgule.
Il est gentil... Donc, besoin de répéter le MOVE de positionnement.
Pour des remplissages plus complexes, l'utilisation des instructions en RSX sont quand même plus pratiques et plus rapide.
Mais, il faut l'inclure au commencement d'un projet, pour éviter les conflits avec les routines déjà programmées en Basic, et les restrictions qu'imposent l'utilisation de MEMORY.
|
