11000 R=-1
11010 T$(0)="DEL"
11020 T$(1)="SEQ"
11030 T$(2)="PRG"
11040 T$(3)="USR"
11050 T$(4)="REL"
11060 OPEN1,8,15
11070 OPEN2,8,2,"#"
11080 PRINT"[147]TYP    NAME             LAENGE[146]"
11090 S=1
11100 PRINT#1,"U1:"2;0;18;S
11110 GET#2,T$,S$
11120 S$=S$+CHR$(0)
11130 T$=T$+CHR$(0)
11140 S=ASC(S$)
11150 E=1
11160 PRINT#1,"B-P";2;2+(E-1)*32
11170 A$=A$+CHR$(0)
11180 GET#2,A$
11190 A$=A$+CHR$(0)
11200 IFASC(A$)<128ANDASC(T$)=0THEN11390
11210 IFASC(A$)>127THEN PRINTT$(ASC(A$)-128)"    ";
11220 PRINT#1,"B-P";2;5+(E-1)*32
11230 N$=""
11240 FORA=1TO16
11250 GET#2,B$
11260 N$=N$+B$
11270 NEXT A
11280 PRINTN$"   ";
11290 PRINT#1,"B-P";2;30+(E-1)*32
11300 GET#2,A$,B$
11310 A$=A$+CHR$(0):B$=B$+CHR$(0)
11320 L=ASC(A$)+256*ASC(B$)
11330 PRINTL
11340 E=E+1
11350 IFE<9THEN11160
11360 E=0
11370 IFASC(T$)=0THEN11390
11380 GOTO11100
11390 CLOSE2
11400 CLOSE1
11410 RETURN