%%HP: T(1)A(R)F(.); « 1 OVER SIZE FOR K K DUP2 GET CASE DUP TYPE 10 SAME THEN # 4003h SYSEVAL # 62B9Ch SYSEVAL END DUP TYPE 0 SAME THEN # 18CD7h SYSEVAL END DUP TYPE 8 SAME THEN # 3F9Fh SYSEVAL # 5AB3h SYSEVAL EXT END DUP TYPE 5 SAME THEN EXT END DTAG END PUT NEXT # 3FB3h SYSEVAL # 5AB3h SYSEVAL »