From 4df0a129e7ab48cf8d3df732a28d86e41fe0a1c5 Mon Sep 17 00:00:00 2001 From: acn Date: Sat, 2 Feb 2019 20:12:30 +0100 Subject: [PATCH] Bugfixes --- ZP00.TXT | 23 ++++++++------ ZP01.TXT | 17 +++++----- zpoint.bas | Bin 1095 -> 1536 bytes zpointa.bas | 89 +++++++++++++++++++++++----------------------------- 4 files changed, 63 insertions(+), 66 deletions(-) diff --git a/ZP00.TXT b/ZP00.TXT index 151b66e..882647a 100644 --- a/ZP00.TXT +++ b/ZP00.TXT @@ -1,12 +1,16 @@ -[?7h  -  RC2014 - modularer Z80-basierter 8-Bit-Computer  -   - ----------------------------------------------------------------------------- +[?7h  +  +  RC2014 - modularer Z80-basierter 8-Bit-Computer  +  +   +  + ---------------------------------------------------------- +------------------- + Ú¿ÄÄÄÉ» + ÀÙÄÄÄȼ - - -###### ########## ##### ## ## ## +###### ########## ##### ## ## ## ## ## ## ## ## ## ## ### ### ## ## ## ## #### ## # ## ## ## ## ###### ###### ## # ## ## ## ## @@ -20,6 +24,5 @@ -  2019-03-23 # Anna Christina Naá # RETROpulsiv 13.0  - - \ No newline at end of file +  2019-03-23 # Anna Christina Naá #  + RETROpulsiv 13.0  diff --git a/ZP01.TXT b/ZP01.TXT index 9bff69f..2eb455e 100644 --- a/ZP01.TXT +++ b/ZP01.TXT @@ -1,7 +1,11 @@ -[?7h  -  RC2014 - modularer Z80-basierter 8-Bit-Computer  -   - ----------------------------------------------------------------------------- +[?7h  +  +  RC2014 - modularer Z80-basierter 8-Bit-Computer  +  +   +  + ---------------------------------------------------------- +------------------- šbersicht @@ -20,6 +24,5 @@ -  2019-03-23 # Anna Christina Naá # RETROpulsiv 13.0  - - \ No newline at end of file +  2019-03-23 # Anna Christina Naá  + # RETROpulsiv 13.0  diff --git a/zpoint.bas b/zpoint.bas index aa267055679049b3ae3c57d14529593c258d5dac..9ae32bf4b6d2e7dfca24d5cae87629d02d74db0b 100644 GIT binary patch literal 1536 zcmcgsO>7%g5FRI1fff?tAcQEC(PB}X*ue?mHz*=FiE0Q|Ar_RD%iDdk-c@&>+x0p% z=2AcrLP08_qCyA>j!+OkQV}OWh)X#kA(0&5h@zGQbsU65`7!g>PSS{+v1ILg-i#F!~7pU z5!w?_Ft62-$SsFBB|>sZq3?z$$!Bw)RJCe3D0&bP(fE^XUnEaA+U=d9hr>1ev;=Em(;8}T| zVaKI_IdDV%C{6}vG%tZkngy@MwS7*0+i{;OO+Hz|1EO{;WaV^%EXeO+2{q~C@QM71 zGb`*!LSZ`zKgv~Yx+4jZ=@tpU$mW%4{~<5KxfcF_?T=H5G+agT*r&LFw#rjdzN@FD#Zdo0;pNa`nl zO;`6UB5#c$gVj=K7Pwl=l<0!lF1Vh6i*!pD%yqy4xJ-9+q2n6*0`}PZyTB72V6UBH zps+R&#m+<4eo*hVCL&}2?z5+QSQ+O5igvMQ2W7l$U+6vcA0gk;xHYcetljEe#Fe#6{r6}U&&FZZUe_kb%y0oX22Z1ov`RoW%UC%-acz~#igHr|Dr7la u9vCa{ioYKvf22GcUqYjEc~sgJU07G?ndwo4ET=(~pNhZ0optm7a{s?F0|rI_ delta 665 zcmYL{&ubG=5XUFkpbqd6!aFh)}GMiJK z4s?}EgA z!X3s%NIV|TO^%(L#2hP?$t)1uV+0NCsKHBS*~@-ST4yu%7r$n>>^3~WCpd@UmIOY2 z7nV^mm6#k$s}SLfn~wmnn?Hu8i>ugvrpY?Q_)~a}v$$7|WmOpFO(7wSQT_&AK$3re zcPInnF?&iH*zt%T@ilO>)S*s+UbS{Z+T(xA?WUyESNLDwDb<-(JNegn&_9pDRSqh+ zf*B{{%J7HF9*leNy9^=P<-tS`Mqz;Vd1$(WUc({U?}4*DaGVkXWWGhaxlfNx!9<8g z{GtyWAW!4=bYOe^A+@9hOq1wi#h_B&;^mrE#F9ys5xhW_)td%dCM#93NQIik$$};N zEW*SbyaTVumF98Hi3|%hA(0Kh3T^yHOBnv)gI}~I&_E?ssa&lnZrj!pYr3nTY2igO d#pJu}lMWly7q|t%LRS3lt{C(c&IdZn_YYIA+I#>2 diff --git a/zpointa.bas b/zpointa.bas index ae531cb..7f6b210 100644 --- a/zpointa.bas +++ b/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)+" \ No newline at end of file