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