diff --git a/.gitattributes b/.gitattributes
index f4234dc..207d5af 100644
--- a/.gitattributes
+++ b/.gitattributes
@@ -6,10 +6,11 @@
 
 *.bat     text eol=crlf
 *.TXT     text eol=crlf
-DATA.DAT  text eol=crlf
+*.txt     text
 
 *.MAP     binary
 *.DAT     binary
+*.BAS     binary
 *.dat     binary
 *.dmp     binary
 COLOR.TXT binary
diff --git a/data/BALLER.BAS b/data/BALLER.BAS
index 206b7ed..b8b9b0b 100644
Binary files a/data/BALLER.BAS and b/data/BALLER.BAS differ
diff --git a/data/BALLER.TXT b/data/BALLER.TXT
new file mode 100644
index 0000000..61c48cf
--- /dev/null
+++ b/data/BALLER.TXT
@@ -0,0 +1,80 @@
+5 CROFF 
+10 COL 0,$e6,0
+15 CLS 
+20 TLOAD 2,"fontkc.dat",16,11
+30 STILE 2
+32 TLOAD 15,"man.dat",1,1
+35 MBOUND 0,463,623,463
+37 MOUSE 1,1
+40 f(0)=$e6
+50 f(1)=0
+60 f(2)=$56
+70 e=50
+80 p=0
+100 SID WAVE(1,4)
+200 SID ADSR(1,1,0,15,10)
+1000 a(0)=32
+1010 a(1)=165
+1020 b(0)=32
+1030 b(1)=12
+1040 b(2)=13
+1050 c=20:REM            cursor
+1100 s=0
+1200 GOSUB 6000
+2000 k=MB (0)
+2010 c=MGET (1)
+2100 REM           ziel darstellen
+2130 IF t(3)=0 THEN GOSUB 6000
+2140 IF TIMER c(1)=1 THEN t(4)=0
+2150 IF t(4)=0 THEN TILE 32,$e6,0,0,t(1),t(2)
+2160 IF t(4)=0 THEN t(3)=0
+2170 IF k=255 THEN GOSUB 10000
+2230 IF s<0 THEN s=0
+3000 GOTO 2000
+5000 REM           
+5020 s=s-1
+5030 IF s<0 THEN RETURN 
+5040 TILE 124,f(0),f(1),f(2),d,s
+5080 IF d=t(1)   AND s=t(2) THEN t(3)=0
+5085 TILE 32,f(0),f(1),f(2),d,s
+5090 IF t(3)=0 THEN SID NT(1,50)
+5100 IF t(3)=0 THEN s=-1
+5110 IF t(3)=0 THEN p=p+1
+5120 IF t(3)=0 THEN e=e-1
+5125 IF t(3)=0 THEN GOSUB 7000
+5130 IF e=0 THEN GOTO 8000
+5140 SID NT(1,0)
+5900 GOTO 5000
+6000 t(1)=FN INT(RND (38))
+6010 t(2)=FN INT(RND (24))+2
+6020 TILE 128,$e6,0,0,t(1),t(2)
+6030 t(3)=1
+6040 TIMER s(1,15)
+6050 t(4)=1
+6900 RETURN 
+7000 POS 0,0
+7010 PRINT "Punkte:";p;TAB (12);"Feinde:";e;" ";TAB (24);"Schuss:";m
+7900 RETURN 
+8000 REM           ende
+8010 CLS :SID NT(1,0)
+8020 x=m-50
+8030 IF !x<5 THEN #a="Superschuetze"
+8040 IF !x>4 THEN #a="sehr guter Schuetze"
+8050 IF !x>8 THEN #a="guter Schuetze"
+8060 IF !x>10 THEN #a="maessiger Schuetze"
+8070 IF !x>15 THEN #a="lausiger Schuetze"
+8080 IF !x>19 THEN #a="absoluter Blindgaenger"
+8100 PRINT "Sie haben alle Feinde vernichtet."
+8110 PRINT "und haben dafuer ";m;" Schuss"
+8120 PRINT "benoetigt!"
+8130 PRINT "Sie sind ein ";#a
+8200 MOUSE 0,0
+8500 END 
+10000 SID NT(1,75):SID NT(1,0)
+10010 IF s=0 THEN d=c
+10020 IF s=0 THEN s=29
+10030 IF s=29 THEN GOSUB 5000
+10040 m=m+1
+10050 GOSUB 7000
+10060 RETURN 
+
diff --git a/data/BENCH.BAS b/data/BENCH.BAS
new file mode 100644
index 0000000..9b8eb91
Binary files /dev/null and b/data/BENCH.BAS differ
diff --git a/data/BENCH8.BAS b/data/BENCH8.BAS
index a37b03d..b115295 100644
Binary files a/data/BENCH8.BAS and b/data/BENCH8.BAS differ
diff --git a/data/DATA1.BAS b/data/DATA1.BAS
deleted file mode 100644
index be83aba..0000000
Binary files a/data/DATA1.BAS and /dev/null differ
diff --git a/data/DEMO.BAS b/data/DEMO.BAS
index c5dfa21..7641d48 100644
Binary files a/data/DEMO.BAS and b/data/DEMO.BAS differ
diff --git a/data/Errors.txt b/data/Errors.txt
index e7b1099..f1b880f 100644
--- a/data/Errors.txt
+++ b/data/Errors.txt
@@ -37,7 +37,7 @@ Missing Point !
 <Key? / ESC >
 File-Read-Error !
 Missing  Equal Sign !
-* Vers.2.20-05/2014 *
+* Vers.2.30-05/2014 *
 F1HELP F2LOAD F3SAVE F4DIR F5RUN F6LIST
 -Basic-Bytes-Free *
  Datei(en)
diff --git a/data/FN.TXT b/data/FN.TXT
deleted file mode 100644
index e69de29..0000000
diff --git a/data/HELP/AND b/data/HELP/AND
index 8230098..0a6413b 100644
--- a/data/HELP/AND
+++ b/data/HELP/AND
@@ -1,12 +1,7 @@
-Logical Operators
+Syntax: 
+Operator Description
 
-Syntax:
-Operator
-	Description
-AND
-	True wenn beide [x] und [y] True sind.
-NOT
-	True wenn [x] nicht True ist.
-OR
-	True wenn [x] oder [y] True ist.
+AND True wenn beide [x] und [y] True sind.
+NOT True wenn [x] nicht True ist.
+OR  True wenn [x] oder [y] True ist.
 
diff --git a/data/HELP/ASC b/data/HELP/ASC
index 6096c8b..09f120b 100644
--- a/data/HELP/ASC
+++ b/data/HELP/ASC
@@ -1,5 +1,3 @@
-ASC - STRINGFUNKTION
-
 Syntax:
 ASC (string)
 
diff --git a/data/HELP/BACKUP b/data/HELP/BACKUP
index f4ef23a..1267406 100644
--- a/data/HELP/BACKUP
+++ b/data/HELP/BACKUP
@@ -1,5 +1,3 @@
-BACKUP-Fensterfunktion
-
 Syntax:
 BACKUP x,y,xx,yy,RAM
 
diff --git a/data/HELP/BEEP b/data/HELP/BEEP
index 7e640d0..df60c29 100644
--- a/data/HELP/BEEP
+++ b/data/HELP/BEEP
@@ -1,5 +1,3 @@
-BEEP-SID-Soundfunktionen
-
 Syntax:
 BEEP {<expr>}
 
diff --git a/data/HELP/BIN b/data/HELP/BIN
index ad0ebf9..0a1d02e 100644
--- a/data/HELP/BIN
+++ b/data/HELP/BIN
@@ -1,5 +1,3 @@
-BIN - Ausgabebefehle
-
 Syntax:
 BIN (WERT)
 
diff --git a/data/HELP/BLOAD b/data/HELP/BLOAD
index 018d411..284656b 100644
--- a/data/HELP/BLOAD
+++ b/data/HELP/BLOAD
@@ -1,5 +1,3 @@
-BLOAD - Systembefehle
-
 Syntax:
 BLOAD "Filename"
 
diff --git a/data/HELP/BOX b/data/HELP/BOX
index a3ab6c3..9e2814d 100644
--- a/data/HELP/BOX
+++ b/data/HELP/BOX
@@ -1,12 +1,9 @@
-BOX - GRAFIKFUNKTION
-
 Syntax:
 BOX Farbe,x,y,xx,yy,mode
 
 Zeichnet eine farbige 
 Box von x,y bis xx,yy 
-mit der angegebenen 
-Farbe.
+mit der angegebenen Farbe.
 mode:
 1=mit Schatten
 0=ohne Schatten
diff --git a/data/HELP/BUTTON b/data/HELP/BUTTON
index 7358bc6..5e1cee7 100644
--- a/data/HELP/BUTTON
+++ b/data/HELP/BUTTON
@@ -1,30 +1,17 @@
-BUTTON - Fensterfunktion
-
 Syntax:
 BUTTON <opt>,<expr..expr>
 
-erstellt einen Text oder
-Icon-Button
 opt-t=Text, i=Iconbutton
 
-Textbutton
-(nr,vor,hint,x,y,�Text�)
+Button(nr,vor,hint,x,y,�Text�)
 nr-Button-Nr
 vor-Vordergrundfarbe
 hint-Hintergrundfarbe
 x,y-Position
 Text-Buttontext
 
-Iconbutton
-(tnr,f1,f2,f3,x,y)
+Button(tnr,f1,f2,f3,x,y)
 tnr-Tilenr,das den Button
     darstellt
 f1..f3-Farben des Tiles
 x,y-Position
-
-Bsp.:
-BUTTON t(11,0,33,1,2,�KNOPF�)
-BUTTON i(2,16,$e6,0,250,23,10)
-
-HINWEIS:
-32 Buttons sind erlaubt!
diff --git a/data/HELP/BYE b/data/HELP/BYE
index 8bae7a5..39cd748 100644
--- a/data/HELP/BYE
+++ b/data/HELP/BYE
@@ -1,5 +1,3 @@
-BYE - Systembefehle
-
 Syntax:
 Bye
 
diff --git a/data/HELP/CHDIR b/data/HELP/CHDIR
index 85ec8d6..9ec8b31 100644
--- a/data/HELP/CHDIR
+++ b/data/HELP/CHDIR
@@ -1,10 +1,6 @@
-CHDIR - Dateifunktion
-
 Syntax:
 CHDIR"Name"
 
-Wechselt in das 
-Verzeichnis Name
-CHDIR".." wechselt 
-wieder ins
-Root-Verzeichnis
+Wechselt in das Verzeichnis 
+Name.CHDIR".." wechselt 
+wieder ins Root-Verzeichnis
diff --git a/data/HELP/CHR$ b/data/HELP/CHR$
index c6a2b1f..1c9248a 100644
--- a/data/HELP/CHR$
+++ b/data/HELP/CHR$
@@ -1,10 +1,8 @@
-CHR$ - STRINGFUNKTION
-
 Syntax:
 CHR$ (expr)
 
 Gibt dem Dezimalwert 
-zugeordneten Zeichencode 
-aus.
+zugeordneten Zeichencode aus.
+
 Bsp.: Print chr$(65) 
       gibt ein A aus
diff --git a/data/HELP/CIRC b/data/HELP/CIRC
index fe5e8ca..c87297f 100644
--- a/data/HELP/CIRC
+++ b/data/HELP/CIRC
@@ -1,5 +1,3 @@
-CIRC - GRAFIKFUNKTION
-
 Syntax:
 CIRC <color>,<x>,<y>,<r>
 
diff --git a/data/HELP/CLEAR b/data/HELP/CLEAR
index 6eed1f2..2b9c761 100644
--- a/data/HELP/CLEAR
+++ b/data/HELP/CLEAR
@@ -1,5 +1,3 @@
-CLEAR-Speicherfunktionen
-
 Syntax:
 CLEAR
 
diff --git a/data/HELP/CLOSE b/data/HELP/CLOSE
index f8c3a25..9004234 100644
--- a/data/HELP/CLOSE
+++ b/data/HELP/CLOSE
@@ -1,5 +1,3 @@
-CLOSE-Dateifunktion
-
 Syntax:
 CLOSE
 
diff --git a/data/HELP/CLS b/data/HELP/CLS
index d219a98..d1ece78 100644
--- a/data/HELP/CLS
+++ b/data/HELP/CLS
@@ -1,5 +1,3 @@
-CLS-Bildschirmfunktion
-
 Syntax:
 CLS 
 
diff --git a/data/HELP/COL b/data/HELP/COL
index 1dbed43..c3f53ac 100644
--- a/data/HELP/COL
+++ b/data/HELP/COL
@@ -1,9 +1,6 @@
-COL - BILDSCHIRMFUNKTION
-
 Syntax:
 col<Vor>,<Hinter>,<Cursor>
 
 setzt die Vordergrund, 
 Hintergrund,Cursorfarbe
-
 Werte (0-255)
diff --git a/data/HELP/COM b/data/HELP/COM
index 6cdc505..abece44 100644
--- a/data/HELP/COM
+++ b/data/HELP/COM
@@ -1,5 +1,3 @@
-COM-ser. Schnittstelle
-
 Syntax:
 COM S(on,baud)
 
diff --git a/data/HELP/COMP$ b/data/HELP/COMP$
index 6167dc6..0f28710 100644
--- a/data/HELP/COMP$
+++ b/data/HELP/COMP$
@@ -1,5 +1,3 @@
-COMP$ - Stringfunktion
-
 Syntax:
 COMP$(Str1,Str2) 
 
diff --git a/data/HELP/CROFF b/data/HELP/CROFF
index 362d7d1..308c9f2 100644
--- a/data/HELP/CROFF
+++ b/data/HELP/CROFF
@@ -1,12 +1,4 @@
-CROFF-Bildschirmfunktionen
-
 Syntax:
 CROFF
 
 Cursor ausschalten
-
-HINWEIS:
-Bei der Verwendung der 
-Fensterfunktionen sollte
-der Cursor ausgeschaltet
-sein!
diff --git a/data/HELP/CRON b/data/HELP/CRON
index 7e3dc22..f81e0fc 100644
--- a/data/HELP/CRON
+++ b/data/HELP/CRON
@@ -1,12 +1,4 @@
-CRON-Bildschirmfunktionen
-
 Syntax:
 CRON
 
 Cursor einschalten
-
-HINWEIS:
-Bei der Verwendung der 
-Fensterfunktionen sollte
-der Cursor ausgeschaltet
-sein! ->siehe CROFF
diff --git a/data/HELP/DATA b/data/HELP/DATA
index 3a49251..13799a5 100644
--- a/data/HELP/DATA
+++ b/data/HELP/DATA
@@ -1,5 +1,3 @@
-DATA-Datenfunktion
-
 Syntax:
 DATA expr,expr,expr 
 
@@ -7,5 +5,3 @@ Daten ablegen
 
 Bsp.:
 DATA 23.4,12.9,�FRITZ�
-
-siehe Handbuch
diff --git a/data/HELP/DBUTT b/data/HELP/DBUTT
index 0eaa5cd..117718b 100644
--- a/data/HELP/DBUTT
+++ b/data/HELP/DBUTT
@@ -1,5 +1,3 @@
-DBUTT-BILDSCHIRMFUNKTION
-
 Syntax:
 DBUTT <expr>
 
diff --git a/data/HELP/DEL b/data/HELP/DEL
index 6c7b24f..4e0d6d9 100644
--- a/data/HELP/DEL
+++ b/data/HELP/DEL
@@ -1,5 +1,3 @@
-DEL-Dateifunktion
-
 Syntax:
 DEL "filename"
 
diff --git a/data/HELP/DIM b/data/HELP/DIM
index 8a26613..3c78509 100644
--- a/data/HELP/DIM
+++ b/data/HELP/DIM
@@ -1,12 +1,8 @@
-DIM-Variablenfunktion
-
 Syntax:
 DIM a(expr,expr,expr) 
 
 Array-Feld 
 dimensionieren.
-Bis zu 3 Dimensionen
-sind moeglich.
 
 Bsp.:
 DIM a(20)
@@ -14,5 +10,3 @@ oder
 DIM g(12,8)
 oder
 DIM i(7,7,7)
-
-siehe Handbuch
diff --git a/data/HELP/DIR b/data/HELP/DIR
index e36dfac..bc051a7 100644
--- a/data/HELP/DIR
+++ b/data/HELP/DIR
@@ -1,19 +1,14 @@
-DIR - Dateifunktion
-
 Syntax:
-DIR {x,y,sp,z}
+DIR {sp,z}
 
-Ohne Parameter 
 SD-Verzeichnis anzeigen
 Parameter 
-x,y =Position auf dem 
-     Bildschirm
 sp  =Anzahl Spalten
 z   =Anzahl Zeilen
 
 DIR"EXT",option
-Listet nur die Dateien 
-mit der Endung EXT auf.
+Listet nur die Dateien mit der Endung 
+EXT auf.
 Option kann sein
 1-einfache ausgabe
 2-erweiterte ausgabe
diff --git a/data/HELP/DUMP b/data/HELP/DUMP
index 0baf08e..bdb4b8d 100644
--- a/data/HELP/DUMP
+++ b/data/HELP/DUMP
@@ -1,10 +1,7 @@
-DUMP-Systemfunktion
-
 Syntax:
 DUMP <a>,<b>,<c>
 	
-Anzeige des 
-Speicherinhaltes
+Anzeige des Speicherinhaltes
 Parameter 
 a=Adresse,
 b=Anz.Zeilen,
@@ -15,6 +12,3 @@ c=1 eRam
 
 Bsp.: DUMP $8000,100,0 
 
-Zeigt den Speicher in
-regnatix an ab Adresse
-$8000 mit 100 Zeilen.
diff --git a/data/HELP/EDIT b/data/HELP/EDIT
index 55e8173..dc72f67 100644
--- a/data/HELP/EDIT
+++ b/data/HELP/EDIT
@@ -1,5 +1,3 @@
-EDIT-Systemfunktion
-
 Syntax:
 EDIT Zeilennummer
 
diff --git a/data/HELP/ELSE b/data/HELP/ELSE
index 9723f53..06bd002 100644
--- a/data/HELP/ELSE
+++ b/data/HELP/ELSE
@@ -1,5 +1,3 @@
-IF...THEN...ELSE
-
 Syntax:
 IF <expr> THEN <expr>
 ELSE <expr>
diff --git a/data/HELP/END b/data/HELP/END
index 50d6cd2..9107fab 100644
--- a/data/HELP/END
+++ b/data/HELP/END
@@ -1,5 +1,3 @@
-END
-
 Syntax:
 END
 
diff --git a/data/HELP/FILE b/data/HELP/FILE
index 1f1368a..11174ce 100644
--- a/data/HELP/FILE
+++ b/data/HELP/FILE
@@ -1,5 +1,3 @@
-FILE - Dateifunktionen
-
 Syntax:
 <expr>=FILE
 
diff --git a/data/HELP/FN b/data/HELP/FN
index 9935ea1..344248a 100644
--- a/data/HELP/FN
+++ b/data/HELP/FN
@@ -1,12 +1,8 @@
-FN-Mathematische Funkt.
-
 Syntax:
 FN expr
 
 FN expr fuehrt eine von 
-14 mathematischen
-Funktionen aus. 
-Dabei entspricht expr
-der aufzurufenden
-Funktion.
+18 mathematischen Funktionen 
+aus. Dabei entspricht expr
+der aufzurufenden Funktion.
 (siehe Handbuch)
diff --git a/data/HELP/FONT b/data/HELP/FONT
index 8239f03..22d6900 100644
--- a/data/HELP/FONT
+++ b/data/HELP/FONT
@@ -1,12 +1,6 @@
-FONT - TILE-FUNKTION
-
 Syntax:
-FONT"Text", <col1>,
-     <col2>,<col3>,
-     x,y
+FONT"Text",col1,col2,col3,x,y
 
-Zeigt den Text mit dem
-mit STILE gewaehlten 
-Tilefont mit den Farben 
-col1-3 an Position
-x,y an.
+Zeigt den Text mit dem mit STILE 
+gewaehlten Tilefont mit den 
+Farben col1-3 an Position x,y an.
diff --git a/data/HELP/FOR b/data/HELP/FOR
index 45a0db2..4e2fae8 100644
--- a/data/HELP/FOR
+++ b/data/HELP/FOR
@@ -1,14 +1,5 @@
-FOR...NEXT
-
 Syntax:
 FOR <var> = <expr> TO
    <expr> {STEP <expr>}
 ...
 NEXT <var>
-
-Erstellt eine 
-Programmschleife
-Bsp.:
-10 FOR X = 0 TO 63
-20 PRINT X;
-30 NEXT X
diff --git a/data/HELP/FRAME b/data/HELP/FRAME
index 9bf86aa..2203d78 100644
--- a/data/HELP/FRAME
+++ b/data/HELP/FRAME
@@ -1,9 +1,5 @@
-FRAME - Fensterfunktion
-
 Syntax:
-FRAME <col1>,<col2>,
-      <col3>,<x>,<y>,
-      <xx>,<yy>
+FRAME col1,col2,col3,x,y,xx,yy
 
 Zeichnet einen Doppel-
 rahmen von x,y nach 
diff --git a/data/HELP/FREAD b/data/HELP/FREAD
index a0c2a62..725b334 100644
--- a/data/HELP/FREAD
+++ b/data/HELP/FREAD
@@ -1,10 +1,7 @@
-FREAD-Dateifunktion
-
 Syntax:
 FREAD <var> {, <var>}
 
-Liest Wert aus einer 
-Datei, die zuvor mit
-OPEN geoeffnet wurde
-und uebergibt den 
+Liest Wert aus einer Datei, 
+die zuvor mit OPEN geoeffnet 
+wurde und uebergibt den 
 Wert an eine Variable
diff --git a/data/HELP/FREE b/data/HELP/FREE
index 4538e01..922da8f 100644
--- a/data/HELP/FREE
+++ b/data/HELP/FREE
@@ -1,5 +1,3 @@
-FREE
-
 Syntax:
 PRINT FREE
 
diff --git a/data/HELP/FUNC b/data/HELP/FUNC
index 030b621..ae73204 100644
--- a/data/HELP/FUNC
+++ b/data/HELP/FUNC
@@ -1,16 +1,10 @@
-FUNC-Mathemat. Funkt.
-
 Syntax:
-FUNC name(var1..var4)=
-     [Funktion]
+FUNC name(var1..var4)=[Funktion]
 
-Benutzerfunktion 
-definieren. Bis zu 4
-Variablen koennen ueber-
-geben werden.
+Benutzerfunktion definieren. 
+Bis zu 4 Variablen koennen 
+uebergeben werden.
 
 Bsp.:
 FUNC a(x,y)=[1/(1/x+1/y)]
-c=FUNC(120,180)
-
-(siehe Handbuch)
+c=FUNC a(120,180)
diff --git a/data/HELP/GATTR b/data/HELP/GATTR
index 19fbf6f..df42c01 100644
--- a/data/HELP/GATTR
+++ b/data/HELP/GATTR
@@ -1,11 +1,8 @@
-GATTR - DATEIFUNKTION
-
 Syntax:
 GATTR (expr)
 
-Rueckgabe der 
-Dateiattribute einer
-geoeffneten Datei
+Rueckgabe der Dateiattribute 
+einer geoeffneten Datei
 
 Attribute 0-20
 siehe Handbuch
diff --git a/data/HELP/GDATE b/data/HELP/GDATE
index c034339..8996d7e 100644
--- a/data/HELP/GDATE
+++ b/data/HELP/GDATE
@@ -1,5 +1,3 @@
-GDATE - Datums,-und Zeitfunktionen
-
 Syntax:
 GDATE(expr)
 
diff --git a/data/HELP/GDMP b/data/HELP/GDMP
index 1302211..34824c0 100644
--- a/data/HELP/GDMP
+++ b/data/HELP/GDMP
@@ -1,8 +1,5 @@
-GDMP-SID-Soundfunktionen
-
 Syntax:
 <expr>=GDMP
 
-Gibt die aktuelle 
-Position des DMP-Players
-zurueck.
+Gibt die aktuelle Position 
+des DMP-Players zurueck.
diff --git a/data/HELP/GETX b/data/HELP/GETX
index c38cd1a..ee12d78 100644
--- a/data/HELP/GETX
+++ b/data/HELP/GETX
@@ -1,6 +1,5 @@
-GETX - Bildschirmfunktionen
-
 Syntax:
 <expr>=GETX
 
-Aktuelle Cursorposition in x-Richtung abfragen 
+Aktuelle Cursorposition in x-Richtung 
+abfragen 
diff --git a/data/HELP/GETY b/data/HELP/GETY
index 34f3431..239df40 100644
--- a/data/HELP/GETY
+++ b/data/HELP/GETY
@@ -1,6 +1,5 @@
-GETY - Bildschirmfunktionen
-
 Syntax:
 <expr>=GETY
 
-Aktuelle Cursorposition in y-Richtung abfragen 
+Aktuelle Cursorposition in y-Richtung
+abfragen 
diff --git a/data/HELP/GFILE b/data/HELP/GFILE
index 96366ff..90741ff 100644
--- a/data/HELP/GFILE
+++ b/data/HELP/GFILE
@@ -1,14 +1,10 @@
-GFILE - DATEIFUNKTION
-
 Syntax:
 GFILE<opt>
 
-GFILE ohne Parameter 
-gibt die mit Dir 
-gefundenen Datei-
+GFILE ohne Parameter gibt die
+mit DIR gefundenen Datei-
 eintraege zurueck.
 
-GFILE expr laedt den 
-Dateinamen der Datei-
-Nr:expr in die String-
-Variable #z
+GFILE expr laedt den Dateinamen
+der Datei-Nr:expr in die 
+String-Variable #z
diff --git a/data/HELP/GOSUB b/data/HELP/GOSUB
index e9c5b34..0bab94f 100644
--- a/data/HELP/GOSUB
+++ b/data/HELP/GOSUB
@@ -1,14 +1,5 @@
-GOSUB...RETURN
-
 Syntax:
 GOSUB <expr>
 ...
 RETURN
-Bsp.:
-10 PRINT "START"
-20 GOSUB 50
-30 PRINT "RETURNED"
-40 END
-50 PRINT "IN SUBROUTINE"
-60 RETURN
 
diff --git a/data/HELP/GOTO b/data/HELP/GOTO
index 4a6229e..5053144 100644
--- a/data/HELP/GOTO
+++ b/data/HELP/GOTO
@@ -1,7 +1,6 @@
-GOTO
-
 Syntax:
 GOTO <expr>
+
 Bsp.:
 10 X = X + 1
 20 IF X > 10 THEN GOTO 40
diff --git a/data/HELP/GTIME b/data/HELP/GTIME
index 60acb01..7e60a03 100644
--- a/data/HELP/GTIME
+++ b/data/HELP/GTIME
@@ -1,5 +1,3 @@
-GTIME - Datums,-und Zeitfunktionen
-
 Syntax:
 GTIME(expr)
 
diff --git a/data/HELP/HELP b/data/HELP/HELP
new file mode 100644
index 0000000..f24f30a
--- /dev/null
+++ b/data/HELP/HELP
@@ -0,0 +1,12 @@
+Syntax:
+HELP {Char|Befehl}
+
+HELP ohne Parameter
+zeigt alle verfuegbaren Befehle an
+
+HELP A...Z
+zeigt alle Befehle mit dem Anfangs-
+buchstaben A..Z an
+
+HELP PRINT
+zeigt Hilfe zum Befehl PRINT an.
diff --git a/data/HELP/HEX b/data/HELP/HEX
index 3152e1b..649363a 100644
--- a/data/HELP/HEX
+++ b/data/HELP/HEX
@@ -1,10 +1,9 @@
-HEX - Ausgabebefehle
-
 Syntax:
-BIN (WERT)
+HEX (WERT)
 
 Gibt den Integerwert
 WERT in hexadezimaler
 Form aus
+
 Bsp.:Print HEX(122)
-     ergibt 7A
+     
\ No newline at end of file
diff --git a/data/HELP/HOME b/data/HELP/HOME
index 1abb6c7..a6b8835 100644
--- a/data/HELP/HOME
+++ b/data/HELP/HOME
@@ -1,5 +1,3 @@
-HOME - Bildschirmfunktionen
-
 Syntax:
 HOME
 
diff --git a/data/HELP/IF b/data/HELP/IF
index 1bc0a89..93b7e48 100644
--- a/data/HELP/IF
+++ b/data/HELP/IF
@@ -1,5 +1,3 @@
-IF...THEN
-
 Syntax:
 IF <expr> THEN <expr>
 
diff --git a/data/HELP/INKEY b/data/HELP/INKEY
index a76eb3f..22ade25 100644
--- a/data/HELP/INKEY
+++ b/data/HELP/INKEY
@@ -1,5 +1,3 @@
-INKEY - Eingabebefehle
-
 Syntax:
 <expr>=INKEY
 
diff --git a/data/HELP/INPUT b/data/HELP/INPUT
index 3cbe422..11a7349 100644
--- a/data/HELP/INPUT
+++ b/data/HELP/INPUT
@@ -1,5 +1,3 @@
-INPUT
-
 Syntax:
 INPUT {"<prompt>";} {string} oder <var> {, <var>}
 
diff --git a/data/HELP/INSTR b/data/HELP/INSTR
index 019b70d..892ccd2 100644
--- a/data/HELP/INSTR
+++ b/data/HELP/INSTR
@@ -1,10 +1,7 @@
-INSTR - Stringfunktionen
-
 Syntax:
 INSTR(String1,String2) 
 
-Testet ob String1 in 
-String2 vorhanden ist
-und gibt die Position
-des ersten Auftretens
-zurueck
+Testet ob String1 in String2 
+vorhanden ist und gibt die 
+Position des ersten Auftretens
+zurueck.
diff --git a/data/HELP/JOY b/data/HELP/JOY
index d895d5f..8ec5aeb 100644
--- a/data/HELP/JOY
+++ b/data/HELP/JOY
@@ -1,5 +1,3 @@
-JOY-Eingabebefehle
-
 Syntax:
 A=JOY(1)
 Ruft den aktuellen Wert
