Fix econet detection issue with AGD Carousel

Change-Id: I47e9cd5d1a94242910f380001c2eb06c46840d37
hoglet67 · May 3, 2024 · 6b88edc · 6b88edc
1 parent 546c3fd
commit 6b88edc
Showing 1 changed file with 4 additions and 10 deletions.
diff --git a/agdzips/SHOW1.bas b/agdzips/SHOW1.bas
@@ -1,14 +1,8 @@
     10 REM AGD TITLEVIEWER
-    11 DIM C 100
-    12 REM: DETECT ECONET
-    13 E=0
-    14 Z=!16
-    15 $C="GOTO 20"
-    16 ?16=C;?17=C&#FFFF/256
-    17 REM: ISSUE ECONET-ONLY COMMAND
-    18 *ROFF
-    19 E=1
-    20 ?16=Z;?17=Z&#FFFF/256
+    15 REM ECONET IRQ VEC => BIT #B4xx
+    20 A=!#204&#FFFF
+    22 E=0
+    25 IF (?A=#2C AND A?2=#B4) E=1
     30 P.$12;?#E1=0
     40 P."     AGD TITLE VIEWER  V1.0";GOS.a
     50 P.''" THIS  PROGRAM SHOWS  THE TITLE"'