100 REM  KONVERTER FUER DEN VT
110 REM  ---------------------
120 REM  WANDELT DATENFILES IN DAS
130 REM  FORMAT DES VT UM
140 REM
150 REM  ACHTUNG:
160 REM  UM DAS PROGRAMM NICHT UNNOETIG
170 REM  ZU KOMPLIZIEREN, WURDE AUF
180 REM  JEGLICHE FEHLERABFRAGE VER-
190 REM  ZICHTET.
200 REM
210 REM  GESCHRIEBEN IM DEZEMBER 1986
220 REM  VON OLIVER KRAUS
230 REM  (C) BY OLIVER KRAUS
240 REM
1000 REM
1010 REM INITIALISIERUNG
1020 REM ---------------
1030 GOSUB6000  :REM DATAS EINLESEN
1040 POKE 56,144:REM SPEICHER AUF $9000
1050 CLR
1052 K=51200    :REM KONVERTER ROUTINE
1054 S=51203    :REM SAVE ROUTINE
1060 POKE53280,0:REM RAHMENFARBE
1070 POKE53281,0:REM HINTERGRUNDFARBE
1071 POKE247,0  :REM VOKABELSTART LO
1072 POKE248,144:REM VOKABELSTART HI
1075 :
1080 PRINTCHR$(14) :REM KLEINBUCHSTABEN
1090 PRINTCHR$(5)  :REM SCHRIFT:WEISS
1110 PRINT"[147][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164]";
1120 PRINT"    [203]ONVERTER FUER DEN [214]OKABELTRAINER   [146]"
1125 :
1130 PRINT "[196]ATAINAME DES ZU KONVERTIERENDEN"
1140 INPUT "[208]ROGRAMMS";N$
1150 INPUT "[199]ERAETEADRESSE (1,7,8)";GA
1160 IF GA<>1 AND GA<>7 AND GA <>8 THEN GOTO 1150
1170 IF GA=8 THEN N$=N$+",S,R"
1180 IF GA=1 OR GA=7 THEN SA=0
1190 IF GA=8 THEN SA=2
1200 OPEN1,GA,SA,N$
2000 REM
2010 REM  DATEI EINLESEN
2020 REM  --------------
2030 REM
2035 PRINT"[196]ATEI WIRD EINGELESEN"
2040 INPUT#1,N:DIM D$(N),E$(N)
2050 FOR I=1 TO N
2060 INPUT#1,D$(I)
2070 INPUT#1,E$(I)
2080 NEXTI
2090 CLOSE1
2100 PRINT"[196]ATEI WIRD KONVERTIERT"
2200 REM
2210 REM-------------------------------
2220 REM
2230 REM  DATEI KONVERTIEREN
2240 REM  ------------------
2250 REM  DEUTSCHE WOERTER SORTIERT
2260 REM
2270 REM FOR I=1 TO N
2280 REM D$=LEFT$(D$(I),LEN(D$(I))-5)
2290 REM EN=VAL(RIGHT$(D$(I),4))-1000
2300 REM E$=LEFT$(E$(EN),LEN(E$(EN))-5)
2310 REM SYS K,E$,D$,"",""
2320 REM NEXTI
2330 REM
2400 REM
2410 REM-------------------------------
2420 REM
2430 REM  DATEI KONVERTIEREN
2440 REM  ------------------
2450 REM  ENGLISCHE WOERTER SORTIERT
2460 REM
2470 FOR I=1 TO N
2480 E$=LEFT$(E$(I),LEN(E$(I))-5)
2490 DN=VAL(RIGHT$(E$(I),4))-1000
2500 D$=LEFT$(D$(DN),LEN(D$(DN))-5)
2510 SYS K,E$,D$,"",""
2520 NEXTI
2530 REM
2990 REM-------------------------------
5000 REM
5010 REM
5020 REM  NEUE DATEI ABSPEICHERN
5030 REM  ----------------------
5040 REM
5050 INPUT"[206]EUER [206]AME";N$
5060 IF GA=8 THEN N$=N$+",S,W"
5070 IF GA=1 OR GA=7 THEN SA=1
5080 IF GA=8 THEN SA=2
5090 OPEN1,GA,SA,N$
5095 PRINT"[196]ATEI WIRD ABGESPEICHERT"
5100 SYS S   :REM SAVE PROGRAMM
5110 CLOSE1
5120 END
6000 REM
6010 REM DATAS
6020 REM -----
6030 A=51200:B=51719:PRINT"[147]"
6040 FORI=ATOB:READQ:POKEI,Q:NEXTI
6050 RETURN
6100 REM----MAS.PRG.----
6101 DATA76,6,200,76,112,200,160,0,140,193,201,140,194,201,32,172,201,32,192
6102 DATA200,32,232,200,169,3,145,247,32,192,200,32,242,200,169,4,141,251
6103 DATA201,32,253,174,32,158,173,36,13,48,3,76,153,173,32,166,182,170,160
6104 DATA0,232,202,240,10,177,34,153,211,201,200,192,36,208,243,169,0,153
6105 DATA211,201,32,119,201,206,251,201,208,210,32,232,200,160,0,173,194,201
6106 DATA240,6,32,192,200,140,194,201,152,145,247,173,193,201,145,249,32,242
6107 DATA200,96,32,154,201,32,242,200,32,192,200,32,172,201,162,1,32,201,255
6108 DATA144,8,160,0,32,47,241,76,116,164,32,252,200,32,232,200,160,0,177
6109 DATA247,32,242,200,32,210,255,176,230,165,144,41,191,208,224,32,225,255
6110 DATA240,219,32,192,200,165,247,197,249,208,221,165,248,197,250,208,215
6111 DATA169,0,32,210,255,32,204,255,96,230,247,208,2,230,248,165,248,201
6112 DATA192,208,6,169,208,133,248,208,17,165,248,201,255,208,11,165,247,201
6113 DATA128,208,5,238,193,201,56,96,238,193,201,24,96,72,165,1,120,41,248
6114 DATA133,1,104,96,72,165,1,9,7,133,1,88,104,96,160,0,169,0,133,247,169
6115 DATA144,133,248,140,194,201,96,170,32,192,200,202,208,250,96,160,0,140
6116 DATA190,201,140,191,201,174,194,201,240,7,10,46,191,201,202,208,249,141
6117 DATA190,201,174,194,201,177,247,61,195,201,13,190,201,145,247,224,2,144
6118 DATA18,32,192,200,174,194,201,160,0,177,247,61,203,201,13,191,201,145
6119 DATA247,173,194,201,24,105,6,41,7,141,194,201,152,96,201,65,144,8,201
6120 DATA91,176,4,56,233,54,96,162,11,221,251,201,240,5,202,208,248,240,2
6121 DATA138,96,56,233,156,96,32,232,200,162,0,189,211,201,240,17,142,192
6122 DATA201,32,89,201,41,63,32,18,201,174,192,201,232,208,234,169,63,32,18
6123 DATA201,76,242,200,32,252,200,32,232,200,177,247,240,5,32,10,201,144
6124 DATA247,76,242,200,165,247,133,249,165,248,133,250,96,165,249,133,247
6125 DATA165,250,133,248,96,0,0,0,0,0,192,129,3,7,15,31,63,127,255,255,255
6126 DATA254,252,248,240,224,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
6127 DATA0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,32,64,44,46,58,59,45,92,47,33
6128 DATA140,170