Bacon manual translated into German

[juppel]

good evening
I once translated the documentation of Bacon Basic into German. Where Libreoffice has destroyed some formatting, since I have saved it first in html. here first a preliminary version. If there is interest I correct further. The google translator helped me.

many Greetings
juppel

EDIT: Korrektur 03.06.19 Bacon-Handbuch.odt (107.77 KB)Dokument Version 3.9.1

[vovchik]

Lieber juppel,

Besten Dank! Es kann nicht schaden um Bacon zu popularisieren. Falls ich eventuell Zeit hab', eines Tages werd' ich auch ukrainische und russische Versionen zusammenbasteln. Danke nochmals.

mfG,
vovchik

[Pjot]

Vielen Dank Juppel,

Das muss eine Grosse Aufgabe gewesen sein! Aber es ist eine Ehre, jetzt auch eine deutsche Übersetzung zu haben.

Nochmals vielen Dank!
Peter

[ptitjoz]

Hallo juppel

Hervorragende und lange Arbeit! Herzlichen Glückwunsch !
Ich habe in der Schule ein bisschen Deutsch gelernt, aber alles vergessen.

I find that the translation tool you are using does not translate the code correctly.

Few examples

CODE	English	German (your translate)
COS(x)	PRINT COS(RAD(45))	PRINTKOSTEN(RAD(45))
COUNT	COUNT	ANZAHL
CHR$	LET a$ = CHR$(0x23) PRINT a$	LET a$ = CHR$(0x23) PRINT ein$

and there are many more ...

Please, can you check? thank you in advance.

with my best regards

[juppel]

Hello
Danke! Ich habe es nochmal überprüft. Falls jemand noch Fehler findet, gerne melden ich werde diese korrigieren!

Thank you! I checked it again. If someone still finds errors, I will gladly correct them!

[ptitjoz]

Hello juppel

Great I will watch! You should edit your first message and put in your new version.

I will include your translations in my database for multilingual documentation that I do here . (but the software is not ready yet)

it will be better than the online translation tools.

see you soon

[alexfish]

Hi Juppel

Interesting

Suppose from a stand point if we are stuck with English as a per say as a language as much of what C syntax is

Then Basic as in a language as in languages like 'For t = 1 to 100'

then zum can be defined in c as

#define ZUM for

Us old dogs believe in one thing

Computers need a language other than ASM ,, now as children we all speak native

and if WHILE LOOP =

WHILE-SCHLEIFE

can say in c define = this is :what that does and so does this.

Nice work and hope others can understand the actual meaning of basic @ 'Beginners'

we all start some there and do not need some idiotic or NUTTY professor to say : something is the we we do it and it MUST BE

when as a person does not understand the ' something is the we we do it'

but this means the same 'Etwas ist das, was wir tun'

BR
Alex


wewe 'wee wee' has a special meaning in English

and it is not a greating

[juppel]

Hello friends of the basics
here for fun, a little code. This can convert Bacon Source into German Source or German Source to Bacon. Thanks for the inspiration alexfish!



'********************************************************
'* PROGRAM:     bacon_to_de *
'* PURPOSE:     translates your source into german     *
'* source language. *
'* *
'* *
'* *
'* AUTHOR:       juppel *
'* DEPENDS:       *
'* DATE:         25-05-2019 *
' *******************************************************

IF INSTR(ARGUMENT$, " ") THEN
Datei$ = TOKEN$(ARGUMENT$, 2)
END IF

language$="de"


