|
Post by juppel on May 6, 2019 21:54:06 GMT 1
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
|
|
|
Post by vovchik on May 6, 2019 22:32:05 GMT 1
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
|
|
|
Post by Pjot on May 7, 2019 19:29:38 GMT 1
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
|
|
|
Post by ptitjoz on May 18, 2019 8:55:14 GMT 1
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
|
|
|
Post by juppel on May 19, 2019 12:04:30 GMT 1
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!
|
|
|
Post by ptitjoz on May 19, 2019 21:06:06 GMT 1
Hello juppelGreat 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
|
|
|
Post by alexfish on May 21, 2019 1:42:45 GMT 1
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
|
|
|
Post by juppel on May 25, 2019 15:56:29 GMT 1
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
|
|
|
Post by ptitjoz on May 25, 2019 17:30:52 GMT 1
[..] 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
|
|