From 0f862353a9c054544734b553bcdd3e5ba1358c3c Mon Sep 17 00:00:00 2001
From: JJFlash <jjfotone@gmail.com>
Date: Fri, 2 Sep 2022 11:04:03 +0200
Subject: [PATCH] Forgot the non-debug version...

---
 .../superchase-ported.xcbbas                  | 309 ++++++++++++++++++
 1 file changed, 309 insertions(+)
 create mode 100644 initial_ported_version/superchase-ported.xcbbas

diff --git a/initial_ported_version/superchase-ported.xcbbas b/initial_ported_version/superchase-ported.xcbbas
new file mode 100644
index 0000000..5d74b72
--- /dev/null
+++ b/initial_ported_version/superchase-ported.xcbbas
@@ -0,0 +1,309 @@
+Dim scrAddrCache(25) as WORD @loc_scrAddrCache ' 0 -> 24
+loc_scrAddrCache:
+DATA AS WORD 1024, 1064, 1104, 1144, 1184, 1224, 1264, 1304, 1344, 1384
+DATA AS WORD 1424, 1464, 1504, 1544, 1584, 1624, 1664, 1704, 1744, 1784
+DATA AS WORD 1824, 1864, 1904, 1944, 1984
+
+poke 53280, 13 : poke 53281, 13
+sys $E544 FAST ' clear screen
+poke 646, 0 'black chars
+locate 0, 24
+
+dim charset_array(2048) as BYTE @LOC_charset_addr
+memcpy @charset_array, $3800, 2048
+poke $D018, 31 'final character location: $3800
+
+PRINT "         **************"
+PRINT "         * superchase *"
+PRINT "         **************"
+PRINT "{13}{13}{13}{13}   use the arrow keys to move."
+PRINT "{13}{13}   try to gather as many"
+PRINT "{13}   treasures ({160}) in the maze"
+PRINT "{13}   as possible before the"
+PRINT "{13}   enemy catches you!"
+
+PRINT "{13}{13}{13}   press any key to begin";
+
+poke 198, 0 : wait 198, 1 : poke 198, 0
+
+line300:
+SC = 0
+LV = 1
+Dim FL as BYTE : FL = 0
+Dim CX as INT : CX = 0
+Dim CY as INT : CY = 0
+Dim CCX as INT : CCX = 0
+Dim CCY as INT : CCY = 0
+Dim G as BYTE : G = 0
+Dim tryAgain$ as STRING * 1
+
+line320:
+sys $E544 FAST ' clear screen
+poke 53280, 5 ' green
+poke 53281, 7 'yellow
+
+memset $0400, 1000, 104 'reverse space
+memset $D800, 1000, 6 'blue
+
+Randomize TI()
+
+For I AS BYTE = 1 to 65
+	X = 2 * (CBYTE(9*RND())) + 4
+	Y = 2 * (CBYTE(11*RND())) + 4
+	TEXTAT Y, X, "{176}{176}{176}{176}{176}"
+Next I
+
+For I AS BYTE = 1 to 60
+	X = 2 * (CBYTE(7*RND())) + 4
+	Y = 2 * (CBYTE(13*RND())) + 4
+	CHARAT Y, X    , 112
+	CHARAT Y, X + 1, 112
+	CHARAT Y, X + 2, 112
+	CHARAT Y, X + 3, 112
+	CHARAT Y, X + 4, 112
+Next I
+
+TEXTAT 4, 4, "{176}{176}{176}{176}{176}"
+CHARAT 4, 5, 112
+CHARAT 4, 6, 112
+CHARAT 4, 7, 112
+CHARAT 4, 8, 112
+
+For I AS BYTE = 1 to 80
+	X = 2 * (CBYTE(9*RND())) + 4
+	Y = 2 * (CBYTE(13*RND())) + 4
+	CHARAT Y, X, 96, 4 '  4 = magenta
+Next I
+
+TEXTAT 3, 23, "score:", 0 'black
+
+'****************************************************************************
+
+T = 0 ' treasures collected
+
+IF LV = 8 Then LV = 7
+
+A = 4
+B = 4
+C = 4
+D = 4
+PG = 112
+
+'****************************************************************************
+
+line670:
+CHARAT B, A, 120, 2 ' 2 = Red 
+
+IF T < 8-LV THEN goto line1410
+
+IF FL = 0 THEN goto line740
+
+IF (FL AND 1) = 0 THEN Goto line1140
+
+CCX = CX
+CCY = CY
+FL = 0
+
+line740:             '"PRIVILEGED" CHECK -------------------------------------------------
+GC = peek(scrAddrCache(C + 1) + D)
+IF GC  = 120 THEN goto line1760
+IF GC  = 104 THEN goto line810
+IF GC <> 128 THEN goto line810
+CX = 1
+CY = 0
+GOTO line1340
+
+line810:
+GC = peek(scrAddrCache(C) + D + 1)
+IF GC  = 120 THEN goto line1760
+IF GC  = 104 THEN goto line880
+IF GC <> 128 THEN goto line880
+CX = 0
+CY = 1
+GOTO line1340
+
+line880:
+GC = peek(scrAddrCache(C - 1) + D)
+IF GC  = 120 THEN goto line1760
+IF GC  = 104 THEN goto line950
+IF GC <> 128 THEN goto line950
+CX = -1
+CY = 0
+GOTO line1340
+
+line950:
+GC = peek(scrAddrCache(C) + D - 1)
+IF GC = 120 THEN goto line1760
+IF GC = 128 THEN goto line1320
+IF GC = 112 THEN goto line1320
+
+FL = FL + 1
+IF (FL AND 1) = 0 then goto line1040
+
+CX = CCX
+CY = CCY
+GOTO line1160
+
+line1040:        '-----------CHECK USING SGN - ***NEVER EXECUTES!!***
+CX = SGN(A - C)
+CY = 0
+IF CX <> 0 THEN goto line1080
+CY = SGN(D - B)
+
+line1080:
+GC = peek(scrAddrCache(C + CX) + D + CY)
+IF GC = 104 THEN goto line1110
+IF (GC = 96) OR (GC = 112) THEN goto line1340
+
+line1110:
+CX = -1
+CY = 0
+GOTO line1160
+
+line1140:
+FL = FL + 1
+IF FL > 1 THEN goto line1300
+
+line1160:           '---------------"RELAXED" CHECK
+GC = peek(scrAddrCache(C + CX) + D + CY)
+IF (GC = 112) OR (GC = 96) OR (GC = 128) THEN goto line1340
+
+CX = 1
+CY = 0
+GC = peek(scrAddrCache(C + CX) + D)
+IF (GC = 112) OR (GC = 96) OR (GC = 128) THEN goto line1340
+
+CX = -1
+GC = peek(scrAddrCache(C + CX) + D)
+IF (GC = 112) OR (GC = 96) OR (GC = 128) THEN goto line1340
+
+CX = 0
+CY = -1
+GC = peek(scrAddrCache(C) + D + CY)
+IF (GC = 112) OR (GC = 96) OR (GC = 128) THEN goto line1340
+
+CY = 1
+
+line1300:
+GC = peek(scrAddrCache(C + CX) + D + CY)
+IF GC = 104 THEN goto line1390 ELSE goto line1340
+
+line1320:
+CX = 0
+CY = -1
+
+line1340:
+IF PG = 96 THEN goto line1360
+PG = 112 + FL
+
+line1360:
+CHARAT D, C, PG, 4 '4 = magenta
+C = C + CX
+D = D + CY
+
+line1390:
+CHARAT D, C, 42, 0 ' 0 = black
+PG = GC
+'****************************************************************************
+
+line1410:
+K1 = peek( $DC00) : K1 = 127 - K1
+if K1 = 0 OR K1 > 8 then goto line1410
+
+'Wait for the stick to be released, otherwise the game runs too fast
+do
+loop until peek ( $DC00) = 127
+
+CHARAT B, A, 128, 1 ' 1 = White
+'1: up - 2: down - 4: left - 8: right
+on K1 goto line1410, line1690, line1540, line1410, line1590, line1410, line1410, line1410, line1640
+
+line1450:
+IF G <> 96 then goto line670
+poke 53280, 13 : wait $d011, 128 : wait $d011, 128, 128 : wait $d011, 128 : wait $d011, 128, 128 : poke 53280, 5 ' light green, green
+SC = SC + 1
+textat 10, 23, str$(SC), 0
+T = T + 1 ' treasures collected
+IF T < 45 then goto line670 else LV = LV + 1 : Goto line320
+
+line1540:
+G = peek(scrAddrCache(A + 1) + B)
+IF G = 104 then goto line1740
+IF G = 42  then goto line1760
+A = A + 1
+Goto line1450
+
+line1590:
+G = peek(scrAddrCache(A) + B - 1)
+IF G = 104 then goto line1740
+IF G = 42  then goto line1760
+B = B - 1
+Goto line1450
+
+line1640:
+G = peek(scrAddrCache(A) + B + 1)
+IF G = 104 then goto line1740
+IF G = 42  then goto line1760
+B = B + 1
+Goto line1450
+
+line1690:
+G = peek(scrAddrCache(A - 1) + B)
+IF G = 104 then goto line1740
+IF G = 42  then goto line1760
+A = A - 1
+Goto line1450
+
+line1740:
+poke 53280, 2 : wait $d011, 128 : wait $d011, 128, 128 : poke 53280, 5 ' red, green
+goto line670
+'****************************************************************************
+
+line1760:
+FOR I = 1 to 3
+	poke 53280, 2
+	wait $d011, 128 : wait $d011, 128, 128
+	wait $d011, 128 : wait $d011, 128, 128
+	wait $d011, 128 : wait $d011, 128, 128
+	poke 53280, 4
+	wait $d011, 128 : wait $d011, 128, 128
+	wait $d011, 128 : wait $d011, 128, 128
+	wait $d011, 128 : wait $d011, 128, 128
+next I
+FOR I = 1 to 3
+	poke 53280, 1 : poke 53281, 1 'white
+	wait $d011, 128 : wait $d011, 128, 128
+	wait $d011, 128 : wait $d011, 128, 128
+	wait $d011, 128 : wait $d011, 128, 128
+	
+	poke 53280, 10 : poke 53281, 10 'light red
+	wait $d011, 128 : wait $d011, 128, 128
+	wait $d011, 128 : wait $d011, 128, 128
+	wait $d011, 128 : wait $d011, 128, 128
+	
+	poke 53280, 3 : poke 53281, 3 'cyan
+	wait $d011, 128 : wait $d011, 128, 128
+	wait $d011, 128 : wait $d011, 128, 128
+	wait $d011, 128 : wait $d011, 128, 128
+next I
+
+locate 0, 24
+PRINT "got caught!!!"
+PRINT "try again? (y/n)";
+
+line1840:
+poke 198, 0 : wait 198,1
+get tryAgain$
+if tryAgain$ = "y" then goto line300
+if tryAgain$ <> "n" then goto line1840
+
+poke 53280, 14 : poke 53281, 6
+memset $d800, 1000, 14
+poke 646, 14
+poke $D018, 21 'original character location
+memcpy $E3A2, $73, $17 'CHRGET bug workaround
+
+END
+
+LOC_charset_addr:
+incbin "charset.chr"