' Define statements english
CONST Command_en$ = "ALARM|ALIAS|APPEND|APPENDING|ARRAY|AS|ASSOC|BACK|BACONLIB|BAPPEND|BASE|BG|BLACK|BLUE|BREAK|" \
"BROADCAST|BSAVE|BY|CALL|CASE|CATCH|CHANGEDIR|CHUNK|CLASS|CLEAR|CLOSE|CMODE|COLLAPSE|COLOR|COMPARE|COMPILER|" \
"CONST|CONTINUE|COPY|CURRENT|CURSOR|CYAN|DATA|DECLARE|DECR|DEF|DEFAULT|DELETE|DELIM|DEVICE|DIRECTORY|DO|" \
"DONE|DOTIMES|DOWN|DOWNTO|DQ|ELIF|ELSE|END|ENDCLASS|ENDENUM|ENDFORK|ENDFUNCTION|ENDIF|ENDRECORD|ENDSELECT|ENDSUB|" \
"ENDUSEC|ENDUSEH|ENDWITH|ENUM|EPRINT|EQ|EXIT|EXPLICIT|FG|FI|FILE|FN|FOR|FORMAT|FORWARD|FRAMEWORK|FREE|" \
"FROM|FUNCTION|GE|GETBYTE|GETFILE|GETLINE|GLOBAL|GOSUB|GOTO|GOTOXY|GREEN|GT|IF|IMODE|IMPORT|IN|INCLUDE|" \
"INCR|INPUT|INTENSE|INTERNATIONAL|INVERSE|IS|ISNOT|JOIN|LABEL|LDFLAGS|LE|LET|LIBRARY|LMODE|LOCAL|LOOKUP|" \
"LT|MAGENTA|MAKEDIR|MAP|MEMREWIND|MEMSTREAM|MEMTYPE|MONITOR|MULTICAST|NE|NETWORK|NEXT|NORMAL|OFF|OFFSET|" \
"OMODE|ON|OPEN|OPTION|OPTIONS|OTHER|PARSE|POKE|PRAGMA|PRINT|PROPER|PROTO|PULL|PUSH|PUTBYTE|PUTLINE|QUOTED|" \
"RE|READ|READING|READLN|READWRITE|RECEIVE|RECORD|RECURSIVE|RED|REDIM|RELATE|RENAME|REPEAT|RESET|RESIZE|" \
"RESTORE|RESUME|RETURN|REWIND|RUN|SAVE|SCROLL|SCTP|SEED|SEEK|SELECT|SEND|SERVER|SETENVIRON|SETSERIAL|SIGNAL|" \
"SIZE|SLEEP|SOCKET|SORT|SPEED|SPLIT|START|STARTPOINT|STATIC|STEP|STOP|SUB|SWAP|SYSTEM|TCP|TEXTDOMAIN|THEN|" \
"TLS|TO|TRACE|TRAP|TYPE|UDP|UNTIL|UP|USEC|USEH|UTF8|VAR|VARTYPE|WEND|WHENCE|WHILE|WHITE|WITH|WRITELN|WRITING|" \
"YELLOW | ABS|ACOS|ADDRESS|ALIGN\\$|AMOUNT|AND|APPEND\\$|ASC|ASIN|ATN|ATN2|B64DEC\\$|B64ENC\\$|BASENAME\\$|" \
"BETWEEN|BIN\\$|BIT|BLOAD|BYTELEN|CEIL|CA\\$|CN\\$|CHANGE\\$|CHOP\\$|CHR\\$|CIPHER\\$|CMDLINE|COLUMNS|CONCAT\\$|COS|COUNT|" \
"CURDIR\\$|CUT\\$|DAY|DEC|DEG|DEL\\$|DELIM\\$|DIRNAME\\$|ENDFILE|EQUAL|ERR\\$|ERROR|EVAL|EVEN|EXCHANGE\\$|EXCL|EXEC\\$|" \
"EXP|EXPLODE\\$|EXTRACT\\$|FILEEXISTS|FILELEN|FILETIME|FILETYPE|FILL\\$|FIRST\\$|FLATTEN\\$|FLOOR|FORK|FP|" \
"GETENVIRON\\$|GETKEY|GETPEER\\$|GETX|GETY|HASH|HEAD\\$|HEX\\$|HOST\\$|HOSTNAME\\$|HOUR|IIF|IIF\\$|INBETWEEN\\$|" \
"INSERT\\$|INSTR|INSTRREV|INT|INTL\\$|ISASCII|ISFALSE|ISKEY|ISTOKEN|ISTRUE|ISUTF8|LAST\\$|LCASE\\$|LEFT\\$|LEN|LOAD\\$|" \
"LOG|MAX|MAX\\$|MAXNUM|ME\\$|MEMCHECK|MEMORY|MEMTELL|MERGE\\$|MID\\$|MIN|MIN\\$|MINUTE|MOD|MONTH|MONTH\\$|MYPID|" \
"NNTL\\$|NOT|NOW|NRKEYS|OBTAIN\\$|ODD|OR|OS\\$|OUTBETWEEN\\$|PEEK|POW|PROPER\\$|RAD|RANDOM|REALPATH\\$|REAP|" \
"REGEX|REPLACE\\$|REV\\$|REVERSE\\$|RIGHT\\$|RND|ROL|ROR|ROTATE\\$|ROUND|ROWS|RUN\\$|SEARCH|SECOND|SGN|SIN|SIZEOF|" \
"SORT\\$|SPC\\$|SQR|STR\\$|SUM|SUMF|TAB\\$|TAIL\\$|TALLY|TAN|TELL|TIMER|TIMEVALUE|TOKEN\\$|TYPEOF\\$|UCASE\\$|UCS|" \
"ULEN|UNFLATTEN\\$|UNIQ\\$|UTF8\\$|VAL|VERIFY|WAIT|WEEK|WEEKDAY\\$|YEAR|FALSE|TRUE|PI|MAXRANDOM|RETVAL|REGLEN|LINENO|NL\\$|CR\\$|" \
"EL\\$|CL\\$|VERSION\\$|ARGUMENT\\$|SOURCE\\$|NULL|" \
"NUMBER|STRING|FLOATING|FILE|int|double|float|long|char|short|void|signed|unsigned|static|number|string|floating|volatile|" \
"struct|extern|public|private|virtual"

