Améliorez la présentation de vos listings BASIC avec Applewin

Pour assurer une bonne présentation de vos programmes en BASIC Applesoft, pourquoi ne pas laisser faire l’Apple II, en les imprimant ?

Je vous rassure, vous n’aurez pas besoin d’une ImageWriter II. L’émulateur AppleWin suffira ! Cet article vous décrit la procédure, qui est très simple.

Partons du programme BASIC suivant, peu lisible (à dessein).

10HOME
20PRINT"C'EST DOMMAGE D'AVOIR FAIT UN TRES BEAU PROGRAMME":GOSUB1000
25VTAB4:HTAB10:PRINT"MAIS QUE LE LISTING SOIT":GOSUB1000
30HTAB10:PRINT"MAL PRESENTE…":GOSUB1000
40PRINT:PRINT"C'EST MOINS LISIBLE ET DIFFICILE A DEBUGGER !"
50FORJ=1TO40:PRINT"*";:NEXT:PRINT
100 END
1000FORI=1TO1000:NEXTI
1010RETURN

Procédure à suivre

• Lancer AppleWin avec une disquette DOS 3.3 ou ProDOS, de façon à avoir accès au BASIC Applesoft. Il faut avoir l’invite de commande ] affiché.

• Copier en suite le programme et le copier dans AppleWin (Shift+ Insert). Le programme s’affiche dans AppleWin, vous pouvez ensuite l’éditer par la commande LIST. Vous constaterez alors qu’Applesoft a automatiquement remis en forme le programme, qui maintenant est bien présenté :

• Il suffit ensuite d’imprimer ce programme. L’imprimante est émulée par un fichier texte dont l’emplacement et le nom sont définis dans la configuration AppleWin. Par défaut, le nom du fichier est Printer.txt et il se trouve dans le répertoire où AppleWin est installé :

• Puis dans AppleWin, saisir les commandes suivantes :

PR#1
PRINT CHR$(9);"255N":LIST:PRINT CHR$(9);"I"

Votre programme sera ajouté à la suite du fichier Printer.txt. Ce dernier peut être effacé sans crainte, il est automatiquement re-créé (je vous conseille même de l’efface avant de lancer l’impression). Voici le résultat, bien plus satisfaisant :

 10  HOME 
 20  PRINT "C'EST DOMMAGE D'AVOIR FAIT UN TRES BEAU PROGRAMME": GOSUB 1000
 25  VTAB 4: HTAB 10: PRINT "MAIS QUE LE LISTING SOIT": GOSUB 1000
 30  HTAB 10: PRINT "MAL PRESENTE": GOSUB 1000
 40  PRINT : PRINT "C'EST MOINS LISIBLE ET DIFFICILE A DEBUGGER !"
 50  FOR J = 1 TO 40: PRINT "*";: NEXT : PRINT 
 100  END 
 1000  FOR I = 1 TO 1000: NEXT I
 1010  RETURN 

Explications sur les commandes d’impression utilisées

PR#1	Les sorties vers l’écran sont également envoyées vers l’imprimante
PRINT CHR$(9);"255N"	Interrompe l’affichage à l’écran et passe l’imprimante à 255 caractères par ligne (ceci évite les sauts de ligne au milieu d’un ligne de commande)
PRINT CHR$(9);"I"	Affiche à nouveau à l’écran, avec 40 caractères par ligne.
PR#0	Arrête l’envoi à l’imprimante.