0 DIM A$(20000),X$(20),L$(8),S$(8),V$(5):FOR I=1 TO 8:L$(I,I)=" ":S$(I,I)=" ":NEXT I:FOR I=1 TO 20:X$(I,I)=" ":NEXT I›1 EXEC INIT:? "}";›2 V$="Quell":EXEC DIR›3 TRAP XYZ:OPEN #1,4,0,X$›4 EXEC LOAD›10 GRAPHICS 0:POKE 756,$B0:POKE 710,$33:POKE 709,$FF:POKE 82,$00:POKE 83,$27:DL=DPEEK(560):POKE 65,0›11 POKE DL+6,6:POKE DL+7,10:POKE 752,1›20 V$="Ziel ":EXEC DIR:OPEN #1,8,0,X$›21 EXEC SAVE›22 GRAPHICS 0:POKE 756,$B0:POKE 710,$33:POKE 709,$FF:POKE 82,$00:POKE 83,$27:DL=DPEEK(560):POKE 65,0›23 POKE DL+6,6:POKE DL+7,10:POKE 752,1›24 ? " Ъ®П®Т§ёґ Уегфпту Упжф ¦ Упжфдеуйзо ";›25 ? " TEXTWANDLER V3"›26 ? "";›27 ? "|Der Text wurde nun Ordnungsgem @ abge-|";›28 ? "|speichert. Falls der Text nun ein bis-|";›29 ? "|chen anders aussieht, und eine andere |";›30 ? "|l nge besitzt als vorher, DON'T PANIC!|";›31 ? "|Es wurden, neben dem entfernen der er-|";›32 ? "|w hnten RETURN-Zeichen, auch alle |";›33 ? "|Trennstriche entfernt(auf Wunsch von |";›34 ? "|W.Burger). Leider musst Du noch diesen|";›35 ? "|Text дхтгигиеглео, da das Programm |";›36 ? "|nicht wissen kann, wie der Text auszu-|";›37 ? "|sehen hat. -A.AHUJA- |";›38 ? "";›39 ? "";›40 ? "| ДтЏгле вйффе ейое дет Жхолфйпоуфбуфео|";›41 ? "";›42 POKE DL+21,112:FOR I=25 TO 28:POKE DL+I,112:NEXT I›43 IF PEEK(53279)=7 THEN 43›44 CLR :RUN ›99 GOTO 99›100 CLR :RUN ›20000 PROC LOAD›20010 GRAPHICS 0:POKE 756,$B0:POKE 710,$33:POKE 709,$FF:POKE 82,$00:POKE 83,$27:DL=DPEEK(560):POKE 65,0:POKE 559,33›20011 FOR I=6 TO 28:POKE DL+I,112:NEXT I:FOR I=17 TO 19:POKE DL+I,2:NEXT I›20012 ? "}";:POKE 752,$01›20013 ? "ЙГИ МБДЕ ¦ ЛПОЦЕТФЙЕТЕ ДЕО ФЕШФЎ";›20014 ? "";›20015 ? "|Gelesene Datenblcke: |";›20016 ? "";›20099 ZZ=0:Q=0›20115 FOR I=1 TO 20000›20116 TRAP 20140:GET #1,A›20117 IF A=155 THEN A=32›20118 IF A=45 THEN GOTO 20116›20119 Q=Q+1:IF Q=126 THEN ZZ=ZZ+1:Q=1:POSITION 6,2:? HEX$(ZZ)›20120 A$(I,I)=CHR$(A)›20130 NEXT I›20140 CLOSE #1›20150 ENDPROC ›20200 PROC SAVE›20210 GRAPHICS 0:POKE 756,$B0:POKE 710,$33:POKE 709,$FF:POKE 82,$00:POKE 83,$27:DL=DPEEK(560):POKE 65,0:POKE 559,33›20211 FOR I=6 TO 28:POKE DL+I,112:NEXT I:FOR I=17 TO 19:POKE DL+I,2:NEXT I›20212 ? "}";:POKE 752,$01›20213 ? "ЙГИ УРЕЙГИЕТЕ¦Ж™ММЕ ДЙЕУЕО ФЕШФЎ";›20214 ? "";›20215 ? "|Geschriebene Blcke: |";›20216 ? "";›20299 ZZ=0:Q=0›20315 FOR I=1 TO 25000›20316 TRAP 20340:A=ASC(A$(I,I))›20318 Q=Q+1:IF Q=126 THEN ZZ=ZZ+1:Q=1:POSITION 6,2:? HEX$(ZZ)›20319 PUT #1,A›20330 NEXT I›20340 CLOSE #1›20350 ENDPROC ›22000 PROC DIR›22001 ? " Ъ®П®Т§ёґ Уегфпту Упжф ¦ Упжфдеуйзо ";›22002 ? " TEXTWANDLER V3":DL=DPEEK(560)›22003 ? "М•угиф цптибодеое ТЕФХТОЪейгиео йн Фешф";›22004 ? "";›22005 ? "|Quelle:D1:*.TXT|Ziel:D1:?.TXT|Atascii||";›22006 ? "";›22007 ? "|Lege die ";V$;"disk rein & drcke START|";›22008 ? "";›22009 IF PEEK(53279)<>6 THEN 22009›22010 POSITION 0,3›22011 ? "";›22012 ? "|Quelle:D1:*.TXT|Ziel:D1:?.TXT|Atascii |";›22013 ? "";›22014 ? "|| | || | ||";›22015 ? "|| | || | ||";›22016 ? "|| | || | ||";›22017 ? "|| | || | ||";›22018 ? "|| | || | ||";›22019 ? "|| | || | ||";›22020 ? "||";›22021 ? "| ЕУ ЧЕТДЕО ОХТ ФЕШФЖЙМЕУ ЕЙОЗЕМЕУЕОЎ |";:POKE 65,0›22022 ? "";:POKE D+22,112:Q=0›22023 OPEN #1,6,0,"D:*.TXT":A=2:B=11:C=21:D=30:X=5:XX=11›22024 FOR I=1 TO 24›22025 POKE 752,0:TRAP 22033:INPUT #1,X$›22026 IF X$(1,1)<>" " AND X$(1,1)<>"*" THEN 22033›22027 Q=Q+1›22028 IF Q<7 THEN POSITION A,X+Q:? X$(3,10)›22029 IF Q>6 AND Q<13 THEN POSITION B,X+Q-6:? X$(3,10)›22030 IF Q>12 AND Q<19 THEN POSITION C,X+Q-12:? X$(3,10)›22031 IF Q>18 AND Q<25 THEN POSITION D,X+Q-18:? X$(3,10)›22032 NEXT I›22033 CLOSE #1›22034 POSITION 0,15›22035 ? "";›22036 TRAP 22036:POSITION 0,16:? "Filename(max.8 Zeichen):";:INPUT L$›22037 LA=LEN(L$):LA=LA+2›22038 X$(3,LA)=L$:X$(LA+1,LA+4)=".TXT":X$(1,2)="D:":POKE DL+22,2›22039 ENDPROC ›29999 END ›30000 PROC INIT›30010 POKE 559,0:POKE 65,0›30011 IF PEEK(1536)=1 THEN 30020›30012 EXEC FN›30020 GRAPHICS 0:POKE 756,176:SETCOLOR 2,3,3:SETCOLOR 1,0,15:POKE 82,0:POKE 752,1:? "}";:D=DPEEK(560)›30030 POKE D+6,6:POKE D+7,10:POKE D+9,112:POKE D+25,112›30040 ? " Ъ®П®Т§ёґ Уегфпту Упжф ¦ Упжфдеуйзо ";›30050 ? " TEXTWANDLER V1"›30051 ? "М•угиф цптибодеое ТЕФХТОЪейгиео йн Фешф";›30052 ? "””””””””””””””””””””””””””””””””””””””””";›30053 ? "”{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{”";›30054 ? "”{{”";›30055 ? "”{``````````````````````````````````{”";›30056 ? "”{` `{”";›30057 ? "”{` Dieses Programm lscht alle `{”";›30058 ? "”{` RETURN-Zeichen aus Texten, um `{”";›30059 ? "”{` diese Texte hinterher in einem `{”";›30060 ? "”{` Textprogramm laden, & drucken `{”";›30061 ? "”{` zu knnen. - Viel Erfolg - `{”";›30062 ? "”{` `{”";›30063 ? "”{``````````````````````````````````{”";›30064 ? "”{{”";›30065 ? "”{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{”";›30066 ? "””””””””””””””””””””””””””””””””””””””””";›30067 ? "";›30068 ? " Вйффе дтЏгле ейое ЖхолфйпоуФбуфеЎ ";›30069 ? "";›30070 IF PEEK(53279)=7 THEN 30070›30080 FOR I=25 TO 28:POKE D+I,0:PAUSE 0:NEXT I›30090 FOR I=9 TO 28:POKE D+I,0:PAUSE 0:NEXT I›30091 FOR I=10 TO 28:POKE D+I,0:PAUSE 0:NEXT I:PAUSE 5›30099 FOR I=10 TO 28:POKE D+I,2:NEXT I›30100 ENDPROC ›31000 PROC FN›31001 OPEN #1,4,0,"D:1"›31002 X=16:CHSET=176:POKE 756,176›31003 I=834:C=I+2:IC=C+4›31004 POKE C+X+1,CHSET:POKE C+X,0›31005 POKE IC+X+1,4:POKE IC+X,0›31006 POKE I+X,7:A=USR(ADR("hhhЄLVд"),X)›31007 CLOSE #1:POKE 1536,1›31008 ENDPROC ›