Erste Version

README.md

@@ -1,2 +1,29 @@
-# zpoint-zetkin
+# ZPoint
+
+ZPoint ist ein sehr(!) simples "Präsentationsprogramm" für Microsoft BASIC.
+
+Ich habe es entwickelt, um eine Reihe von Textdateien als eine
+Art Präsentation darzustellen.
+
+Die Dateien müssen mit den Dateinamen ``ZPxx.TXT`` im gleichen Verzeichnis
+wie ``zpoint.bas`` vorliegen, wobei ``xx`` eine fortlaufende Numerierung ist,
+die bei 00 beginnt.
+
+## Programmstart und Bedienung
+
+``mbasic zpoint``
+
+Nachdem ZPoint gestartet wurde, zeigt es sofort die erste Datei (``ZP00.TXT``) an.
+
+Die Taste + lädt die nächste Datei
+Die Taste - lädt die vorige Datei (es passiert nichts, wenn man bei der ersten Datei ist)
+Die Taste 0 geht zur ersten Datei zurück (ZP00.TXT)
+Mit der Taste q kann das Programm beendet werden.
+
+Zwischen den Dateien wird der Bildschirm gelöscht und der Cursor in Position 0;0 gesetzt (VT100-Sequenzen).
+
+## Dateien
+
+``zpoint.bas`` ist die per SAVE abgespeicherte (tokenized) Datei des Programms
+``zpointa.bas`` ist identisch, aber als ASCII-Datei abgespeichert (SAVE"ZPOINT",A)
 

zpointa.bas

@@ -0,0 +1,39 @@
+10 REM ZPoint
+11 REM ----------- (c) 2019 Anna Christina Nass <acn@acn.wtf>
+12 REM Zeigt Dateien mit dem Namensschema ZPxx.TXT an
+13 REM Navigation mit + und -, mit 1 zurueck zum Anfang
+14 REM -----------
+30 DEFINT I
+31 REM i ist aktuelle Folie
+40 I=0
+50 BELL$=CHR$(7)
+51 CLS$=CHR$(27)+"[2J"+CHR$(27)+"[0;0H"
+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"
+129 ON ERROR GOTO 1000
+130 OPEN "i",1,F$
+131 ON ERROR GOTO 0
+140 WHILE NOT EOF(1)
+150 LINE INPUT #1,L$
+160 PRINT L$
+170 WEND
+180 CLOSE 1
+200 REM ----Tastendruecke verarbeiten
+210 K$=INPUT$(1)
+220 IF K$="+" THEN I=I+1
+230 IF K$="-" THEN I=I-1
+240 IF I<0 OR K$="0" THEN I=0
+250 IF K$="q" THEN GOTO 999
+260 GOTO 100
+261 REM ---ENDE Schleife
+999 END
+1000 REM Fehlerbehandlung hier: Wenn Datei nicht gefunden
+1010 IF ERR=53 THEN GOTO 1100
+1020 IF ERR=53 THEN RESUME 200
+1030 PRINT "Error"+STR$(ERR)+" in Zeile "+STR$(ERL)
+1040 END
+1100 PRINT BELL$
+1110 I=0
+1120 RESUME 100