100 REM "MASC.BAS" wandelt einen COM-File in einen
110 REM im DUMP-Format befindlichen ASCII-File um
120 DIM AB(16)
130 ADR=0
140 'Eingabe des Dateinamens
150 F$=""                         'Initialisieren
160 INPUT "Bitte Dateiname eingeben (mit Extension): ",F$
170 IF LEN(F$)=0 THEN GOTO 160
180 OPEN "O",#1,"DUMP.ASC"
190 OPEN "R",#2,F$,1
200 FIELD #2,1 AS TB$
210 PRINT
220 PRINT #1,
230 FOR I=1 TO 16
240 GET #2
250 IF EOF(2) THEN 390
260 AB(I)=ASC(TB$)
270 NEXT I
280 ADR$=RIGHT$("0000"+HEX$(ADR)+" ",5)
290 PRINT ADR$;
300 PRINT #1,ADR$;
310 FOR J=1 TO 15
320 PRINT RIGHT$("00"+HEX$(AB(J)),2);" ";
330 PRINT #1,RIGHT$("00"+HEX$(AB(J)),2);" ";
340 NEXT J
350 PRINT RIGHT$("00"+HEX$(AB(16)),2)
360 PRINT #1,RIGHT$("00"+HEX$(AB(16)),2)
370 ADR=ADR+16
380 GOTO 230
390 CLOSE #1,#2
400 END