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> c ist die letzte Folie (max. Folienzahl)<EFBFBD>b(I<EFBFBD><EFBFBD>b)C<EFBFBD>c2ESC$<EFBFBD><EFBFBD><EFBFBD>()'c3CLS$<24>ESC$<24>"[0;0H"<22>ESC$<24>"[2J"Ycd<00> Durchzaehlen, welche Dateien vorhanden sind<00>ce<00> um Wraparound moeglich zu machen<00>cn<00> C<>
 <EFBFBD> F$<EFBFBD>"ZP0"<EFBFBD><EFBFBD><EFBFBD>(<EFBFBD><EFBFBD>(C),,)<EFBFBD>".TXT"<EFBFBD>cx<EFBFBD> C<EFBFBD><EFBFBD>
 <EFBFBD> F$<EFBFBD>"ZP"<EFBFBD><EFBFBD><EFBFBD>(<EFBFBD><EFBFBD>(C),,)<EFBFBD>".TXT"<EFBFBD>c<EFBFBD><EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD><EFBFBD>c<EFBFBD><EFBFBD> "i",,F$<EFBFBD>c<EFBFBD><EFBFBD> 	d<EFBFBD><EFBFBD> <EFBFBD> <EFBFBD> d<EFBFBD>C<EFBFBD>C<EFBFBD>d<EFBFBD><EFBFBD> n4d<EFBFBD><EFBFBD> ---ENDE Schleife\d<EFBFBD><EFBFBD> hier weiter nach Fehlerbehandlungyd<EFBFBD><EFBFBD> ---START Hauptschleife<EFBFBD>d<EFBFBD><EFBFBD> CLS$;<EFBFBD>d<EFBFBD><EFBFBD> I<EFBFBD>
 <EFBFBD> F$<EFBFBD>"ZP0"<EFBFBD><EFBFBD><EFBFBD>(<EFBFBD><EFBFBD>(I),,)<EFBFBD>".TXT"<EFBFBD>d<EFBFBD><EFBFBD> I<EFBFBD><EFBFBD>
 <EFBFBD> F$<EFBFBD>"ZP"<EFBFBD><EFBFBD><EFBFBD>(<EFBFBD><EFBFBD>(I),,)<EFBFBD>".TXT"<EFBFBD>d<EFBFBD><EFBFBD> "i",,F$<EFBFBD>d<EFBFBD><EFBFBD><EFBFBD> <EFBFBD> <EFBFBD><EFBFBD>()e
<EFBFBD> <EFBFBD> #,L$e
<EFBFBD> L$e
<EFBFBD>e"
<01> >e<>
<01> ----Foliennummer anzeigen{e<>
<01> ESC$<24>"[24;68H"<22>ESC$<24>"[0m"<22><><EFBFBD>(I)<29>"/"<22><><EFBFBD>(MAX)<29>" +-0q >";<00>e<EFBFBD>
<01> ----Tastendruecke verarbeiten<00>e<EFBFBD>
K$<24><>$()<00>e<02> K$<24>"+" <20> I<>I<EFBFBD><00>e<02> K$<24>"-" <20> I<>I<EFBFBD><00>e<02> K$<24>"0" <20> I<><00>e&<02> K$<24>"q" <20> <20>f'<02> K$<24>"Q" <20> <20>f0<02> I<> <20> I<>C-f:<02> I<>C<EFBFBD> <20> I<>7fD<02> <0E>NfN<02> ---ENDE Schleife<00>f<EFBFBD><03> Fehlerbehandlung zur Bestimmung der max. Dateizahl<00>f<EFBFBD><03> ----------<00>f<EFBFBD><03> <20><><EFBFBD>5 <20> L<00>f<EFBFBD><03> - bei anderem Fehler diesen anzeigen und dann beenden<00>f<EFBFBD>C<>C<EFBFBD>*g<><03> die Datei C-1 existierte noch, das ist die hoechste4g<04> <0E>[gL<04> "Fehler"<22><><EFBFBD>(<28>)<29>" in Zeile"<22><><EFBFBD>(<28>)agV<04>n<00>f<EFBFBD>C<>C<EFBFBD>*g<><03> die Datei C-1 existierte noch, das ist die hoechste4g<04> <0E>[gL<04> "Fehler"<EFBFBD><EFBFBD><EFBFBD>(<EFBFBD>)<EFBFBD>