diff --git a/data/HELP/LEN b/data/HELP/LEN
index 9fc0a09..f34465f 100644
--- a/data/HELP/LEN
+++ b/data/HELP/LEN
@@ -1,15 +1,6 @@
-LEN - Stringfunktionen
-
 Syntax:
 LEN(string)
 
 LEN(#b)gibt die Laenge
 des Strings #b zurueck	
 
-Strings werden mit Raute
-# gekennzeichnet.
-
-Bsp.: #a="Hallo Welt"
-      a=LEN(#a)        
-->uebergibt die Zahl 10 
-  an die Variable a  
\ No newline at end of file
diff --git a/data/HELP/LINE b/data/HELP/LINE
index 1995857..36bddb1 100644
--- a/data/HELP/LINE
+++ b/data/HELP/LINE
@@ -1,8 +1,5 @@
-LINE - GRAFIKFUNKTION
-
 Syntax:
-LINE <color>,<x>,<y>,
-     <xx>,<yy>
+LINE color,x,y,xx,yy
 
 Zeichnet eine Linie von
 x,y nach xx,yy mit der
diff --git a/data/HELP/LIST b/data/HELP/LIST
index 90f45a2..8f0e2df 100644
--- a/data/HELP/LIST
+++ b/data/HELP/LIST
@@ -1,10 +1,7 @@
-LIST-Systemfunktion
-
 Syntax:
 LIST {<expr> {,<expr>}}
 
 List listet das Programm
 
 List 10,100 listet das 
-Programm von 
-Zeile 10 bis 100 
+Programm von Zeile 10 bis 100 
diff --git a/data/HELP/LOAD b/data/HELP/LOAD
index e62d964..5e8d4f5 100644
--- a/data/HELP/LOAD
+++ b/data/HELP/LOAD
@@ -1,25 +1,12 @@
-LOAD - Systemfunktionen
-
 Syntax:
 LOAD "Dateiname",<opt>
 
-BASIC-Programm in den 
-Speicher laden
-
-Load ohne Parameter 
-laedt die Sicherheits-
-kopie "BAS.TMP", welche
-mit SAVE ohne Parameter
-erzeugt wird. 
-Alternativ kann auch die
-Taste F2 verwendet 
-werden.
-Optionen:
-1-eine Binaerdatei wird
-  geladen und auto-
+Opt:
+1-Datei wird geladen und auto-
   matisch gestartet.
-2-Basic-Programm nach-
-  laden
-3-Basic-Programm nach-
+2-Basic-Programm anhaengen
+3-Basic-Programm ab Zeile
   laden und Programm 
   weiter abarbeiten
+  Load"Name",3(160)
+4-Textdatei importieren
diff --git a/data/HELP/MAP b/data/HELP/MAP
index 8f1fc02..6100f58 100644
--- a/data/HELP/MAP
+++ b/data/HELP/MAP
@@ -1,24 +1,16 @@
-MAP - TILE-FUNKTION
-
 Syntax:
-MAP <opt> ,{"name.dat"}|
-    {<x>,<y>,<xx>,<yy>}
+MAP opt,{"name.dat"}|{x,y,xx,yy}
 
 MAP w,2,2,26,26
-Map werte von Position 
-2,2 bis 26,26 in den 
-ERAM schreiben 
-(alle Tile-Anweisungen 
-werden in den Ram 
-geschrieben)
+Map werte von Position 2,2 bis 
+26,26 in den ERAM schreiben 
 
-MAP s,"Name.dat"
+MAP s"Name.dat"
 Map -werte in die Datei 
 Name.dat schreiben
 
-Map L,"Name.dat"
-Map Name.dat in den Eram 
-schreiben
+Map L"Name.dat"
+Map Name.dat in den Eram schreiben
 
 Map d
 Map anzeigen
diff --git a/data/HELP/MB b/data/HELP/MB
index b2d777f..a568d37 100644
--- a/data/HELP/MB
+++ b/data/HELP/MB
@@ -1,18 +1,12 @@
-MB - Mausfunktionen
-
 Syntax:
 <expr>=MB(<button>)
-
-Gibt zurueck, ob 
-Mausbutton button 
-gedrueckt wird wenn
-ja, Rueckgabe des 
-Wertes 255.
+Gibt zurueck, ob Mausbutton 
+button gedrueckt wird,wenn
+ja, Rueckgabe des Wertes 255.
 
 0 = linke Maustaste
 2 = mittlere Maustaste
 1 = rechte Maustaste
 
-Bei Klick auf einen
-Button, wird dessen Nummer
-zurueckgegeben
+Bei Klick auf einen Button wird
+dessen Nummer zurueckgegeben
diff --git a/data/HELP/MBOUND b/data/HELP/MBOUND
index d78a1af..367f233 100644
--- a/data/HELP/MBOUND
+++ b/data/HELP/MBOUND
@@ -1,9 +1,6 @@
-MBOUND-BILDCHIRMFUNKTION
-
 Syntax:
 MBOUND x,y,xx,yy
 
-Grenzt den Mausbereich 
-ein.Der Mauszeiger kann
-nur im gewaehlten
-Bereich agieren.
+Grenzt den Mausbereich ein.
+Der Mauszeiger kann nur im 
+gewaehlten Bereich agieren.
diff --git a/data/HELP/MGET b/data/HELP/MGET
index f6f79fd..10535ac 100644
--- a/data/HELP/MGET
+++ b/data/HELP/MGET
@@ -1,5 +1,3 @@
-MGET - Mausfunktionen
-
 Syntax:
 <expr>=MGET(<par>)
 
diff --git a/data/HELP/MKDIR b/data/HELP/MKDIR
index 645f617..ce1586e 100644
--- a/data/HELP/MKDIR
+++ b/data/HELP/MKDIR
@@ -1,5 +1,3 @@
-MKDIR - DATEIFUNKTION
-
 Syntax:
 MKDIR"Name"
 
diff --git a/data/HELP/MKFILE b/data/HELP/MKFILE
index 0ee5bee..79dc30e 100644
--- a/data/HELP/MKFILE
+++ b/data/HELP/MKFILE
@@ -1,5 +1,3 @@
-MKFILE - DATEIFUNKTION
-
 Syntax:
 MKFILE�Name"
 
diff --git a/data/HELP/MOUSE b/data/HELP/MOUSE
index 9b41bee..76d7dd1 100644
--- a/data/HELP/MOUSE
+++ b/data/HELP/MOUSE
@@ -1,5 +1,3 @@
-MOUSE-BILDSCHIRMFUNKTION
-
 Syntax:
 MOUSE expr,expr
 
diff --git a/data/HELP/NEW b/data/HELP/NEW
index 4f97888..00c958b 100644
--- a/data/HELP/NEW
+++ b/data/HELP/NEW
@@ -1,10 +1,7 @@
-NEW-Systemfunktion
-
 Syntax:
 NEW
 
-Das NEW Kommando loescht
-das aktuelle Programm
-aus dem Speicher und
-setzt alle Variablen
+Das NEW Kommando loescht das 
+aktuelle Programm aus dem Speicher
+und setzt alle Variablen
 zurueck.
diff --git a/data/HELP/NEXT b/data/HELP/NEXT
index 2c5093a..d72a047 100644
--- a/data/HELP/NEXT
+++ b/data/HELP/NEXT
@@ -5,10 +5,3 @@ FOR <var> = <expr> TO
    <expr> {STEP <expr>}
 ...
 NEXT <var>
-
-Erstellt eine
-Programmschleife
-Bsp.:
-10 FOR X = 0 TO 63
-20 PRINT X;
-30 NEXT X
diff --git a/data/HELP/NOT b/data/HELP/NOT
index 8230098..e242caa 100644
--- a/data/HELP/NOT
+++ b/data/HELP/NOT
@@ -1,12 +1,7 @@
-Logical Operators
-
 Syntax:
-Operator
-	Description
-AND
-	True wenn beide [x] und [y] True sind.
-NOT
-	True wenn [x] nicht True ist.
-OR
-	True wenn [x] oder [y] True ist.
+Operator Description
+
+AND True wenn beide [x] und [y] True sind.
+NOT True wenn [x] nicht True ist.
+OR  True wenn [x] oder [y] True ist.
 
diff --git a/data/HELP/ON b/data/HELP/ON
index ce4bf85..2aa27dd 100644
--- a/data/HELP/ON
+++ b/data/HELP/ON
@@ -4,7 +4,5 @@ Syntax:
 ON <expr> GOTO
 ON <expr> GOSUB
 
-Springt an die mit
-expr uebergebene 
-Programmzeile
-
+Springt an die mit expr 
+uebergebene Programmzeile
diff --git a/data/HELP/OPEN b/data/HELP/OPEN
index e841b1b..5dcd5c0 100644
--- a/data/HELP/OPEN
+++ b/data/HELP/OPEN
@@ -1,8 +1,5 @@
-OPEN-Dateifunktion
-
 Syntax:
-OPEN "<file>", 
-     {R | W | A}
+OPEN "<file>",R | W | A
 
 Oeffnet eine Datei 
 mit Zugriffsoption
diff --git a/data/HELP/PAUSE b/data/HELP/PAUSE
index fa6f93b..0a192e7 100644
--- a/data/HELP/PAUSE
+++ b/data/HELP/PAUSE
@@ -1,5 +1,3 @@
-PAUSE 
-
 Syntax:
 PAUSE <var>
 
diff --git a/data/HELP/PEEK b/data/HELP/PEEK
index b379a51..60a1e27 100644
--- a/data/HELP/PEEK
+++ b/data/HELP/PEEK
@@ -1,5 +1,3 @@
-PEEK - Speicherfunktionen
-
 Syntax:
 PEEK <adr>,<typ>
 
diff --git a/data/HELP/PLAY b/data/HELP/PLAY
index 30ab602..f3dab9c 100644
--- a/data/HELP/PLAY
+++ b/data/HELP/PLAY
@@ -1,9 +1,7 @@
-PLAY-SID-Soundfunktion
-
 Syntax:
 PLAY "DMPFILE" | <expr>
 
-Spielt eine Sid-Dmp-
-Datei ab
+Spielt eine Sid-Dmp-Datei ab
+
 PLAY 1 Player-Pause
 PLAY 0 PLAYER-Stop
diff --git a/data/HELP/PLAYER b/data/HELP/PLAYER
index e0d63a4..9b56950 100644
--- a/data/HELP/PLAYER
+++ b/data/HELP/PLAYER
@@ -1,5 +1,3 @@
-PLAYER-Spielparameter
-
 Syntax:
 PLAYER P(p1....P6)
 PLAYER I(I1...I6)
@@ -7,14 +5,9 @@ PLAYER K(l,r,h,r,f)
 PLAYER B(B1...B10)
 PLAYER C(C1...C6)
 PLAYER E(nr,tnr,f1,f2,f3)
-
 P-Spielerparameter
 I-Itemsettings
 K-Tastenbelegung
 B-Block-Tiles definieren
-C-Kollisions-Tiles defi-
-  nieren
-E-Ersatzitem-Tiles defi-
-  nieren
-
-siehe Handbuch
+C-Kollisions-Tiles definieren
+E-Ersatzitem-Tiles definieren
diff --git a/data/HELP/PLAYXY b/data/HELP/PLAYXY
index 7c44409..18a8755 100644
--- a/data/HELP/PLAYXY
+++ b/data/HELP/PLAYXY
@@ -1,13 +1,6 @@
-PLAYXY-Spielparameter
-
 Syntax:
 PLAYXY(opt)
 
-opt=1
-Kollisionsabfrage
+opt=1 Kollisionsabfrage
 
-opt=2
-Itemabfrage
-
-
-siehe Handbuch
+opt=2 Itemabfrage
diff --git a/data/HELP/POKE b/data/HELP/POKE
index 86cadc2..8aa14fa 100644
--- a/data/HELP/POKE
+++ b/data/HELP/POKE
@@ -1,10 +1,7 @@
-POKE-Speicherfunktionen
-
 Syntax:
 POKE <adr>,<expr>
 
-Schreibt ein Wert expr
-in den eRam an 
-Adresse adr.
-Der Wert kann ein Byte 
-Word oder Long sein.
+Schreibt ein Wert expr in den ERam
+an Adresse adr.
+Der Wert kann ein Byte Word oder 
+Long sein.
diff --git a/data/HELP/PORT b/data/HELP/PORT
index a10bb07..50f8653 100644
--- a/data/HELP/PORT
+++ b/data/HELP/PORT
@@ -1,26 +1,5 @@
-PORT-EIN-Ausgabebefehle
-
 Syntax:
 PORT O(NR,Wert)
 PORT I(NR)
 PORT S(AD-ADR,Port-ADR)
 PORT P(ADR)
-
-PORT O(NR,Wert)
-Portausgabe Register NR 
-mit Wert (0-255)
-
-PORT I(NR)
-Portregister NR abfragen
-
-PORT S(AD-ADR,PORT-ADR)
-AD-ADR=Adresse 
-AD-Wandler setzen
-
-PORT-ADR=Adresse des 
-ersten Ports setzen
-
-PORT P(ADR)
-Adresse anpingen, 
-0=Port vorhanden
-1=Port nicht vorhanden
diff --git a/data/HELP/POS b/data/HELP/POS
index ddd549b..0f174d4 100644
--- a/data/HELP/POS
+++ b/data/HELP/POS
@@ -1,8 +1,6 @@
-POS-Bildschirmfunktionen
-
 Syntax:
 POS <x>,<y>
 
-Cursor auf Position 
-Zeile x, Spalte y 
-setzen (x=0-39,y=0-29)
+Cursor auf Position Zeile x, 
+Spalte y setzen 
+(x=0-39,y=0-29)
diff --git a/data/HELP/Print b/data/HELP/Print
index aa9b8f2..91f338c 100644
--- a/data/HELP/Print
+++ b/data/HELP/Print
@@ -5,4 +5,4 @@ PRINT {{"<string>" | <expr>} {, | ;}}
 
 Bsp.:Print"Hallo Du"
      Print a,b,c
-     Print"Mein Alter:";a
\ No newline at end of file
+     Print"Mein Alter:";a
diff --git a/data/HELP/READ b/data/HELP/READ
index a69b2cf..4aac847 100644
--- a/data/HELP/READ
+++ b/data/HELP/READ
@@ -1,8 +1,5 @@
-READ-Datenfunktion
-
 Syntax:
 READ <var> {, <var>}
 
-Liest Werte aus  
-DATA Zeilen
+Liest Werte aus DATA Zeilen
 
diff --git a/data/HELP/RECOVER b/data/HELP/RECOVER
index df83d63..3092f94 100644
--- a/data/HELP/RECOVER
+++ b/data/HELP/RECOVER
@@ -1,11 +1,7 @@
-RECOVER-Fensterfunktion
-
 Syntax:
-RECOVER x,y,xx,yy,RAM
-
-stellt einen Bildschirm
-bereich aus dem RAM
-wieder her
+RECOVER x,y,xx,yy,ERAM-Adr
+stellt einen Bildschirmbereich 
+aus dem ERAM wieder her
 
 RAM-Adresse im E-RAM
 
diff --git a/data/HELP/REM b/data/HELP/REM
index 78fc552..55802f2 100644
--- a/data/HELP/REM
+++ b/data/HELP/REM
@@ -1,5 +1,3 @@
-REM
-
 Syntax:
 REM <Kommentar>
 
diff --git a/data/HELP/REN b/data/HELP/REN
index b787a16..beda4b8 100644
--- a/data/HELP/REN
+++ b/data/HELP/REN
@@ -6,4 +6,3 @@ REN "Dateinamealt","Dateinameneu"
 Benennt eine Datei um
 
 
-
diff --git a/data/HELP/RENUM b/data/HELP/RENUM
index 30e2abe..0001226 100644
--- a/data/HELP/RENUM
+++ b/data/HELP/RENUM
@@ -1,24 +1,8 @@
-RENUM-Systemfunktion
-
 Syntax:
-RENUM <von>,<bis>,<neu>,
-      <weite>
+RENUM von,bis,neu,weite
+Nummeriert Basic-Zeilen neu
 
-Nummeriert Basic-Zeilen
-neu
-
-ohne Parameter wird das
-gesamte Basic-Programm
-beginnend mit der Zeile
-10 und einer Schrittweite
-von 10 neu nummeriert
-
-alt-alte Zeilennummer
-neu-neue Zeilennummer
-weite-Schrittweite 
-zwischen den Zeilen
-
-Bsp.:
-Renum 5,123,10,10
-oder
-Renum
+ohne Parameter wird das gesamte 
+Basic-Programm beginnend mit der
+Zeile 10 und einer Schrittweite
+von 10 neu nummeriert.
diff --git a/data/HELP/RESTORE b/data/HELP/RESTORE
index d94dcd2..88b8b0a 100644
--- a/data/HELP/RESTORE
+++ b/data/HELP/RESTORE
@@ -1,14 +1,9 @@
-RESTORE-Datenfunktion
-
 Syntax:
 RESTORE <expr> 
-
-Datenzeiger zurueck-
-setzen
+Datenzeiger zuruecksetzen
 
 Bsp.:
 RESTORE 100
 setzt den DATA-Zeiger
 auf DATA-Zeile 100
 
-siehe Handbuch
diff --git a/data/HELP/RND b/data/HELP/RND
index 0ef592b..9a4003a 100644
--- a/data/HELP/RND
+++ b/data/HELP/RND
@@ -1,6 +1,3 @@
-RND - Mathematische 
-      Funktionen
-
 Syntax:
 <expr>=RND (n)
 
diff --git a/data/HELP/SAVE b/data/HELP/SAVE
index 5fac701..fcc1efc 100644
--- a/data/HELP/SAVE
+++ b/data/HELP/SAVE
@@ -1,17 +1,10 @@
 SAVE - Systemfunktionen
 
 Syntax:
-SAVE "Dateiname",<1>
+SAVE "Dateiname",<opt>
 
-Speichert das aktuelle 
-Programm
+Speichert das aktuelle Programm
 
-SAVE ohne Parameter legt
-eine Backupdatei unter 
-dem Namen "BAS.TMP" an.
-Alternativ kann auch die
-Taste F3 verwendet 
-werden.
-Mit der Option ,1 wird
-das Programm als 
-Binaerdatei gesichert.
+Alternativ kann auch die Taste F3 
+verwendet werden.Mit der Option ,4 wird
+das Programm als Textdatei exportiert.
diff --git a/data/HELP/SCRDN b/data/HELP/SCRDN
index 54dc90a..d24f1dc 100644
--- a/data/HELP/SCRDN
+++ b/data/HELP/SCRDN
@@ -1,12 +1,7 @@
-SCRDN-Bildschirmfunktion
-
 Syntax:
-SCRDN zeilen,color,x,y,
-      xx,yy,rate
+SCRDN zeilen,color,x,y,xx,yy,rate
 
-Scrollt den Bildschirm 
-um anzahl von Zeilen 
-und in der Farbe color
-von x,y bis xx,yy mit
-der Scrollrate, rate
-nach unten.
+Scrollt den Bildschirm um anzahl von
+Zeilen und in der Farbe color von 
+x,y bis xx,yy mit der Scrollrate, 
+rate nach unten.
diff --git a/data/HELP/SCROLL b/data/HELP/SCROLL
index ed3d01d..22a4646 100644
--- a/data/HELP/SCROLL
+++ b/data/HELP/SCROLL
@@ -1,14 +1,7 @@
-SCROLL-Bildschirmfunktion
-
 Syntax:
-SCROLL"text",<rate>,
-       <vor>,<hin>,<x>,
-       <y>,<xx>
+SCROLL"text",rate,vor,hin,x,y,xx
 
-Scrollt den Text an 
-Position xx,y von xx
-nach links bis x mit
-der Geschwindigkeit
-rate. 
-vor und hin sind die
-Farben.
+Scrollt den Text an Position xx,y 
+von xx nach links bis x mit der 
+Geschwindigkeit rate. 
+vor und hin sind die Farben.
diff --git a/data/HELP/SCRUP b/data/HELP/SCRUP
index fffad49..d0e09cc 100644
--- a/data/HELP/SCRUP
+++ b/data/HELP/SCRUP
@@ -1,12 +1,7 @@
-SCRUP-Bildschirmfunktion
-
 Syntax:
-SCRUP zeilen,color,x,y,
-      xx,yy,rate
+SCRUP zeilen,color,x,y,xx,yy,rate
 
-Scrollt den Bildschirm
-um anzahl von Zeilen
-und in der Farbe color
-von x,y bis xx,yy mit
-der Scrollrate, rate
-nach oben.
+Scrollt den Bildschirm um anzahl von
+Zeilen und in der Farbe color von 
+x,y bis xx,yy mit der Scrollrate, 
+rate nach oben.
diff --git a/data/HELP/SDATE b/data/HELP/SDATE
index 8be2fb8..adc68a5 100644
--- a/data/HELP/SDATE
+++ b/data/HELP/SDATE
@@ -1,10 +1,7 @@
-SDATE - Datums,-und Zeitfunktionen
-
 Syntax:
 SDATE <TT>,<MM>,<YYYY>,TAG
 
 TAG-1..7 f�r Mo-So
 
 Aktuelles Datum setzen
-!!! Komma statt Punkt
-verwenden!!!
+!!! Komma statt Punkt verwenden!!!
diff --git a/data/HELP/SPRITE b/data/HELP/SPRITE
index 3219576..012d1db 100644
--- a/data/HELP/SPRITE
+++ b/data/HELP/SPRITE
@@ -1,20 +1,12 @@
-SPRITE-Spielparameter
-
 Syntax:
 SPRITE S(wert)
 SPRITE P(P1...P10)
 SPRITE M(on)
 
 SPRITE S(0-255)
-Sprite-Geschwindigkeit
-
+Sprite-Speed
 SPRITE P(P1...P10)
 Sprite-Parameter
-
 SPRITE M(0-2)
-Sprite-Bewegung
-0=Stop
-1=Start
-2=Reset
+Sprite-Bewegung 0=STOP,1=START,2=RESET
 
-siehe Handbuch
diff --git a/data/HELP/STEP b/data/HELP/STEP
index 498d426..d72a047 100644
--- a/data/HELP/STEP
+++ b/data/HELP/STEP
@@ -5,10 +5,3 @@ FOR <var> = <expr> TO
    <expr> {STEP <expr>}
 ...
 NEXT <var>
-
-Erstellt eine
-Programmschleife
-Bsp.:
-10 FOR X = 0 TO 63 step 2
-20 PRINT X;
-30 NEXT X
diff --git a/data/HELP/STR$ b/data/HELP/STR$
index e2e2bac..acb12dd 100644
--- a/data/HELP/STR$
+++ b/data/HELP/STR$
@@ -1,14 +1,11 @@
-STR$ - Stringfunktionen
-
 Syntax:
 STR$ L(String,a) 
-Teilstring von links 
-mit Anzahl Zeichen a
-
+Teilstring von links,Anzahl a Zeichen
 STR$ R(String,a) 
-Teilstring von rechts, 
-mit Anzahl Zeichen a
-
+Teilstring von rechts,Anzahl a Zeichen
 STR$ M(String,a,b) 
-Teilstring ab Pos a 
-mit Anz. Zeichen b.
+Teilstring ab Pos a,Anzahl b Zeichen
+STR$ G(String)
+String in Grossbuchstaben umwandeln
+STR$ K(String)
+String in Kleinbuchstaben umwandeln
diff --git a/data/HELP/STRING$ b/data/HELP/STRING$
index 9da2884..ad6710c 100644
--- a/data/HELP/STRING$
+++ b/data/HELP/STRING$
@@ -1,13 +1,7 @@
-STRING$-Stringfunktion
-
 Syntax:
 STRING$ (a,String) 
 
-String wird Anzahl a
-wiederholt
+String wird Anzahl a wiederholt
 
 Bsp.:
 PRINT STRING$(5,"HI")
-
-Ausgabe:
-HIHIHIHIHI
diff --git a/data/HELP/TAB b/data/HELP/TAB
index 9060a84..440b58d 100644
--- a/data/HELP/TAB
+++ b/data/HELP/TAB
@@ -1,5 +1,3 @@
-TAB - BILDSCHIRMFUNKTION
-
 Syntax:
 TAB(expr)
 
diff --git a/data/HELP/TILE b/data/HELP/TILE
index 102c981..ebfbf7a 100644
--- a/data/HELP/TILE
+++ b/data/HELP/TILE
@@ -1,11 +1,7 @@
-TILE - TILE-FUNKTION
-
 Syntax:
-TILE<nr>,<col1>,<col2>,
-    <col3>,x,y
+TILE nr,col1,col2,col3,x,y
 
-Zeigt den Tileblock NR 
-aus der mit STILE 
-gewaehlten Tiledatei
-mit den Farben col1-3 
-an Position x,y an.
+Zeigt den Tileblock NR aus der 
+mit STILE gewaehlten Tiledatei
+mit den Farben col1-3 an Position 
+x,y an.
diff --git a/data/HELP/TIME b/data/HELP/TIME
index 3c9788c..e6d41db 100644
--- a/data/HELP/TIME
+++ b/data/HELP/TIME
@@ -1,6 +1,3 @@
-TIME - Datums,-und 
-    Zeitfunktionen
-
 Syntax:
 TIME x,y
 
diff --git a/data/HELP/TIMER b/data/HELP/TIMER
index 81c9514..7796ae5 100644
--- a/data/HELP/TIMER
+++ b/data/HELP/TIMER
@@ -1,19 +1,12 @@
-TIMER - Datums,-und 
-      Zeitfunktionen
-
 Syntax:
 TIMER <opt>(nr,<expr>)
-
-Timerfunktion
 TIMER C(1)
 Timer 1 loeschen
 
 TIMER R(1)
 Wert von Timer 1 lesen
 
-TIMER S(1,500)
-Timer 1 mit dem Wert 500
-setzen (Wert in ms)
+TIMER S(1,50)
+Timer 1 mit dem Wert 50
+setzen (Wert in 100ms)
 
-8 unabhaengige Timer 
-sind moeglich.
diff --git a/data/HELP/TLOAD b/data/HELP/TLOAD
index e03ecbd..dedc513 100644
--- a/data/HELP/TLOAD
+++ b/data/HELP/TLOAD
@@ -1,5 +1,3 @@
-TLOAD - TILE-FUNKTION
-
 Syntax:
 TLOAD <nr>,"Datei.dat",
       xt,yt
@@ -7,12 +5,3 @@ TLOAD <nr>,"Datei.dat",
 Laedt die Tiledatei.dat 
 mit der Nr und Groesse
 xt-xtiles,yt-ytiles
-
-Tiledateien duerfen 
-16x11 Tiles gross sein 
-(256x176 Pixel) oder
-jede Zwischengroesse.
-Nr darf Werte 1-15 
-annehmen,wobei 15 fuer
-Mousetiles reserviert
-ist.
diff --git a/data/HELP/TO b/data/HELP/TO
index 2c5093a..4e2fae8 100644
--- a/data/HELP/TO
+++ b/data/HELP/TO
@@ -1,14 +1,5 @@
-FOR...NEXT
-
 Syntax:
 FOR <var> = <expr> TO
    <expr> {STEP <expr>}
 ...
 NEXT <var>
-
-Erstellt eine
-Programmschleife
-Bsp.:
-10 FOR X = 0 TO 63
-20 PRINT X;
-30 NEXT X
diff --git a/data/HELP/TPIC b/data/HELP/TPIC
index 32a4763..5321199 100644
--- a/data/HELP/TPIC
+++ b/data/HELP/TPIC
@@ -1,11 +1,7 @@
-TPIC - TILE-FUNKTION
-
 Syntax:
-TPIC <col1>,<col2>,
-     <col3>,x,y
+TPIC col1,col2,col3,x,y
 
-Zeigt die mit STILE Nr
-gewaehlte Tiledatei 
-mit den Farben col1-3
+Zeigt die mit STILE Nr gewaehlte 
+Tiledatei mit den Farben col1-3
 an Position x,y an.
 
diff --git a/data/HELP/VAL b/data/HELP/VAL
index b0fcede..c4134b7 100644
--- a/data/HELP/VAL
+++ b/data/HELP/VAL
@@ -1,16 +1,7 @@
-VAL - STRINGFUNKTION
-
 Syntax:
 VAL(string)
 
-Wandelt einen 
-Zahlenstring in eine
-Variablenzahl um
+Wandelt einen Zahlenstring 
+in eine Variablenzahl um
 
 Bsp.: a=VAL("12.34")
-
-HINWEIS:
-Um eine Variable in eine
-Stringzahl umzuwandeln
-genuegt die Zuordnung
-#a=a
diff --git a/data/HELP/VER b/data/HELP/VER
index 2d545e0..0c1ed8e 100644
--- a/data/HELP/VER
+++ b/data/HELP/VER
@@ -1,5 +1,3 @@
-VER - Systemfunktionen
-
 Syntax:
 PRINT VER
 
diff --git a/data/HELP/VOL b/data/HELP/VOL
index 6cf1b08..b027402 100644
--- a/data/HELP/VOL
+++ b/data/HELP/VOL
@@ -1,5 +1,3 @@
-VOL-SID-Soundfunktionen
-
 Syntax:
 VOL <expr>
 
diff --git a/data/HELP/WIN b/data/HELP/WIN
index 7c0e501..f6fca4d 100644
--- a/data/HELP/WIN
+++ b/data/HELP/WIN
@@ -1,22 +1,13 @@
-WIN - Fensterfunktionen
-
-Syntax:
-WIN option(para1�paran)
-
-Ein Fenster erstellen
-option: c,t,s,r
+WIN opt(para1,..,paran)
+opt: c,t,s,r
 c- create
 t- Titeltext setzen
 s- Statustext setzen
 r- reset
 
-parameter
+para1-n
 1-1..7 Fensternr.
-2-Textfarbe
-3-hintergrund
-4-Cursorfarbe
+2-Textfarbe,3-hintergr.,4-Cursor
 5..8- x,y,xx,yy
 9-Fensterart
 10-Schatten ja/nein
-
-siehe Handbuch
\ No newline at end of file
diff --git a/data/HELP/WRITE b/data/HELP/WRITE
index f38b31b..b0e99a7 100644
--- a/data/HELP/WRITE
+++ b/data/HELP/WRITE
@@ -1,10 +1,6 @@
-WRITE-Dateifunktion
-
 Syntax:
-WRITE {{"<string>" | 
-     <expr> } {, | ;}}
+WRITE {{"<string>" |<expr>}{,|;}}
 
-Schreibt einen String
-oder Variable in eine
-geoeffnete Datei
+Schreibt einen String oder 
+Variable in eine geoeffnete Datei
 
diff --git a/data/HELP/WSET b/data/HELP/WSET
index 95e8416..eefb7bc 100644
--- a/data/HELP/WSET
+++ b/data/HELP/WSET
@@ -1,14 +1,9 @@
-WSET - Fensterfunktionen
-
 Syntax:
 WSET <nr>
 
 Mit WSET nr wird in ein
 zuvor definiertes Fenster
 gesprungen. 
-Nr kann Werte zwischen 1 
-und 7 haben.
+Nr 0..7
 
-HINWEIS: 
-WSET 0 springt ins 
-Hauptfenster
+WSET 0 =Hauptfenster
diff --git a/data/HELP/XBUS b/data/HELP/XBUS
index b545ff8..a5aa120 100644
--- a/data/HELP/XBUS
+++ b/data/HELP/XBUS
@@ -1,22 +1,12 @@
-XBUS-Systemfunktion
-
 Syntax:
 XBUS(PROP,WERT,opt....)
-
-Direkte Bus-Funktion
-
 Prop
 1 Administra
 2 Bellatrix
 3 Venatrix
-
-Wert
-bestimmt, ob ein Rueck-
+Wert bestimmt, ob ein Rueck-
 gabewert erwartet wird
-
 0- kein Wert
 1- Byte
 4- Long
 3- String
-
-siehe Handbuch
diff --git a/data/MERGE.BAS b/data/MERGE.BAS
index aa83c2e..b7837da 100644
Binary files a/data/MERGE.BAS and b/data/MERGE.BAS differ
diff --git a/data/PIANO.BAS b/data/PIANO.BAS
index b65fdde..4820f6f 100644
Binary files a/data/PIANO.BAS and b/data/PIANO.BAS differ
diff --git a/data/PIANO.TXT b/data/PIANO.TXT
new file mode 100644
index 0000000..f1ab107
--- /dev/null
+++ b/data/PIANO.TXT
@@ -0,0 +1,22 @@
+10 SID wave(0,2)
+11 SID adsr(0,0,1,15,50)
+20 SID pwm(0,2000)
+25 SID vol(15)
+100 a=INKEY 
+120 IF a=113 THEN SID nt(0,60)
+130 IF a=50 THEN SID nt(0,61)
+140 IF a=119 THEN SID nt(0,62)
+150 IF a=51 THEN SID nt(0,63)
+160 IF a=101 THEN SID nt(0,64)
+170 IF a=114 THEN SID nt(0,65)
+180 IF a=53 THEN SID nt(0,66)
+190 IF a=116 THEN SID nt(0,67)
+200 IF a=54 THEN SID nt(0,68)
+210 IF a=122 THEN SID nt(0,69)
+220 IF a=55 THEN SID nt(0,70)
+230 IF a=117 THEN SID nt(0,71)
+240 IF a=105 THEN SID nt(0,72)
+250 IF a=57 THEN SID nt(0,73)
+300 SID nt(0,0)
+520 GOTO 100
+
diff --git a/data/PIANO3.BAS b/data/PIANO3.BAS
new file mode 100644
index 0000000..c0b7a5f
Binary files /dev/null and b/data/PIANO3.BAS differ
diff --git a/data/RECHNER.BAS b/data/RECHNER.BAS
new file mode 100644
index 0000000..d687b32
Binary files /dev/null and b/data/RECHNER.BAS differ
diff --git a/data/SPRITE.BAS b/data/SPRITE.BAS
new file mode 100644
index 0000000..1690d3f
Binary files /dev/null and b/data/SPRITE.BAS differ
diff --git a/data/TEST.BAS b/data/TEST.BAS
new file mode 100644
index 0000000..ca4118a
Binary files /dev/null and b/data/TEST.BAS differ
diff --git a/data/TEST.DAT b/data/TEST.DAT
new file mode 100644
index 0000000..806064a
Binary files /dev/null and b/data/TEST.DAT differ
diff --git a/data/Token.txt b/data/Token.txt
new file mode 100644
index 0000000..6440888
--- /dev/null
+++ b/data/Token.txt
@@ -0,0 +1,128 @@
+IF     ,
+THEN   ,
+INPUT  ,
+PRINT  ,
+GOTO   ,
+GOSUB  ,
+RETURN ,
+REM    ,
+NEW    ,
+LIST   ,
+RUN    ,
+RND    ,
+OPEN   ,
+READ   ,
+WRITE  ,
+CLOSE  ,
+DEL    ,
+REN    ,
+DIR    ,
+SAVE   ,
+LOAD   ,
+NOT    ,
+AND    ,
+OR     ,
+GFILE  ,
+MAP    ,
+FOR    ,
+TO     ,
+STEP   ,
+NEXT   ,
+NT     ,
+NTOFF  ,
+VOL    ,
+PLAY   ,
+TLOAD  ,
+STR$   ,
+COMP$  ,
+LEN    ,
+TWIN   ,
+WIN    ,
+TBAR   ,
+ADSR   ,
+WAVE   ,
+FLT    ,
+FMASK  ,
+RGMOD  ,
+CUT    ,
+RES    ,
+CHR$   ,
+VER    ,
+STILE  ,
+TILE   ,
+END    ,
+PAUSE  ,
+FILE   ,
+FREE   ,
+TAB    ,
+MBOX   ,
+DUMP   ,
+COL    ,
+CLS    ,
+HOME   ,
+POS    ,
+MOUSE  ,
+PLOT   ,
+TIME   ,
+SCRDN  ,
+SCRUP  ,
+CROFF  ,
+CRON   ,
+STIME  ,
+SDATE  ,
+PWM    ,
+SYNC   ,
+BUTTON ,
+GDMP   ,
+GTIME  ,
+GDATE  ,
+MKDIR  ,
+I2C    ,
+POKE   ,
+CIRC   ,
+LINE   ,
+SDOW   ,
+INKEY  ,
+CLEAR  ,
+BYE    ,
+PEEK   ,
+ON     ,
+BEEP   ,
+BLOAD  ,
+CALL   ,
+EDIT   ,
+MX     ,
+MY     ,
+MZ     ,
+MBOUND ,
+MB     ,
+FRAME  ,
+WSET   ,
+TPIC   ,
+SCROLL ,
+CHDIR  ,
+BOX    ,
+FONT   ,
+ASC    ,
+FN     ,
+DBUTT  ,
+STRING$,
+DIM    ,
+ELSE   ,
+TIMER  ,
+GATTR  ,
+VAL    ,
+COGS   ,
+COM    ,
+COMR   ,
+COMG   ,
+GETX   ,
+GETY   ,
+BEFA   ,
+BEFB   ,
+BEFC   ,
+BEFD   ,
+BEFE   ,
+BEFF   ,
+BEFG   ,
+REST   ,
diff --git a/make.bat b/make.bat
index 6061352..604a8d0 100644
--- a/make.bat
+++ b/make.bat
@@ -27,7 +27,7 @@ REM mkdir %sdsys%
 REM ----------------------------------------------------------------
 REM Code für Administra und Bellatrix erzeugen
 
-%BSTC% -L %libpath% %D% -D __ADM_FAT -D __ADM_FAT_EXT -D __ADM_RTC -D __ADM_SID  -D __ADM_PLX -b -O a ..\TriOS\flash\administra\admflash.spin
+%BSTC% -L %libpath% %D% -D __ADM_FAT -D __ADM_FAT_EXT -D __ADM_RTC -D __ADM_SID  -D __ADM_LAN -D __ADM_PLX -D __ADM_DCF -D __ADM_BLT -b -O a ..\TriOS\flash\administra\admflash.spin
 move admflash.binary %sdbas%\adm.sys
 
 %BSTC% -L %libpath% %D% -b -O a .\source\belsVGA64.spin
@@ -39,8 +39,8 @@ REM Basic-Programme erzeugen
 %BSTC% -L %libpath% %D% -b -O a .\source\Basic2_1-word.spin
 move Basic2_1-word.binary %sdbas%\Basic.bin
 
-%BSTC% -L %libpath% %D% -b -O a .\source\Bashelp.spin
-move Bashelp.binary %sdbas%\Help.sys
+%BSTC% -L %libpath% %D% -b -O a .\source\Basic-Runtime.spin
+move Basic-Runtime.binary %sdbas%\BasRun.dll
 
 %BSTC% -L %libpath% %D% -b -O a .\source\Export.spin
 move Export.binary %sdbas%\Export.sys
diff --git a/make.sh b/make.sh
index c93051d..ad4f3fd 100755
--- a/make.sh
+++ b/make.sh
@@ -25,7 +25,7 @@ mkdir -p ${sdbas}
 # ----------------------------------------------------------------
 # Code für Administra und Bellatrix erzeugen
 
-${BSTC} -L ${libpath} ${D} -D __ADM_FAT -D __ADM_FAT_EXT -D __ADM_RTC -D __ADM_SID -D __ADM_PLX -D __ADM_LAN -D __ADM_DCF -D __ADM_BLT -b -O a ../TriOS/flash/administra/admflash.spin
+${BSTC} -L ${libpath} ${D} -D __ADM_FAT -D __ADM_FAT_EXT -D __ADM_RTC -D __ADM_SID  -D __ADM_LAN -D __ADM_PLX -D __ADM_DCF -D __ADM_BLT -b -O a ../TriOS/flash/administra/admflash.spin
 mv admflash.binary ${sdbas}/adm.sys
 
 ${BSTC} -L ${libpath} ${D} -b -O a source/belsVGA64.spin
@@ -37,8 +37,8 @@ mv belsVGA64.binary ${sdbas}/bel.sys
 ${BSTC} -L ${libpath} ${D} -b -O a source/Basic2_1-word.spin
 mv Basic2_1-word.binary ${sdbas}/Basic.bin
 
-${BSTC} -L ${libpath} ${D} -b -O a source/Bashelp.spin
-mv Bashelp.binary ${sdbas}/Help.sys
+${BSTC} -L ${libpath} ${D} -b -O a source/Basic-Runtime.spin
+mv Basic-Runtime.binary ${sdbas}/BasRun.dll
 
 ${BSTC} -L ${libpath} ${D} -b -O a source/Export.spin
 mv Export.binary ${sdbas}/Export.sys
diff --git a/source/Bashelp.spin b/source/Bashelp.spin
deleted file mode 100644
index 5ea1692..0000000
--- a/source/Bashelp.spin
+++ /dev/null
@@ -1,428 +0,0 @@
-con'********************************** Hilfesystem *******************************************************************************************************************************
-_CLKMODE     = XTAL1 + PLL16X
-_XINFREQ     = 5_000_000
-'*****************Speicherbereiche**********************************************
-   maxstack  = 20                      ' Maximum stack tiefe fuer gosub
-   userPtr   = $1FFFF                  ' Ende Programmspeicher  128kb
-   TMP_RAM   = $20000 '....$3FFFF      ' Bearbeitungsspeicher   128kb (fuer die Zeileneditierung bzw.Einfuegung von Zeilen)
-   TILE_RAM  = $40000 '....$67FFF      ' hier beginnt der Tile-Speicher fuer 10 Tiledateien
-   SYS_FONT  = $66800 '....$693FF      ' ab hier liegt der System-Font 16kb
-   MOUSE_RAM = $69400 '....$6943F      ' User-Mouse-Pointer 64byte
-   DIR_RAM   = $69440 '....$6EFFF      ' Puffer fuer Dateinamen 16kb fuer 1255 Dateinamen
-   VAR_RAM   = $6F000 '....$757FF      ' Variablen-Speicher fuer Array-Variablen a[0...255]-z[0...255] (6656 moegliche Variablen)
-   STR_START = $75800 '....$7EFFF      ' ab hier werden die strings abgelegt 26x150 Zeichen
-   ERROR_RAM = $7F000 '....$7FF00      ' ERROR-Texte 'freier eRam-Bereich
-   PMARK_RAM = $7FFF1                  ' Flag für Reclaim
-   BMARK_RAM = $7FFF2                  ' Flag für Basic-Warm-Start
-   MAP_RAM   = $80000 '....$8FFFF      ' ab hier werden MAP-Daten abgelegt 64kb
-'*****************SID-COG-Wellenformen*******************************************
-   sid_triangle   = 16
-   sid_saw        = 32
-   sid_square     = 64
-   sid_noise      = 128
-
-'******************BUS-Signale***************************************************
-   #19,    REG_RAM1,REG_RAM2
-   #24,    HBEAT                                           'front-led
-           BUSCLK                                          'bustakt
-           BUS_WR                                          '/wr - schreibsignal
-           BUS_HS '                                        '/hs - quittungssignal
-   DB_IN           = %00000111_11111111_11111111_00000000  'maske: dbus-eingabe
-   DB_OUT          = %00000111_11111111_11111111_11111111  'maske: dbus-ausgabe
-
-'******************Farben ********************************************************
-  #$FC, Light_Grey, #$A8, Grey, #$54, Dark_Grey
-  #$C0, Light_Red, #$80, Red, #$40, Dark_Red
-  #$30, Light_Green, #$20, Green, #$10, Dark_Green
-  #$1F, Light_Blue, #$09, Blue, #$04, Dark_Blue
-  #$F0, Light_Orange, #$E6, Orange, #$92, Dark_Orange
-  #$CC, Light_Purple, #$88, Purple, #$44, Dark_Purple
-  #$3C, Light_Teal, #$28, Teal, #$14, Dark_Teal
-  #$FF, White, #$00, Black
-
-'*****************Tastencodes*****************************************************
-   bspKey    = $C8                     ' PS/2 keyboard backspace key
-   breakKey  = $CB                     ' PS/2 keyboard escape key
-   fReturn   = 13
-   fLinefeed = 10
-   KEY_LEFT  = 2
-   KEY_RIGHT = 3
-   KEY_UP    = 4
-   KEY_DOWN  = 5
-   KEY_PGUP  = 160
-   KEY_PGDN  = 162
-var
-   byte xtiles[11]                                                            'xtiles fuer tilenr        '
-   byte ytiles[11]                                                            'ytiles fuer tilenr
-   byte str0                                                                  'String fuer Fontfunktion in Fenstern
-   byte aktuellestileset                                                      'nummer des aktuellen tilesets
-   word workdir                                                               'aktuelles Verzeichnis
-   byte font[150]                                                                  'Stringpuffer fuer Font-Funktion
-   long startadresse[11]                                                      'startadresse des tiles im eram
-   long basicmarker                                                           'Dir-Marker Basic-Verzeichnis
-obj ios   : "reg-ios-bas"
-dat
-   tok0  byte "IF",0                                                                       '128    getestet
-   tok1  byte "THEN",0                                                                     '129    getestet
-   tok110 byte "ELSE",0                                                                    '238    getestet
-   tok2  byte "INPUT",0    ' INPUT {"<prompt>";} <var> {,<var>}                            '130    getestet
-   tok3  byte "PRINT",0    ' PRINT                                                         '131    getestet
-   tok88 byte "ON",0       ' ON GOSUB GOTO                                                  216    getestet
-   tok4  byte "GOTO",0                                                                     '132    getestet
-   tok5  byte "GOSUB", 0                                                                   '133    getestet
-   tok6  byte "RETURN", 0                                                                  '134    getestet
-   tok7  byte "REM", 0                                                                     '135    getestet
-   tok8  byte "NEW", 0                                                                     '136    getestet
-   tok9  byte "LIST", 0     'list <expr>,<expr> listet von bis zeilennummer                 137    getestet      NICHT AENDERN Funktionstaste!!
-   tok10 byte "RUN", 0                                                                     '138    getestet      NICHT AENDERN Funktionstaste!!
-   tok26 byte "FOR", 0      ' FOR <var> = <expr> TO <expr>                                  154    getestet
-   tok27 byte "TO", 0                                                                      '155    getestet
-   tok28 byte "STEP", 0     ' optional STEP <expr>                                          156    getestet
-   tok29 byte "NEXT", 0     ' NEXT <var>                                                    157    getestet
-   tok52 byte "END", 0      '                                                               180    getestet
-   tok53 byte "PAUSE", 0    ' PAUSE <time ms> {,<time us>}                                  181    getestet
-   tok58 byte "DUMP", 0     ' DUMP <startadress>,<anzahl zeilen>,<0..1> (0 Hram,1 Eram)     186    getestet
-   tok86 byte "BYE",0       ' Basic beenden                                                 214    getestet      NICHT AENDERN Funktionstaste!!
-   tok84 byte "INKEY",0     'Auf Tastendruck warten Rueckgabe ascii wert                    212    getestet
-   tok85 byte "CLEAR",0     'alle Variablen loeschen                                        213    getestet
-   tok87 byte "PEEK",0      'Byte aus Speicher lesen momentan nur eram                      215    getestet
-   tok80 byte "POKE",0      'Byte in Speicher schreiben momentan nur eram                   208    getestet
-   tok89 byte "BEEP",0      'beep oder beep <expr> piepser in versch.Tonhoehen              217    getestet
-   tok92 byte "EDIT",0      'Zeile editieren                                                220    getestet
-   tok61 byte "RENUM",0      'Renumberfunktion                                              189    getestet
-
-'************************** Dateioperationen **************************************************************
-   tok12 byte "OPEN", 0     ' OPEN " <file> ",<mode>                                        140    getestet
-   tok13 byte "FREAD", 0     ' FREAD <var> {,<var>}                                         141    getestet
-   tok14 byte "WRITE", 0    ' WRITE <"text"> :                                              142    getestet
-   tok15 byte "CLOSE", 0    ' CLOSE                                                         143    getestet
-   tok16 byte "DEL", 0      ' DELETE " <file> "                                             144    getestet
-   tok17 byte "REN", 0      ' RENAME " <file> "," <file> "                                  145    getestet
-   tok102 byte "CHDIR",0    ' Verzeichnis wechseln                                          230    getestet      kann nicht CD heissen, kollidiert sonst mit Hex-Zahlen-Auswertung in getanynumber
-   tok18 byte "DIR", 0      ' dir anzeige                                                   146    getestet      NICHT AENDERN Funktionstaste!!
-   tok19 byte "SAVE", 0     ' SAVE or SAVE [<expr>] or SAVE "<file>"                        147    getestet      NICHT AENDERN Funktionstaste!!
-   tok20 byte "LOAD", 0     ' LOAD or LOAD [<expr>] or LOAD "<file>" ,{<expr>}              148    getestet      NICHT AENDERN Funktionstaste!!
-   tok54 byte "FILE", 0     ' FILE wert aus datei lesen oder in Datei schreiben             182    getestet
-   tok24  byte "GFILE",0    ' GETFILE rueckgabe der mit Dir gefundenen Dateien ,Dateinamen  152    getestet
-   tok78 byte "MKDIR",0     ' Verzeichnis erstellen                                         206    getestet
-   tok112 byte "GATTR",0    ' Dateiattribute auslesen                                       240    getestet
-   tok90 byte "BLOAD",0      'Bin Datei laden                                               218    getestet
-   tok57 byte "MKFILE", 0    'Datei erzeugen                                                185    getestet
-
-'************************* logische Operatoren **********************************************************************
-   tok21 byte "NOT" ,0      ' NOT <logical>                                                '139    getestet
-   tok22 byte "AND" ,0      ' <logical> AND <logical>                                      '150    getestet
-   tok23 byte "OR", 0       ' <logical> OR <logical>                                       '151    getestet
-'************************* mathematische Funktionen *****************************************************************
-   tok106 byte "FN",0       'Mathematische funktionen                                       234    getestet
-                            ' ^,!,//, Sin,Cos,Tan,ArcTan,Ln,e,EXP,Round,Min,Max,Log
-                            'Wurzel, Fraction,Int,Floor,Ceil,SHL;SHR;REV;ROR;ROL;ODER;XODER,UND
-   tok11 byte "RND", 0      'Zufallszahl von x                                             '139    getestet
-   tok83 byte "FUNC",0       'mathematische Benutzerfunktionen                              211    getestet
-
-'******************************** Mouse Befehle *********************************************************************
-   tok93 byte "MGET",0      'Mouse-xyz-position                                           ' 221    getestet
-   tok97 byte "MB",0        'Mouse-Button                                                 ' 225    getestet
-   tok63 byte "MOUSE",0     'Mouse on off  Mouse on,farbe                                 ' 191    getestet
-   tok96 byte "MBOUND",0    'Mouse-Bereich definieren                                     ' 224    getestet
-
-'************************* Bildschirmbefehle ***********************************************************************
-   tok59 byte "COL",0       'Farbe setzen  1,2,3 Vordergrund,hintergrund,Cursor             187    getestet
-   tok60 byte "CLS",0       'Bildschirm loeschen cursor oberste Zeile Pos1                  188    getestet
-   tok62 byte "POS",0       'Cursor an Pos x,y setzen -> Locate(x,y)                        190    getestet
-   tok64 byte "PLOT",0      'Pixel setzen                                                   192    getestet
-   tok66 byte "SCRDN",0     'n Zeilen runterscrollen -> Scrdown(n)                          194    getestet
-   tok67 byte "SCRUP",0     'n Zeilen hochscrollen   -> Scrup(n)                            195    getestet
-   tok68 byte "CROFF",0     'Cursor ausschalten                                             196    getestet
-   tok69 byte "CRON",0      'Cursor einschalten                                             197    getestet
-   tok39 byte "WIN", 0      'Fenster C,T,S,R erstellen                                      167    getestet
-   tok49 byte "FREE",0      'freien Speicher anzeigen                                       177    getestet
-   tok74 byte "BUTTON",0    'Button erzeugen                                                202    getestet
-   tok98 byte "FRAME",0     'Rahmen zeichnen                                                226    getestet
-   tok99 byte "WSET",0      'in ein zuvor definiertes Fenster springen                      227    getestet
-   tok101 byte "SCROLL",0   'Textzeile nach links scrollen                                  229    getestet
-   tok81 byte "CIRC",0      'Kreis zeichnen                                                 209    getestet
-   tok82 byte "LINE",0      'Linie zeichnen                                                 210    getestet
-   tok103 byte "BOX",0      '2dbox zeichnen                                                 231    getestet
-   tok118 byte "GETX",0     'Cursor X-Position lesen                                        246    getestet
-   tok119 byte "GETY",0     'Cursor Y-Position lesen                                        247    getestet
-   tok122 byte "HEX",0      'Ausgabe von Hex-Zahlen mit Print                           '   250    getestet
-   tok120 byte "BIN",0      'Ausgabe von Binärzahlen mit Print                          '   248    getestet
-   tok125 byte "VER",0      'Versionsanzeige                                            '   253    getestet
-   tok123 byte "BACKUP", 0   'Bildschirmbereich sichern                                  '  251    getestet
-   tok124 byte "RECOVER",0   'Bildschirmbereich restaurieren                             '  252    getestet
-
-'************************* Datum und Zeit funktionen ***************************************************************
-   tok70 byte "STIME",0    'Stunde:Minute:Sekunde setzen ->                                 198    getestet
-   tok71 byte "SDATE",0    'Datum setzen                                                    199    getestet
-   tok76 byte "GTIME",0    'Zeit   abfragen                                                 204    getestet
-   tok77 byte "GDATE",0    'Datum abfragen                                                  205    getestet
-   tok65 byte "TIME",0     'Zeit anzeigen                                                   193    getestet
-   tok111 byte "TIMER",0   'Timer-Funktionen  set,read,clear?,entry,delete                  239    getestet
-
-'**************************** STRINGFUNKTIONEN ********************************************************************
-
-   tok35 byte "STR$", 0     'l,m,r,g,k left, mid, right ,groß,klein                         163    getestet
-   tok36 byte "COMP$", 0    'Stringvergleich                                                164    getestet
-   tok37 byte "LEN", 0      'Stringlänge zurueckgeben                                       165    getestet
-   tok48 byte "CHR$", 0     'CHR$(expr)                                                     176    getestet
-   tok105 byte "ASC",0      'ASCII-Wert einer Stringvariablen zurueckgeben                  233    getestet
-   tok56  byte "TAB", 0     'Tabulator setzen                                               184    getestet
-   tok113 byte "VAL",0      'String in FLOAT-Zahlenwert umwandeln                           241    getestet
-   tok108 byte "STRING$",0   'Zeichenwiederholung                                           236    getestet
-   tok109 byte "DIM",0       'Stringarray dimensionieren                                    237    getestet
-   tok116 byte "INSTR",0    'Zeichenkette in einer anderen Zeichenkette suchen            ' 244    getestet
-
-'**************************** Grafik-Tile-Befehle *****************************************************************
-   tok34  byte "TLOAD", 0    'Tileset in eram laden                                         162    getestet
-   tok51  byte "TILE", 0     'Tileblock aus aktuellem Tileset anzeigen                      179    getestet
-   tok50  byte "STILE", 0    'tileset in bella laden                                        178    getestet
-   tok100 byte "TPIC",0      'komplettes Tileset als Bild anzeigen                          228    getestet
-   tok104 byte "FONT",0      'Text mit aktuellem Tileset als Font ausgeben                  232    getestet
-   tok25  byte "MAP", 0      'MAP-Befehle L=load,S=Save,D=Display,W=Write in Ram          ' 153    getestet
-   tok91 byte "PLAYER",0     'Spielerfigur-Parameter p,k,g(parameter,Keys,collision,get)    219    getestet
-   tok114 byte "PLAYXY",0    'Spielerbewegung                                               242    getestet
-   tok121 byte "SPRITE",0    'Sprite-Parameter p, m, s(parameter, move,speed,usw)           249    getestet
-
-'**************************** Daten-Befehle *****************************************************************
-   tok38 byte "READ", 0      'Data Lesen                                                   '166    getestet
-   tok40 byte "DATA", 0      'Data-Anweisung                                               '168    getestet
-   tok47 byte "RESTORE", 0   'Data-Zeiger zurücksetzen                                      175    getestet
-
-'**************************** Funktionen der seriellen Schnittstelle **********************************************
-   tok115 byte "COM",0      'serielle Schnittstelle öffnen  / schliessen                    243    getestet
-
-'***********************SID-Synth-Befehle**************************************************************************
-   tok30 byte "SID", 0       'SID_Soundbefehle                                              158    getestet
-   tok31 byte "PLAY", 0      'SID DMP-Player                                               '159
-   tok32 byte "GDMP", 0      'SID DMP-Player-Position                                      '160
-
-'************************ Port-Funktionen *************************************************************************
-   tok79 byte "PORT",0       ' Port-Funktionen      Port s,i,o,p                            207    getestet
-   tok55 byte "JOY",0        ' Joystick abfragen für 2 Joysticks                            183    getestet
-   tok117 byte "XBUS",0      ' direkte Bus-Kommunikation zu den Props                       245    getestet
-'************************ ende Basic-Befehle **********************************************************************
-
-
-'************************ Befehle in der Testphase ****************************************************************
-
-'******************************************************************************************************************
-
-'******************************* freie Befehle für Erweiterungen **************************************************
-{   tok33 byte "BFC", 0                                                                    '161
-   tok41 byte "BFD", 0                                                                    '169
-   tok42 byte "BFE", 0                                                                    '170
-   tok43 byte "BFH", 0                                                                    '171
-   tok44 byte "BFI", 0                                                                    '172
-   tok45 byte "BFJ", 0                                                                    '173
-   tok46 byte "BFK", 0                                                                    '174
-   tok72 byte "BFL",0                                                                     '200
-   tok73 byte "BFM",0                                                                     '201
-   tok75 byte "BFN",0                                                                     '203
-   tok94 byte "LAN",0                                                                     ' 222
-   tok95 byte "BF1",0                                                                    ' 223
-   tok107 byte"BFF",0                                                                     '235
-   tok126 byte"BFG",0                                                                     '254
-}
-'        ---------------------------- Mehr Befehle sind nicht möglich --------------------------
-'******************************************************************************************************************
-
-   toks  word @tok0, @tok1, @tok2, @tok3, @tok4, @tok5, @tok6, @tok7
-         word @tok8, @tok9, @tok10, @tok11, @tok12, @tok13, @tok14, @tok15
-         word @tok16, @tok17, @tok18, @tok19, @tok20, @tok21, @tok22, @tok23
-         word @tok24, @tok25, @tok26, @tok27, @tok28, @tok29, @tok30, @tok31
-         word @tok32, {@tok33,} @tok34, @tok35, @tok36, @tok37, @tok38, @tok39
-         word @tok40, {@tok41, @tok42, @tok43, @tok44, @tok45, @tok46,} @tok47
-         word @tok48, @tok49, @tok50, @tok51, @tok52, @tok53, @tok54, @tok55
-         word @tok56, @tok57, @tok58, @tok59, @tok60, @tok61, @tok62, @tok63
-         word @tok64, @tok65, @tok66, @tok67, @tok68, @tok69, @tok70, @tok71
-         word {@tok72, @tok73,} @tok74, {@tok75,} @tok76, @tok77, @tok78, @tok79
-         word @tok80, @tok81, @tok82, @tok83, @tok84, @tok85, @tok86, @tok87
-         word @tok88, @tok89, @tok90, @tok91, @tok92, @tok93', @tok94, @tok95
-         word @tok96, @tok97, @tok98, @tok99, @tok100, @tok101, @tok102,@tok103
-         word @tok104, @tok105, @tok106, {@tok107,} @tok108, @tok109, @tok110
-         word @tok111, @tok112, @tok113, @tok114, @tok115, @tok116, @tok117
-         word @tok118, @tok119, @tok120, @tok121, @tok122, @tok123, @tok124
-         word @tok125', @tok126
-
-   tokx  word
-
-   tile          byte "Tile",0               'tile-Verzeichnis
-   help          byte "Help",0               'Hilfeverzeichnis
-'   Status        byte "F1HELP F2LOAD F3SAVE F4DIR F5RUN F6LIST",0'
-'   adm           byte "Bas.adm",0
-   bel           byte "Bel.sys",0
-   sysfont       byte "sysfont.dat",0                               'system-font, dieses Tileset ist nur halb so gross (16x8 Tiles) um beim Laden Zeit zu sparen
-   basic         byte "basic.bin",0
-   root          byte "..",0
-   bas           byte "basic",0                                      'basic verzeichnis
-
-pub hilfe | key,kapitelptr,a,e,end,pf,epf,seite
-
-    ios.start
-    basicmarker:=get_dirmarker
-    mount
-    sdset(@help)                                              'ins help verzeichnis wechseln
-    win
-    kapitelptr:=0
-    a:=0
-    e:=25'11
-    end:=((@tokx - @toks) / 2)-1                      'Anzahl token
-    pf:=2                                             'oberste Pfeilposition
-    epf:=27                                           'unterste Pfeilposition
-    loadtile                                       'systemfont laden
-    seite:=1
-    liste(a,e,seite)                                  'Befehlsliste ausgeben
-          repeat
-              key:=ios.key
-
-                   if key==KEY_UP
-                          kapitelptr-=1
-                          if kapitelptr<a
-                             kapitelptr:=a
-                          pf-=1'2
-                          if pf=<2
-                             pf:=2
-                          pfeil(pf,pf+1)'2)
-                   elseif key==KEY_DOWN
-                          kapitelptr+=1
-                          if kapitelptr>end
-                             kapitelptr:=end
-                          if kapitelptr>a+25'11
-                             kapitelptr:=e
-                          pf+=1'2
-                          if pf=>epf
-                             pf:=epf
-                          pfeil(pf,pf-1)'2)
-                   elseif key==KEY_PGUP  or key==KEY_LEFT             'seite hoch
-                          ios.printcls
-                          e:=a-1
-                          a:=e-25'11
-                          if a<0
-                             a:=0
-                          if e<25'11
-                             e:=25'11
-                          seite--
-                          if seite<1
-                             seite:=1
-                          liste(a,e,seite)
-                          kapitelptr:=a
-                          pf:=2
-                          epf:=27
-
-                   elseif key==KEY_PGDN or key==KEY_RIGHT             'seite runter
-                          ios.printcls
-                          if e+25>end'11 >end
-                             a:=e+1
-                             seite++
-                             if seite>(end+26)/26
-                                seite:=(end+26)/26
-
-                             liste(a,end,seite)
-                             pf:=2
-                             epf:=end-a+2
-                          else
-                             a:=e+1
-                             e:=a+25'11
-                             seite++
-                             liste(a,e,seite)
-                             pf:=2
-                             epf:=27
-                          kapitelptr:=a
-                   elseif key==13               'auswahl Kapitel mit return
-                          kapitelanzeige(kapitelptr)
-                   elseif key==27               'hilfe beenden
-                          quit
-
-ios.Restore_Area(0,0,39,29,$20000)                                        'Bild wiederherstellen
-
-activate_dirmarker(basicmarker)
-ios.sdopen("r",@basic)
-ios.ldbin(@basic)
-close
-ios.stop
-pri win
-    ios.Backup_Area(0,0,39,29,$20000)                                         'Backup_Area(x,y,xx,yy,adr) Backup des Bildschirms
-    ios.printcursorrate(0)
-    ios.display3Dframe(12, 250, 0, 0, 27, 29, 39)
-    ios.printBoxColor(6,12,250,0 )'schwarz auf weiss
-    ios.printBoxSize(6,1, 28, 2, 38)
-    printfont(string("*BEFEHLE*"),$f0,$80,0,29,0)
-    ios.printBoxColor(6,12,250,0 )
-    ios.printBoxSize(6,3, 28, 28, 38)
-
-pri kapitelanzeige(ptr) |i,c,adr,marker,x,y
-    i:=8
-    adr:=3
-    ios.display3Dbox(12, 250, 0, 0, 0, 29, 26)
-    ios.os_error(ios.sdopen("R",@@toks[ptr]))                 'datei öffnen
-    x:=1
-    y:=1
-      repeat
-          c:=ios.sdgetc
-
-          if x==25 or c==10                                   'zeilenumbruch bei spalte 25
-             x:=1
-             y+=1
-          if c==10 or c==13                                   'return oder linefeed nicht als zeichen anzeigen
-             next
-          if c>96
-             c-=32
-          ios.displayTile(c,250,0,0,y,x)                       'text mit systemfont anzeigen
-          x++
-
-      until ios.sdeof                                         'ausgabe bis eof
-ios.sdclose
-
-pri pfeil(x,xx)
-    printfont(string("<-"),250,0,0,37,x)'ios.displaystring(string("<-"),1,45,x,37)
-    printfont(string("  "),250,0,0,37,xx)'ios.displaystring(string("  "),1,45,xx,37)
-pri liste(a,e,seite) | n,i,len
-    n:=2
-    seite+=48
-    repeat i from a to e
-                printfont(@@toks[i],250,0,0,28,n)                'verfuegbare Befehle anzeigen
-                len:=strsize(@@toks[i])
-                printfont(String("    "),250,0,0,28+len,n)
-                n++'=2
-                printfont(string("<-"),250,0,0,37,2)
-                ios.displayTile(seite,250,0,0,28,33)
-
-pri loadtile|c,adress,anzahl            'tileset aus eram in bella laden
-
-
-    ios.loadtilebuffer(SYS_FONT,2816)  'laden
-
-pri printfont(str,a,b,c,d,e)|f,n
-
-    repeat strsize(str)
-         f:= byte[str++]
-         if d>39                            'wenn Bildschirmrand erreicht, neue Zeile
-            d:=0
-            e++
-         if f>96
-            f-=32
-         ios.displayTile(f,a,b,c,e,d)       'einzelnes Tile anzeigen   ('displayTile(tnr,pcol,scol,tcol, row, column))
-
-         d++
-
-pri close
-'   sdset(0)     'ins root
-   ios.sdclose
-   ios.sdunmount
-PRI mount
-     'playerstatus
-     ios.sdmount
-     activate_dirmarker(basicmarker)
-pri sdset(str)                                         'Verzeichniswechsel
-    ios.sdchdir(str)
-    ios.sddmset(str)
-PRI activate_dirmarker(mark)                       'USER-Marker setzen
-
-     ios.sddmput(ios#DM_USER,mark)                  'usermarker wieder in administra setzen
-     ios.sddmact(ios#DM_USER)                      'u-marker aktivieren
-
-PRI get_dirmarker:dm                                'USER-Marker lesen
-
-    ios.sddmset(ios#DM_USER)
-    dm:=ios.sddmget(ios#DM_USER)
diff --git a/source/Basic-Runtime.spin b/source/Basic-Runtime.spin
new file mode 100644
index 0000000..449d028
--- /dev/null
+++ b/source/Basic-Runtime.spin
@@ -0,0 +1,2757 @@
+{{ ---------------------------------------------------------------------------------------------------------
+
+Hive-Computer-Projekt
+
+Name            : TRIOS-Basic-Runtime-Modul
+Chip            : Regnatix-Code 
+Version         : 1.0
+Dateien         :
+
+Beschreibung    : Basic-Runtime zum direkten ausführen von Basic-Dateien unter Plexus
+
+Eigenschaften   :
+
+Logbuch         :
+
+17-05-2014       - Beginn der Schaffung eines Runtime-Moduls, um Basic-Dateien direkt aus Plexus heraus zu starten
+                 - Funktionen, wie Edit, List, direkte Befehlseingabe und sonstige Kommandofunktionen werden entfernt
+                 - Basic-Datei wird als Parameter übergeben und gestartet
+                 - Token werden nicht benötigt, da nur Binär-Dateien als Basic-Dateien erlaubt sind
+                 - erste Reinigung von unnötigen Routinen
+                 - erste funktionierende Version
+                 - 2146 Longs frei
+
+18-05-2014       - Code weiter von unnötigen Routinen gesäubert
+                 - Fehlerabfragen und Ausgaben entfernt -> Dateien müssen fehlerfrei sein
+                 - Fehlerabfragen nur noch bei Dateihandling
+                 - 2385 Longs frei
+
+19-05-2014       - Code weiter geschrumpft
+                 - 2416 Longs frei
+ --------------------------------------------------------------------------------------------------------- }}
+
+obj
+  ios    :"reg-ios-bas"
+  Fl     :"FME"
+  FS     :"BasFloatString2"
+  TMRS   :"timer"
+  gc     :"glob-con"
+
+con
+
+_CLKMODE     = XTAL1 + PLL16X
+_XINFREQ     = 5_000_000
+
+   version   = 1.0
+
+   fEof      = $FF                     ' dateiende-kennung
+   linelen   = 85                      ' Maximum input line length
+   quote     = 34                      ' Double quote
+   caseBit   = !32                     ' Uppercase/Lowercase bit
+   point     = 46                      ' point
+   STR_LEN   = 34                      ' Stringlänge von Stringvariablen in Arrays
+   FIELD_LEN = 512                     ' Array-Feldgröße (max Feldgröße 8x8x8 -> Dim a(7,7,7)
+   DIR_ENTRY = 546                     ' max.Anzahl mit DIR-Befehl gefundener Einträge
+   STR_MAX   = 41                      ' maximale Stringlänge für Printausgaben und font
+   DPL_CNT   = 1200                    ' Map-und Bildschirm-Shadow-Speicher-Zähler (40Spalten*30Zeilen=1200-Tiles)
+'*****************Speicherbereiche**********************************************
+   maxstack  = 20                      ' Maximum stack tiefe fuer gosub
+   userPtr   = $1FFFF                  ' Ende Programmspeicher  128kb
+   TMP_RAM   = $20000 '....$3FFFF      ' Bearbeitungsspeicher   128kb (fuer die Zeileneditierung bzw.Einfuegung von Zeilen)
+   TILE_RAM  = $40000 '....$667FF      ' hier beginnt der Tile-Speicher fuer 14 Tiledateien
+   SYS_FONT  = $66800 '....$693FF      ' ab hier liegt der System-Font 11kb
+   MOUSE_RAM = $69400 '....$6943F      ' User-Mouse-Pointer 64byte
+   DIR_RAM   = $69440 '....$6AFFF      ' Puffer fuer Dateinamen 7103Bytes fuer 546 Dateinamen
+   VAR_RAM   = $6B000 '....$77FFF      ' Variablen-Speicher fuer Array-Variablen a[0...511]-z[0...511] (13312 moegliche Variablen)
+   MAP_RAM   = $78000 '....$79C27      ' Shadow-Display (Pseudo-Kopie des Bildschirmspeichers)
+   'FREI_RAM   $79C28 .... $79FFF      ' freier RAM-Bereich 984 Bytes auch für Shadow-Display
+
+   DATA_RAM = $7A000 '.... $7DFFF      ' 16kB DATA-Speicher
+
+   BUTT_RAM = $7E000 '.... $7E4FF      ' ca.1kB Button Puffer
+   WTILE_RAM= $7E500 '.... $7E5FF      ' Win-Tile Puffer hier können die Tiles, aus denen die Fenster gebaut werden geändert werden
+   FUNC_RAM = $7E600 '.... $7EFFF      ' Funktions-Speicher, hier werden die selbstdefinierten Funktionen gespeichert
+
+   ERROR_RAM = $7F000 '....$7FAFF      ' ERROR-Texte
+   DIM_VAR   = $7FB00 '....$7FBFF      ' Variablen-Array-Dimensionstabelle
+   DIM_STR   = $7FC00 '....$7FCFF      ' String-Array-Dimensionstabelle
+   BACK_RAM  = $7FD00 '....$7FDFF      ' BACKUP RAM-Bereich 256 Bytes für Ladebalken
+   'Frei-Ram = $7FE00  ....$7FEFF      ' noch freier Bereich 256 Bytes
+   PMARK_RAM = $7FFF0                  ' Flag für Reclaim           Wert= 161
+   BMARK_RAM = $7FFF1                  ' Flag für Basic-Warm-Start  Wert= 121
+   SMARK_RAM = $7FFF2                  ' Flag für übergebenen Startparameter Wert = 222
+
+   STR_ARRAY = $80000 '....$EE7FF      ' Stringarray-Speicher
+   USER_RAM  = $EE800 '....$FFEFF      ' Freier Ram-Bereich, für Anwender, Backup-Funktion usw.
+   ADM_SPEC       = gc#A_FAT|gc#A_LDR|gc#A_SID|gc#A_LAN|gc#A_RTC|gc#A_PLX'%00000000_00000000_00000000_11110011
+'***************** Button-Anzahl ************************************************
+   BUTTON_CNT   = 32                       'Anzahl der möglichen Button
+'******************Farben ********************************************************
+  #$FC, Light_Grey, #$A8, Grey, #$54, Dark_Grey
+  #$C0, Light_Red, #$80, Red, #$40, Dark_Red
+  #$30, Light_Green, #$20, Green, #$10, Dark_Green
+  #$1F, Light_Blue, #$09, Blue, #$04, Dark_Blue
+  #$F0, Light_Orange, #$E6, Orange, #$92, Dark_Orange
+  #$CC, Light_Purple, #$88, Purple, #$44, Dark_Purple
+  #$3C, Light_Teal, #$28, Teal, #$14, Dark_Teal
+  #$FF, White, #$00, Black
+
+'*****************Tastencodes*****************************************************
+   ENTF_KEY  = 186
+   bspKey    = $C8                     ' PS/2 keyboard backspace key
+   breakKey  = $CB                     ' PS/2 keyboard escape key
+   fReturn   = 13
+   fLinefeed = 10
+   KEY_LEFT  = 2
+   KEY_RIGHT = 3
+   KEY_UP    = 4
+   KEY_DOWN  = 5
+
+   MIN_EXP   = -999999
+   MAX_EXP   =  999999
+
+var
+   long sp, tp, nextlineloc, rv,{ curlineno,} pauseTime                         'Goto,Gosub-Zähler,Kommandozeile,Zeilenadresse,Random-Zahl,aktuelle Zeilennummer, Pausezeit
+   long stack[maxstack],speicheranfang,speicherende                           'Gosub,Goto-Puffer,Startadresse-und Endadresse des Basic-Programms
+   long forStep[26], forLimit[26], forLoop[26]                                'Puffer für For-Next Schleifen
+   long prm[10]                                                               'Befehlszeilen-Parameter-Feld (hier werden die Parameter der einzelnen Befehle eingelesen)
+   long gototemp,gotobuffer,gosubtemp,gosubbuffer                             'Gotopuffer um zu verhindern das bei Schleifen immer der Gesamte Programmspeicher nach der Zeilennummer durchsucht werden muss
+   long datapointer                                                           'aktueller Datapointer
+   long restorepointer                                                        'Zeiger für den Beginn des aktuellen DATA-Bereiches
+   long num1,num2                                                             'Puffer für mathematische Funktionen
+   long usermarker,basicmarker                                                'Dir-Marker-Puffer für Datei-und Verzeichnis-Operationen
+   word tilecounter                                                           'Zaehler fuer Anzahl der Tiles in einer Map
+   word filenumber                                                            'Anzahl der mit Dir gefundenen Dateien
+   word var_arr[3]                                                            'temp array speicher varis-funktion für direkten Zugriff
+   word var_tmp[3]                                                            'temp array speicher varis-funktion für zweite Variable (in pri factor) um Rechenoperationen u.a. auszuführen
+   word var_temp[3]                                                           'temp array speicher erst mit dem dritten Speicher funktioniert die Arrayverwaltung korrekt
+   byte workdir[12]                                                           'aktuelles Verzeichnis
+   byte fileOpened,tline[linelen]                                             'File-Open-Marker,Eingabezeilen-Puffer
+   byte cursor                                                                'cursor on/off
+   byte win                                                                   'Fensternummer
+   byte farbe,hintergr,cursorcolor                                            'vorder,hintergrundfarbe und cursorfarbe
+   byte file1[12],dzeilen,buff[8],modus                                 'Dir-Befehl-variablen   extension[12]
+   byte volume,play                                                           'sidcog-variablen
+   byte xtiles[16]                                                            'xtiles fuer tilenr der Tile-Dateien       '
+   byte ytiles[16]                                                            'ytiles fuer tilenr der Tile-Dateien
+   byte str0[STR_MAX],strtmp[STR_MAX]                                         'String fuer Fontfunktion in Fenstern
+   byte aktuellestileset                                                      'nummer des aktuellen tilesets
+   byte font[STR_MAX]                                                         'Stringpuffer fuer Font-Funktion und str$-funktion
+   byte mapram                                                                'Map-Schreibmarker
+   byte math[8]                                                               'Funktionsstring für mathematische funktionen
+   byte ongosub                                                               'on gosub variable
+   byte serial                                                                'marker für serielle schnittstelle 1=geöffnet 0=geschlossen
+   byte actionkey[5]                                                          'Belegung der Spielertasten -> nach Bella verschoben
+   byte item[6]                                                               'von Spielerfigur einsammelbare Gegenstände
+   byte block[10]                                                             'tiles, die nicht überquert werden können
+   byte collision[6]                                                          'tiles mit denen man kollidieren kann
+   byte itemersatz[30]                                                        'Item-Ersatztiles, die das eingesammelte item im Display-Ram und auf dem Bildschirm ersetzen
+   byte f0[STR_MAX]                                                           'Hilfsstring
+   byte ADDA,PORT                                                             'Puffer der Portadressen der Sepia-Karte
+   byte returnmarker                                                          'Abbruchmarker für Zeileneditor
+   byte actorpos[2]                                                           'Zwischenspeicher für x,y-Position des Spieler-Tiles
+   byte button_art[BUTTON_CNT]                                                'Puffer für die Art des Buttons (Text-oder Icon)
+   byte sid_command[7]                                                        'SID-Sound-Kommando
+
+DAT
+   '*****************  mathematische Funktionen ************************
+   mtok1        byte "SIN",0      'Sinus #
+   mtok2        byte "COS",0      'Cosinus #
+   mtok3        byte "TAN",0      'Tangens #
+   mtok4        byte "LN",0       'natürlicher logarythmus #
+   mtok5        byte "E",0        'e-funkt #
+   mtok6        byte "INT",0      'Integerwert von x
+   mtok7        byte "LOG",0      'Logarythmus zur Basis 10 #
+   mtok8        byte "ATAN",0     'Arcustangens #
+   mtok9        byte "PREC",0     'Genauigkeit setzen (1-7)
+   mtok10       byte "SGN",0      'Signum-Funktion (sgn(8)=1, sgn(0)=0,sgn(-8)=-1)
+
+   '*********** Bit-Operationen ****************************************
+   mtok11       byte "SHL",0      'Shift left
+   mtok12       byte "SHR",0      'Shift right
+   mtok13       byte "REV",0      'Revers
+   mtok14       byte "ODER",0     'Bitwise OR
+   mtok15       byte "XODER",0    'Bitwise XOR
+   mtok16       byte "UND",0      'Bitwise And
+   '*********** zusätzliche Funktionen *********************************
+   mtok17       byte "ASIN",0     'arcus Sinus
+   mtok18       byte "ACOS",0     'arcus Cosinus
+
+   mtoks word @mtok1,@mtok2,@mtok3,@mtok4,@mtok5,@mtok6,@mtok7
+         word @mtok8,@mtok9,@mtok10,@mtok11,@mtok12,@mtok13
+         word @mtok14,@mtok15,@mtok16,@mtok17,@mtok18
+
+DAT '*************** Sound-Funktionen **********************************
+
+   stok0 byte "NT",0    'Note an/aus
+   stok1 byte "VOL",0   'Lautstärke 0-15
+   stok2 byte "ADSR",0  'Lautstärke-Hüllkurve
+   stok3 byte "WAVE",0  'Wellenform
+   stok4 byte "FLT",0   'Filtertyp
+   stok5 byte "FMASK",0 'Filtermaske
+   stok6 byte "RMOD",0  'Ringmodulator
+   stok7 byte "CUTRES",0'Cutoff und Resonanz
+   stok8 byte "PWM",0   'PWM-Wert
+   stok9 byte "SYNC",0  'Oszillatorsynchronisation
+
+   stoks word @stok0,@stok1,@stok2,@stok3,@stok4,@stok5,@stok6,@stok7,@stok8,@stok9
+
+
+Dat
+
+   'direkte mathematische Funktionen
+   ' ^ - y^x  (entspricht y*y x-mal) #
+   ' // - Modulo #
+   ' ! - Absolutwert von x
+   ' -   Negativwert von x
+   ' + - * / Grundrechenarten
+   ' √ - Wurzel   #
+   ' π - Kreiszahl PI #
+
+DAT
+   ext5          byte "*.*",0                                                   'alle Dateien anzeigen
+   tile          byte "Tile",0                                                  'tile-Verzeichnis
+   sysfont       byte "sysfontb.dat",0                                          'system-font
+
+   windowtile byte 135,137,136,126,141,134,132,130,128,124,129,133,0,131,124,124,124                           'Fenster-Tiles für WIN-Funktion
+
+con'****************************************** Hauptprogramm-Schleife *************************************************************************************************************
+PUB main | sa
+
+   init                                                                         'Startinitialisierung
+
+   sa := 0                                                                      'startparameter
+   'curlineno := -1                                                              'startparameter
+
+   repeat
+      \doline(sa)                                                               'eine kommandozeile verarbeiten
+      sa  := 0                                                                  'Zeile verwerfen da abgearbeitet
+
+con'****************************************** Initialisierung *********************************************************************************************************************
+PRI init '|pmark,newmark,x,y,i
+
+  ios.start
+  basicmarker:= get_dirmarker                                                   'usermarker von administra holen
+  usermarker:=basicmarker
+'**************************************************************************************************************************************************************
+  FS.SetPrecision(6)                                                            'Präzision der Fliesskomma-Arithmetik setzen
+'*********************************** Timer-Cog starten ********************************************************************************************************
+  TMRS.start(10)                                                                'Timer-Objekt starten mit 100ms-Aufloesung
+'**************************************************************************************************************************************************************
+'*********************************** Startparameter ***********************************************************************************************************
+  pauseTime := 0                                                                'pause wert auf 0
+  fileOpened := 0                                                               'keine datei geoeffnet
+  volume:=15                                                                    'sid-cog auf volle lautstaerke
+  speicheranfang:=$0                                                            'Programmspeicher beginnt ab adresse 0 im eRam
+  speicherende:=$2                                                              'Programmende-marke
+  mapram:=0                                                                     'Map-Schreibmarker auf 0
+  farbe:=black                                                                  'Schreibfarbe
+  hintergr:=white                                                               'Hintergrundfarbe
+  cursorcolor:=grey                                                             'Farbe des Cursors
+
+'*************** Bildschirmaufbau ***********************************
+  mount
+
+  ios.window(0,farbe,hintergr,cursorcolor,0,0,0,0,0,0,0,29,39,1,0)
+  ios.printchar(12)                                                             'cls
+  LoadTiletoRam(15,@sysfont,16,11)                                              'Logo und Font in eram laden
+
+  loadtile(15)                                                                  'Logo und Font in den Puffer laden
+  Win_Set_Tiles                                                                 'Fenster Tile-Nummern in den Ram schreiben
+  ios.displaymouse(0,0)                                                         'Maus abschalten, falls an
+  win:=0                                                                        'aktuelle fensternummer 0 ist das Hauptfenster
+  cursor:=0                                                                     'cursormarker für Cursor on
+
+  ios.sid_resetregisters                                                        'SID Reset
+  dzeilen:=9
+  modus  :=2                                                                    'Modus1=compact, 2=lang 0=unsichtbar
+  serial:=0                                                                     'serielle Schnittstelle geschlossen
+
+  ios.setactionkey(2,3,4,5,32)                                                  'Cursorsteuerung-Standardbelegung
+  actionkey[0]:=2                                                               'links
+  actionkey[1]:=3                                                               'rechts
+  actionkey[2]:=4                                                               'hoch
+  actionkey[3]:=5                                                               'runter
+  actionkey[4]:=32                                                              'feuer
+  ADDA:=$48                                                                     'Portadressen und AD-Adresse für Sepia-Karte vorbelegen
+  PORT:=$20
+  ios.set_plxAdr(ADDA,PORT)
+  read_filename
+  clearvars
+  ios.clearkey
+
+obj '************************** Datei-Unterprogramme ******************************************************************************************************************************
+con '------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
+PRI ifexist(dateiname)                                                          'abfrage,ob datei schon vorhanden, wenn ja Überschreiben-Sicherheitsabfrage
+   ios.printnl
+   mount
+
+   if ios.sdopen("W",dateiname)==0                                              'existiert die dateischon?
+      ios.print(string("File exist! Overwrite? y/n"))                            'fragen, ob ueberschreiben
+      if ios.keywait=="y"
+         if ios.sddel(dateiname)                                                'wenn ja, alte Datei loeschen, bei nein ueberspringen
+            close
+            return 0
+         ios.sdnewfile(dateiname)
+         ios.sdopen("W",dateiname)
+      else
+          ios.printnl
+          return 2                                                              'datei nicht ueberschreiben
+   else                                                                         'wenn die Datei noch nicht existiert
+      if ios.sdnewfile(dateiname)
+         close
+         return 0
+      ios.sdopen("W",dateiname)
+   ios.printnl
+   return 1
+
+PRI close
+   ios.sdclose
+   ios.sdunmount
+
+PRI mount
+     playerstatus
+     ios.sdmount
+     activate_dirmarker(usermarker)
+     if strsize(@workdir)>1
+        ios.sdchdir(@workdir)
+        usermarker:=get_dirmarker
+
+con '********************************** Speicher und Laderoutinen der Basic-Programme als Binaerdateien, ist erheblich schneller *************************
+pri binsave|datadresse,count
+   datadresse:= 0
+   count:=speicherende-2
+   ios.sdxputblk(datadresse,count)
+   close
+
+PRI binload(adr)|count
+    count:=fileload(adr)
+    writeendekennung (adr+count)
+    RAM_CLEAR
+
+PRI RAM_CLEAR
+    ios.ram_fill(speicherende,$20000-speicherende,0)                            'Programmspeicher hinter dem Programm loeschen
+
+con '********************************** Fehler-und System-Texte in den eRam laden ****************************************************************************************************************
+PRI fileload(adr): cont
+    cont:=ios.sdfattrib(0)                                                      'Anzahl der in der Datei existierenden Zeichen
+    ios.sdxgetblk(adr,cont)
+    close
+
+PRI errortext'|ad                                                    'Fehlertext anzeigen
+    ios.print(string("ERROR"))                                                'fehlertext
+    sysbeep
+    Prg_End_Pos
+    close
+    abort
+
+PRI sysbeep
+    ios.sid_dmpstop
+    ios.sid_beep(0)
+
+con '************************************* Basic beenden **************************************************************************************************************************
+PRI ende
+   'ios.print("BYE!!!")
+   ios.ram_wrbyte(0,SMARK_RAM)                                                  'Start-Parameter-Flag löschen
+   TMRS.stop
+   mount
+   ios.stop
+
+con'**************************************** Basic-Zeile aus dem Speicher lesen und zur Abarbeitung uebergeben ********************************************************************
+PRI doline(s) | i
+   'curlineno := -1                                                              'erste Zeile
+   i:=0
+   ios.key
+      'diese Funktion nicht entfernen
+      'sonst funktioniert Inkey nicht, keine Ahnung warum
+
+   if nextlineloc < speicherende-2                                              'programm abarbeiten
+'*******************Zeile aus eram holen*********************************************
+      nextlineloc+=2
+               repeat while tline[i++]:=ios.ram_rdbyte(nextlineloc++)
+
+      tline[i]:=0
+      tp:= @tline
+      texec                                                                     'befehl abarbeiten
+
+   else
+      pauseTime := 0                                                            'oder eingabezeile
+      returnmarker:=0
+      ios.print(string("OK>"))                                               'Promt ausgeben
+      getline(0)                                                             'Zeile lesen und
+
+
+con'************************************* Basic-Zeile uebernehmen und Statustasten abfragen ***************************************************************************************
+PRI getline(laenge):e | i,f, c                                                  'zeile eingeben
+   i := laenge
+   f:=laenge
+   e:=0
+   repeat
+'********************* Playerstatus abfragen, wenn er laeuft und am ende des Titels stoppen und SD-Card freigeben********************************
+      if play:=1 and ios.sid_dmppos<20                                          'Player nach abgespielten Titel stoppen
+         playerstatus
+'************************************************************************************************************************************************
+      c := ios.keywait
+      case c
+                       008:if i > 0                                             'bei backspace ein zeichen zurueck 'solange wie ein zeichen da ist
+                              ios.printbs                                       'funktion ausfueren backspace
+                              i--                                               'nochmal
+                           laenge:=i                                            'laenge ist immer die aktuelle laenge der zeile
+                       002:if i>0                                               'Pfeiltaste links
+                              ios.printleft
+                              i--
+                       003:ios.printright                                       'Pfeiltaste rechts
+                           i++
+                       004:repeat while i<laenge                                'Cursor hoch-Taste ans ende der Basiczeile springen
+                                ios.printright
+                                i++
+                       005:repeat i                                             'Cursor runter-Taste an den Anfang der Basic-Zeile springen
+                                ios.printleft
+                           i:=0
+
+'******************* Funktionstasten abfragen *************************
+                       219:ende                                                 'taste F12 basic beenden
+'**********************************************************************
+                   fReturn:Returnmarker:=1                                      'wenn return gedrueckt
+                           ios.printnl
+                           tline[i] := 0
+                           tp := @tline                                         'tp bzw tline ist die gerade eingegebene zeile
+                           return
+                   other:
+                         if i < linelen-1
+                            ios.printchar(c)
+                            tline[i++] :=c
+                            if i>laenge
+                               laenge:=i                                        'laenge ist immer die aktuelle laenge der zeile
+
+
+con '*********************************** Routinen zur Programmzeilenverwaltung im E-Ram********************************************************************************************
+PRI writeendekennung(adr)
+    ios.ram_wrword($FFFF,adr)                                                   'Programmendekennung schreiben
+    speicherende:=adr+2                                                         'neues Speicherende
+
+PRI Prg_End_Pos                                                                 'letztes Zeichen der letzten Zeile (Programmende)
+    nextlineloc := speicherende - 2
+
+PRI findline(lineno):at
+   at := speicheranfang
+   repeat while ios.ram_rdword(at) < lineno and at < speicherende-2             'Zeilennummer
+          at:=ios.ram_keep(at+2)'+1                                                     'zur nächsten zeile springen
+
+con '******************************** Variablenspeicher-Routinen ******************************************************************************************************************
+PRI clearvars
+   clearing
+   nextlineloc := speicheranfang                                                'Programmadresse auf Anfang
+   sp := 0
+   clearstr                                                                     'Stringpuffer löschen
+
+PRI clearing |i
+   ios.ram_fill(DIR_RAM,$15BBF,0)'$EBBF,0)                                      'Variablen,Dir-Speicher,Map-Speicher-Shadow-Bildschirmspeicher bis $79C27  loeschen beginnend mit dem Dir-Speicher
+   ios.ram_fill(STR_ARRAY,$6E800,0)                                             'Stringarray-Speicher loeschen
+   ios.ram_fill(DIM_VAR,$1FF,0)                                                 'DIM-Speicher löschen
+   repeat i from 0 to 25                                                        'DIM Speicher vorbelegen
+       ios.ram_wrword(10,DIM_STR+(2*i*3))
+       ios.ram_wrword(10,DIM_VAR+(2*i*3))
+
+   pauseTime := 0
+   gototemp:=gosubtemp  :=0                                                                'goto-Puffer loeschen
+   gotobuffer:=gosubbuffer:=0
+   restorepointer:=0                                                            'Restore-Zeiger löschen
+   datapointer:=0                                                               'Data-Zeiger löschen
+   ios.serclose                                                                 'serielle Schnittstelle schliessen
+   serial:=0
+   DATA_POKE(1,0)                                                               'erste Data-Zeile suchen, falls vorhanden
+   if restorepointer                                                            'DATA-Zeilen vorhanden
+      DATA_POKE(0,restorepointer)                                               'Datazeilen in den E-Ram schreiben
+
+PRI newprog
+   speicherende := speicheranfang + 2
+   nextlineloc := speicheranfang
+   writeendekennung(speicheranfang)
+   sp := 0                                                                      'stack loeschen
+
+PRI clearall
+   newprog
+   clearvars
+
+PRI pushstack                                                                   'Gosub-Tiefe max. 20
+   stack[sp++] := nextlineloc                                                   'Zeile merken
+
+PRI varis(var_name,wert,rw,x,y,z)|adress,c                                      'Arrayverwaltung im eRam (Ram_Start_Adresse,Buchstabe, Wert, lesen oder schreiben,Arraytiefenwert 0-255)
+
+    adress:=vari_adr(var_name,x,y,z)
+    if rw==0
+         c:=ios.ram_rdlong(adress)                                              'Array lesen
+            return c
+    else
+         ios.ram_wrlong(wert,adress)                                            'Array schreiben
+
+pri vari_adr(n,x,y,z):adress|ad                                                 'adresse der numerischen Variablen im Ram
+     ad:=DIM_VAR+(2*n*3)
+     adress:=scandimension(VAR_RAM,4,n,x,y,z,ios.ram_rdword(ad),ios.ram_rdword(ad+2),ios.ram_rdword(ad+4))
+
+PRI klammers                                                                    'Arraydimensionen lesen (bis zu 3 Dimensionen)
+wordfill(@var_arr,0,3)
+if spaces=="("
+       tp++
+       var_arr[0]:=get_array_value
+       var_arr[1]:=wennkomma
+       var_arr[2]:=wennkomma
+       klammerzu
+
+PRI wennkomma:b
+    if spaces==","
+          tp++
+          b:=get_array_value
+
+PRI get_array_value|tok,c                                                       'Array-Koordinaten lesen und zurückgeben
+   tok := spaces                                                                'Zeichen lesen
+   tp++                                                                         'ein Zeichen weiter
+
+   case tok
+
+      "a".."z","A".."Z":                                                        'Wert von Variablen a-z
+          c:=varis(fixvar(tok),0,0,0,0,0)                                       'pos,wert,r/w,x,y,z
+          return fl.ftrunc(c)                                                   'und zurueckgeben
+      "$","%","0".."9":                                                         'Zahlenwerte
+          --tp
+          return fl.ftrunc(getAnyNumber)
+
+obj '******************************************STRINGS*****************************************************************************************************************************
+con '************************************* Stringverarbeitung *********************************************************************************************************************
+Pri Input_String
+       tp--
+       getstr
+       bytemove(@f0,@font,strsize(@font))                                       'string nach f0 kopieren
+
+PRI getarray :adresswert|a,b,c,d,ad                                             'Stringarray-Dimensionen lesen und Adresse im Ram berechnen
+    a:=spaces
+    tp++
+    b:=0
+    c:=0
+    d:=0
+    if spaces=="("
+       tp++
+       b:=expr(1)
+       c:=wennkomma
+       d:=wennkomma
+       klammerzu
+
+    if isvar(a)
+       a:=fixvar(a)
+          ad:=DIM_STR+(2*a*3)                                     'x-Dimension       y-Dimension             z-Dimension aus Dimensionsspeicher lesen
+          adresswert:=scandimension(STR_ARRAY,STR_LEN,a,b,c,d,ios.ram_rdword(ad),ios.ram_rdword(ad+2),ios.ram_rdword(ad+4))
+
+PRI scandimension(startpos,laenge,varib,x,y,z,varx,vary,varz) : Position        'Überprüfung auf Dimensionswerte und Feldpositionsberechnung
+                  'Feldposition im Ram      y-Position        x-Position       z-Position
+    Position:=startpos+(laenge*varib*FIELD_LEN)+(varx*y*laenge)+(x*laenge)+(varx*vary*laenge*z)
+
+PRI clearstr
+    bytefill(@font,0,STR_MAX)
+    bytefill(@str0,0,STR_MAX)
+
+'***********************************************************************************************************************************************************
+PRI getstr:a|nt,b,str                                                           'string in Anführungszeichen oder Array-String einlesen
+    a:=0
+    skipspaces
+    nt:=spaces
+    bytefill(@font,0,STR_MAX)
+    case nt
+         quote:
+              scanfilename(@font,0,quote)                                       'Zeichenkette in Anführungszeichen
+         "#":                                                                   'String-Array
+              skipspaces
+              a:=getarray                                                       'Stringarray lesen
+              stringlesen(a)
+         176: skipspaces                                                        'Chr$-Funktion
+              a:=klammer
+              byte[@font][0]:=a
+              byte[@font][1]:=0
+         236: stringwiederholung                                                'String$-Funktion
+         245: skipspaces
+              Bus_Funktionen                                                    'Stringrückgabe von XBUS-Funktion
+         163: skipspaces                                                        'STR$-Funktionen left,mid,right
+              stringfunc2
+     "a".."z","A".."Z":                                                         'konvertiert eine Variable a(0..255)-z(0..255) in einen String
+              skipspaces
+              klammers
+              b:=varis(fixvar(nt),0,0,var_arr[0],var_arr[1],var_arr[2])         'Arrayvariable aus eRam holen
+              str:=zahlenformat(b)
+
+              bytemove(@font,str,strsize(str))
+
+
+'***********************************************************************************************************************************************************
+PRI stringfunc(pr) | a7,identifier                                              'stringfunktion auswaehlen
+    identifier:=0
+
+    if pr>0                                                                     'Stringzuweisung
+       skipspaces
+       a7:=getarray                                                             'String-Array, der mit der Funktion gefüllt werden soll
+       if spaces=="="
+          getstr                                                                'welche Funktion soll ausgeführt werden?
+    else                                                                        'Stringausgabe mit Print
+       tp--
+       getstr                                                                   'welche Funktion soll ausgeführt werden?
+
+   bytemove(@str0,@font,strsize(@font))
+   identifier:=spaces                                                           'welche Funktion kommt jetzt?
+   if identifier>0
+      stringfunktionen(a7,identifier,pr)
+   else                                                                         'keine Funktion dann
+      stringschreiben(a7,0,@str0,pr,0)-1                                        'String schreiben
+
+PRI stringfunktionen(a,identifier,pr)                                           'Strings addieren
+     repeat while identifier
+          if identifier==43
+                '************* funktioniert ******************
+                                                                                '+ Zeichen Strings addieren
+                getstr
+                bytemove(@str0[strsize(@str0)],@font,strsize(@font))            'verschiebe den String in den Schreibstring-Puffer
+          else
+             stringschreiben(a,0,@str0,pr,0)-1                                  'andere Zeichen als "+" zBsp Ausgabe des Strings mit PRINT string,string;variable
+             return
+          identifier:=spaces                                                    'weitere Zeichen? wenn ja dann von vorn
+     stringschreiben(a,0,@str0,pr,0)-1                                          'keine Zeichen mehr String schreiben
+
+PRI stringwiederholung|a,b                                                      'String$-Funktion
+    skipspaces
+    klammerauf
+        a:=expr(1)                                                              'anzahl wiederholungen
+        komma
+        tp--
+        getstr
+    klammerzu
+    bytefill(@strtmp,0,STR_MAX)                                                 'Stringpuffer löschen
+    bytemove(@strtmp,@font,strsize(@font))                                      'String, der wiederholt werden soll merken
+    bytefill(@font,0,STR_MAX)                                                   'Stringpuffer löschen
+    b:=0
+    repeat a
+        if b>STR_MAX
+           byte [@font][STR_MAX-1]:=0
+           quit
+        bytemove(@font[b],@strtmp,strsize(@strtmp))                             'Anzahl a Wiederholungen in Stringpuffer schreiben
+        b:=strsize(@font)
+
+
+PRI stringfunc2|a8,b8,c8,function,a,b                                           'die Stringfunktionen (left, right, mid)
+    function:=spaces
+    skipspaces
+    klammerauf
+          tp--
+          getstr                                                                ' String holen
+     case function
+         "l","L","m","M","r","R":
+                                a8:=strsize(@font)
+                                komma
+                                b8:=expr(1)                                     'anzahl zeichen fuer stringoperation
+                                if function==77 or function==109                'midstr
+                                   komma
+                                   c8:=expr(1)
+    klammerzu
+
+   case function
+        "l","L":a:=0
+                b:=b8
+        "m","M":a:=b8-1
+                b:=c8
+        "r","R":a:=a8-b8
+                b:=b8
+        "u","U":charactersUpperLower(@font,0)                               'in Grossbuchstaben umwandeln
+                return
+        "d","D":charactersUpperLower(@font,1)                               'in Kleinbuchstaben umwandeln
+                return
+
+   bytemove(@font,@font[a],b)
+   byte[@font][b]:=0
+
+PRI charactersUpperLower(characters,mode) '' 4 Stack Longs
+
+'' ┌───────────────────────────────────────────────────────────────────────────┐
+'' │ Wandelt die Buchstaben in Groß (mode=0) oder Klein(mode=1) um.            │
+'' └───────────────────────────────────────────────────────────────────────────┘
+
+  repeat strsize(characters--)
+
+    result := byte[++characters]
+    if mode
+       if((result > 64) and (result < 91))    'nur A -Z in Kleinbuchstaben
+          byte[characters] := (result + 32)
+    else
+       if(result > 96)                        'nur a-z in Großbuchstaben
+          byte[characters] := (result - 32)
+
+
+PRI stringlesen(num) | p,i
+    i:=0
+    repeat while p:=read_ram(num++)                                             'string aus eram lesen und in @font schreiben
+          byte[@font][i++]:=p
+    byte[@font][i]:=0
+    return num
+
+PRI stringschreiben(adre,chr,strkette,pr,data) | c9,zaehler,laenge
+    zaehler:=0
+    if data==0                                                                  'keine Data-Zeile
+       laenge:=STR_LEN-1
+    else                                                                        'Data-Zeile
+       laenge:=linelen
+    case pr
+         0:if chr>0
+              ios.printchar(chr)
+           else
+              ios.print(strkette)
+
+         1:if chr==0
+              repeat strsize(strkette)
+                    zaehler++
+                    c9:= byte[strkette++]
+                    if zaehler=<laenge-1
+                       write_ram(c9,adre++)
+                    else
+                       quit
+           else
+              write_ram(chr,adre++)                                             'chr-Funktion
+           write_ram(0,adre++)                                                  'null schreiben fuer ende string
+         2:ios.sdputstr(strkette)                                               'auf SD-Card schreiben
+    clearstr                                                                    'stringpuffer löschen
+    return adre
+
+PUB strpos (searchAddr,strAddr,offset)| searchsize                              'durchsucht strAddr nach auftreten von searchAddr und gibt die Position zurück
+  searchsize := strsize(searchAddr)
+  repeat until offset  > strsize(strAddr)
+    if (strcomp(substr(strAddr, offset++, searchsize), searchAddr))             'if string search found
+        return offset
+  return 0
+PUB substr (strAddr, start, count)                                              'gibt einen Teilstring zurück von start mit der Anzahl Zeichen count
+  bytefill(@strtmp, 0, STR_MAX)
+  bytemove(@strtmp, strAddr + start, count)                                     'just move the selected section
+  return @strtmp
+obj '*********************************************** TIMER-FUNKTIONEN ***********************************************************************************************************
+con' *********************************************** Verwaltung der acht Timer **************************************************************************************************
+PRI timerfunction:b|a,c,function
+       function:=spaces
+       skipspaces
+
+       case function                                 'Timerfunktionen mit Werterueckgabe
+               "c","C":'isclear?                     'Timer abgelaufen?
+                       a:=klammer'expr
+                       return TMRS.isclr(a-1)
+               "r","R":'read                         'Timerstand abfragen
+                          a:=klammer'expr
+                          return TMRS.read(a-1)      'Timer 1-12 lesen
+
+               "s","S":'timerset                     'Timer 1-12 setzen
+
+                          klammerauf
+                          a:=expr(1)
+                          komma
+                          c:=expr(1)
+                          klammerzu
+                          TMRS.set(a-1,c)
+
+con '********************************* Befehle, welche mit Printausgaben arbeiten *************************************************************************************************
+PRI factor | tok, a,b,c,d,e,g,f,fnum                                            'Hier werden nur Befehle ohne Parameter behandelt
+   tok := spaces
+   e:=0
+   tp++
+
+   case tok
+      "(":
+         a := expr(0)
+         if spaces <> ")"
+            errortext
+         tp++
+         return a
+
+      "a".."z","A".."Z":
+          klammers'factor
+          wordmove(@var_tmp,@var_arr,3)
+          c:=varis(fixvar(tok),0,0,var_tmp[0],var_tmp[1],var_tmp[2])            'pos,wert,r/w,x,y,z
+          return c                                                              'und zurueckgeben
+
+      152:'GFile                                                                'Ausgabe Anzahl, mit Dir-Filter gefundener Dateieintraege
+          ifnot spaces
+                return fl.ffloat(filenumber)
+
+      160:'gdmp playerposition
+           return fl.ffloat(ios.sid_dmppos)
+
+
+      164:'COMP$
+          klammerauf
+          Input_String
+          bytemove(@str0,@f0,strsize(@f0))                                      'in 2.Puffer merken
+          komma
+          Input_String
+          c:=strcomp(@str0,@f0)                                                 'beide vergleichen -1=gleich 0=ungleich
+          klammerzu
+          return fl.ffloat(c)
+
+      165:'LEN
+          klammerauf
+          Input_String
+          a:=strsize(@f0)
+          klammerzu
+          return fl.ffloat(a)
+
+      167:'Window
+          return fl.ffloat(ios.get_window)
+
+      177:'FREE
+          return fl.ffloat(userptr-speicherende)
+
+      182: ' FILE
+           return fl.ffloat(ios.sdgetc)
+
+      183:'JOY
+          a:=klammer
+
+          return fl.ffloat(ios.Joy(3+a))
+
+
+
+      204:'gtime
+          a:=klammer
+          return fl.ffloat(lookup(a:ios.getHours,ios.getMinutes,ios.getSeconds))
+
+      205:'gdate
+          a:=klammer
+          return fl.ffloat(lookup(a:ios.getDate,ios.getMonth,ios.getYear,ios.getday))
+
+      207: 'Port
+          return fl.ffloat(Port_Funktionen)
+
+      211:'FUNC
+           a:=spaces
+           if isvar(a)
+              a:=fixvar(a)                                                      'Funktionsvariable
+              c:=FUNC_RAM+(a*56)                                                'Adresse der Funktion im E-Ram
+              skipspaces
+              klammerauf
+              b:=expr(0)                                                        'Operandenwert der Operandenvariablen
+              d:=ios.ram_rdlong(c)                                              'Adresse der Operandenvariablen aus Funktionsram lesen
+              ios.ram_wrlong(b,d)                                               'Operandenwert an die Adresse der Operanden-Variablen schreiben
+              g:=c
+              repeat 3
+                 g+=4
+                 f:=ios.ram_rdlong(g)                                           'Adresse des nächsten Operanden
+                 if spaces==","
+                    skipspaces
+                    e:=expr(0)                                                  'nächster Variablenwert
+                    if f=>VAR_RAM                                               'Variable nicht null, also vorhanden
+                       ios.ram_wrlong(e,f)                                      'Variablenwert schreiben, wenn vorhanden
+                 else
+                    quit
+              klammerzu
+              stringlesen(c+16)                                                 'Funktionszeile aus dem E-Ram lesen und nach @font schreiben
+              tp := @font                                                       'Zeile nach tp übergeben
+              d:=expr(0)                                                        'Funktion ausführen
+              return d                                                          'berechneter Wert wird zurückgegeben
+
+      212:'inkey
+           return fl.ffloat(ios.inkey)
+
+      215:'PEEK
+          a:=expr(1)                                                            'adresse
+          komma
+          b:=expr(1)                             '1-byte, 2-word, 4-long
+          return fl.ffloat(lookup(b:read_ram(a),ios.ram_rdword(a),0,ios.ram_rdlong(a)))
+
+      219:'Player
+           c:=expr(1)
+           if c==1
+              a:=Kollisionserkennung
+                 if a==0
+                    a:=ios.get_collision
+           else
+              a:=Item_sammeln
+
+           return fl.ffloat(a)
+
+      221:'MGET
+           b:=klammer
+           return fl.ffloat(lookup(b:ios.mousex,ios.mousey,ios.mousez))
+
+     ' 222: return fl.ffloat(LAN_Function)
+
+      225:'MB
+          a:=klammer
+          b:=ios.mouse_button(a)
+          if b>0 and b<BUTTON_CNT and a==0
+             Buttonpress_on(b)                                                  'Buttonpress-Effekt
+          return fl.ffloat(b)
+
+      233:'asc
+           klammerauf
+           if raute
+              a:=getarray
+              return fl.ffloat(read_ram(a))
+           elseif spaces==quote
+                return skipspaces
+           klammerzu
+
+      234:'FN
+           return mathfunction
+
+      239:'timer
+           return fl.ffloat(timerfunction)
+      240:'GATTR
+           a:=klammer
+           return fl.ffloat(ios.sdfattrib(a))
+      241:'VAL
+           klammerauf
+           Input_String
+           fnum:=fs.StringToFloat(@f0)
+           klammerzu
+           return fnum
+      243:'COM
+          return Comfunktionen
+      244:'INSTR
+          klammerauf
+          Input_String
+          bytefill(@str0,0,STR_MAX)
+          bytemove(@str0,@f0,strsize(@f0))                                      'in 2.Puffer merken
+          komma
+          Input_String
+          c:=strpos(@str0,@f0,0)                                                'beide vergleichen -1=gleich 0=ungleich
+          klammerzu
+          return fl.ffloat(c)
+
+      245:'Bus-Funktionen
+          return Bus_Funktionen
+
+      246:'GETX                                                                 'Cursorposition x lesen
+          a:=klammer
+          if a==1
+             return fl.ffloat(ios.getx)
+          elseif a==2
+             return fl.ffloat(ios.get_actor_pos(1))                             'Playerposition
+      247:'GEXTY                                                                'Cursorposition y lesen
+          a:=klammer
+          if a==1
+             return fl.ffloat(ios.gety)
+          elseif a==2
+             return fl.ffloat(ios.get_actor_pos(2))                             'Playerposition
+      253:'Ver
+           return version
+
+'****************************ende neue befehle********************************
+
+      139: ' RND <factor>
+           a:=klammer
+           a*=1000
+           b:=((rv? >>1)**(a<<1))
+           b:=fl.ffloat(b)
+           return fl.fmul(fl.fdiv(b,fl.ffloat(10000)),fl.ffloat(10))
+
+
+      "-":
+         return fl.FNeg(factor)                                                 'negativwert ->factor, nicht expr(0) verwenden
+
+      "!":
+         return fl.FAbs(factor)                                                 'Absolutwert ->factor, nicht expr(0) verwenden
+
+      "√":
+         klammerauf
+         a:=expr(0)
+         klammerzu
+         return fl.fsqr(a)                                                      'Wurzel
+
+      "π":'PI                                                                   'Kreiszahl Pi ausgeben
+         return pi
+
+      "$","%", quote,"0".."9":
+         --tp
+         return getAnyNumber
+
+
+
+Con '******************************************* Operatoren *********************************************************************************************************************
+PRI bitTerm | tok, t
+   t := Factor
+
+   repeat
+      tok := spaces
+      if tok == "^"                                                             'Power  y^x   y hoch x entspricht y*y (x-mal)
+         tp++
+         t := fl.pow(t,factor)
+      else
+         return t
+
+PRI term | tok, t,a
+   t := bitTerm
+   repeat
+      tok := spaces
+     if tok == "*"
+           tp++
+           t := fl.FMUL(t,bitTerm)                                              'Multiplikation
+     elseif tok == "/"
+        if byte[++tp] == "/"
+           tp++
+           t := fl.FMOD(t,bitTerm)                                              'Modulo
+        else
+           a:=bitTerm
+           if a<>0
+              t  :=fl.FDIV(t,a)                                                 'Division
+
+     else
+        return t
+
+PRI arithExpr | tok, t
+   t := term
+   repeat
+      tok := spaces
+      if tok == "+"
+         tp++
+         t := fl.FADD(t,term)                                                   'Addition
+      elseif tok == "-"
+         tp++
+         t := fl.FSUB(t,term)                                                   'Subtraktion
+      else
+         return t
+
+PRI compare | op,a,c
+
+   a := arithExpr
+   op := 0
+   spaces
+   repeat
+      c := byte[tp]
+      case c
+         "<": op |= 1
+              tp++
+         ">": op |= 2
+              tp++
+         "=": op |= 4
+              tp++
+
+         other: quit
+
+   case op
+      0: return a
+      1: return a<arithExpr
+      2: return a > arithExpr
+      3: return a <> arithExpr
+      4: return a == arithExpr
+      5: return a =< arithExpr
+      6: return a => arithExpr
+
+PRI logicNot | tok
+   tok := spaces
+   if tok == 149 ' NOT
+      tp++
+      return not compare
+   return compare
+
+PRI logicAnd | t, tok
+   t := logicNot
+   repeat
+      tok := spaces
+      if tok == 150 ' AND
+         tp++
+         t := t and logicNot
+      else
+         return t
+
+PRI expr(mode) | tok, t
+   t := logicAnd
+   repeat
+      tok := spaces
+      if tok == 151 ' OR
+         tp++
+         t := t or logicAnd
+      else
+         if mode==1                                                             'Mode1, wenn eine Integerzahl gebraucht wird
+            t:=fl.FTrunc(t)
+         return t
+
+PRI SID_SOUND|i,err,a,b
+    i:=0
+    err:=1
+    scanfilename(@sid_command,1,40)
+    tp--
+    klammerauf
+    repeat 10
+           if strcomp(@sid_command,@@stoks[i++])
+              err:=0
+              quit
+
+    case i
+          1:'NT
+             param(1)
+             a:=prm[0]
+             b:=prm[1]
+             if b
+                ios.sid1_noteon(a,b)
+             else
+                ios.sid1_noteOff(a)
+
+          2:a:=expr(1)
+            a&=15
+            volume:=a
+            ios.sid1_setVolume(volume)
+
+
+
+          3:'ADSR
+             param(4)
+             ios.sid1_setADSR(prm[0],prm[1],prm[2],prm[3],prm[4])
+             ios.sid_beep(1)
+
+          4:'WAVE
+             a:=expr(1)
+             komma
+             b:=expr(1)
+             b+=3
+             b:=1<<b'lookup(b:sid_triangle,sid_saw,sid_square,sid_noise)
+
+             ios.sid1_setWaveform(a,b)
+
+          5:'FILTER
+             param(2)
+             ios.sid1_setFilterType(prm[0],prm[1],prm[2])
+
+          6:'FMASK
+             param(2)
+             ios.sid1_setFilterMask(prm[0],prm[1],prm[2])
+          7:'RGMOD
+             param(2)
+             ios.sid1_enableRingmod(prm[0],prm[1],prm[2])
+          8:'CUT
+             a:=expr(1)
+             komma
+             b:=expr(1)
+             ios.sid1_setCutoff(a)
+             ios.sid1_setResonance(a)
+          9:'PWM
+             param(1)
+             ios.sid1_setPWM(prm[0],prm[1])
+          10:'SYNC
+             param(2)
+             ios.sid1_enableSynchronization(prm[0],prm[1],prm[2])
+
+
+    klammerzu
+
+
+PRI mathfunction |i,err                                                         'Liste der verfügbaren mathematischen Funktionen
+    i:=0
+    err:=1
+    scanfilename(@math,1,40)
+    tp--
+    klammerauf
+    repeat 18
+           if strcomp(@math,@@mtoks[i++])
+              err:=0
+              quit
+
+    case i
+         1:result := fl.sin(expr(0))                                            'Sinus +
+         2:result := fl.cos(expr(0))                                            'Cosinus +
+         3:result := fl.tan(expr(0))                                            'Tangens +
+         4:result := fl.log(expr(0))                                            'natürlicher Logarithmus +
+         5:result := fl.exp(expr(0))                                            'e-funktion e(1)=2.718281 +
+         6:result := fl.ffloat(fl.FTRUNC(expr(0)))                              'nächst kleinerer Integerwert von X +
+         7:result := fl.Log10(expr(0))                                          'Logarithmus zur Basis 10 +
+         8:result := fl.ATan(expr(0))                                           'Arc Tangens +
+         9:num1:=expr(1)                                                        'Genauigkeit setzen +
+            ifnot num1&7' num1<1 or num1>7
+               errortext
+            FS.SetPrecision(num1)
+         10:num1:=expr(0)                                                       'SGN-Funktion +
+            if num1>0
+               result:=1
+            elseif num1==0
+                   result:=0
+            elseif num1<0
+                   result:=-1
+            result:=fl.ffloat(result)
+         11:Get_term(1)                                                         'shift left +
+            result:=fl.ffloat(num1<<num2)
+         12:Get_term(1)                                                         'shift right +
+            result:=fl.ffloat(num1>>num2)
+         13:Get_Term(1)                                                         'reverse
+            result:=fl.ffloat(num1><num2)
+         14:Get_Term(1)                                                         'bitwise or
+            result:=fl.ffloat(num1|num2)
+         15:Get_Term(1)                                                         'bitwise xor
+            result:=fl.ffloat(num1^num2)
+         16:Get_Term(1)                                                         'bitwise and
+            result:=fl.ffloat(num1&num2)
+         17:result:=fl.asin(expr(0))                                            'arcus sinus +
+         18:result:=fl.acos(expr(0))                                            'arcus cosinus +
+
+    klammerzu
+
+PRI Get_term(wert)
+       num1:=expr(wert)
+       komma
+       num2:=expr(wert)
+
+con '*************************************** Dateinamen extrahieren **************************************************************************************************************
+PRI scanFilename(f,mode,kennung) | c, chars
+
+   chars := 0
+   if kennung==quote
+      tp++                                                                      'überspringe erstes Anführungszeichen
+   repeat while (c := byte[tp++]) <> kennung
+      if chars++ < STR_MAX                                                      'Wert stringlänge ist wegen Stringfunktionen
+         if mode==1                                                             'im Modus 1 werden die Buchstaben in Grossbuchstanben umgewandelt
+            if c>96
+               c^=32
+         byte[f++] := c
+   byte[f] := 0
+
+con '************************************ einlesen der Arrays für INPUT und FREAD ************************************************************************************************
+pri Get_Input_Read(anz):b |nt                                                   'Eingabe von gemischten Arrays für INPUT und FREAD
+
+                b:=0
+                nt:=spaces
+                repeat
+                  '***************** Zahlen ***************************************
+                  if isvar(nt)
+                     skipspaces
+                     klammers
+                     prm[b++]:=vari_adr(fixvar(nt),var_arr[0],var_arr[1],var_arr[2])
+                     if spaces==","
+                        nt:=skipspaces
+                     else
+                        quit
+                     if anz==b
+                        quit
+                  '*************** Strings ****************************************
+                  elseif nt=="#"
+                     skipspaces
+                     prm[b++]:=getarray
+                     if spaces==","
+                        nt:=skipspaces
+                     else
+                        quit
+
+con '***************************************** Befehlsabarbeitung ****************************************************************************************************************
+PRI texec | ht, nt, restart,a,b,c,d,e,f,h,elsa
+
+
+   bytefill(@f0,0,STR_MAX)
+   restart := 1
+   a:=0
+   b:=0
+   c:=0
+   repeat while restart
+      restart := 0
+      ht := spaces
+      if ht == 0
+         return
+      if ht=="#"
+         stringfunc(1)
+         return
+      skipspaces
+      if isvar(ht)                                                              'Variable? dann arrayfeld einlesen
+         klammers
+      wordmove(@var_temp,@var_arr,3)                                            'kopie des Arrayfeldes
+      nt := spaces
+      if isvar(ht) and nt == "="
+         tp++
+         varis(fixvar(ht),expr(0),1,var_temp[0],var_temp[1],var_temp[2])
+      elseif ht => 128
+         case ht
+            128: 'IF THEN ELSE
+               a := expr(0)
+               elsa:=0                                                          'else-marker loeschen -> neue if then zeile
+               if spaces <> 129
+                  'errortext
+               skipspaces
+               if not a                                                         'Bedingung nicht erfuellt dann else marker setzen
+                     elsa:=1
+                     return
+               restart := 1
+            238:'ELSE
+                if elsa==1
+                   elsa:=0
+                   restart := 1
+
+            130: ' INPUT {"<prompt>";} <var> {, <var>}
+                if is_string
+                   input_string
+                if spaces <> ";"
+                   'errortext '@syn
+                nt := skipspaces
+                ios.print(@f0)
+                b:=Get_Input_READ(9)
+                if getline(0)==0 and strsize(@tline)>0                          'nur weitermachen, wenn nicht esc-gedrückt wurde und die Eingabezeile größer null war
+                   FILL_ARRAY(b,0)                                              'Daten in die entsprechenden Arrays schreiben
+
+            131: ' PRINT
+               a := 0
+               repeat
+                  nt := spaces
+                  if nt ==0 or nt==":"
+                     quit
+                  case nt
+                      "#",163,176,236,245,quote:stringfunc(0)                   'Strings
+
+                      184:skipspaces                                            'TAB
+                          a:=klammer
+                          ios.setx(a)
+                      250,248:skipspaces
+                              a:=klammer
+                              d:=a
+                              c:=1                                              'Hex-Ausgabe Standard 1 Stelle
+                              e:=4                                              'Bin-Ausgabe Standard 4 Stellen
+                              repeat while (b:=d/16)>0                          'Anzahl Stellen für Ausgabe berechnen
+                                    c++
+                                    e+=4
+                                    d:=b
+                              if nt==250
+                                 ios.printhex(a,c)                              'Hex
+                              if nt==248
+                                 ios.printbin(a,e)                              'Bin
+                      233:skipspaces                                            'ASC
+                          klammerauf
+                          if spaces==quote
+                             skipspaces                                         'Anfuehrungszeichen ueberspringen
+                             ios.printdec(spaces)                               'ASCII-Wert ausgeben
+                             repeat while skipspaces<>quote                     'weiterspringen bis Anfuerungszeichen
+                             skipspaces                                         'Anfuehrungszeichen ueberspringen
+                          elseif raute
+                             a:=getarray
+                             ios.printdec(read_ram(a))
+                          klammerzu
+                      other:
+                            ios.print(zahlenformat(expr(0)))
+
+                  nt := spaces
+                  case nt
+                        ";": tp++
+                        ",": a:=ios.getx
+                             ios.setx(a+8)
+                             tp++
+                        ":",0:ios.printchar(fReturn)
+                              quit
+                        other:ios.printchar(nt)
+
+            216: 'ON Gosub,Goto
+                 ongosub:=0
+                 ongosub:=expr(1)
+                 if spaces < 132 or spaces >133                                 'kein goto oder gosub danach
+                    'errortext
+                 if not ongosub                                                 'on 0 gosub wird ignoriert (Nullwerte werden nicht verwendet)
+                      return
+                 restart := 1
+
+            132, 133: ' GOTO, GOSUB
+               e:=0
+               a:=expr(1)
+               if ongosub>0
+                  e:=1
+                  repeat while spaces=="," and e<ongosub
+                         skipspaces
+                         e++
+                         a := expr(1)
+               ongosub:=0
+
+               '*************** diese routine verhindert,das bei gleichen Schleifendurchlaeufen immer der gesammte Speicher nach der Zeilennummer durchsucht werden muss ******
+               if gototemp<>a                                                   'sonst zeilennummer merken fuer naechsten durchlauf
+                  gotobuffer:=findline(a)                                       'adresse merken fuer naechsten durchlauf
+                  gototemp:=a
+               if ht==133
+                  pushstack
+               nextlineloc := gotobuffer
+
+               '***************************************************************************************************************************************************************
+
+            134: ' RETURN
+
+               nextlineloc := stack[--sp]
+
+            135,168: ' REM,DATA
+                   repeat while skipspaces
+
+            136: ' NEW
+               ios.ram_fill(0,$20000,0)
+               clearall
+
+            137: ' LIST {<expr> {,<expr>}}                                      'List in Runtime nicht erlaubt
+                 'Listout
+
+            138: ' RUN
+                  clearvars                                                     'alle variablen loeschen
+                  ios.clearkey                                                  'Tastaturpuffer löschen
+
+            140: ' OPEN " <file> ", R/W/A
+                Input_String
+                if spaces <> ","
+                   'Errortext '@syn
+                d:=skipspaces
+                tp++
+                mount
+                if ios.sdopen(d,@f0)
+                   errortext
+                fileOpened := true
+
+            141: 'FREAD <var> {, <var> }
+                b:=Get_Input_Read(9)
+                repeat                                                          'Zeile von SD-Karte in tline einlesen
+                     c := ios.sdgetc
+                     if c < 0
+                        errortext                                           'Dateifehler
+                     elseif c == fReturn or c == ios.sdeof                      'Zeile oder Datei zu ende?
+                        tline[a] := 0                                           'tline-String mit Nullbyte abschliessen
+                        tp := @tline                                            'tline an tp übergeben
+                        quit
+                     elseif c == fLinefeed                                      'Linefeed ignorieren
+                        next
+                     elseif a < linelen-1                                       'Zeile kleiner als maximale Zeilenlänge?
+                        tline[a++] := c                                         'Zeichen in tline schreiben
+                Fill_Array(b,0)                                                 'Daten in die entsprechenden Arrays schreiben
+
+            142: ' WRITE ...
+               b:=0                                                             'Marker zur Zeichenketten-Unterscheidung (String, Zahl)
+               repeat
+                  nt := spaces                                                  'Zeichen lesen
+                  if nt == 0 or nt == ":"                                       'raus, wenn kein Zeichen mehr da ist oder Doppelpunkt auftaucht
+                     quit
+                  if is_string                                                  'handelt es sich um einen String?
+                     input_string                                               'String einlesen
+                     b:=1                                                       'es ist ein String
+                     stringschreiben(0,0,@font,2,0)                             'Strings schreiben
+                  elseif b==0                                                   'kein String, dann eine Zahl
+                     stringschreiben(0,0,zahlenformat(expr(0)),2,0)             'Zahlenwerte schreiben
+                  nt := spaces
+                  case nt
+                       ";": tp++                                                'Semikolon bewirkt, das keine Leerzeichen zwischen den Werten geschrieben werden
+                       ",":ios.sdputc(",")                                      'Komma schreiben
+                           tp++
+                       0,":":ios.sdputc(fReturn)                                'ende der Zeile wird mit Doppelpunkt oder kein weiteres Zeichen markiert
+                             ios.sdputc(fLinefeed)
+                             quit
+
+            143: ' CLOSE
+               fileOpened := false
+               close
+
+            144: ' DELETE " <file>
+               Input_String
+               mount
+               if ios.sddel(@f0)
+                  errortext
+               close
+
+            145: ' REN " <file> "," <file> "
+               Input_String
+               bytemove(@file1, @f0, strsize(@f0))                              'ergebnis vom ersten scanfilename in file1 merken
+               komma                                                            'fehler wenn komma fehlt
+               Input_String
+               mount
+               if ios.sdrename(@file1,@f0)                                      'rename durchfuehren
+                   errortext                                               'fehler wenn rename erfolglos
+               close
+
+            146: ' DIR
+                if is_String
+                   Input_String
+                   komma
+                   a:=expr(1)
+                   h_dir(dzeilen,a,@f0)
+                elseifnot spaces
+                     h_dir(dzeilen,modus,@ext5)                           'directory ohne parameter nur anzeigen
+                else
+                     param(1)
+                     dzeilen:=prm[0]
+                     modus:=prm[1]
+                     h_dir(dzeilen,modus,@ext5)
+
+
+            147: ' SAVE or SAVE "<filename>"
+               if is_String                                                     'Dateiname? dann normales Speichern
+                  Input_String
+                  a:=0
+                  if spaces==","                                                'speichern ohne zurueckverwandelte token
+                     komma
+                     a:=expr(1)
+                  d:=ifexist(@f0)
+                  if d==1                                                       'datei speichern
+                     binsave
+               close
+
+            148: ' LOAD or LOAD "<filename>"
+                mount
+                if is_String
+                  Input_String
+                  a:=0
+                  if spaces==","                                                'Autostartfunktion ? (Load"name.ext",1)
+                     komma
+                     a:=expr(1)
+                  if ios.sdopen("R",@f0)                                        'Open requested file
+                     errortext
+
+                  case a
+                       0:newprog
+                         binload(0)
+                         Prg_End_Pos
+
+                       1:newprog                                                  'BIN Datei mit Autostart
+                         binload(0)
+                         clearvars
+                       2:                                                         'Append-Funktion
+                         binload(speicherende-2)
+
+                       3:   c:=nextlineloc                                        'Replace-Funktion
+                            Prg_End_Pos
+                            b:=klammer                                            'Zeilen an Zeilenposition schreiben
+                            binload(findline(b))
+                            nextlineloc := c                                      'Programmadresse zurückschreiben
+                            restart:=1                                            'Programm fortsetzen
+
+                close
+
+
+            152:'Gfile mit Parameter
+                a:=expr(1)
+                getfilename(a)
+
+
+            153:'MAP                                                            Map d=Map anzeigen, MAP w=Map in eram schreiben, Map s=Map auf sd-card schreiben, Map l=Map von sd-laden
+                 Map_function
+
+            154: ' FOR <var> = <expr> TO <expr> {STEP <expr>}                   For-Next Schleifen funktionieren nicht mit arrays als Operanden
+               ht := spaces
+               skipspaces
+               nt := spaces
+               a := fixvar(ht)
+               skipspaces
+
+               varis(a,expr(0),1,0,0,0)
+               skipspaces
+               forLimit[a] := expr(0)
+               if spaces == 156 ' STEP                                          'Save step size
+                  skipspaces
+                  forStep[a] := expr(0)
+               else
+                  forStep[a] := fl.ffloat(1)                                    'Default step is 1
+               forLoop[a] := nextlineloc                                        'Save address of line
+               c:=varis(a,0,0,0,0,0)
+               if forStep[a] < 0                                                'following the FOR
+                  b := c=>forLimit[a]
+               else                                                             'Initially past the limit?
+                  b := c=< forLimit[a]
+               if not b                                                         'Search for matching NEXT
+                  repeat while nextlineloc < speicherende-2
+                     tp := nextlineloc + 2
+                     nextlineloc := tp + strsize(tp) + 1
+                     if spaces == 157                                           'NEXT <var>
+                        nt := skipspaces                                        'Variable has to agree
+                        if fixvar(nt) == a                                      'If match, continue after
+                           quit                                                 'the matching NEXT
+            157: ' NEXT <var>
+               nt := spaces
+               a := fixvar(nt)
+               tp++
+               c:=varis(a,0,0,0,0,0)
+               h:=fl.fadd(c,forStep[a])                                         'Increment or decrement the
+               varis(a,h,1,0,0,0)                                               'neuen wert fuer vars[a]
+               if forStep[a] < 0                                                'FOR variable and check for
+                  b := h=> forLimit[a]
+               else                                                             'the limit value
+                  b := h=< forLimit[a]
+               if b                                                             'If continuing loop, go to
+                  nextlineloc := forLoop[a]                                     'statement after FOR
+               tp++
+
+
+            158:'SID
+                SID_SOUND
+
+            159:'PLAY
+                  if is_string
+                     input_string
+                     mount
+                     if ios.sdopen("R",@f0)
+                        errortext
+                     play:=1
+                     ios.sid_sdmpplay(@f0)                                      'in stereo
+                  elseif spaces == "0"
+                         ios.sid_dmpstop
+                         play:=0
+                         close
+                  elseif spaces == "1"
+                         ios. sid_dmppause
+            161:'PUT
+                 param(2)
+                 ios.put(prm[0],prm[1],prm[2])
+
+            162:'tload
+                a:=expr(1)
+                a&=15
+                komma
+                if is_string                                                    'test auf String
+                   Input_String
+                komma
+                param(1)
+                b:=prm[0]
+                c:=prm[1]
+                if a==15
+                   LoadTiletoRam(16,@f0,1,1)                                    'Mauszeigerdatei
+                else
+                   LoadTiletoRam(a,@f0,b,c)                                     'Tile-Datei in den Ram schreiben
+
+            166:'READ (DATA)
+                 if restorepointer
+                    DATA_READ
+
+            167:'Window
+                 Window_Function
+
+
+
+            175:'RESTORE (DATA)
+                ifnot spaces
+                      DATA_POKE(1,0)                                            'erste Data-Zeile suchen, falls vorhanden
+                      if restorepointer                                         'DATA-Zeilen vorhanden
+                         DATA_POKE(0,restorepointer)                            'Datazeilen in den E-Ram schreiben
+                         datapointer:=0
+                else
+                   SET_RESTORE(expr(1))
+
+
+            178:'STILE
+                a:=expr(1)
+                if a and a<16
+                   loadtile(a)                                                  'tileset aus eram in bella laden
+
+            179:'Tile
+                param(5)                                                        'nr,farbe1,farbe2,farbe3,x,y
+                                                                                'tileblock-nr aus aktuellem tileset anzeigen
+                ios.displayTile(prm[0],prm[1],prm[2],prm[3],prm[5],prm[4])
+                if mapram==1
+                   tilecounter++
+                   ios.ram_wrword(tilecounter,MAP_RAM)                          'tilecounter in ram schreiben
+                   a:=MAP_RAM+8+((prm[4]*6)+(prm[5]*40*6))                      'berechnung der speicheradresse
+                   repeat b from 0 to 5
+                        write_ram(prm[b],a++)
+
+            180: ' END
+                Prg_End_Pos
+                return
+
+            181: ' PAUSE <expr> {,<expr>}
+                  pauseTime := expr(1)
+                  waitcnt((clkfreq /1000*pausetime) +cnt)
+
+            182:
+             ' FILE = <expr>
+                skipspaces
+                if ios.sdputc(expr(1))
+                   errortext                                              'Dateifehler
+
+            185:'MKFILE    Datei erzeugen
+                Input_String
+                mount
+                if ios.sdnewfile(@f0)
+                   Errortext '@syn
+                close
+
+            186: ' DUMP <adr>,<zeilen> ,ram-typ
+                param(2)
+                ios.dump(prm[0],prm[1],prm[2])
+
+'******************************** neue Befehle ****************************
+            190:'pos <expr>,<expr> cursor an position x,y
+                a:=expr(1)
+                komma
+                b:=expr(1)
+                ios.setpos(b,a)
+
+            193:'TIME
+                a:=expr(1)      'x
+                komma
+                b:=expr(1)      'y
+                ios.time(a,b)
+
+            187:'Col <vordergr>,<hintergr>,<cursor>
+                param(2)
+                prm[0]&=255
+                prm[1]&=255
+                prm[2]&=255
+
+                farbe:=prm[0]
+                hintergr:=prm[1]
+                cursorcolor:=prm[2]
+                ios.printboxcolor(win,prm[0],prm[1],prm[2])
+
+
+            188: 'CLS
+                ios.printchar(12)
+
+            189:
+
+            191:'Mouse
+                param(1)
+                prm[0]&=1
+                prm[1]&=255
+                ios.displaymouse(prm[0],prm[1])
+
+            192:'Plot
+                param(2) 'farbe,x,y
+                ios.PlotPixel(prm[0],prm[1],prm[2])
+
+
+            194:'scrdn
+               param(6)
+               ios.scrolldown(prm[0],prm[1],prm[3],prm[2],prm[5],prm[4],prm[6])
+
+            195:'scrup                                                          scrollUp(lines, color, startRow, startColumn, endRow, endColumn,rate)
+               param(6)   'farbe,x,y,xx,yy
+               ios.scrollup(prm[0],prm[1],prm[3],prm[2],prm[5],prm[4],prm[6])
+
+            196:'croff
+               cursor:=0
+               ios.printCursorRate(0)
+            197:'cron
+               cursor:=1
+               ios.printCursorRate(3)
+
+            198:'stime
+               a:=expr(1)
+               skipspaces'is_spaces(":",1)
+               b:=expr(1)
+               skipspaces'is_spaces(":",1)
+               c:=expr(1)
+                   ios.setHours(a)
+                   ios.setMinutes(b)
+                   ios.setSeconds(c)
+
+            199:'sdate
+                param(3)
+                ios.setDate(prm[0])
+                ios.setMonth(prm[1])
+                ios.setYear(prm[2])
+                ios.setDay(prm[3])
+
+
+
+            202:'Button
+                 Buttons
+
+            206:'MKDIR
+                input_string
+                mount
+                if ios.sdnewdir(@f0)
+                   errortext
+                close
+
+            207:'PORT
+                Port_Funktionen
+
+            208:'POKE                                                           Poke(adresse, wert, byte;word;long)
+                param(2)
+                if prm[2]==1
+                   write_ram(prm[1],prm[0])
+                elseif prm[2]==2
+                   ios.ram_wrword(prm[1],prm[0])
+                else
+                   ios.ram_wrlong(prm[1],prm[0])
+
+            209:'Circle
+                 a:=expr(1) 'farbe
+                 komma
+                 b:=expr(0) 'x
+                 komma
+                 c:=expr(0) 'y
+                 komma
+                 d:=expr(0) 'radius
+                 circle(b,c,d,a) 'x,y,r,farbe
+
+            210:'Line
+                param(4) 'farbe,x,y,xx,yy
+                ios.Plot_Line(prm[1],prm[2],prm[3],prm[4],prm[0])               'x,y,xx,yy,farbe
+
+            211:'FUNC
+                nt:=spaces
+                f:=0
+                e:=0
+                if isvar(nt)
+                   a:=fixvar(nt)                                                'Funktionsvariablen-name (a..z)
+                   skipspaces
+                klammerauf
+                f:=get_input_read(4)                                            'max.4 Variablen
+                klammerzu
+                is_spaces(61,25)   '=
+                is_spaces(91,25)   '[
+                scanfilename(@f0,0,93)                                          'Formelstring extrahieren
+                d:=FUNC_RAM+(a*56)                                              'Adresse der Function im Ram
+                ios.ram_wrlong(prm[0],d)                                        'Variablenadresse in Funktionsram schreiben
+                h:=1
+                e:=d
+                repeat 3
+                  e+=4
+                  if f>1
+                     ios.ram_wrlong(prm[h++],e)                                 'Operandenadressen in den Funktionsram schreiben, wenn vorhanden
+                     f--
+                  else
+                     ios.ram_wrlong(0,e)                                        'nicht benutzte Operanden mit 0 beschreiben
+
+                stringschreiben(d+16,0,@f0,1,0)                                 'Formel in den Funktionsram schreiben
+
+            213:'clear
+                clearing
+
+            214:'bye
+                ende                                                            'T-Basic beenden
+
+            217:'BEEP
+                ifnot spaces                                                    'keine parameter
+                   ios.sid_beep(0)
+                else
+                   a:=expr(1)                                                   'Tonhoehe
+                   ios.sid_beep(a)
+
+            218:'BLOAD
+                 Input_String
+                 mount
+                 if ios.sdopen("R",@f0)
+                    errortext
+                 ios.ldbin(@f0)
+
+            219: 'PLAYER
+                 Playersettings
+
+            220:
+           ' 222:'LAN
+           '      Lan_Function
+
+            224:'MBound
+                param(3)
+                ios.mousebound(prm[0],prm[1],prm[2],prm[3])
+
+            226:'frame
+                param(6)
+                ios.display3DFrame(prm[0], prm[1], prm[2], prm[4], prm[3], prm[6], prm[5])
+
+            227:'WSET
+                a:=expr(1)
+                a&=7
+                ios.printwindow(a)
+                win:=a
+
+            228:'TPIC                                                           'komplettes Tileset anzeigen
+                param(4)                                                        'farbe1,farbe2,farbe3,x,y
+                ios.displaypic(prm[0],prm[1],prm[2],prm[4],prm[3],ytiles[aktuellestileset],xtiles[aktuellestileset])
+
+            229:'SCROLL
+                Input_String
+                komma
+                param(5)                                                        'scrollrate,textfarbe,hintergrundfarbe,x,y,xx
+                ios.scrollString(@f0,prm[0], prm[1], prm[2], prm[4], prm[3], prm[5])
+
+            230:'CHDIR
+                Input_String
+                bytefill(@workdir,0,12)
+                bytemove(@workdir,@f0,strsize(@f0))
+                mount
+                close
+
+            231:'box
+                param(5)                                                        'farbe,x,y,xx,yy,Schatten ja/nein
+                ios.display2dbox(prm[0],prm[2],prm[1],prm[4],prm[3],prm[5])     'farbe,y,x,yy,xx
+
+            232:'Font
+                Input_String
+                komma
+                param(4)                                                        '1.farbe,2.farbe,3.farbe,x,y
+                printfont(@f0,prm[0],prm[1],prm[2],prm[3],prm[4])               'Text mit aktuellen Font darstellen
+
+            234:'FN                                                             um ein Setzen der Präzision ohne Werterückgabe zu ermöglichen
+                mathfunction
+
+            239:'timer
+                timerfunction
+
+            237:'Dim
+                repeat
+                   b:=0
+                   if raute                                                     'String-Felddimensionierung
+                      b:=2
+                   elseif isvar(spaces)                                         'Zahlen-Felddimensionierung
+                      b:=1
+                   a:=fixvar(spaces)
+                   skipspaces
+                   klammers                                                     'Klammerwerte lesen
+                   Felddimensionierung(a,b,var_arr[0],var_arr[1],var_arr[2])    'a-x b-y c-z d-variable e-String oder Zahl}
+                   if spaces==","
+                      skipspaces
+                   else
+                      quit
+
+
+            242:'PLAYXY  Spielerfigur bewegen
+                a:=expr(1)
+                playerposition(a)
+
+            243:'COM
+                Comfunktionen
+
+            245:'XBUS-Funktionen
+                 BUS_Funktionen
+
+            249:'Sprite-Settings
+                 spritesettings
+
+            251:'Backup                                                         Bildschirmbereich sichern
+                 param(4)
+                 ios.Backup_Area(prm[0],prm[1],prm[2],prm[3],prm[4])            'Backup_Area(x,y,xx,yy,adr)
+
+            252:'Recover                                                        Bildschirmbereich zurückschreiben
+                 param(4)
+                 ios.Restore_Area(prm[0],prm[1],prm[2],prm[3],prm[4])           'Restore_Area(x,y,xx,yy,adr)
+
+'****************************ende neue befehle********************************
+
+
+      if spaces == ":"                                                          'existiert in der selben zeile noch ein befehl, dann von vorn
+         restart := 1
+         tp++
+
+con'******************************************* DATA-Funktion ********************************************************************************************************************
+PRI DATA_READ|anz                                                               'READ-Anweisungen interpretieren, Data-Werte lesen und an die angegebenen Variablen verteilen
+    anz:=0
+    anz:=Get_input_read(9)                                                      'Array Adressen berechnen
+    FILL_ARRAY(anz,1)                                                           'Arrays mit Daten füllen
+
+pri data_write(adr,art)|adresse,a,c,i,f                                         'schreibt die Data-Anweisungen in die entsprechenden Variablen
+    adresse:=DATA_RAM+datapointer
+    a:=DATA_LESEN(adresse)
+    datapointer:=a-DATA_RAM
+    i:=0
+    f:=strsize(@font)
+    if art==0
+       repeat f                                                                 'String aus Data-Puffer lesen
+              c:=byte[@font][i++]
+              write_ram(c,adr++)                                                'und nach String-Array schreiben
+       write_ram(0,adr++)                                                       'Null-string-Abschluss
+    else
+       c:=fs.StringToFloat(@font)                                               'String-Zahl in Float-Zahl umwandeln und im Array speichern
+       ios.ram_wrlong(c,adr)
+
+PRI DATA_LESEN(num) | p,i                                                       'Data-Wert im Eram lesen
+    i:=0
+    repeat
+          p:=read_ram(num++)                                                    'string aus eram lesen und in @font schreiben egal, ob Zahl oder Zeichenkette
+          if p==44 or p==0                                                      'komma oder null
+             quit                                                               'dann raus
+          byte[@font][i++]:=p
+    byte[@font][i]:=0                                                           'String mit Nullbyte abschliessen
+    return num                                                                  'Endadresse zurückgeben
+
+PRI SET_RESTORE(lnr)|a                                                          'DATA-Zeiger setzen
+    a:=findline(lnr)
+    if read_ram(a+2)==168                                                       'erste Data-Anweisung gefunden?
+       restorepointer:=a                                                        'Restorepointer setzen
+       data_poke(0,restorepointer)                                              'Data-Zeilen in den Data-Speicher schreiben
+       datapointer:=0                                                           'Data-Pointer zurücksetzen
+
+PRI DATA_POKE(mode,pointer)|a,adr,b,c,d,merker                                  'DATA-Zeilen in den Ram schreiben
+    a := pointer                                                                'entweder 0 oder Restore-Zeiger
+    adr:=DATA_RAM
+    repeat while a < speicherende-2
+                 d := ios.ram_rdword(a)                                         'zeilennummer aus eram holen
+                 a+=2                                                           'nach der Zeilennummer kommt der Befehl
+                 c:= read_ram(a)                                                '1.Befehl in der Zeile muss DATA heissen
+                 if c==168                                                      'Befehl heisst DATA
+                    if merker==1
+                       write_ram(44,b-1)                                        'komma setzen nach für nächste Data-Anweisung
+                    if mode==1                                                  'Adresse der ersten Data-Zeile
+                       restorepointer:=a-2
+                       quit
+                    merker:=1                                                   'erste DATA-Anweisung schreiben, ab jetzt wird nach jeder weiteren Anweisung ein Komma gesetzt
+                    a+=1
+                    a:=stringlesen(a)                                           'DATA-Zeile Lesen
+                    b:=stringschreiben(adr,0,@font,1,1)                         'DATA-Zeile in den RAM schreiben
+                    adr:=b
+                 else
+                    a:=ios.ram_keep(a)'+1                                         'zur nächsten zeile springen
+    ios.ram_wrlong(0,adr)                                                       'abschließende nullen für Ende Databereich
+
+Pri FILL_ARRAY(b,mode)|a,f
+
+    repeat a from 1 to b                                                        'Arraywerte schreiben
+          if prm[a-1]>$6AFFF and prm[a-1]<$7FFFF                                'Adresse im Array-Bereich?, dann Zahlenvariable
+             if mode
+                data_write(prm[a-1],1)
+             else
+                f:=getanynumber
+                ios.ram_wrlong(f,prm[a-1])                                      'zahl im Array speichern
+          elseif prm[a-1]>$7FFFF                                                'String
+             if mode
+                data_write(prm[a-1],0)
+             else
+                scanFilename(@f0,0,44)                                          'Zeilen-Teil bis Komma abtrennen
+                stringschreiben(prm[a-1],0,@f0,1,0)                             'String im Stringarray speichern
+          if a<b and mode==0                                                    'weiter, bis kein Komma mehr da ist, aber nicht bei DATA(da werden die Daten ohne Komma ausgelesen, kann also nicht abgefragt werden)
+             if spaces==","
+                skipspaces
+             else
+                quit
+
+con'***************************************************** Fensterfunktionen *****************************************************************************************************
+PRI Window_Function|w,wnr
+
+    w:=spaces
+    skipspaces
+    klammerauf
+    wnr:=expr(1)
+    case w
+              "c","C":'Create
+                      komma
+                      param(8) '0-vordergrundfarbe,1-hintergrundfarbe,2-cursorfarbe,3-x,4-y,5-xx,6-yy,7=Art,8=Schatten 0-nein 1-ja
+                      komma
+                      Input_String
+                      prm[8]&=1     'nur 1 und Null gültig
+                      ios.window(wnr,prm[0],prm[1],prm[2],prm[2],prm[2],prm[0],prm[2],prm[0],prm[4], prm[3], prm[6], prm[5],prm[7],prm[8])
+                      ios.Set_Titel_Status(wnr,1,@f0)
+                      win:=wnr                                                  'das aktuelle Fenster
+              "t","T":'Titel
+                      komma
+                      Input_String
+                      ios.Set_Titel_Status(wnr,1,@f0)
+
+              "s","S":'Statustext
+                      komma
+                      Input_String
+                      ios.Set_Titel_Status(wnr,2,@f0)
+              "r","R":'Reset
+                      ios.windel(wnr)
+                      win:=0
+
+    klammerzu
+con'***************************************************** LAN-Funktionen *********************************************************************************************************
+{PRI LAN_Function|a
+    a:=spaces
+                   case a
+                      "c","C":'Connect
+                      "l","L":'Listen
+                      "w","W":'Wait
+                      "r","R":'Read
+                      "t","T":'Transmit
+                      "g","G":'is_connect?
+                      "s","S":'eingabe IP-Adresse in der Form  xxx.xxx.xxx.xxx:xxxx und Start der Verbindung
+
+                      other:
+                            errortext(1,1)
+                            }
+con'***************************************************** MAP-Funktionen *********************************************************************************************************
+PRI Map_Function|a
+    a:=spaces
+                   case a
+                      "d","D":
+                            mapram:=0                                           'schreibmarker ausschalten
+                            tilecounter:=ios.ram_rdword(MAP_RAM)
+                            if tilecounter>0
+                               DisplayMap                                       'Map anzeigen
+                            return
+                      "w","W":
+                             mapram:=1                                          'schreibmarker fuer ram jeder Tilebefehl wird jetzt zusaetzlich in den Ram geschrieben
+                             tilecounter:=0
+                             write_ram(farbe,MAP_RAM+2)                         'Header mit farbwerten fuellen
+                             write_ram(hintergr,MAP_RAM+3)
+                             write_ram(cursorcolor,MAP_RAM+4)
+                             write_ram(0,MAP_RAM+5)
+                             write_ram(0,MAP_RAM+6)
+                             write_ram(0,MAP_RAM+7)                             'Rest des Headers mit nullen fuellen
+
+
+                      "l","L":                                                  'map von sd-card in eram laden
+                             skipspaces
+                             Input_String
+                             Lmap(@f0)
+
+                      "s","S":                                                  'map aus eram auf sd-card speichern
+                             skipspaces
+                             Input_String
+                             Smap(@f0)
+
+                      "c","C":                                                  'Map-Ram_Shadow-BS-Speicher löschen
+                              ios.ram_fill(MAP_RAM,$1C27,0)
+
+con'***************************************************** XBUS-Funktionen *******************************************************************************************************
+PRI BUS_Funktionen |pr,a,b,c,h,r,str,s
+
+    pr:=0                                                                       'pr gibt zurück, ob es sich beim Rückgabewert um einen String oder eine Variable handelt, für die Printausgabe
+    klammerauf
+    a:=expr(1)                                                                  'Chipnummer (1-Administra,2-Bella,3-Venatrix)
+    komma
+    r:=expr(1)                                                                  'wird ein Rückgabewert erwartet? 0=nein 1=char 4=long 3=string
+    s:=0
+                 repeat
+                      komma
+                      if is_string
+                         Input_String
+                         s:=1
+                      else
+                           b:=expr(1)                                           'Kommando bzw Wert
+                           if b>255
+                              case a
+                                   1:ios.bus_putlong1(b)
+                                   2:ios.bus_putlong2(b)
+                                   3:ios.bus_putlong3(b)
+                           else
+                              case a
+                                   1:ios.bus_putchar1(b)
+                                   2:ios.bus_putchar2(b)
+                                   3:ios.bus_putchar3(b)
+
+                      if s==1
+                         lookup(a:ios.bus_putstr1(@f0),ios.bus_putstr2(@f0),ios.bus_putstr3(@f0))
+                         s:=0
+
+                      if spaces==")"
+                         quit
+
+                 skipspaces
+
+                 case r
+                     0:pr:=0
+                       return
+                     1:c:=lookup(a:ios.bus_getchar1,ios.bus_getchar2,ios.bus_getchar3)
+                     4:c:=lookup(a:ios.bus_getlong1,ios.bus_getlong2,ios.bus_getlong3)
+                     3:if a==1
+                          str:=ios.bus_getstr1
+                       if a==3
+                          str:=ios.bus_getstr3
+                       bytemove(@font,str,strsize(str))
+                       pr:=1
+    if r==1 or r==4
+       h:=fl.ffloat(c)
+       str:=fs.floattostring(h)                                                 'Stringumwandlung für die Printausgabe
+       bytemove(@font,str,strsize(str))
+       return h
+
+
+con'******************************************** Port-Funktionen der Sepia-Karte *************************************************************************************************
+PRI PORT_Funktionen|function,a,b,c
+    function:=spaces
+    skipspaces
+    klammerauf
+    a:=expr(1)                                                                  'Adresse bzw.ADDA Adresse
+        case function
+            "O","o":komma
+                    b:=expr(1)                                                  'Byte-Wert, der gesetzt werden soll
+                    klammerzu
+                    c:=a-4                                                      'Portadresse generieren
+                    a:=c+PORT                                                   'Port 4=Adresse+0 Port5=Adresse+1 usw. da nur Register 4-6 Ausgaberegister sind
+                    ios.plxOut(a,b)                                             'wenn a=4 dann 28+4=32 entspricht Adresse$20 von Digital-Port1
+
+            "I","i":'Port I                                                     'Byte von Port a lesen
+                    klammerzu
+                    return ios.getreg(a)                                        'Registerwert auslesen 0-6
+
+            "S","s":'Port Set                                                   '*Adressen zuweisen
+                     komma
+                     b:=expr(1)                                                 '*Port-Adresse zuweisen
+                     ADDA:=a
+                     PORT:=b
+                     klammerzu
+                     ios.set_plxAdr(ADDA,PORT)
+
+            "P","p":'Port-Ping                                                  'Port-Adresse anpingen
+                     klammerzu
+                     ios.plxHalt
+                     b:=ios.plxping(a)
+                     ios.plxrun
+                     return b
+
+con'********************************************* serielle Schnittstellen-Funktionen *********************************************************************************************
+PRI Comfunktionen|function,a,b
+    function:=spaces
+    skipspaces
+        case function
+            "S","s":klammerauf
+                    a:=expr(1)                                                  'serielle Schnittstelle öffnen/schliessen
+                    if a==1
+                       komma                                                    'wenn öffnen, dann Baudrate angeben
+                       b:=expr(1)
+                       ios.seropen(b)
+                       serial:=1
+                    elseif a==0                                                 'Schnittstelle schliessen
+                       ios.serclose
+                       serial:=0
+                    klammerzu
+            "G","g":'COM G                                                      'Byte von ser.Schnittstelle lesen ohne warten
+                    return fl.ffloat(ios.serread)
+            "R","r":'COM R                                                      'Byte von ser.Schnittstelle lesen mit warten
+                    return fl.ffloat(ios.serget)
+con '******************************************* Parameter des Player's und der Sprites *******************************************************************************************
+PRI playersettings|f,i,e
+    f:=spaces
+    skipspaces
+    klammerauf
+    case f
+        "P","p":param(5)                                                        'Spielerparameter
+                ios.Actorset(prm[0],prm[1],prm[2],prm[3],prm[4],prm[5])         'Actorset(tnr1,col1,col2,col3,x,y)
+
+        "K","k":param(4)                                                        'Spielertasten belegen
+                ios.setactionkey(prm[0],prm[1],prm[2],prm[3],prm[4])            'links,rechts,hoch,runter,feuer
+                repeat i from 0 to 4
+                       actionkey[i]:=prm[i] 'links
+        "B","b":param(9)                                                        'Blockadetiles einlesen (tnr1,....tnr10)
+                repeat i from 0 to 9
+                     block[i]:=prm[i]
+                     ios.send_block(i,prm[i])
+        "I","i":param(5)                                                        'Item-Tiles einlesen (tnr1,...tnr6)
+                repeat i from 0 to 5
+                     item[i]:=prm[i]
+        "C","c":param(5)                                                        'Kollisions-Tiles  (tnr1,...tnr6)
+                repeat i from 0 to 5
+                     collision[i]:=prm[i]
+        "E","e":param(4)                                                        'Ersatz-Item-Tiles (nr1-6,tnr,f1,f2,f3)
+                e:=(prm[0]-1)*5
+                f:=0
+                repeat i from e to e+4
+                     itemersatz[i]:=prm[f++]
+    klammerzu
+
+
+PRI playerposition(a)|b,c,d,i,bl                                                'Hier wird die Playerbewegung auf Blockadetiles überprüft
+                bl:=0
+                get_position
+                b:=actorpos[0]
+                c:=actorpos[1]
+                if a==actionkey[0]
+                   d:=read_ram(MAP_RAM+8+((b-1)*6)+(c*40*6))
+                elseif a==actionkey[1]
+                   d:=read_ram(MAP_RAM+8+((b+1)*6)+(c*40*6))
+                elseif a==actionkey[2]
+                   d:=read_ram(MAP_RAM+8+((b*6)+((c-1)*40*6)))
+                elseif a==actionkey[3]
+                   d:=read_ram(MAP_RAM+8+((b*6)+((c+1)*40*6)))
+                elseif a==actionkey[4]
+                    'Unterroutine Feuertaste, noch nicht vorhanden
+                repeat i from 0 to 9
+                   if block[i]==d
+                      bl:=1
+                if bl==0
+                   ios.setactor_xy(a)
+
+PRI Kollisionserkennung:a|d,i
+    a:=0
+    d:=get_position
+
+    repeat i from 0 to 5
+       if collision[i]==d
+             a:=2                                                               'Kollision des Spielers mit Kollisionstiles
+             quit
+
+PRI get_position:d
+
+    actorpos[0]:=ios.get_actor_pos(1) 'x-pos
+    actorpos[1]:=ios.get_actor_pos(2) 'y-pos
+    d:=read_ram(MAP_RAM+8+((actorpos[0]*6)+(actorpos[1]*40*6)))                 'Tile an aktueller Position im Map-Speicher lesen
+
+PRI Item_sammeln:a|d,i,e,f
+    a:=0
+    d:=get_position                                                             'item auf dem der Player gerade steht
+    repeat i from 0 to 5
+       if item[i]==d
+             a:=1+i                                                             'Item-Nr zurückgeben
+             e:=MAP_RAM+8+((actorpos[0]*6)+(actorpos[1]*40*6))
+             f:=i*5
+             write_ram(itemersatz[f+1],e)'gesammeltes Item wird durch Ersatzitem im ERam ersetzt (um Doppeleinsammlung zu verhindern)
+             ios.Change_Backuptile(itemersatz[f+1],itemersatz[f+2],itemersatz[f+3],itemersatz[f+4]) 'ersatzitem wird in Backuppuffer des Players geschrieben (ersetzt)
+                                                                                                    'damit stimmt jetzt auch die Farbe des Ersatzitems
+             quit
+PRI spritesettings|f
+    f:=spaces
+    skipspaces
+    klammerauf
+    case f
+        "S","s":ios.set_sprite_speed(expr(1))                                   'Speed
+        "M","m":ios.Sprite_Move(expr(1))                                        'move an aus reset
+        "P","p":param(10)                                                       'Spriteparameter
+                ios.set_sprite(prm[0],prm[1],prm[2],prm[3],prm[4],prm[5],prm[6],prm[7],prm[8],prm[9],prm[10]) 'Nr,Tnr,Tnr2,f1,f2,f3,dir,strt,end,x,y)
+    klammerzu
+
+con'*************************************************************** Array-Dimensionierung ****************************************************************************************
+PRI Felddimensionierung(variabl,var_str,x_koord,y_koord,z_koord)|ort
+
+    if var_str==1                                                               'Zahlenfelddimensionen speichern
+       ort:=DIM_VAR+(2*variabl*3)
+    else                                                                        'String-Felddimensionen speichern
+       ort:=DIM_STR+(2*variabl*3)
+
+    ios.ram_wrword(x_koord+1,ort)
+    ios.ram_wrword(y_koord+1,ort+2)
+    ios.ram_wrword(z_koord+1,ort+4)
+
+PRI spaces | c
+   'einzelnes zeichen lesen
+   repeat
+      c := byte[tp]
+      if c==21 or c==17                                                         'Wurzelzeichen und Pi-Zeichen
+         return c
+      if c == 0 or c > " "
+         return c
+      tp++
+
+PRI skipspaces
+   if byte[tp]
+      tp++
+   return spaces
+
+PRI parseliteral | r, c                                                         'extrahiere Zahlen aus der Basiczeile
+   r := 0
+   repeat
+      c := byte[tp]
+      if c < "0" or c > "9"
+         return r
+      r := r * 10 + c - "0"
+      tp++
+
+PRI fixvar(c)                                                                   'wandelt variablennamen in Zahl um (z.Bsp. a -> 0)
+   if c => "a"
+      c -= 32
+   return c - "A"
+
+PRI isvar(c)                                                                    'Ueberpruefung ob Variable im gueltigen Bereich
+   c := fixvar(c)
+   return c => 0 and c < 26
+
+PRI circle(x,y,r,frbe)|i,xp,yp,a,b,c,d
+    d:=630 '(2*pi*100)
+    repeat i from 0 to d step 3
+          c:=fl.fdiv(fl.ffloat(i),fl.ffloat(100))
+          a:=fl.fadd(x,fl.fmul(fl.cos(c),r))
+          b:=fl.fadd(y,fl.fmul(fl.sin(c),r))
+          xp:=fl.FRound(a)
+          yp:=fl.FRound(b)
+          ios.PlotPixel(frbe,xp,yp)
+
+PRI playerstatus
+       ios.sid_dmpstop
+       play:=0
+       close
+
+PRI param(anzahl)|i
+    i:=0
+    repeat anzahl
+        prm[i++]:=expr(1)                                                       'parameter mit kommatrennung
+        komma
+    prm[i++]:=expr(1)                                                           'letzter Parameter ohne skipspaces
+
+pri is_string                                                                   'auf String überprüfen
+    result:=0
+    if spaces==quote or spaces=="#" or spaces==176 or spaces==236 or spaces==163
+       result:=1
+
+PRI komma
+    is_spaces(",",1)
+
+PRI is_spaces(zeichen,t)
+       skipspaces
+
+PRI raute
+       skipspaces
+       return 1
+
+PRI klammer:b
+            skipspaces
+            b:=expr(1)
+            skipspaces
+
+PRI klammerauf
+    'is_spaces(40,1)
+    skipspaces
+
+PRI klammerzu
+    'is_spaces(41,1)
+    skipspaces
+
+PRI getAnyNumber | c, t,i,punktmerker,d,zahl[STR_MAX]
+
+   case c := byte[tp]
+      quote:
+         if result := byte[++tp]
+            if byte[++tp] == quote
+              tp++
+
+      "$":
+         c := byte[++tp]
+         t := hexDigit(c)' < 0
+         result := t
+         c := byte[++tp]
+         repeat until (t := hexDigit(c)) < 0
+            result := result << 4 | t
+            c := byte[++tp]
+         result:=fl.FFLOAT(result)
+
+      "%":
+         c := byte[++tp]
+         result := c - "0"
+         c := byte[++tp]
+         repeat while c == "0" or c == "1"
+            result := result << 1 | (c - "0")
+            c := byte[++tp]
+         result:=fl.FFLOAT(result)
+
+      "0".."9":
+          i:=0
+          punktmerker:=0
+          c:=byte[tp++]
+          repeat while c=="." or c=="e" or c=="E" or (c => "0" and c =< "9")    'Zahlen mit oder ohne punkt und Exponent
+                 if c==point
+                    punktmerker++
+                 if punktmerker>1                                               'mehr als ein punkt
+                    errortext                                                   'Syntaxfehler ausgeben
+                 if c=="e" or c=="E"
+                    d:=byte[tp++]
+                    if d=="+" or d=="-"
+                       byte[@zahl][i++]:=c
+                       byte[@zahl][i++]:=d
+                       c:=byte[tp++]
+                       next
+                 byte[@zahl][i++]:=c
+                 c:=byte[tp++]
+          byte[@zahl][i]:=0
+          result:=fs.StringToFloat(@zahl)
+          --tp
+
+
+PRI hexDigit(c)
+'' Convert hexadecimal character to the corresponding value or -1 if invalid.
+   if c => "0" and c =< "9"
+      return c - "0"
+   if c => "A" and c =< "F"
+      return c - "A" + 10
+   if c => "a" and c =< "f"
+      return c - "a" + 10
+   return -1
+
+pri zahlenformat(h)|j
+    j:=fl.ftrunc(h)
+       if (j>MAX_EXP) or (j<MIN_EXP)                                            'Zahlen >999999 oder <-999999  werden in Exponenschreibweise dargestellt
+           return FS.FloatToScientific(h)                                       'Zahlenwerte mit Exponent
+       else
+           return FS.FloatToString(h)                                           'Zahlenwerte ohne Exponent
+
+con '****************************************** Directory-Anzeige-Funktion *******************************************************************************************************
+PRI h_dir(z,modes,str) | stradr,n,i,dlen,dd,mm,jj,xstart                        'hive: verzeichnis anzeigen
+{{h_dir - anzeige verzeichnis}}                                                 'mode 0=keine Anzeige,mode 1=einfache Anzeige, mode 2=erweiterte Anzeige
+  ios.printcursorrate(0)                                                        'cursor ausschalten
+  mount
+
+  xstart:=ios.getx                                                              'Initial-X-Wert
+  if strsize(str)<3
+     str:=@ext5                                                                 'wenn kein string uebergeben wird, alle Dateien anzeigen
+  else
+     repeat 3                                                                   'alle Zeichen von STR in Großbuchstaben umwandeln
+        if byte[str][i]>96
+           byte[str][i]^=32
+        i++
+
+  ios.sddir                                                                     'kommando: verzeichnis öffnen
+  n := 0                                                                        'dateizaehler
+  i := 0                                                                        'zeilenzaehler
+ repeat  while (stradr:=ios.sdnext)<>0                                          'wiederholen solange stradr <> 0
+
+
+    dlen:=ios.sdfattrib(0)                                                      'dateigroesse
+    dd:=ios.sdfattrib(10)                                                       'Aenderungsdatum tag
+    mm:=ios.sdfattrib(11)                                                       'Aenderungsdatum monat
+    jj:=ios.sdfattrib(12)                                                       'Aenderungsdatum Jahr
+
+
+      scanstr(stradr,1)                                                         'dateierweiterung extrahieren
+
+      ifnot ios.sdfattrib(17)                                                   'unsichtbare Dateien ausblenden
+        if strcomp(@buff,str) or strcomp(str,@ext5)                             'Filter anwenden
+             n++
+
+          '################## Bildschrirmausgabe ##################################
+           if modes>0
+
+               ios.print(stradr)
+
+               if modes==2
+                  erweitert(xstart,dlen,dd,mm,jj)
+               ios.printnl
+               ios.setx(xstart)
+               i++
+
+               if i==z                                                             '**********************************
+                  if ios.keywait == ios#CHAR_ESC                                   'auf Taste warten, wenn ESC dann Ausstieg
+                     if cursor==1                                                  '**********************************
+                        ios.printCursorRate(3)                                     '**********************************
+                     ios.printnl                                                   '**********************************
+                     close                                                         '**********************************
+                     filenumber:=n                                                 'Anzal der Dateien merken
+                     abort                                                        '**********************************
+
+                 i := 0                                                           '**********************************
+                 ios.printnl
+                 ios.setx(xstart)
+           if modes==0
+              if n<DIR_ENTRY                                                     'Begrenzung der Einträge auf die mit DIR_ENTRY vereinbarte
+                 WriteNameToRam(stradr,n)                                        'Dateiname zur spaeteren Verwendung in ERam speichern an adresse n
+
+
+ if modes                                                                       'sichtbare Ausgabe
+    ios.printdec(n)                                                            'Anzahl Dateien
+    'errortext(43,0)
+    ios.printnl
+ if cursor==1
+    ios.printCursorRate(3)
+ filenumber:=n                                                                 'Anzal der Dateien merken
+ close                                                                         'ins Root Verzeichnis ,SD-Card schliessen und unmounten
+ abort
+PRI WriteNameToRam(str,nummer)|adress,position,c                                'Dateiliste in ERam schreiben
+    position:=(nummer-1)*13
+    adress:=DIR_RAM+position
+    repeat strsize(str)
+            c:=byte[str++]
+            write_ram(c,adress++)
+
+PRI getfilename(nummer)|adress,position,c,num                                   'mit GFile ausgewaehlte Datei in Stringvariable Z schreiben
+    position:=(nummer-1)*13
+    adress:=DIR_RAM+position                                                    'Adresse Dateiname im eRam
+    num:= scandimension(STR_ARRAY,STR_LEN,25,0,0,0,0,0,0)                       'adresse("#Z")
+    repeat 12
+            c:=read_ram(adress++)                                               'Dateiname aus Dir-Ram lesen
+            write_ram(c,num++)                                                  'und in Variablenspeicher an adresse Z schreiben
+    write_ram(0,num++)                                                          'null fuer stringende schreiben
+
+PRI erweitert(startx,laenge,tag,monat,jahr)                               'erweiterte Dateianzeige
+
+         ios.setx(startx+14)
+         ios.printdec(laenge)
+         ios.setx(startx+21)
+         ios.printdec(tag)
+         ios.setx(startx+24)
+         ios.printdec(monat)
+         ios.setx(startx+27)
+         ios.printdec(jahr)
+
+PRI scanstr(f,mode) | z ,c                                                      'Dateiendung extrahieren
+   if mode==1
+      repeat while strsize(f)
+             if c:=byte[f++] == point                                           'bis punkt springen
+                quit
+   z:=0
+   repeat 3                                                                     'dateiendung lesen
+        c:=byte[f++]
+        buff[z++] := c
+   buff[z++] := 0
+   return @buff
+
+PRI activate_dirmarker(mark)                                                    'USER-Marker setzen
+
+     ios.sddmput(ios#DM_USER,mark)                                              'usermarker wieder in administra setzen
+     ios.sddmact(ios#DM_USER)                                                   'u-marker aktivieren
+
+PRI get_dirmarker:dm                                                            'USER-Marker lesen
+
+    ios.sddmset(ios#DM_USER)
+    dm:=ios.sddmget(ios#DM_USER)
+
+
+con '********************************* Unterprogramme zur Tile-Verwaltung *********************************************************************************************************
+PRI Win_Set_Tiles|i,a                                                           'Tiles, aus denen die Fenster bestehen, in den Ram schreiben
+    i:=WTILE_RAM
+    a:=0
+    repeat 18
+           write_ram(windowtile[a++],i++)                                       'Standard-Wintiles in den Ram schreiben
+    ios.windel(9)                                                               'alle Fensterparameter löschen und Win Tiles senden
+
+PRI LoadTiletoRam(tilenr,datei,xtile,ytile)|adress ,count                       'tile:=tilenr,dateiname,xtile-zahl,ytilezahl
+
+    xtiles[tilenr]:=xtile                                                       'xtiles fuer tilenr        '
+    ytiles[tilenr]:=ytile                                                       'ytiles fuer tilenr
+    count:=xtile*ytile*64                                                       'anzahl zu ladender Bytes (16*11*16*4=11264)
+    if tilenr<16
+       adress:=TILE_RAM+((tilenr-1)*$2C00)                                      'naechster Tilebereich immer 2816 longs (11264 Bytes) 14 Tilesets moeglich Tileset15 ist der Systemfont
+    else
+       adress:=MOUSE_RAM                                                        'Mouse-Pointer
+       count:=64
+    mount
+    activate_dirmarker(basicmarker)                                             'ins Basic Stammverzeichnis
+    ios.sdchdir(@tile)                                                          'ins tile verzeichnis wechseln
+    if ios.sdopen("R",datei)                                                    'datei öffnen
+       errortext
+       return
+    ios.sdxgetblk(adress,count)                                                 'datei in den Speicher schreiben  (der blockbefehl ist viel schneller als der char-Befehl)
+    close
+    '####Mouse-Pointer############
+    if tilenr==16
+       ios.Mousepointer(MOUSE_RAM)                                              'neuen Mauszeiger übernehmen
+
+PRI loadtile(tileset)|anzahl,adress                                             'tileset aus eram in bella laden
+    if tileset==15                                                              'bei Systemfont, Fenstertiles wieder herstellen
+       Win_Set_Tiles
+
+    adress:=TILE_RAM+((tileset-1)*$2C00)                                        'naechster Tilebereich immer 2816 longs (11264 Bytes) 14 Tilesets moeglich
+
+    anzahl:=ytiles[tileset]*xtiles[tileset]*16                                  'anzahl tilebloecke
+    ios.loadtilebuffer(adress,anzahl)                                           'laden
+    aktuellestileset:=tileset                                                   'zum aktuellen Tileset machen
+
+PRI printfont(str,a,b,c,d,e)|f,x,adr
+    ios.printfont(win,str,a,b,c,e,d,0)
+    if mapram==1
+       repeat strsize(str)
+         f:= byte[str++]
+            x:=d*6
+            adr:=MAP_RAM+8+(e*40*6)
+            write_ram(f,adr+x++)                                                'in Shadow-Bildspeicher schreiben
+            write_ram(a,adr+x++)                                                'in Shadow-Bildspeicher schreiben
+            write_ram(b,adr+x++)                                                'in Shadow-Bildspeicher schreiben
+            write_ram(c,adr+x++)                                                'in Shadow-Bildspeicher schreiben
+            write_ram(d,adr+x++)                                                'in Shadow-Bildspeicher schreiben
+            write_ram(e,adr+x++)                                                'in Shadow-Bildspeicher schreiben
+            tilecounter++
+         d++
+       ios.ram_wrword(tilecounter,MAP_RAM)                                     'Tile-Zähler in den Ram schreiben
+con '************************************* Unterprogramme zur Map-Daten-Behandlung *****************************************************************************************************
+PRI lmap(name)|datadresse,counters                                               'Map-datei von SD-Card in eram laden
+    datadresse:=MAP_RAM
+    mount
+    activate_dirmarker(basicmarker)                                             'ins Basic Stammverzeichnis
+    if ios.sdopen("R",name)                                                     'datei vorhanden?
+       errortext
+       return
+    counters:=DPL_CNT                                                            'anzahl speicherstellen
+    counters*=6                                                                  'mit 6 multiplizieren da jedes Tile 6 parameter hat (nr,3xfarbe und x bzw.y)
+    counters+=8                                                                  'plus header
+    ios.sdxgetblk(datadresse,counters)                                           'Map in den Speicher laden
+    close
+    tilecounter:=ios.ram_rdword(MAP_RAM)                                        'tilecounter fuer anzeige setzen
+
+PRI smap(name)|datadresse,a,count                                             'MAP-Datei auf SD-Card schreiben
+   a:=ifexist(name)
+   if a==0 or a==2                                                              'Fehler
+      return
+   ios.ram_wrword(tilecounter,MAP_RAM)                                          'counter schreiben
+   datadresse:= MAP_RAM
+   count:=(DPL_CNT*6)+8                                                         'counter mit 6 multiplizieren da jedes Tile 6 parameter hat (nr,farbe1-3,x,y), die ersten 8 stellen sind der Header
+   ios.sdxputblk(datadresse,count)                                              'Map auf SD-Card speichern
+   close
+
+PRI DisplayMap|datadr,tnr,f1,f2,f3,tx,ty,contr                                  'Map-Datei aus eram lesen und anzeigen
+    farbe      :=read_ram(MAP_RAM+2)                                            'Bildschirmfarben lesen
+    hintergr   :=read_ram(MAP_RAM+3)
+    cursorcolor:=read_ram(MAP_RAM+4)
+    ios.printboxcolor(win,farbe,hintergr,cursorcolor)                           'Fenster mit Bildschirmfarben erzeugen
+    ios.printcls
+    datadr:=MAP_RAM+8                                                           'Start-Position im ERam
+    repeat DPL_CNT
+               tnr:=read_ram(datadr++)                                          'Tilenr
+               f1 :=read_ram(datadr++)                                          'farbe1
+               f2 :=read_ram(datadr++)                                          'farbe2
+               f3 :=read_ram(datadr++)                                          'farbe3
+               tx :=read_ram(datadr++)                                          'x-position
+               ty :=read_ram(datadr++)                                          'y-position
+               if contr:=tnr+f1+f2+f3                                           'Tile da?
+                  ios.displayTile(tnr,f1,f2,f3,ty,tx)                           'einzelnes Tile anzeigen   ('displayTile(tnr,pcol,scol,tcol, row, column))
+con'****************************************** Button-Routinen *************************************************************************************************************
+Pri Buttons|a,c,bnr,adr
+    a:=spaces
+    skipspaces
+    klammerauf
+    bnr:=expr(1)                                                                'Button-Nr
+    if bnr>BUTTON_CNT or bnr<1
+       errortext
+    adr:=BUTT_RAM+((bnr-1)*40)
+    case a                    '    0        1       2     3
+         "t","T":komma
+                 param(3)     'vordergr,hintergr,x-pos,y-pos,Buttontext
+                 komma
+                 Input_String
+                 prm[4]:=prm[2]+strsize(@f0)+1
+                 ios.Plot_Line(prm[2], prm[3],prm[4],prm[3],prm[1])             'Button darstellen
+                 ios.printfont(0,@f0,prm[1],prm[0],0,prm[3],prm[2]+1,0)         'Text mit aktuellen Font darstellen
+                 c:=Buttonparameter(5,adr)                                      'Button-Parameter in den Ram schreiben
+                 stringschreiben(c++,0,@f0,1,0)                                 'Button-Text in den Ram schreiben
+                 button_art[bnr-1]:=1                                           'Art des Buttons 1=Text 2=Icon
+                 ios.send_button_param(bnr,prm[2],prm[3],prm[4])                'Button-Koordinaten nach Bella senden zur Maus-Verarbeitung
+
+         "i","I":'Icon-Button    0       1        2        3      4    5
+                 komma
+                 param(5)     'tilenr,vordergr,hintergr,3.Farbe,x pos,y-pos
+                 ios.displayTile(prm[0],prm[1],prm[2],prm[3],prm[5],prm[4])     'einzelnes Tile anzeigen   ('displayTile(tnr,pcol,scol,tcol, row, column))
+                 Buttonparameter(6,adr)
+                 button_art[bnr-1]:=2                                           'Art des Buttons 1=Text 2=Icon
+                 ios.send_button_param(bnr,prm[4],prm[5],prm[4])                'Button-Koordinaten nach Bella senden zur Maus-Verarbeitung
+         "r","R":'Reset
+                 ios.destroy3dbutton(bnr)                                       'button löschen
+                 button_art[bnr-1]:=0                                           'Button-Art löschen
+         'other:
+         '      errortext
+    klammerzu
+
+pri Buttonpress_on(h)|adr,a,b,c,d,e,f',g,tnr
+
+  adr:=BUTT_RAM+((h-1)*40)                                                      'Textbutton - Icon
+  a:=  read_ram(adr++)                                                          'vordergr - tnr
+  b:=  read_ram(adr++)                                                          'hintergrund - f1
+  c:=  read_ram(adr++)                                                          'tx - f2
+  d:=  read_ram(adr++)                                                          'ty - f3
+  e:=  read_ram(adr++)                                                          'txx - x
+
+    if button_art[h-1]==1                                                       'Textbutton
+       stringlesen(adr++)                                                       'Button-String holen
+       ios.Plot_Line(c,d,e,d,a)                                                 'Button revers zeichnen
+       printfont(@font,a,b,0,c+1,d)                                             'Text mit aktuellen revers Font darstellen
+       repeat while ios.mouse_button(0)
+       ios.Plot_Line(c,d,e,d,b)                                                 'Button normal zeichnen
+       printfont(@font,b,a,0,c+1,d)                                             'Text mit aktuellen Font darstellen
+
+    if button_art[h-1]==2                                                       'Icon-Button
+       f:=read_ram(adr++)                                                       'y-Position des Icon
+       ios.displayTile(a,c,b,d,f,e)                                             'einzelnes Tile revers anzeigen   ('displayTile(tnr,pcol,scol,tcol, row, column))
+       repeat while ios.mouse_button(0)
+       ios.displayTile(a,b,c,d,f,e)                                             'einzelnes Tile anzeigen   ('displayTile(tnr,pcol,scol,tcol, row, column))
+
+pri buttonparameter(sl,adr):c|i                                                 'Buttonparameter in den Ram schreiben
+    i:=0
+    repeat sl
+        write_ram(prm[i++],adr++)
+    c:=adr
+
+pri read_ram(adr)
+
+    result:=ios.ram_rdbyte(adr)
+
+pri write_ram(wert,adr)
+
+    ios.ram_wrbyte(wert,adr)
+pri read_filename|a,i
+    a:=ios#PARAM
+       i:=0
+       repeat while f0[i++]:=ios.ram_rdbyte(a++)                             'Parametertext einlesen
+       f0[i]:=0
+       if i>0
+          mount
+          ios.sdopen("R",@f0)
+          newprog
+          binload(0)
+
+DAT
+
+{{
+                            TERMS OF USE: MIT License
+
+ Permission is hereby granted, free of charge, to any person obtaining a copy
+ of this software and associated documentation files (the "Software"), to deal
+ in the Software without restriction, including without limitation the rights
+ to use, copy, modify, merge, publish, distribute, sublicense, and/or sell
+ copies of the Software, and to permit persons to whom the Software is
+ furnished to do so, subject to the following conditions:
+
+ The above copyright notice and this permission notice shall be included in
+ all copies or substantial portions of the Software.
+
+ THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, exprESS OR
+ IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
+ FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE
+ AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
+ LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE,ARISING FROM,
+ OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN
+ THE SOFTWARE.
+}}
diff --git a/source/Basic2_1-word.spin b/source/Basic2_1-word.spin
index 7283b84..22fd138 100644
--- a/source/Basic2_1-word.spin
+++ b/source/Basic2_1-word.spin
@@ -332,8 +332,8 @@ Logbuch         :
 
 07-01-2014      -Fehler in der Feldberechnung von Arrays entdeckt (verdammt)-> aber gefunden und behoben :-)
                 -Wenn der Ram-Speicher noch reicht richte ich für jedes Fenster eine Backup-Area ein kostet 50400 Bytes(möglicher Bereich ab $EE800 ->ca.70kb frei)
-                -Backup-Area für Fenster eingerichtet, ist aber bur spartanisch. Funktioniert nur korrekt, wenn überlappte Fenster von oben beginnend gelöscht werden
-                -wir zuerst ein verdecktes Fenster gelöscht, entstehen Fehldarstellungen, würde mich mal interessieren, wie die Profi's das machen
+                -Backup-Area für Fenster eingerichtet, ist aber nur spartanisch. Funktioniert nur korrekt, wenn überlappte Fenster von oben beginnend gelöscht werden
+                -wird zuerst ein verdecktes Fenster gelöscht, entstehen Fehldarstellungen, würde mich mal interessieren, wie die Profi's das machen
                 -Restore-Funktion bei Fenstern abschaltbar mit WIN R(Fensternummer,Restore-> 0=Nein 1=Ja)
                 -1101 Longs frei
 
@@ -597,6 +597,22 @@ Logbuch         :
 
 '############################################################ Version 2.3 ######################################################################################################
 
+19-05-2014      -Basic-Runtime-Modul geschaffen, das erlaubt die direkte Ausführung von Basicdateien aus Plexus heraus
+                -1369 Longs frei
+
+21-05-2014      -Hilfe zur Onlinehilfe umgebaut, dadurch entfällt der Aufruf als externe Datei und spart die Arbeit an zwei Programmen
+                -HELP zeigt alle verfügbaren Befehle auf dem Bildschirm an
+                -HELP A zeigt alle mit A beginnenden Befehle an
+                -HELP BEFEHL zeigt die Hilfe zum entsprechenden Befehl an
+                -Hilfetexte angepasst
+                -Hilfetextausgabe farbig (blau) gestaltet
+                -1313 Longs frei
+
+23-05-2014      -DIR-Ausgabe etwas angepasst, Verzeichnisse werden jetzt in einer anderen (dynamischen) Farbe angezeigt
+                -Ausgabe des HELP Befehls ohne Parameter mit Tastenabfrage ergänzt um ein überscrollen der Ausgabe zu verhindern (alle Befehle passen nicht auf den Bildschirm)
+                -ausserdem abfrage auf x-position um zu verhindern, das ein Befehl umgebrochen wird und so schlechter lesbar ist.
+                -1304 Longs frei
+
 
  --------------------------------------------------------------------------------------------------------- }}
 
@@ -612,7 +628,7 @@ con
 _CLKMODE     = XTAL1 + PLL16X
 _XINFREQ     = 5_000_000
 
-   version   = 2.214
+   version   = 2.303
 
    fEof      = $FF                     ' dateiende-kennung
    linelen   = 85                      ' Maximum input line length
@@ -869,24 +885,24 @@ dat
 
 
 '************************ Befehle in der Testphase ****************************************************************
+   tok33 byte "PUT", 0                                                                     '161
+   tok126 byte"HELP",0                                                                     '254
 
 '******************************************************************************************************************
 
 '******************************* freie Befehle für Erweiterungen **************************************************
-   tok33 byte "PUT", 0                                                                    '161
-   tok41 byte "BFD", 0                                                                    '169
-   tok42 byte "BFE", 0                                                                    '170
-   tok43 byte "BFH", 0                                                                    '171
-   tok44 byte "BFI", 0                                                                    '172
-   tok45 byte "BFJ", 0                                                                    '173
-   tok46 byte "BFK", 0                                                                    '174
-   tok72 byte "BFL",0                                                                     '200
-   tok73 byte "BFM",0                                                                     '201
-   tok75 byte "BFN",0                                                                     '203
-   tok94 byte "LAN",0                                                                     ' 222
-   tok95 byte "BF1",0                                                                    ' 223
-   tok107 byte"BFF",0                                                                     '235
-   tok126 byte"BFG",0                                                                     '254
+   tok41 byte "   ",0                                                                     '169
+   tok42 byte "   ",0                                                                     '170
+   tok43 byte "   ",0                                                                     '171
+   tok44 byte "   ",0                                                                     '172
+   tok45 byte "   ",0                                                                     '173
+   tok46 byte "   ",0                                                                     '174
+   tok72 byte "   ",0                                                                     '200
+   tok73 byte "   ",0                                                                     '201
+   tok75 byte "   ",0                                                                     '203
+   tok94 byte "   ",0                                                                     '222
+   tok95 byte "   ",0                                                                     '223
+   tok107 byte"   ",0                                                                     '235
 
 '        ---------------------------- Mehr Befehle sind nicht möglich --------------------------
 '******************************************************************************************************************
@@ -975,7 +991,7 @@ DAT
    bel           byte "bel.sys",0                                               'Bella-Grafik-Treiber
    sysfont       byte "sysfontb.dat",0                                          'system-font
    errortxt      byte "errors.txt",0                                            'Error-Texte
-   helpfile      byte "help.sys",0                                              'Hilfesystem
+   'helpfile      byte "help.sys",0                                              'Hilfesystem
    importfile    byte "import.sys",0
    exportfile    byte "export.sys",0
 
@@ -1062,7 +1078,6 @@ PRI init |pmark,newmark,x,y,i
      LoadTiletoRam(15,@sysfont,16,11)                                              'Logo und Font in eram laden
 
      loadtile(15)                                                                  'Logo und Font in den Puffer laden
-     Win_Set_Tiles                                                                 'Fenster Tile-Nummern in den Ram schreiben
 
  '*************** Logo anzeigen **************************************
      x:=y:=0
@@ -1350,10 +1365,10 @@ PRI getline(laenge):e | i,f, c
                            tp := @tline
                            return
                        211:
-                           h_dir(dzeilen,modus,@ext5)                     'taste F4 DIR aufrufen
+                           h_dir(dzeilen,modus,@ext5)                           'taste F4 DIR aufrufen
                        210:i := put_command(@tok19,0)                           'save  F3
                        209:i := put_command(@tok20,0)                           'Load  F2
-                       208:Hilfe                                                'Hilfe aufrufen
+                       208:i := put_command(@tok126,0)                          'Help  F1                                                'Hilfe aufrufen
 '**********************************************************************
                    fReturn:Returnmarker:=1                                      'wenn return gedrueckt
                            ios.printnl
@@ -2202,7 +2217,7 @@ PRI SID_SOUND|i,err,a,b
           3:'ADSR
              param(4)
              ios.sid1_setADSR(prm[0],prm[1],prm[2],prm[3],prm[4])
-             ios.sid_beep(1)
+             'ios.sid_beep(1)
 
           4:'WAVE
              a:=expr(1)
@@ -2303,7 +2318,7 @@ PRI Get_term(wert)
        num2:=expr(wert)
 
 con '*************************************** Dateinamen extrahieren **************************************************************************************************************
-PRI scanFilename(f,mode,kennung) | c, chars
+PRI scanFilename(f,mode,kennung):chars| c
 
    chars := 0
    if kennung==quote
@@ -2810,7 +2825,7 @@ PRI texec | ht, nt, restart,a,b,c,d,e,f,h,elsa
                      play:=1
                      ios.sid_sdmpplay(@f0)                                      'in stereo
                   elseif spaces == "0"
-                         ios.sid_dmpstop
+                         playerstatus'ios.sid_dmpstop
                          play:=0
                          close
                   elseif spaces == "1"
@@ -2831,7 +2846,7 @@ PRI texec | ht, nt, restart,a,b,c,d,e,f,h,elsa
                 c:=prm[1]
                 if (b*c)>176
                    errortext(16,1)
-                if a==15
+                if a==15                                                        'Tileset 15 ist die Mauszeigerdatei
                    LoadTiletoRam(16,@f0,1,1)                                    'Mauszeigerdatei
                 else
                    LoadTiletoRam(a,@f0,b,c)                                     'Tile-Datei in den Ram schreiben
@@ -3168,6 +3183,13 @@ PRI texec | ht, nt, restart,a,b,c,d,e,f,h,elsa
                  param(4)
                  ios.Restore_Area(prm[0],prm[1],prm[2],prm[3],prm[4])           'Restore_Area(x,y,xx,yy,adr)
 
+            254:'HELP
+                 ifnot spaces
+                       Show_help(0)
+                 else
+                     show_help(1)
+
+
 '****************************ende neue befehle********************************
 
       else
@@ -3176,7 +3198,56 @@ PRI texec | ht, nt, restart,a,b,c,d,e,f,h,elsa
       if spaces == ":"                                                          'existiert in der selben zeile noch ein befehl, dann von vorn
          restart := 1
          tp++
+con'******************************************* Online-Hilfe ****************************************************************************************************************
+pri Show_help(len)|a,i
+    if len
+       a:=spaces                                                                'Anfangsbuchstabe lesen
 
+    if len==0
+       repeat i from 65 to 90                                                   'Alle verfügbaren Befehle anzeigen
+            if i==82
+               ios.keywait                                                      'auf Tastendruck warten
+            Put_Help_words(i)
+    if a=<122
+       Put_Help_words(a)
+    if a=>128
+       a-=128
+       mount
+       sdset(@help)                                                             'ins help verzeichnis wechseln
+       ios.sdopen("R",@@toks[a])                                                'gesuchte Hilfedatei öffnen
+       ios.printBoxColor(0,blue,hintergr,cursorcolor)                           'Hilfetext in anderer Farbe darstellen
+       read_txtfile                                                             'Hilfedatei ausgeben
+       ios.printBoxColor(0,farbe,hintergr,cursorcolor)                          'Farben zurücksetzen
+       activate_dirmarker(basicmarker)                                          'zurück ins Basicverzeichnis
+       close
+    ios.printnl
+
+pri put_help_words(st)|c,ntok,i,z                                'zeigt alle mit dem, als Suchbegriff eingegebenen Buchstaben vorhandenen Befehle an
+    ntok:=Get_toks
+    if st>96
+       st-=32
+    repeat i from 0 to ntok
+           bytemove(@tline,@@toks[i],strsize(@@toks[i]))
+           c:=tline[0]
+           if c==st
+              ios.print(@@toks[i])
+              ios.print(string("  "))
+              if ios.getx>33
+                 ios.printnl
+
+
+pri read_txtfile|c
+      repeat
+          c:=ios.sdgetc
+          if c==10                                            'return oder linefeed nicht als zeichen anzeigen
+             next
+          ios.printchar(c)                                    'text anzeigen
+      until ios.sdeof                                         'ausgabe bis eof
+ios.sdclose
+
+pri sdset(str)                                         'Verzeichniswechsel
+    ios.sdchdir(str)
+    ios.sddmset(str)
 con'******************************************* DATA-Funktion ********************************************************************************************************************
 PRI DATA_READ|anz                                                               'READ-Anweisungen interpretieren, Data-Werte lesen und an die angegebenen Variablen verteilen
     anz:=0
@@ -3388,11 +3459,6 @@ PRI BUS_Funktionen |pr,a,b,c,h,r,str,s
                      0:pr:=0
                        return
                      1:c:=lookup(a:ios.bus_getchar1,ios.bus_getchar2,ios.bus_getchar3)
-                       {case a
-                            1:c:=ios.bus_getchar1
-                            2:c:=ios.bus_getchar2
-                            3:c:=ios.bus_getchar3
-}
                      4:c:=lookup(a:ios.bus_getlong1,ios.bus_getlong2,ios.bus_getlong3)
                      3:if a==1
                           str:=ios.bus_getstr1
@@ -3580,18 +3646,6 @@ PRI Felddimensionierung(variabl,var_str,x_koord,y_koord,z_koord)|grenze,ort
     ios.ram_wrword(y_koord+1,ort+2)
     ios.ram_wrword(z_koord+1,ort+4)
 
-
-{    dimschreiber(ort,x_koord+1,1)
-    dimschreiber(ort+2,y_koord+1,1)
-    dimschreiber(ort+4,z_koord+1,1)
-
-PRI dimschreiber(speicher,wert,rw):c                                            'dimensionswerte in den Ram schreiben
-
-    case rw
-         0:c:=ios.ram_rdword(speicher)
-         1:ios.ram_wrword(wert,speicher)
-
-}
 con'*************************************************************** Zeilen-Editor**************************************************************************************************
 PRI editline(Zeilennummer):nex|a,ntoks,c,d,f,rm,i,x,y,bn,temp
 if Zeilennummer<65535
@@ -3621,7 +3675,7 @@ if Zeilennummer<65535
                                   f:=strsize(@@toks[rm])
                                   bytemove(@tline[x],@@toks[rm],f)
                                   x+=f
-                                  tline[x++]:=32
+                                  tline[x++]:=32                                'Leerzeichen nach dem Token
                                   y:=0                                          'Tok-Bytezaehler auf null setzen für nächsten Befehl
                             else
                                 tline[x++]:=rm                                  'alle anderen Zeichen ausgeben
@@ -3702,6 +3756,7 @@ PRI circle(x,y,r,frbe)|i,xp,yp,a,b,c,d
 
 PRI playerstatus
        ios.sid_dmpstop
+       ios.sid_resetregisters
        play:=0
        close
 
@@ -3822,7 +3877,7 @@ pri zahlenformat(h)|j
            return FS.FloatToString(h)                                           'Zahlenwerte ohne Exponent
 
 con '****************************************** Directory-Anzeige-Funktion *******************************************************************************************************
-PRI h_dir(z,modes,str) | stradr,n,i,tt,dlen,dd,mm,jj,color,xstart                 'hive: verzeichnis anzeigen
+PRI h_dir(z,modes,str) | stradr,n,i,tt,dlen,dd,mm,jj,color,xstart,dr                 'hive: verzeichnis anzeigen
 {{h_dir - anzeige verzeichnis}}                                                 'mode 0=keine Anzeige,mode 1=einfache Anzeige, mode 2=erweiterte Anzeige
   ios.printcursorrate(0)                                                        'cursor ausschalten
   mount
@@ -3846,7 +3901,7 @@ PRI h_dir(z,modes,str) | stradr,n,i,tt,dlen,dd,mm,jj,color,xstart
     dd:=ios.sdfattrib(10)                                                       'Aenderungsdatum tag
     mm:=ios.sdfattrib(11)                                                       'Aenderungsdatum monat
     jj:=ios.sdfattrib(12)                                                       'Aenderungsdatum Jahr
-
+    dr:=ios.sdfattrib(19)                                                       'Verzeichnis?
 
       scanstr(stradr,1)                                                         'dateierweiterung extrahieren
 
@@ -3855,8 +3910,9 @@ PRI h_dir(z,modes,str) | stradr,n,i,tt,dlen,dd,mm,jj,color,xstart
              n++
 
           '################## Bildschrirmausgabe ##################################
-           if modes>0
-
+           if modes>0                                                           'wenn Verzeichnis,dann andere Farbe
+               if dr
+                  ios.printBoxColor(0,farbe+32,hintergr,cursorcolor)
                ios.print(stradr)
 
                if modes==2
@@ -3864,18 +3920,16 @@ PRI h_dir(z,modes,str) | stradr,n,i,tt,dlen,dd,mm,jj,color,xstart
                ios.printnl
                ios.setx(xstart)
                i++
-
+               ios.printBoxColor(0,farbe,hintergr,cursorcolor)                  'wieder Standardfarben setzen
                if i==z                                                             '**********************************
                   if ios.keywait == ios#CHAR_ESC                                   'auf Taste warten, wenn ESC dann Ausstieg
                      if cursor==1                                                  '**********************************
                         ios.printCursorRate(3)                                     '**********************************
-                     ios.printnl                                                   '**********************************
                      close                                                         '**********************************
                      filenumber:=n                                                 'Anzal der Dateien merken
                      abort                                                        '**********************************
 
                  i := 0                                                           '**********************************
-                 ios.printnl
                  ios.setx(xstart)
            if modes==0
               if n<DIR_ENTRY                                                     'Begrenzung der Einträge auf die mit DIR_ENTRY vereinbarte
@@ -3883,7 +3937,7 @@ PRI h_dir(z,modes,str) | stradr,n,i,tt,dlen,dd,mm,jj,color,xstart
 
 
  if modes                                                                       'sichtbare Ausgabe
-    ios.printdec(n)                                                            'Anzahl Dateien
+    ios.printdec(n)                                                             'Anzahl Dateien
     errortext(43,0)
     ios.printnl
  if cursor==1
@@ -3940,16 +3994,6 @@ PRI get_dirmarker:dm
     ios.sddmset(ios#DM_USER)
     dm:=ios.sddmget(ios#DM_USER)
 
-con'********************************** Hilfesystem *******************************************************************************************************************************
-PRI hilfe
- if nextlineloc>0                                                               'befindet sich ein Programm im Speicher?
-    write_ram(161,PMARK_RAM)                                                    'Programmmarker wird bei rüeckkehr abgefragt und das Programm im Speicher wieder hergestellt
- mount
- activate_dirmarker(basicmarker)                                                'ins Basic Stammverzeichnis
- ios.sdopen("r",@helpfile)
- ios.ldbin(@helpfile)
- close
-
 con '********************************* Unterprogramme zur Tile-Verwaltung *********************************************************************************************************
 PRI Win_Set_Tiles|i,a                                                           'Tiles, aus denen die Fenster bestehen, in den Ram schreiben
     i:=WTILE_RAM
diff --git a/source/Timer.spin b/source/Timer.spin
index abff32b..fae40ce 100644
--- a/source/Timer.spin
+++ b/source/Timer.spin
@@ -40,8 +40,7 @@ PUB start( period ) : okay1|okay2
 ''                30 = 1/30th of a second
 ''               100 = 1/100th of a second
 
-  longfill( @timers, 0, 8 )
-  'bytefill( @tmrs_used, 0, 8 )
+  longfill( @timers, 0, 12 )
 
 
 
diff --git a/source/Venatrix-Bus.spin b/source/Venatrix-Bus.spin
deleted file mode 100644
index edde4b2..0000000
--- a/source/Venatrix-Bus.spin
+++ /dev/null
@@ -1,252 +0,0 @@
-{{
-┌──────────────────────────────────────────────────────────────────────────────────────────────────────┐
-│ Autor: Ingo Kripahle  Anpassungen:Reinhard Zielinski                                                 │
-│ Copyright (c) 2013 Ingo Kripahle                                                                     │
-│ See end of file for terms of use.                                                                    │
-│ Die Nutzungsbedingungen befinden sich am Ende der Datei                                              │
-└──────────────────────────────────────────────────────────────────────────────────────────────────────┘
-
-Informationen   : hive-project.de
-Kontakt         : zille9@googlemail.com
-System          : Hive
-Name            : Bus-Erweiterung für Hive-Computer
-Chip            : Venatrix-Bus-Protokoll
-Typ             : EEProm-Urfile
-Version         : 00
-Subversion      : 01
-Funktion        : Bus-System für Erweiterungsmodule
-
-Der integrierte Loader kann Venatrix mit einem beliebigen Code versorgen
-
-
-COG's           : MANAGMENT     1 COG
-                  -------------------
-                                1 COG
-
-}}
-CON
-_CLKMODE     = XTAL1 + PLL16X
-_XINFREQ     = 5_000_000
-
-'          /cs     --------+
-'          clk     -------+|
-'          /wr     ------+||
-'          /hs     -----+||| +------------------------- /cs ->bei Venatrix P24 statt P23
-'                       |||| |                 -------- d0..d7
-DB_IN            = %00001000_00000000_00000000_00000000 'maske: dbus-eingabe
-DB_OUT           = %00001000_00000000_00000000_11111111 'maske: dbus-ausgabe
-
-M1               = %00000010_00000000_00000000_00000000 'busclk=1? & /cs=0?
-M2               = %00000011_00000000_00000000_00000000 'maske: busclk & /cs (/prop4)
-
-M3               = %00000000_00000000_00000000_00000000 'busclk=0?
-M4               = %00000010_00000000_00000000_00000000 'maske busclk
-
-
-#24,    BUS_CS                                          'Chip-Select
-        BUSCLK                                          'bustakt
-        BUS_WR                                          '/wr - schreibsignal
-        BUS_HS '                                        '/hs - quittungssignal
-
-STRCOUNT         =64                                    'Größe des Stringpuffers
-
-Var
-  byte proghdr[16]                                     'puffer für objektkopf
-  long plen                                            'länge datenblock loader
-  byte strpuffer[STRCOUNT]                              'stringpuffer
-
-PUB bus_init                                            'bus: initialisiert bussystem
-{{bus_init - bus: initialisierung aller bussignale }}
-
-  dira:= db_in                 ' datenbus auf eingabe schalten
-  outa[bus_hs] := 1             ' handshake inaktiv             ,frida
-  'outa[23..8]  := 0            ' Port 2 und 3 Null setzen
-
-PUB bus_putchar(zeichen)                                'chip: ein byte über bus ausgeben
-''funktionsgruppe               : chip
-''funktion                      : senderoutine für ein byte zu regnatix über den systembus
-''eingabe                       : byte zeichen
-''ausgabe                       : -
-
-  waitpeq(M1,M2,0)                                      'busclk=1? & /prop1=0?
-  dira := db_out                                        'datenbus auf ausgabe stellen
-  outa[7..0] := zeichen                                 'daten ausgeben
-  outa[bus_hs] := 0                                     'daten gültig
-  waitpeq(M3,M4,0)                                      'busclk=0?
-  dira := db_in
-  outa[bus_hs] := 1                                     'daten ungültig
-
-PUB bus_getchar : zeichen                               'chip: ein byte über bus empfangen
-''funktionsgruppe               : chip
-''funktion                      : emfangsroutine für ein byte von regnatix über den systembus
-''eingabe                       : -
-''ausgabe                       : byte zeichen
-   waitpeq(M1,M2,0)                                     'busclk=1? & prop4=0?
-   zeichen := ina[7..0]                                 'daten einlesen
-   outa[bus_hs] := 0                                    'daten quittieren
-   waitpeq(M3,M4,0)                                     'busclk=0?
-   outa[bus_hs] := 1
-
-PUB bus_putstr(stradr) | len,i                         'bus: string zu administra senden
-
-  len := strsize(stradr)
-  bus_putchar(len)
-  repeat i from 0 to len - 1
-    bus_putchar(byte[stradr++])
-
-PUB bus_getstr: stradr | len,i                         'bus: string von administra empfangen
-
-    len  := bus_getchar                                'längenbyte empfangen
-    repeat i from 0 to len - 1                          '20 zeichen dateinamen empfangen
-      strpuffer[i] := bus_getchar
-    strpuffer[i] := 0
-    return @strpuffer
-
-PUB bus_getword: wert                                  'bus: 16 bit von bellatrix empfangen hsb/lsb
-
-  wert := bus_getchar << 8
-  wert := wert + bus_getchar
-
-PUB bus_putword(wert)                                  'bus: 16 bit an bellatrix senden hsb/lsb
-
-   bus_putchar(wert >> 8)
-   bus_putchar(wert)
-
-PUB bus_getlong: wert                                  'bus: long von bellatrix empfangen hsb/lsb
-
-  wert :=        bus_getchar << 24                     '32 bit empfangen hsb/lsb
-  wert := wert + bus_getchar << 16
-  wert := wert + bus_getchar << 8
-  wert := wert + bus_getchar
-
-PUB bus_putlong(wert)                                  'bus: long an bellatrix senden hsb/lsb
-
-   bus_putchar(wert >> 24)                             '32bit wert senden hsb/lsb
-   bus_putchar(wert >> 16)
-   bus_putchar(wert >> 8)
-   bus_putchar(wert)
-
-con'------------------------------------------------ Chiploader -------------------------------------------------------------------------------------------------------------------
-PUB mgr_getcogs: cogs |i,c,cog[8]                       'cmgr: abfragen wie viele cogs in benutzung sind
-''funktionsgruppe               : cmgr
-''funktion                      : abfrage wie viele cogs in benutzung sind
-''eingabe                       : -
-''ausgabe                       : cogs - anzahl der cogs
-''busprotokoll                  : [097][put.cogs]
-''                              : cogs - anzahl der belegten cogs
-
-  cogs := i := 0
-  repeat 'loads as many cogs as possible and stores their cog numbers
-    c := cog[i] := cognew(@entry, 0)
-    if c=>0
-      i++
-  while c => 0
-  cogs := i
-  repeat 'unloads the cogs and updates the string
-    i--
-    if i=>0
-      cogstop(cog[i])
-  while i=>0
-
-
-PUB mgr_load|i                                          'cmgr: venatrix-loader
-''funktionsgruppe               : cmgr
-''funktion                      : funktion um einen neuen code in bellatrix zu laden
-''
-
-' kopf der bin-datei einlesen                           ------------------------------------------------------
-  repeat i from 0 to 15                                 '16 bytes --> proghdr
-    byte[@proghdr][i] := bus_getchar
-
-  plen := 0
-  plen :=        byte[@proghdr + $0B] << 8
-  plen := plen + byte[@proghdr + $0A]
-  plen := plen - 8
-
-' objektlänge an regnatix senden
-  bus_putchar(plen >> 8)                                'hsb senden
-  bus_putchar(plen & $FF)                               'lsb senden
-
-  repeat i from 0 to 7                                  'alle anderen cogs anhalten
-    ifnot i == cogid
-      cogstop(i)
-
-  dira := 0                                             'diese cog vom bus trennen
-  cognew(@loader, plen)
-
-  cogstop(cogid)                                        'cog 0 anhalten
-
-DAT
-                        org     0
-
-loader
-                        mov     outa,    M_0               'bus inaktiv
-                        mov     dira,    DINP              'bus auf eingabe schalten
-                        mov     reg_a,   PAR               'parameter = plen
-                        mov     reg_b,   #0                'adresse ab 0
-
-                        ' datenblock empfangen
-loop
-                        call    #get                       'wert einlesen
-                        wrbyte  in,      reg_b             'wert --> hubram
-                        add     reg_b,   #1                'adresse + 1
-                        djnz    reg_a,   #loop
-
-                        ' neuen code starten
-
-                        rdword  reg_a,   #$A               ' Setup the stack markers.
-                        sub     reg_a,   #4                '
-                        wrlong  SMARK,   reg_a             '
-                        sub     reg_a,   #4                '
-                        wrlong  SMARK,   reg_a             '
-
-                        rdbyte  reg_a,   #$4               ' Switch to new clock mode.
-                        clkset  reg_a                                             '
-
-                        coginit SINT                       ' Restart running new code.
-
-
-                        cogid   reg_a
-                        cogstop reg_a                      'cog hält sich selbst an
-
-
-get
-                        waitpeq M_1,      M_2              'busclk=1? & /cs=0?
-                        mov     in,       ina              'daten einlesen
-                        and     in,       DMASK            'wert maskieren
-                        mov     outa,     M_3              'hs=0
-                        waitpeq M_3,      M_4              'busclk=0?
-                        mov     outa,     M_0              'hs=1
-get_ret                 ret
-
-
-'     /cs     --------+
-'     clk     -------+|
-'     /wr     ------+||
-'     /hs     -----+|||+------------------------- /cs ->geändert auf 24
-'                  |||||                 -------- d0..d7
-DINP    long  %00001000000000000000000000000000  'constant dinp hex  \ bus input
-DOUT    long  %00001000000000000000000011111111  'constant dout hex  \ bus output
-
-M_0     long  %00001000000000000000000000000000  'bus inaktiv
-
-M_1     long  %00000010000000000000000000000000
-M_2     long  %00000011000000000000000000000000  'busclk=1? & /cs=0?
-
-M_3     long  %00000000000000000000000000000000
-M_4     long  %00000010000000000000000000000000  'busclk=0?
-
-
-DMASK   long  %00000000000000000000000011111111  'datenmaske
-
-SINT    long    ($0001 << 18) | ($3C01 << 4)                       ' Spin interpreter boot information.
-SMARK   long    $FFF9FFFF                                          ' Stack mark used for spin code.
-
-in      res   1
-reg_a   res   1
-reg_b   res   1
-Dat
-
-' Entry: dummy-assemblercode fuer cogtest
-'
-entry                   jmp     entry                   'just loops
diff --git a/source/Venatrix.spin b/source/Venatrix.spin
deleted file mode 100644
index ce17df1..0000000
--- a/source/Venatrix.spin
+++ /dev/null
@@ -1,89 +0,0 @@
-{{
-┌──────────────────────────────────────────────────────────────────────────────────────────────────────┐
-│ Autor: Reinhard Zielinski -> Original-Code: Ingo Kripahle                                                                                │
-│ Copyright (c) 2013 Ingo Kripahle                                                                     │
-│ See end of file for terms of use.                                                                    │
-│ Die Nutzungsbedingungen befinden sich am Ende der Datei                                              │
-└──────────────────────────────────────────────────────────────────────────────────────────────────────┘
-
-Informationen   : hive-project.de
-Kontakt         : zille9@googlemail.com
-System          : Hive
-Name            : Bus-Erweiterung für Hive-Computer
-Chip            : Venatrix
-Typ             : Treiber
-Version         : 01
-Subversion      : 00
-Funktion        : Bus-System für Erweiterungsmodule
-
-Der integrierte Loader kann Venatrix mit einem beliebigen Code versorgen
-
-20-11-2013      -I2C-Slave Funktion hinzugefügt, damit die Bus-Karte vom Hive (Plexus) erkannt werden kann (Adresse 5)
-
-
-COG's           : MANAGMENT     1 COG
-                  -------------------
-                                1 COG
-
-}}
-CON
-_CLKMODE     = XTAL1 + PLL16X
-_XINFREQ     = 5_000_000
-Treiberversion= 1
-
-'          /cs     --------+
-'          clk     -------+|
-'          /wr     ------+||
-'          /hs     -----+||| +------------------------- /cs ->bei Venatrix P24 statt P23
-'                       |||| |                 -------- d0..d7
-DB_IN            = %00001000_00000000_00000000_00000000 'maske: dbus-eingabe
-DB_OUT           = %00001000_00000000_00000000_11111111 'maske: dbus-ausgabe
-
-M1               = %00000010_00000000_00000000_00000000 'busclk=1? & /cs=0?
-M2               = %00000011_00000000_00000000_00000000 'maske: busclk & /cs (/prop4)
-
-M3               = %00000000_00000000_00000000_00000000 'busclk=0?
-M4               = %00000010_00000000_00000000_00000000 'maske busclk
-
-
-
-
-#0,     D0,D1,D2,D3,D4,D5,D6,D7                         'datenbus (Port A)
-#8,     B0,B1,B2,B3,B4,B5,B6,B7                         'Port B
-#16,    C0,C1,C2,C3,C4,C5,C6,C7                         'Port C
-#24,    BUS_CS                                          'Chip-Select
-        BUSCLK                                          'bustakt
-        BUS_WR                                          '/wr - schreibsignal
-        BUS_HS '                                        '/hs - quittungssignal
-
-  SDA_PIN       = 29
-  SCL_PIN       = 28
-
-obj
-        bus    :"Venatrix-Bus"                         'allgemeine Bus-Funktionen
-        i2c_slave: "AiChip_I2cSlave_Slave_003"
-
-Var
-  byte proghdr[16]                                     'puffer für objektkopf
-  long plen                                            'länge datenblock loader
-
-PUB main | zeichen,i                             'chip: kommandointerpreter
-''funktionsgruppe               : chip
-''funktion                      : kommandointerpreter
-''eingabe                       : -
-''ausgabe                       : -
-
-  bus.bus_init
-  i2c_Slave.Start( SCL_PIN, SDA_PIN, $5, 0, 0, 0 )
-
-
-  repeat
-    zeichen := bus.bus_getchar                                  'kommandocode empfangen
-    case zeichen
-
-'       ----------------------------------------------  CHIP-MANAGMENT
-       96: bus.mgr_getcogs                                 'freie cogs abfragen
-       97: bus.mgr_load                                    'neuen venatrix-code laden
-       98: bus.bus_putchar(Treiberversion)                 'Rückgabe Testwert (Version des Venatrix-Treibers)
-       99: reboot                                          'Venatrix neu starten
-