Fix: Cache loader not clearing empty entries in last page.

kounch · Jun 29, 2020 · 70a2edf · 70a2edf
1 parent a8e3662
commit 70a2edf
Show file tree

Hide file tree

Showing 6 changed files with 9 additions and 9 deletions.
diff --git a/docs/Manual_en.adoc b/docs/Manual_en.adoc
@@ -1,6 +1,6 @@
 = knloader English Manual
 :author: kounch
-:revnumber: 0.6.0
+:revnumber: 0.7.0
 :doctype: book
 :email: kounch@users.noreply.github.com
 :Revision: 1.0

diff --git a/docs/Manual_es.adoc b/docs/Manual_es.adoc
@@ -1,6 +1,6 @@
 = Manual de knloader
 :author: kounch
-:revnumber: 0.6.0
+:revnumber: 0.7.0
 :doctype: book
 :email: kounch@users.noreply.github.com
 :Revision: 1.0

diff --git a/docs/knloader_en.gde b/docs/knloader_en.gde
@@ -1,6 +1,6 @@
 @title knloader Manual
 @author kounch
-@version 0.6
+@version 0.7
 @copyright Copyright (C)2020 kounch
 @date 2020/05/31
 
@@ -12,7 +12,7 @@
 
 @{c}knloader Manual
 
-@{c}Version 0.6
+@{c}Version 0.7
 
 @{h1}
 

diff --git a/docs/knloader_es.gde b/docs/knloader_es.gde
@@ -1,6 +1,6 @@
 @title Manual de knloader
 @author kounch
-@version 0.6
+@version 0.7
 @copyright Copyright (C)2020 kounch
 @date 2020/06/13
 
@@ -12,7 +12,7 @@
 
 @{c}Manual de knloader
 
-@{c}Vesrsión 0.6
+@{c}Versión 0.7
 
 @{h1}
 

diff --git a/knlauncher.bas b/knlauncher.bas
@@ -8,7 +8,7 @@
   50 LET %s=%REG 7&3:RUN AT 2
   60 ON ERROR PRINT "ERROR":ERROR TO e,l:PRINT e,l:PAUSE 0:RUN AT %s:FOR %a=0 TO 15:CLOSE # %a:NEXT %a:ERASE:ON ERROR
   70 LAYER CLEAR:SPRITE CLEAR:PALETTE CLEAR:PAPER 7:BORDER 7:INK 0:CLS
-  80 OPEN # 6,"w>22,1,1,32,4":PRINT #6;AT 0,0;">> knlauncher v0.6 >> (c) kounch 2020":CLOSE # 6
+  80 OPEN # 6,"w>22,1,1,32,4":PRINT #6;AT 0,0;">> knlauncher v0.7 >> (c) kounch 2020":CLOSE # 6
   90 LET x=USR 5808:LOAD "c:/nextzxos/usr0.bin"CODE 32768
 
  200 ; Load Options

diff --git a/knloader.bas b/knloader.bas
@@ -9,7 +9,7 @@
   60 ON ERROR PRINT "ERROR":ERROR TO e,l:PRINT e,l:PAUSE 0:RUN AT %s:FOR %a=0 TO 15:CLOSE # %a:NEXT %a:ERASE:ON ERROR
   70 GO SUB 7000:; Load Defaults
   80 LAYER CLEAR:SPRITE CLEAR:PALETTE CLEAR:PAPER tinta:BORDER tinta:INK papel:CLS
-  90 PRINT AT 5,14;"> knloader  v0.6 <":PRINT AT 8,16;"© kounch  2020":PRINT AT 15,15;"Press H for help"
+  90 PRINT AT 5,14;"> knloader  v0.7 <":PRINT AT 8,16;"© kounch  2020":PRINT AT 15,15;"Press H for help"
 
   95 ; Load Menu Items
  100 GO SUB 5000:; Load Cache
@@ -22,7 +22,6 @@
  250 FOR %c=1 TO 22:LET c=%c:PRINT #6;INVERSE 0;OVER 0;AT c,1;z$(c):NEXT %c
  295 ; Menu Input Control and Delay Logic
 
-
  300 LET prv=1:LET %k=0:LET J=0:LET K$="":LET %d=1
  310 PRINT #6;AT prv,0;OVER 1;"                        ":PRINT #6;AT pos,0;OVER 1;INVERSE 1;"                        "
  320 LET J=IN 31:LET K$=INKEY$:IF J<>0 OR K$<>"" THEN LET %d=1:GO TO 360
@@ -249,6 +248,7 @@
 
 6295 ;Save cache
 6300 IF n<23 THEN LET a$=z$(n):GO SUB 5300:IF a$=" " THEN LET n=n-1
+6310 IF n<22 THEN FOR %a=n+1 TO 22:LET ln=%a:LET z$(ln)="":NEXT %a
 6320 SAVE "/tmp/knloader/zcch"+STR$ pag+".tmp"DATA z$():SAVE "/tmp/knloader/occh"+STR$ pag+".tmp"DATA o()
 6330 SAVE "/tmp/knloader/wcch"+STR$ pag+".tmp"DATA w$():SAVE "/tmp/knloader/xcch"+STR$ pag+".tmp"DATA x$()
 6340 SAVE "/tmp/knloader/bcch"+STR$ pag+".tmp"DATA b$()