100 REM "MCOM.BAS" wandelt einen im DUMP-Format befindlichen
110 REM ASCII-File in einen COM-File um
130 'Eingabe des Dateinamens
140 F$=""                         'Initialisieren
150 INPUT "Bitte Dateiname eingeben (mit Extension): ",F$
160 IF LEN(F$)=0 THEN GOTO 150
170 OPEN "I",#1,"DUMP.ASC"
180 OPEN "R",#2,F$,1
190 FIELD #2,1 AS TB$
200 INPUT #1,A$
210 IF EOF(1) THEN 320
220 INPUT #1,A$
230 PRINT A$
240 FOR I=1 TO 16
250 B!=VAL("&H"+MID$(A$,3+3*I,1))
260 C!=VAL("&H"+MID$(A$,4+3*I,1))
270 D!=B!*16+C!
280 LSET TB$=MKI$(D!)
290 PUT #2
300 NEXT I
310 GOTO 210
320 CLOSE #1,#2
330 END