20 'DELCODE KEY by Ingo Streek
40 ' 50 MODE2:INPUT"Programmname ";na$(0):n=INSTR(na$(0),"."):IF n=0THEN na$(0)=na$(0)+".":n=LEN(na$(0))+1 60 na$(1)=LEFT$(na$(0),n)+"lst" 70 OPENIN na$(0):OPENOUTna$(1) 80 WHILE NOTEOF:LINE INPUT#9,z0$:GOSUB130 90 WRITE #9,z1$:WEND:CLOSEIN:CLOSEOUT:END 100 ' 110 'Test auf Steuerzeichen 120 ' 130 p=INSTR(z0$,CHR$(34)):IF p=0 THEN z1$=z0$:GOTO180 140 z1$=LEFT$(z0$,p):z0$=RIGHT$(z0$,LEN(z0$)-p) 150 a$=LEFT$(z0$,1):z0$=RIGHT$(z0$,LEN(z0$)-1) 160 IF a$>CHR$(31)AND a$<CHR$(127)THEN z1$=z1$+a$ ELSE GOSUB 220 170 IF LEN(z0$)>0 THEN 150 180 RETURN 190 ' 200 'Steuerzeichen ersetzen durch CHR$(.) 210 ' 220 IF RIGHT$(z1$,1)<>CHR$(34)THEN z1$=z1$+CHR$(34):GOSUB 270:GOTO 250 230 z1$=LEFT$(z1$,LEN(z1$)-1):IFRIGHT$(z1$,1)<>","AND RIGHT$(z1$,1)<>")"THEN z1$=z1$+" " 240 GOSUB270 250 IF ASC(z0$)=34 THEN z0$=RIGHT$(z0$,LEN(z0$)-1)ELSE z1$=z1$+CHR$(34) 260 RETURN 270 z1$=z1$+"CHR$("+RIGHT$(STR$(ASC(a$)),LEN(STR$(ASC(a$)))-1)+")":RETURN |