diff --git a/knloader.bas b/knloader.bas index f7a12b6..0fab841 100644 --- a/knloader.bas +++ b/knloader.bas @@ -194,10 +194,10 @@ 4900 ON ERROR GO SUB 6000:ON ERROR 4910 LOAD"/tmp/knloader/cache13"BANK 13 4920 LET maxpag=%BANK 13 DPEEK 16252:LET maxpos=%BANK 13 PEEK 16254 -4930 LET p=PEEK 23401:IF maxpag>p THEN GO TO 6700 -4940 LET y$=BANK 13 PEEK$(16255,~0) -4950 IF y$(LEN y$ TO LEN y$)="/" AND LEN y$>1 THEN LET y$=y$(1 TO LEN y$-1) -4960 LET bnk=13+INT((maxpag*22+maxpos)/74):IF bnk>13 THEN FOR p=14 TO bnk:LOAD"/tmp/knloader/cache"+STR$ p BANK p:NEXT p +4930 LET y$=BANK 13 PEEK$(16255,~0) +4940 IF y$(LEN y$ TO LEN y$)="/" AND LEN y$>1 THEN LET y$=y$(1 TO LEN y$-1) +4950 LET bnk=13+INT((maxpag*22+maxpos)/74):LET p=PEEK 23401:IF bnk>p THEN GO TO 6700 +4960 IF bnk>13 THEN FOR p=14 TO bnk:LOAD"/tmp/knloader/cache"+STR$ p BANK p:NEXT p 4970 DIM z$(22,22):DIM o(22):DIM w$(22,maxpath):DIM x$(22,maxpath):DIM b$(22,maxpath) 4980 RETURN @@ -306,7 +306,7 @@ 6695 ; Not enough RAM 6700 CLS:PRINT AT 2,3;INK 6;PAPER 2;" ERROR: Not enough memory " 6710 PRINT AT 5,1;"Too much cache data for current" -6720 PRINT AT 6,0;"configuration. ";INK 6;maxpag;INK papel;" memory banks" +6720 PRINT AT 6,0;"configuration. ";INK 6;bnk;INK papel;" memory banks" 6730 PRINT AT 7,0;"are needed, but the maximum" 6740 PRINT AT 8,0;"is ";p;"." 6750 PRINT AT 11,1;"Please use a smaller cache or,"