1 DATA 65,1,48,91,92,93,30,27,28,29,142,32,96,46,44,59,58,63,33,34,97,99,60,62,40,41,119,121,43,45,42,47,94,61,126,98,39,35,36,37,38
2 (null)%:CLR
3 (null)5,1
4 (null)6,7
5 (null)5,4
6 DIM A(41),B(41)
7 N$="---"
8 FORI=1TO41:READA(I):NEXT
9 (null),18,2,"[212]EXTKONVERTIERUNG INS [205]ASTERTEXT 128-[198]ORMAT"
10 (null),17,3,"---------------------------------------------"
11 (null)5,4,79,24,1
12 (null)
13 (null),14,4,"  1  [146]  [206]EUE [203]ONVERTIERUNGSTABELLE ERSTELLEN"
14 (null),14,6,"  2  [146]  [203]ONVERTIERUNGSTABELLE EINLESEN"
15 (null),14,8,"  3  [146]  [212]EXT KONVERTIEREN"
16 (null),14,10,"  4  [146]  [208]ROGRAMM BEENDEN"
17 (null),5,13,"[193]KTUELLE [203]ONVERTIERUNGSTABELLE: "
18 PRINTN$
19 GET(null) G$
20 G=VAL(G$)
21 ON G GOTO 100,200,300,50
22 GOTO 19
50 (null)
51 PRINT"[215]OLLEN [211]IE WIRKLICH?"
52 GET(null) G$
53 IF G$<>"J"THEN 12
54 END
60 POKE21,1:INPUTA$:POKE21,0:RETURN
70 PRINT:G$="N"
71 IF DS=62 THEN PRINT"[203]ONVERTIERUNGSTABELLE NICHT GEFUNDEN."
72 IF DS=63 THEN PRINT"[196]IESE [196]ATEI EXISTIERT BEREITS. [197]RSETZEN?":GET(null)G$
73 IF DS<62 OR DS>63 THEN PRINT"[196]ISKETTENFEHLER: ";DS$
74 RETURN
100 DATA 97,65,48,123,124,125,190,187,188,189,13,32,128,46,44,59,58,63,33,34,91,93,60,62,40,41,119,121,43,45,42,47,94,61,35,92,39,64,36,37,38
101 RESTORE100
102 (null)
103 FORI=1TO41:READ A:A$=CHR$(A)
104 IF A=13 THEN A$="[210]ETURN"
105 IF A=32 THEN A$="[211]PACE"
106 IF A=128 THEN A$="[211]HIFT+[211]PACE"
107 IF A=119 THEN A$="GESCHWEIFTE [203]LAMMER AUF"
108 IF A=121 THEN A$="GESCHWEIFTE [203]LAMMER ZU"
109 PRINT"";I;"[157].  ";A$;" "
110 PRINT"   ";B(I);"                      "
111 INPUT"[145][145] ";B(I)
112 NEXT
113 PRINT"[193]LLES RICHTIG?"
114 GET(null) G$
115 IF G$="N" THEN 101
116 IF G$<>"J"THEN 114
117 (null)
118 PRINT"[206]AME DER [203]ONVERTIERUNGSTABELLE: ";
119 GOSUB 60
120 IF A$="$" THEN PRINT"":(null)".*":GOTO118
121 IF A$="" THEN 12
122 N$="."+A$
123 (null):OPEN2,8,2,N$+",S,W"
124 IF DS<>0 THEN GOSUB 70:IF G$="J" THEN (null)(N$):GOTO123
125 IF DS<>0 THEN 118
126 FORI=0TO41
127 PRINT#2,B(I)
128 NEXT
129 (null)#2
130 GOTO12
200 (null)
201 A$="":INPUT"[215]ELCHE [203]ONVERTIERUNGSTABELLE SOLL GELADEN WERDEN";A$
202 IF A$="" THEN 12
203 IF A$="$"THEN PRINT:(null)".*":GOTO201
204 M$="."+A$
205 (null)
#2,(M$)
206 IF DS<>0 THEN GOSUB 70:(null)#2:GOTO201
207 FORI=0TO41:INPUT#2,A$:B(I)=VAL(A$):NEXT:N$=M$
208 (null)#2:GOTO12
300 (null)
301 IF N$="---" THEN PRINT"[203]EINE [203]ONVERTIERUNGSTABELLE GELADEN.":GET(null)G$:GOTO12
302 PRINT"[212]EXTDISKETTE EINLEGEN."
303 PRINT"[206]AME DES ZU KONVERTIERENDEN [212]EXTES: ";:GOSUB60
304 IF A$="$" THEN PRINT"":(null):GOTO303
305 IF A$="" THEN12
306 PRINT:PRINT"[145][212]EXT WIRD GELESEN:":TI$="000000"
307 (null)
#2,(A$)
308 IF DS<>0THEN 70:GOTO300
309 Z=10600:(null)0
310 GET#2,A$:IF ST<>0 THEN POKEZ,ASC(A$):GOTO313
311 PRINT"[145]";Z-10600
312 POKEZ,ASC(A$):Z=Z+1:GOTO310
313 (null)#2
314 PRINT"[145][212]EXT WIRD KONVERTIERT:"
315 FORI=10600TO Z
316 PRINT"[145]";Z-I;"[157] "
317 A=PEEK(I)
318 IF A>=B(1) AND A<=B(1)+25 THEN A=A-B(1)+A(1):GOTO325
319 IF A>=B(2) AND A<=B(2)+25 THEN A=A-B(2)+A(2):GOTO325
320 IF A>=B(3) AND A<=B(3)+9  THEN A=A-B(3)+A(3):GOTO325
321 J=4
322 IF A=B(J) THEN A=A(J):GOTO325
323 IF J<41 THEN J=J+1:GOTO322
324 A=0
325 POKE I,A
326 NEXT:PRINT"[218]EIT: ";LEFT$(TI$,2);":";MID$(TI$,3,2);":";RIGHT$(TI$,2)
327 PRINT"[205]ASTERTEXTDISKETTE EINLEGEN."
328 PRINT"[206]AME DES KONVERTIERTEN [212]EXTES: ";:GOSUB60
329 IF A$="$" THEN PRINT"":(null):GOTO328
330 A$=LEFT$(A$+"               ",15)+"K"
331 (null):OPEN2,8,2,A$+",P,W"
332 IF DS<>0 THEN GOSUB 70:IF G$="J" THEN (null)(A$):GOTO331
333 IF DS<>0 THEN GET(null) G$:GOTO327
334 PRINT:PRINT"[145][212]EXT WIRD GESCHRIEBEN:"
335 PRINT#2,CHR$(0);CHR$(4);
336 FORI=10600TOZ
337 PRINT"[145]";Z-I;"[157] "
338 A=PEEK(I):IF A=0 THEN 340
339 PRINT#2,CHR$(A);
340 NEXT
341 CLOSE2
342 GOTO12