From 8686b7060185425e6b3194a9520094370a293ef8 Mon Sep 17 00:00:00 2001
From: acn <acn@annachristina.eu>
Date: Wed, 30 Jan 2019 16:04:53 +0100
Subject: [PATCH] Erste Version

---
 README.md   |  29 ++++++++++++++++++++++++++++-
 zpoint.bas  | Bin 0 -> 859 bytes
 zpointa.bas |  39 +++++++++++++++++++++++++++++++++++++++
 3 files changed, 67 insertions(+), 1 deletion(-)
 create mode 100644 zpoint.bas
 create mode 100644 zpointa.bas

diff --git a/README.md b/README.md
index 0bbf3ef..9b17bc2 100644
--- a/README.md
+++ b/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)
 
diff --git a/zpoint.bas b/zpoint.bas
new file mode 100644
index 0000000000000000000000000000000000000000..d2217b3f59f8eea968e837745a93772a7b92ff19
GIT binary patch
literal 859
zcmY*XO=uHA6n-VEhpPQa6$*kr)(8nrOIq>Z52dwDa5a=-f=WejcV?0dO(wY6)Y_A^
z6qE|37JKmIMNkh)vArpRdMJVjg687c_M~gPh>G#;CR$w>_WgYC&G+7XwTjsc^EftI
zl*)mf);4mwH$M!s2=>K#58<FvCJyCnS#l&<BW9_DM@^;%==5B2GW}p!+r3UgW*r<h
z9U+Cnf^?9J0>KMHl}aop3MO4PIoXpwn?_T?6>A3-jhGWMYdW%6ujs<E;@BPa%X@LE
zY?lQar+<NHWK5NXn^w#JMB%oz2OgpUtJYr1NF<(Ujyq+M&kIZx^HRW5D-4F)4zH~~
zI2KPPLvC#;+!=wYbpVEvDc^0~9jWT)`cCLo%GI6Nk=St^ni;R(m`V?xN@I%U@<L_=
z>|z2I&?|=lreF?@FRjh^1`{Dy9~+HPpP6uNF>FMl9nm25_6FBsoK1Sr&+b3i|DYXz
zp_kb-+`@Z!9a}a6aE)DsXQ)d(8jL1Fu*7EmBmv+qy8$aze22A1;a~(Fvn5!@S=<+l
zCPVOq-65i6JZBGJ6<)Cwc!5Fq#MT;{Oq(S~DDLlC;DoSE+Y*vO@PoaDlOcCD<aKT1
zABZ}+dY4Xf8m>_d!hZg-5$tXRzXqY7yZ%1f@tcp2)l=<|;@=zSi(ZH(TMxi_t~HUx
z0UW-i$yZ@~WH`RL=_$S*n1*G(5tzq>p!E~IoT+%etg@Js!aj^=gi>|wp^_};U{+*E
zN;JYtUJcA)#ce%Uzc8smh5y_P-N%+SfM0y8wt#xvwu?4B$6~lb&wx^SswNrvq4yEc
cM4L7ZZ6ZlvUr5j?PHUdDba6qWRx|{_Z=Mhu#Q*>R

literal 0
HcmV?d00001

diff --git a/zpointa.bas b/zpointa.bas
new file mode 100644
index 0000000..e6a65cc
--- /dev/null
+++ b/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