40 lines
1.0 KiB
QBasic
40 lines
1.0 KiB
QBasic
|
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
|