10 OPEN #3,4,0,"D:DLI.OBJ"
20 OPEN #4,8,0,"D:DLI.LST"
30 TRAP 160
40 GET #3,BYTE:GET #3,BYTE
50 GET #3,BYTE:GET #3,BYTE
60 GET #3,BYTE:GET #3,BYTE
70 REGEL=9000
80 BYTES=0
90 GET #3,BYTE
100 IF BYTES>0 THEN PRINT #4;",";:GOTO 120
110 PRINT #4;REGEL;" DATA ";
120 PRINT #4;BYTE;
130 BYTES=BYTES+1
140 IF BYTES<8 THEN GOTO 90
150 PRINT #4:REGEL=REGEL+10:GOTO 80
160 IF BYTES>0 THEN PRINT #4
170 CLOSE #3
180 CLOSE #4
190 END