Bugfixes
This commit is contained in:
parent
f55cf4debe
commit
4df0a129e7
23
ZP00.TXT
23
ZP00.TXT
@ -1,12 +1,16 @@
|
||||
[?7h[255D[1C[0;34;46m [40m
|
||||
[46m RC2014 - modularer Z80-basierter 8-Bit-Computer [40m
|
||||
[46m [40m
|
||||
[46m-----------------------------------------------------------------------------[40m
|
||||
[?7h[255D[1C[0;34;46m [40m
|
||||
[A[40C[46m [40m
|
||||
[46m RC2014 - modularer Z80-basierter 8-Bit-Computer [40m[A
|
||||
[59C[46m [40m
|
||||
[46m [40m[A
|
||||
[59C[46m [40m
|
||||
[46m----------------------------------------------------------[40m[A
|
||||
[59C[46m-------------------[40m
|
||||
|
||||
[1;37mÚ¿ÄÄÄÉ»
|
||||
ÀÙÄÄÄȼ
|
||||
|
||||
|
||||
|
||||
[21C[36m###### #####[5C##### ##### ## ## ##
|
||||
[21C[0;36m###### #####[5C##### ##### ## ## ##
|
||||
[20C## ## ## ## ## ## ## ### ### ## ##
|
||||
[19C## ## ##[11C## ## # ## ## ## ##
|
||||
[18C###### ##[8C#### ## # ## ## ## ##
|
||||
@ -20,6 +24,5 @@
|
||||
|
||||
|
||||
|
||||
[46m [34m2019-03-23 # Anna Christina Naá # RETROpulsiv 13.0 [40m
|
||||
|
||||
[0m[255D
|
||||
[46m [34m2019-03-23 # Anna Christina Naá # [40m[A
|
||||
[54C[46m RETROpulsiv 13.0 [40m[0m[255D
|
||||
|
||||
17
ZP01.TXT
17
ZP01.TXT
@ -1,7 +1,11 @@
|
||||
[?7h[255D[1C[0;34;46m [40m
|
||||
[46m RC2014 - modularer Z80-basierter 8-Bit-Computer [40m
|
||||
[46m [40m
|
||||
[46m-----------------------------------------------------------------------------[40m
|
||||
[?7h[255D[1C[0;34;46m [40m
|
||||
[A[40C[46m [40m
|
||||
[46m RC2014 - modularer Z80-basierter 8-Bit-Computer [40m[A
|
||||
[59C[46m [40m
|
||||
[46m [40m[A
|
||||
[59C[46m [40m
|
||||
[46m----------------------------------------------------------[40m[A
|
||||
[59C[46m-------------------[40m
|
||||
|
||||
|
||||
[5C[1;33mšbersicht
|
||||
@ -20,6 +24,5 @@
|
||||
|
||||
|
||||
|
||||
[46m [0;34;46m2019-03-23 # Anna Christina Naá # RETROpulsiv 13.0 [40m
|
||||
|
||||
[0m[255D
|
||||
[46m [0;34;46m2019-03-23 # Anna Christina Naá [40m[A
|
||||
[49C[46m # RETROpulsiv 13.0 [40m[0m[255D
|
||||
|
||||
BIN
zpoint.bas
BIN
zpoint.bas
Binary file not shown.
89
zpointa.bas
89
zpointa.bas
@ -5,28 +5,35 @@
|
||||
14 REM -----------
|
||||
30 DEFINT I,C
|
||||
31 REM i ist aktuelle Folie
|
||||
32 REM max ist die letzte Folie (max. Folienzahl)
|
||||
32 REM c ist die letzte Folie (max. Folienzahl)
|
||||
40 I=0
|
||||
41 C=0
|
||||
50 BELL$=CHR$(7)
|
||||
51 ESC$=CHR$(27)
|
||||
52 CLS$=ESC$+"[2J"+ESC$+"[0;0H"
|
||||
60 REM Pruefe, wie viele Dateien es gibt
|
||||
70 GOTO 2000
|
||||
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"
|
||||
50 ESC$=CHR$(27)
|
||||
51 CLS$=ESC$+"[0;0H"+ESC$+"[2J"
|
||||
100 REM Durchzaehlen, welche Dateien vorhanden sind
|
||||
101 REM um Wraparound moeglich zu machen
|
||||
110 IF C<10 THEN F$="ZP0"+MID$(STR$(C),2,1)+".TXT"
|
||||
120 IF C>=10 THEN F$="ZP"+MID$(STR$(C),2,2)+".TXT"
|
||||
130 ON ERROR GOTO 1000
|
||||
140 OPEN "i",1,F$
|
||||
150 ON ERROR GOTO 0
|
||||
160 WHILE NOT EOF(1)
|
||||
170 LINE INPUT #1,L$
|
||||
180 PRINT L$
|
||||
190 WEND
|
||||
200 CLOSE 1
|
||||
300 REM ----Foliennummer anzeigen
|
||||
310 PRINT ESC$+"[24;0H"+ESC$+"0m"+STR$(I)+"/"+STR$(MAX)+" +-0q >";
|
||||
150 CLOSE 1
|
||||
160 ON ERROR GOTO 0
|
||||
170 C=C+1
|
||||
180 GOTO 110
|
||||
190 REM ---ENDE Schleife
|
||||
200 REM hier weiter nach Fehlerbehandlung
|
||||
201 REM ---START Hauptschleife
|
||||
210 PRINT CLS$;
|
||||
220 IF I<10 THEN F$="ZP0"+MID$(STR$(I),2,1)+".TXT"
|
||||
230 IF I>=10 THEN F$="ZP"+MID$(STR$(I),2,2)+".TXT"
|
||||
240 OPEN "i",1,F$
|
||||
250 WHILE NOT EOF(1)
|
||||
260 LINE INPUT #1,L$
|
||||
270 PRINT L$
|
||||
280 WEND
|
||||
290 CLOSE 1
|
||||
400 REM ----Foliennummer anzeigen
|
||||
410 PRINT ESC$+"[24;68H"+ESC$+"[0m"+STR$(I)+"/"+STR$(MAX)+" +-0q >";
|
||||
500 REM ----Tastendruecke verarbeiten
|
||||
510 K$=INPUT$(1)
|
||||
520 IF K$="+" THEN I=I+1
|
||||
@ -34,35 +41,19 @@
|
||||
540 IF K$="0" THEN I=0
|
||||
550 IF K$="q" THEN SYSTEM
|
||||
551 IF K$="Q" THEN SYSTEM
|
||||
560 IF I<0 THEN I=MAX
|
||||
570 GOTO 100
|
||||
580 REM ---ENDE Schleife
|
||||
1000 REM Fehlerbehandlung hier: Wenn Datei nicht gefunden
|
||||
560 IF I<0 THEN I=C
|
||||
570 IF I=C+1 THEN I=0
|
||||
580 GOTO 200
|
||||
590 REM ---ENDE Schleife
|
||||
1000 REM Fehlerbehandlung zur Bestimmung der max. Dateizahl
|
||||
1001 REM ----------
|
||||
1010 IF ERR=53 THEN GOTO 1100
|
||||
1020 IF ERR=53 THEN RESUME 500
|
||||
1030 PRINT "Error"+STR$(ERR)+" in Zeile "+STR$(ERL)
|
||||
1040 END
|
||||
1100 PRINT BELL$
|
||||
1110 I=0
|
||||
1120 RESUME 100
|
||||
2000 REM Durchzaehlen, welche Dateien vorhanden sind
|
||||
2001 REM um Wraparound moeglich zu machen
|
||||
2010 REM ---- Schleifenbeginn
|
||||
2019 PRINT C
|
||||
2020 IF C<10 THEN F$="ZP0"+MID$(STR$(C),2,1)+".TXT"
|
||||
2030 IF C>=10 THEN F$="ZP"+MID$(STR$(C),2,2)+".TXT"
|
||||
2040 ON ERROR GOTO 2500
|
||||
2050 OPEN "i",1,F$
|
||||
2060 CLOSE 1
|
||||
2070 ON ERROR GOTO 0
|
||||
2080 C=C+1
|
||||
2090 GOTO 2010
|
||||
2110 REM ----ENDE Schleife
|
||||
2500 REM Fehlerbehandlung zur Bestimmung der
|
||||
2501 REM max. Dateizahl
|
||||
2502 REM ----------
|
||||
2510 IF ERR<>53 GOTO 1030
|
||||
2511 REM - bei anderem Fehler diesen anzeigen und dann beenden
|
||||
2520 MAX=C-1
|
||||
2530 RESUME 100
|
||||
1010 IF ERR<>53 GOTO 1100
|
||||
1011 REM - bei anderem Fehler diesen anzeigen und dann beenden
|
||||
1020 C=C-1
|
||||
1021 REM die Datei C-1 existierte noch, das ist die hoechste
|
||||
1030 RESUME 200
|
||||
1100 PRINT "Fehler"+STR$(ERR)+" in Zeile"+STR$(ERL)
|
||||
1110 END
|
||||
tei C-1 existierte noch, das ist die hoechste
|
||||
1030 RESUME 200
|
||||
1100 PRINT "Fehler"+STR$(ERR)+"
|
||||
Loading…
Reference in New Issue
Block a user