' Define statements deutsch
CONST Command_de$ = "ALARM|ALIAS|ANFÜGEN|ANHÄNGEN|FELD|ALS|ASSOZ|ZURÜCK|BACONBIB|BANFÜGEN|BASIS|HG|SCHWARZ|BLAU|UNTERBRECHUNG|" \
"ÜBERTRAGUNG|BSPEICHERN|DURCH|AUFRUF|FALL|FANGE|ÄNDEREVERZEICHNIS|STÜCK|KLASSE|LEEREN|SCHLIEßE|STEUERUNGSMODUS|AUSEINANDERBRECHEN|FARBE|VERGLEICH|KOMPILER|" \
"KONST|FORTSETZEN|KOPIEREN|DERZEIT|CURSOR|ZYAN|DATEN|DEKLARIEREN|DEKR|DEF|STANDARD|LÖSCHE|TRENNZEICHEN|GERÄT|VERZEICHNIS|MACH|" \
"FERTIG|RUNDEN|RUNTER|RUNTERZU|DQ|SONSTWENN|SONST|ENDE|ENDEKLASSE|ENDEAUFZÄHLUNG|ENDEABSPALTUNG|ENDEFUNKTION|ENDEWENN|ENDEAUFNAHME|ENDEWÄHLE|ENDEUNTERPROGRAMM|" \
"ENDUSEC|ENDUSEH|ENDEBREITE|AUFZÄHLUNG|EAUSGABE|EQ|VERLASSE|EXPLICIT|VG|FI|DATEI|FN|FÜR|FORMAT|VORWÄRTS|RAHMEN|FREIGEBEN|" \
"VON|FUNKTION|GE|ERHALTEBYTE|ERHALTEDATEI|ERHALTEZEILE|GLOBAL|SPRINGEZUUNTERPROGRAMM|SPRINGEZU|SPRINGEZUXY|GRÜN|GT|WENN|IMODUS|IMPORTIEREN|IN|EINSCHLIEßEN|" \
"INKR|EINGANG|INTENSIVE|INTERNATIONAL|UMGEKEHRT|IST|ISTNICHT|FÜGE|MARKE|LDFLAGS|LE|LASSE|BIBLIOTHEK|LMODUS|LOKAL|SCHLAGENACH|" \
"LT|MAGENTA|ERSTELLEVERZEICHNIS|ORDNEZU|ZUMSPEICHERANFANG|MEMSTREAM|MEMTYPE|BILDSCHIRM|MULTICAST|NE|NETZWERK|NÄCHSTE|NORMAL|AUS |AUSGLEICH|" \
"OMODE|ON|ÖFFNE|OPTION|OPTIONS|ANDERE|PARSE|STOßE|PRAGMA|AUSGABE|PROPER|PROTO|SETZ|SCHIEB|AUSBYTE|SCHREIBEZEILE|QUOTED|" \
"RE|LESEEIN|LESEN|LESE|LESENSCHREIBEN|ERHALTE|RECORD|REKURSIVE|ROT|REDIM|ZUORDNEN|UNBENENNEN|WIEDERHOLE|RÜCKSETZEN|GRÖßEÄNDERN|" \
"WIEDERHERSTELLEN|FORTSETZEN|RÜCKKEHR|ANFANGDATEI|STARTE|SPEICHERE|SCROLL|SCTP|SEED|SETZ|WÄHLE|SENDE|SERVER|SETENVIRON|SETSERIAL|SIGNAL|" \
"GRÖßE|SCHLAFE|SOCKET|SORTIERE|SPEED|SPLITTE|START|STARTPUNKT|STATIC|SCHRITT|STOP|UNTERPROGRAMM|TAUSCH|SYSTEM|TCP|TEXTDOMAIN|DANN|" \
"TLS|ZU|ZEILE|FANG|TYPE|UDP|BIS|AUF|USEC|USEH|UTF8|VAR|VARTYPE|VERBLEIBE|WHENCE|SOLANGE|WEIß|MIT|SCHREIBE|SCHREIBEN|" \
"GELB | ABS|ACOS|ADDRESS|ALIGN\\$|AMOUNT|UND|ANHÄNGEN\\$|ASC|ASIN|ATN|ATN2|B64DEC\\$|B64ENC\\$|BASISNAME\\$|" \
"BETWEEN|BIN\\$|BIT|BLOAD|BYTELEN|CEIL|CA\\$|CN\\$|CHANGE\\$|CHOP\\$|CHR\\$|CIPHER\\$|CMDLINE|COLUMNS|CONCAT\\$|COS|COUNT|" \
"ZEIGEVERZEICHNIS\\$|SCHNEIDE\\$|TAG|DEC|DEG|LÖSCHE\\$|DELIM\\$|PFADNAME\\$|ENDEDATEI|EQUAL|FEHL\\$|FEHLER|EVAL|EVEN|AUSTAUSCH\\$|EXCL|STARTE\\$|" \
"EXP|EXPLODE\\$|EXTRACT\\$|DATEIVORHANDEN|DATEILÄNGE|DATEIZEIT|DATEITYP|FÜLLE\\$|ERSTE\\$|FLATTEN\\$|FLOOR|ABSPALTUNG|FP|" \
"GETENVIRON\\$|GETKEY|GETPEER\\$|GETX|GETY|HASH|HEAD\\$|HEX\\$|HOST\\$|HOSTNAME\\$|HOUR|IIF|IIF\\$|INBETWEEN\\$|" \
"INSERT\\$|INSTR|INSTRREV|INT|INTL\\$|ISASCII|ISFALSE|ISTTASTE|ISTOKEN|ISTRUE|ISUTF8|LETZTE\\$|KLEISCHREIBUNG\\$|LINKS\\$|LÄNGE|LADE\\$|" \
"LOG|MAX|MAX\\$|MAXNUM|ME\\$|MEMCHECK|MEMORY|MEMTELL|MERGE\\$|MID\\$|MIN|MIN\\$|MINUTE|MOD|MONTH|MONTH\\$|MYPID|" \
"NNTL\\$|NICHT|JETZT|NRKEYS|OBTAIN\\$|ODD|ODER|OS\\$|OUTBETWEEN\\$|SPÄHEN|POW|PROPER\\$|RAD|ZUFALL|ABSOLUTVERZEICHNIS\\$|REAP|" \
"REGEX|ERSETZE\\$|REV\\$|REVERSE\\$|RECHTS\\$|RND|ROL|ROR|ROTATE\\$|ROUND|ROWS|RUN\\$|SUCHE|SEKUNDE|SGN|SIN|SIZEOF|" \
"SORTIERE\\$|SPC\\$|SQR|STR\\$|SUM|SUMF|TAB\\$|TAIL\\$|TALLY|TAN|TELL|ZEITZÄHLER|ZEITRAUM|TOKEN\\$|TYPEOF\\$|GROßBUCHSTABEN\\$|UCS|" \
"ULEN|UNFLATTEN\\$|UNIQ\\$|UTF8\\$|VAL|VERIFY|WARTE|WOCHE|WOCHENTAG\\$|JAHR|UNWAHR|WAHR|PI|MAXZUFALL|RETVAL|REGLEN|ZEILENNR|NL\\$|CR\\$|" \
"EL\\$|CL\\$|VERSION\\$|ARGUMENT\\$|SOURCE\\$|NULL|" \
"NUMMER|STRING|FLOATING|DATEI|int|double|float|long|char|short|void|signed|unsigned|static|number|string|floating|volatile|" \
"struct|extern|public|private|virtuell"

