zpoint/zpoint.bas

<EFBFBD><EFBFBD>a
<EFBFBD> ZPointb<EFBFBD> ----------- (c) 2019 Anna Christina Nass <acn@acn.wtf>Ib<EFBFBD> Zeigt Dateien mit dem Namensschema ZPxx.TXT an<EFBFBD>b
<EFBFBD> Navigation mit + und -, mit 1 zurueck zum Anfang<EFBFBD>b<EFBFBD> -----------<EFBFBD>b<EFBFBD> I,C<EFBFBD>b<EFBFBD> i ist aktuelle Folie<EFBFBD>b <EFBFBD> max ist die letzte Folie (max. Folienzahl)<EFBFBD>b(I<EFBFBD><EFBFBD>b)C<EFBFBD>c2BELL$<EFBFBD><EFBFBD><EFBFBD>()c3ESC$<EFBFBD><EFBFBD><EFBFBD>()9c4CLS$<EFBFBD>ESC$<EFBFBD>"[2J"<EFBFBD>ESC$<EFBFBD>"[0;0H"ac<<EFBFBD> Pruefe, wie viele Dateien es gibtkcF<EFBFBD> <EFBFBD><EFBFBD>cd<EFBFBD> ---START Schleife<EFBFBD>ce<EFBFBD> CLS$<EFBFBD>cn<EFBFBD> I<EFBFBD>
 <EFBFBD> F$<EFBFBD>"ZP0"<EFBFBD><EFBFBD><EFBFBD>(<EFBFBD><EFBFBD>(I),,)<EFBFBD>".TXT"<EFBFBD>cx<EFBFBD> I<EFBFBD><EFBFBD>
 <EFBFBD> F$<EFBFBD>"ZP"<EFBFBD><EFBFBD><EFBFBD>(<EFBFBD><EFBFBD>(I),,)<EFBFBD>".TXT"<EFBFBD>c<EFBFBD><EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD>
d<EFBFBD><EFBFBD> "i",,F$d<EFBFBD><EFBFBD> <EFBFBD> <EFBFBD> d<EFBFBD><EFBFBD><EFBFBD> <EFBFBD> <EFBFBD><EFBFBD>(),d<EFBFBD><EFBFBD> <EFBFBD> #,L$5d<EFBFBD><EFBFBD> L$;d<EFBFBD><EFBFBD>Cd<EFBFBD><EFBFBD> cd,
<EFBFBD> ----Foliennummer anzeigen<EFBFBD>d6
<EFBFBD> ESC$<EFBFBD>"[24;0H"<EFBFBD>ESC$<EFBFBD>"0m"<EFBFBD><EFBFBD><EFBFBD>(I)<EFBFBD>"/"<EFBFBD><EFBFBD><EFBFBD>(MAX)<EFBFBD>" +-0q >";<EFBFBD>d<EFBFBD>
<EFBFBD> ----Tastendruecke verarbeiten<EFBFBD>d<EFBFBD>
K$<EFBFBD><EFBFBD>$()<EFBFBD>d<EFBFBD> K$<EFBFBD>"+" <EFBFBD> I<EFBFBD>I<EFBFBD><EFBFBD>d<EFBFBD> K$<EFBFBD>"-" <EFBFBD> I<EFBFBD>I<EFBFBD>e<EFBFBD> K$<EFBFBD>"0" <EFBFBD> I<EFBFBD>e&<EFBFBD> K$<EFBFBD>"q" <EFBFBD> <EFBFBD>.e'<02> K$<24>"Q" <20> <20>@e0<02> I<> <20> I<>MAXJe:<02> daeD<02> ---ENDE Schleife<00>e<EFBFBD><03> Fehlerbehandlung hier: Wenn Datei nicht gefunden<00>e<EFBFBD><03> ----------<00>e<EFBFBD><03> <20><>5 <20> <20> L<00>e<EFBFBD><03> <20><>5 <20> <20> <0E>
<00>e<04> "Error"<22><><EFBFBD>(<28>)<29>" in Zeile "<22><><EFBFBD>(<28>)<00>e<04>fL<04> BELL$fVI<>