Exemple
MACRO "dump.mac"
!
! Sélection du fichier
INPUT FILE "Nom du fichier a dumper ?";File$
! Ouverture du fichier
OPEN ASCII @F TO File$
ON END @F GOTO Fin
! Création de la fenêtre d'affichage
WCREATE 100,800,100,630
SUSPEND INTERACTIVE
! Affichage du fichier par page
L_max=28
L=1
C=6
C2=72
Byte=0
WCOLOR 1
WPRINT L,1;Byte
WCOLOR 6
LOOP
ENTER UBYTE @F;B
TEXT CHR B;A$
WPRINT USING "4D";L,C;B
WPRINT L,C2;A$
C=C+4
C2=C2+1
Byte=Byte+1
IF C>66 THEN
C=6
C2=72
L=L+1
IF L<=L_max THEN
WCOLOR 1
WPRINT L,1;Byte
WCOLOR 6
END IF
END IF
! Test si fin d'une page
IF L>L_max THEN
WCOLOR 2
WPRINT L_max+2,1;"[RETURN] To continue"
WPRINT L_max+3,1;"[ESC] To stop"
PAUSE
WCLEAR
L=1
WCOLOR 1
WPRINT L,1;Byte
WCOLOR 6
END IF
END LOOP
Fin: WCOLOR 2
WPRINT L_max+2,1;"End of file"
PAUSE
END
END MACRO
|
