65000 DIM l$(500) 65001 CLS:FOR a%=1 TO 5:PRINT a%;MID$("SuchKom.PRNTSaveLoad",a%*4-3,4):NEXT 65002 m%=MAX(INSTR("012.345",INKEY$)-1,0):ON m% GOTO 65003,65007,65007,65007,65009,65009:GOTO 65002 65003 s%=368:n%=1:PRINT"WAIT":WHILE PEEK(s%+3)<>253:l%=PEEK(s%)+256*(PEEK(s%+1)):FOR c%=4 TO l%:p%=INSTR("234BD",HEX$(PEEK(s%+c%))):IF p%=0 OR PEEK(s%+1+c%)+PEEK(s%+2+c%) THEN 65006 65004 FOR a%=3 TO l%:h%=PEEK(s%+a%+c%):IF h%<128 THEN h$=h$+CHR$(h%):NEXT 65005 h$=h$+CHR$(h%-128)+MID$("%$!",p%,1):FOR a%=1 TO n%-1:IF l$(a%)<>h$ THEN NEXT:l$(n%)=h$:n%=n%+1:FOR a%=n%-2 TO 1 STEP-1:IF h$<l$(a%) THEN l$(a%+1)=l$(a%):l$(a%)=h$:NEXT 65006 h$="":NEXT:s%=s%+l%:WEND 65007 CLS:FOR a%=1 TO n%-1:PRINT#m%*2,a%;l$(a%):IF m%<4 THEN INPUT#m%*2,"";a$:IF a$<>"" THEN l$(a%)=l$(a%)+"   "+a$ 65008 NEXT:GOTO 65001 65009 INPUT"Name";n$:IF m%=5 THEN OPENOUT n$:FOR a%=1 TO n%:WRITE#9,a%,l$(a%):NEXT:CLOSEOUT:GOTO 65001 65010 OPENIN n$:WHILE EOF=0:INPUT#9,n%,l$(n%):WEND:CLOSEIN:GOTO 65001