Exemple
MACRO "unix.mac"
!
! Initialisation du caractère TAB
TEXT CHR 9;Tab$
! Entrée du catalogue
INPUT "Catalogue ?";Cat$
! Exécution de la commande 'du'
EXECUTE SYSTEM "du",Cat$,">/usr/tmp/x"
! Ouverture du fichier de sortie de la commande 'du'
OPEN ASCII @File TO "/usr/tmp/x"
ON END @File GOTO Fin
! Effacement de la fenêtre alphanumérique
ALPHA CLEAR
! Ecriture de l'entête
PRINT "---------------------------------------"
PRINT " OCTETS CATALOGUE"
PRINT "---------------------------------------"
LOOP
! Lecture d'une ligne du fichier de sortie
ENTER @File;A$
! Décodage de la ligne
TEXT POS A$,1,Tab$;I
IF I THEN
TEXT VAL A$,1;Byte
TEXT COPY A$,I+1;B$
PRINT USING Fmt;Byte*512,B$
Fmt: IMAGE 10D,X,K
ELSE
PRINT A$
END IF
END LOOP
! Fermeture et effacement du fichier de sortie
Fin: PRINT "---------------------------------------"
CLOSE @File
PURGE "/usr/tmp/x"
! Mode vue de la fenêtre alphanumérique
ALPHA VIEW
END
END MACRO
|
