diff --git a/ZP00.TXT b/ZP00.TXT
index 151b66e..882647a 100644
--- a/ZP00.TXT
+++ b/ZP00.TXT
@@ -1,12 +1,16 @@
-[?7h                                                                             
-     RC2014 - modularer Z80-basierter 8-Bit-Computer                          
-                                                                              
- -----------------------------------------------------------------------------
+[?7h                                       
+                                      
+     RC2014 - modularer Z80-basierter 8-Bit-Computer       
+                   
+                                                           
+                   
+ ----------------------------------------------------------
+-------------------
 
+  Ú¿ÄÄÄÉ»
+  ÀÙÄÄÄȼ
 
-
-
-######  ##########   #####    ##   ## ##
+######  ##########   #####    ##   ## ##
 ##   ## ##   ##  ##   ## ##  ###  ###   ## ##
 ##   ## ####  ## # ##   ##  ##  ##
 ######  ######   ## # ##   ##  ##  ##
@@ -20,6 +24,5 @@
 
 
 
-    2019-03-23      #      Anna Christina Naá      #      RETROpulsiv 13.0    
-
-
\ No newline at end of file
+    2019-03-23      #      Anna Christina Naá      #  
+    RETROpulsiv 13.0    
diff --git a/ZP01.TXT b/ZP01.TXT
index 9bff69f..2eb455e 100644
--- a/ZP01.TXT
+++ b/ZP01.TXT
@@ -1,7 +1,11 @@
-[?7h                                                                             
-     RC2014 - modularer Z80-basierter 8-Bit-Computer                          
-                                                                              
- -----------------------------------------------------------------------------
+[?7h                                       
+                                      
+     RC2014 - modularer Z80-basierter 8-Bit-Computer       
+                   
+                                                           
+                   
+ ----------------------------------------------------------
+-------------------
 
 
 šbersicht
@@ -20,6 +24,5 @@
 
 
 
-    2019-03-23      #      Anna Christina Naá      #      RETROpulsiv 13.0    
-
-
\ No newline at end of file
+    2019-03-23      #      Anna Christina Naá    
+  #      RETROpulsiv 13.0    
diff --git a/zpoint.bas b/zpoint.bas
index aa26705..9ae32bf 100644
Binary files a/zpoint.bas and b/zpoint.bas differ
diff --git a/zpointa.bas b/zpointa.bas
index ae531cb..7f6b210 100644
--- a/zpointa.bas
+++ b/zpointa.bas
@@ -5,28 +5,35 @@
 14 REM -----------
 30 DEFINT I,C
 31 REM i ist aktuelle Folie
-32 REM max ist die letzte Folie (max. Folienzahl)
+32 REM c ist die letzte Folie (max. Folienzahl)
 40 I=0
 41 C=0
-50 BELL$=CHR$(7)
-51 ESC$=CHR$(27)
-52 CLS$=ESC$+"[2J"+ESC$+"[0;0H"
-60 REM Pruefe, wie viele Dateien es gibt
-70 GOTO 2000
-100 REM ---START Schleife
-101 PRINT CLS$
-110 IF I<10 THEN F$="ZP0"+MID$(STR$(I),2,1)+".TXT"
-120 IF I>=10 THEN F$="ZP"+MID$(STR$(I),2,2)+".TXT"
+50 ESC$=CHR$(27)
+51 CLS$=ESC$+"[0;0H"+ESC$+"[2J"
+100 REM Durchzaehlen, welche Dateien vorhanden sind
+101 REM um Wraparound moeglich zu machen
+110 IF C<10 THEN F$="ZP0"+MID$(STR$(C),2,1)+".TXT"
+120 IF C>=10 THEN F$="ZP"+MID$(STR$(C),2,2)+".TXT"
 130 ON ERROR GOTO 1000
 140 OPEN "i",1,F$
-150 ON ERROR GOTO 0
-160 WHILE NOT EOF(1)
-170 LINE INPUT #1,L$
-180 PRINT L$
-190 WEND
-200 CLOSE 1
-300 REM ----Foliennummer anzeigen
-310 PRINT ESC$+"[24;0H"+ESC$+"0m"+STR$(I)+"/"+STR$(MAX)+" +-0q >";
+150 CLOSE 1
+160 ON ERROR GOTO 0
+170 C=C+1
+180 GOTO 110
+190 REM ---ENDE Schleife
+200 REM hier weiter nach Fehlerbehandlung
+201 REM ---START Hauptschleife
+210 PRINT CLS$;
+220 IF I<10 THEN F$="ZP0"+MID$(STR$(I),2,1)+".TXT"
+230 IF I>=10 THEN F$="ZP"+MID$(STR$(I),2,2)+".TXT"
+240 OPEN "i",1,F$
+250 WHILE NOT EOF(1)
+260 LINE INPUT #1,L$
+270 PRINT L$
+280 WEND
+290 CLOSE 1
+400 REM ----Foliennummer anzeigen
+410 PRINT ESC$+"[24;68H"+ESC$+"[0m"+STR$(I)+"/"+STR$(MAX)+" +-0q >";
 500 REM ----Tastendruecke verarbeiten
 510 K$=INPUT$(1)
 520 IF K$="+" THEN I=I+1
@@ -34,35 +41,19 @@
 540 IF K$="0" THEN I=0
 550 IF K$="q" THEN SYSTEM
 551 IF K$="Q" THEN SYSTEM
-560 IF I<0 THEN I=MAX
-570 GOTO 100
-580 REM ---ENDE Schleife
-1000 REM Fehlerbehandlung hier: Wenn Datei nicht gefunden
+560 IF I<0 THEN I=C
+570 IF I=C+1 THEN I=0
+580 GOTO 200
+590 REM ---ENDE Schleife
+1000 REM Fehlerbehandlung zur Bestimmung der max. Dateizahl
 1001 REM ----------
-1010 IF ERR=53 THEN GOTO 1100
-1020 IF ERR=53 THEN RESUME 500
-1030 PRINT "Error"+STR$(ERR)+" in Zeile "+STR$(ERL)
-1040 END
-1100 PRINT BELL$
-1110 I=0
-1120 RESUME 100
-2000 REM Durchzaehlen, welche Dateien vorhanden sind
-2001 REM um Wraparound moeglich zu machen
-2010 REM ---- Schleifenbeginn
-2019 PRINT C
-2020 IF C<10 THEN F$="ZP0"+MID$(STR$(C),2,1)+".TXT"
-2030 IF C>=10 THEN F$="ZP"+MID$(STR$(C),2,2)+".TXT"
-2040 ON ERROR GOTO 2500
-2050 OPEN "i",1,F$
-2060 CLOSE 1
-2070 ON ERROR GOTO 0
-2080 C=C+1
-2090 GOTO 2010
-2110 REM ----ENDE Schleife
-2500 REM Fehlerbehandlung zur Bestimmung der
-2501 REM max. Dateizahl
-2502 REM ----------
-2510 IF ERR<>53 GOTO 1030
-2511 REM - bei anderem Fehler diesen anzeigen und dann beenden
-2520 MAX=C-1
-2530 RESUME 100
+1010 IF ERR<>53 GOTO 1100
+1011 REM - bei anderem Fehler diesen anzeigen und dann beenden
+1020 C=C-1
+1021 REM die Datei C-1 existierte noch, das ist die hoechste
+1030 RESUME 200
+1100 PRINT "Fehler"+STR$(ERR)+" in Zeile"+STR$(ERL)
+1110 END
+tei C-1 existierte noch, das ist die hoechste
+1030 RESUME 200
+1100 PRINT "Fehler"+STR$(ERR)+"
\ No newline at end of file