10 OPEN"0:ab.pac"FORINPUTAS1
20 OPEN"0:ab.unp"FOROUTPUTAS2
30 A$=T$
35 I$=INPUT$(1,1):IFI$<CHR$(128)THENA$=A$+I$:GOTO35ELSET$=I$:IFA$=""THEN30
37 PRINTA$
40 MX=ASC(A$)-128
50 IFMX=0THENP$=MID$(A$,2)ELSEP$=LEFT$(O$,MX)+MID$(A$,2)
60 PRINTP$
70 PRINT#2,P$
80 O$=P$
90 GOTO30