5 lines
859 B
QBasic
5 lines
859 B
QBasic
|
<EFBFBD><EFBFBD>a
|
|||
|
|
<EFBFBD> ZPoint b <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 <EFBFBD>b <EFBFBD> i ist aktuelle Folie <EFBFBD>b( I<EFBFBD> <EFBFBD>b2 BELL$<EFBFBD><EFBFBD><EFBFBD>() <EFBFBD>b3 CLS$<EFBFBD><EFBFBD><EFBFBD>()<EFBFBD>"[2J"<EFBFBD><EFBFBD><EFBFBD>()<EFBFBD>"[0;0H"
|
|||
|
|
cd <EFBFBD> ---START Schleife ce <EFBFBD> CLS$ @cn <EFBFBD> I<EFBFBD>
|
|||
|
|
<EFBFBD> F$<EFBFBD>"ZP0"<EFBFBD><EFBFBD><EFBFBD>(<EFBFBD><EFBFBD>(I),,)<EFBFBD>".TXT" kcx <EFBFBD> I<EFBFBD><EFBFBD>
|
|||
|
|
<EFBFBD> F$<EFBFBD>"ZP"<EFBFBD><EFBFBD><EFBFBD>(<EFBFBD><EFBFBD>(I),,)<EFBFBD>".TXT" yc<EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD>c<EFBFBD> <EFBFBD> "i",,F$ <EFBFBD>c<EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD>c<EFBFBD> <EFBFBD><EFBFBD> <EFBFBD> <EFBFBD><EFBFBD>() <EFBFBD>c<EFBFBD> <EFBFBD> <EFBFBD> #,L$ <EFBFBD>c<EFBFBD> <EFBFBD> L$ <EFBFBD>c<EFBFBD> <EFBFBD> <EFBFBD>c<EFBFBD> <EFBFBD> <EFBFBD>c<EFBFBD> <EFBFBD> ----Tastendruecke verarbeiten <EFBFBD>c<EFBFBD> K$<EFBFBD><EFBFBD>$() d<EFBFBD> <EFBFBD> K$<EFBFBD>"+" <EFBFBD> I<EFBFBD>I<EFBFBD> %d<EFBFBD> <EFBFBD> K$<EFBFBD>"-" <EFBFBD> I<EFBFBD>I<EFBFBD> >d<EFBFBD> <EFBFBD> I<EFBFBD> <EFBFBD> K$<EFBFBD>"0" <EFBFBD> I<EFBFBD> Sd<EFBFBD> <EFBFBD> K$<EFBFBD>"q" <EFBFBD> <EFBFBD> <EFBFBD> ]d<EFBFBD> d td<EFBFBD> ---ENDE Schleife zd<EFBFBD><EFBFBD> <EFBFBD>d<EFBFBD><EFBFBD> Fehlerbehandlung hier: Wenn Datei nicht gefunden <EFBFBD>d<EFBFBD><EFBFBD> <EFBFBD><EFBFBD>5 <EFBFBD> <EFBFBD> L <EFBFBD>d<EFBFBD><EFBFBD> <EFBFBD><EFBFBD>5 <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD>d<EFBFBD> "Error"<EFBFBD><EFBFBD><EFBFBD>(<EFBFBD>)<EFBFBD>" in Zeile "<EFBFBD><EFBFBD><EFBFBD>(<EFBFBD>) e<EFBFBD> eL<EFBFBD> BELL$ eVI<EFBFBD> "e`<EFBFBD> d
|