IF Datei$="" THEN
FOR var$ IN Command_en$ STEP "|"
PRINT var$
NEXT
PRINT "keine Datei angegeben, mehrere Dateien können angegeben werden (a.bac b.bac c.bac)"
END
ENDIF

z=AMOUNT(Command_de$, "|")

FOR I=1 TO z
PRINT TOKEN$(Command_en$, I, "|"), TAB$(3), TOKEN$(Command_de$, I, "|")
NEXT


FOR var$ IN Datei$
source$ = LOAD$(var$)
FOR I=1 TO z
en$=TOKEN$(Command_en$, I, "|")
de$=TOKEN$(Command_de$, I, "|")
source$=REPLACE$(source$, en$, de$)
NEXT I
SAVE source$ TO var$ & "." & language$
NEXT

'FROM english to german
'FOR var$ IN Datei$
' source$ = LOAD$(var$)
' FOR I=1 TO z
' en$=TOKEN$(Command_en$, I, "|")
' de$=TOKEN$(Command_de$, I, "|")
' source$=REPLACE$(source$, de$, en$)
' NEXT I
' SAVE source$ TO var$ & "." & language$
'NEXT




    for example:(Beispiel)
AUSGABE "Hallo Welt"
SOLANGE Z>10 MACH
Z=Z+1
VERBLEIBE

zu:
PRINT "Hallo Welt"
WHILE Z>10 DO
Z=Z+1
WEND
it is not easy to translate the commandos analogously

best regards
juppel

[ptitjoz]

May 25, 2019 15:56:29 GMT 1 juppel said:

[..]
it is not easy to translate the commandos analogously

I agree with you !

otherwise in your documentation I noticed a small error.
you wrote NEXT [x]
Type: Anweisung
and it was
CONTINUE[x]

Best regards