Fixes for when no Kempston/MD Joystick is configured

Author: kounch

knloader.bas

@@ -24,9 +24,10 @@
 
  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
- 330 LET %k=0:IF %d=0 THEN GO TO 320
- 340 GO SUB 4000:LET %d=0
+ 320 LET J=IN 31:LET K$=INKEY$:IF J=255 THEN LET J=0
+ 330 IF J<>0 OR K$<>"" THEN LET %d=1:GO TO 360
+ 340 LET %k=0:IF %d=0 THEN GO TO 320
+ 350 GO SUB 4000:LET %d=0
  360 IF J=0 AND K$="" THEN GO TO 320
  370 IF J=IN 31 OR K$=INKEY$ THEN IF %k=1 THEN GO TO 440
  380 IF J<>IN 31 AND K$<>INKEY$ THEN LET %k=0:GO TO 430
@@ -105,8 +106,8 @@
 1310 PRINT AT 7,5;INK 6;PAPER 2;"                      "
 1320 PRINT AT 8,5;INK 6;PAPER 2;" ERROR:File Not Found "
 1330 PRINT AT 9,5;INK 6;PAPER 2;"                      "
-1340 LET J=IN 31:LET K$=INKEY$:IF J<>0 OR K$<>"" THEN GO TO 1340
-1350 LET J=IN 31:LET K$=INKEY$:IF J=0 AND K$="" THEN GO TO 1350
+1340 LET J=IN 31:LET K$=INKEY$:IF (J<>0 AND J<>255) OR K$<>"" THEN GO TO 1340
+1350 LET J=IN 31:LET K$=INKEY$:IF (J=0 OR J=255) AND K$="" THEN GO TO 1350
 1360 LET prev=pos:CLS:GO TO 200
 
 1395 ; Show Cover Status
@@ -127,8 +128,8 @@
 1570 PRINT #5;AT 13,1;"Press X to exit"
 1580 PRINT #5;AT 15,1;"Press H to show this help"
 1590 PRINT #5;AT 19,5;"Press any key or button to close this window"
-1600 LET J=IN 31:LET K$=INKEY$:IF J<>0 OR K$<>"" THEN GO TO 1600
-1610 LET J=IN 31:LET K$=INKEY$:IF J=0 AND K$="" THEN GO TO 1610
+1600 LET J=IN 31:LET K$=INKEY$:IF (J<>0 AND J<>255) OR K$<>"" THEN GO TO 1600
+1610 LET J=IN 31:LET K$=INKEY$:IF (J=0 OR J=255) AND K$="" THEN GO TO 1610
 1620 CLOSE # 5:GO TO 210
 
 3095 ; SUBROUTINES
@@ -294,7 +295,7 @@
 6690 PAUSE 0:STOP
 
 6995 ; Default Config
-7000 ON ERROR ERASE
+7000 ON ERROR RUN AT %s:ERASE
 7010 LET tinta=0:LET papel=7:LET %p=8:LET pos=1:LET pag=0:LET maxpag=0:LET maxpos=1:LET maxpath=64
 7020 LET covers=1:DIM d$(255):OPEN # 2,"v>d$":PWD #2:CLOSE # 2
 7030 LET a$=d$:GO SUB 5300:LET p$=a$(3 TO LEN a$-1):LET q$=a$(1 TO 2):;My Path

utils/autoexec.bas

@@ -7,7 +7,7 @@
 
   50 LET %s=%REG 7&3:RUN AT 2
   60 CLS:ON ERROR RUN AT %s:ERASE
-  70 LET J=IN 31:LET K$=INKEY$:IF J<>0 OR K$<>"" THEN GO TO 90
+  70 LET J=IN 31:LET K$=INKEY$:IF (J<>0 AND J<>255) OR K$<>"" THEN GO TO 90
   80 LOAD "C:":CD "/knloader":RUN AT %s:LOAD "knloader.bas"
   90 IF K$=" " OR J=32 THEN RUN AT %s:ERASE
  100 IF K$<>"t" AND K$<>"T" AND J<>64 THEN GO TO 140