diff --git a/charset.chr b/charset.chr
new file mode 100644
index 0000000..6928a85
Binary files /dev/null and b/charset.chr differ
diff --git a/game.bas b/game.bas
new file mode 100644
index 0000000..d8170e9
--- /dev/null
+++ b/game.bas
@@ -0,0 +1,179 @@
+100 CALL CLEAR
+110 PRINT TAB(6);"**************"
+120 PRINT TAB(6);"* SUPERCHASE *"
+130 PRINT TAB(6);"**************"
+140 CALL CHAR(96,"00183C7E7E3C18")
+150 CALL COLOR(9,14,12)
+160 PRINT : : : :"USE THE ARROW KEYS TO MOVE."
+170 PRINT : :"TRY TO GATHER AS MANY"
+180 PRINT :"TREASURES (`) IN THE MAZE"
+190 PRINT :"AS POSSIBLE BEFORE THE"
+200 PRINT :"ENEMY CATCHES YOU!"
+210 CALL COLOR(10,5,5)
+220 CALL COLOR(11,12,12)
+230 CALL CHAR(120,"383810FE10387CFE")
+240 CALL COLOR(12,7,12)
+250 CALL CHAR(128,"383810FE10387CFE")
+260 CALL COLOR(13,16,12)
+270 PRINT : : :"PRESS ANY KEY TO BEGIN";
+280 CALL KEY(0,K,S)
+290 IF S<1 THEN 280
+300 SC=0
+310 LV=1
+320 CALL CLEAR
+330 CALL SCREEN(4)
+340 FOR X=3 TO 21
+350 CALL HCHAR(X,3,104,27)
+360 NEXT X
+370 RANDOMIZE
+380 FOR I=1 TO 65
+390 X=2*(INT(9*RND))+4
+400 Y=2*(INT(11*RND))+4
+410 CALL HCHAR(X,Y,112,5)
+420 NEXT I
+430 FOR I=1 TO 60
+440 X=2*(INT(7*RND))+4
+450 Y=2*(INT(13*RND))+4
+460 CALL VCHAR(X,Y,112,5)
+470 NEXT I
+480 CALL HCHAR(4,4,112,5)
+490 CALL VCHAR(4,4,112,5)
+500 FOR I=1 TO 80
+510 X=2*(INT(9*RND))+4
+520 Y=2*(INT(13*RND))+4
+530 CALL HCHAR(X,Y,96)
+540 NEXT I
+550 FOR I=1 TO 6
+560 CALL HCHAR(23,2+I,ASC(SEG$("SCORE:",I,1)))
+570 NEXT I
+580 CALL SOUND(100,1497,2)
+590 T=0
+600 IF LV<8 THEN 620
+610 LV=7
+620 A=4
+630 B=4
+640 C=4
+650 D=4
+660 PG=112
+670 CALL HCHAR(A,B,120)
+680 IF T<8-LV THEN 1410
+690 IF FL=0 THEN 740
+700 IF FL/2=INT(FL/2)THEN 1140
+710 CCX=CX
+720 CCY=CY
+730 FL=0
+740 CALL GCHAR(C+1,D,GC)
+750 IF GC=120 THEN 1760
+760 IF GC=104 THEN 810
+770 IF GC<>128 THEN 810
+780 CX=1
+790 CY=0
+800 GOTO 1340
+810 CALL GCHAR(C,D+1,GC)
+820 IF GC=120 THEN 1760
+830 IF GC=104 THEN 880
+840 IF GC<>128 THEN 880
+850 CX=0
+860 CY=1
+870 GOTO 1340
+880 CALL GCHAR(C-1,D,GC)
+890 IF GC=120 THEN 1760
+900 IF GC=104 THEN 950
+910 IF GC<>128 THEN 950
+920 CX=-1
+930 CY=0
+940 GOTO 1340
+950 CALL GCHAR(C,D-1,GC)
+960 IF GC=120 THEN 1760
+970 IF GC=128 THEN 1320
+980 IF GC=112 THEN 1320
+990 FL=FL+1
+1000 IF FL/2=INT(FL/2)THEN 1040
+1010 CX=CCX
+1020 CY=CCY
+1030 GOTO 1160
+1040 CX=SGN(A-C)
+1050 CY=0
+1060 IF CX<>0 THEN 1080
+1070 CY=SGN(D-B)
+1080 CALL GCHAR(C+CX,D+CY,GC)
+1090 IF GC=104 THEN 1110
+1100 IF (GC=96)+(GC=112)THEN 1340
+1110 CX=-1
+1120 CY=0
+1130 GOTO 1160
+1140 FL=FL+1
+1150 IF FL>1 THEN 1300
+1160 CALL GCHAR(C+CX,D+CY,GC)
+1170 IF (GC=112)+(GC=96)+(GC=128)THEN 1340
+1180 CX=1
+1190 CY=0
+1200 CALL GCHAR(C+CX,D,GC)
+1210 IF (GC=112)+(GC=96)+(GC=128)THEN 1340
+1220 CX=-1
+1230 CALL GCHAR(C+CX,D,GC)
+1240 IF (GC=112)+(GC=96)+(GC=128)THEN 1340
+1250 CX=0
+1260 CY=-1
+1270 CALL GCHAR(C,D+CY,GC)
+1280 IF (GC=112)+(GC=96)+(GC=128)THEN 1340
+1290 CY=1
+1300 CALL GCHAR(C+CX,D+CY,GC)
+1310 IF GC=104 THEN 1390 ELSE 1340
+1320 CX=0
+1330 CY=-1
+1340 IF PG=96 THEN 1360
+1350 PG=112+FL
+1360 CALL HCHAR(C,D,PG)
+1370 C=C+CX
+1380 D=D+CY
+1390 CALL HCHAR(C,D,42)
+1400 PG=GC
+1410 CALL KEY(1,K1,S)
+1420 IF (K1<0)+(K1>5)THEN 1410
+1430 CALL HCHAR(A,B,128)
+1440 ON K1+1 GOTO 1540,1410,1590,1640,1410,1690
+1450 IF G<>96 THEN 670
+1460 CALL SOUND(100,-1,4)
+1470 SC=SC+1
+1480 SC$=STR$(SC)
+1490 FOR I=1 TO LEN(SC$)
+1500 CALL HCHAR(23,10+I,ASC(SEG$(SC$,I,1)))
+1510 NEXT I
+1520 T=T+1
+1530 IF T<45 THEN 670 ELSE 320
+1540 CALL GCHAR(A+1,B,G)
+1550 IF G=104 THEN 1740
+1560 IF G=42 THEN 1760
+1570 A=A+1
+1580 GOTO 1450
+1590 CALL GCHAR(A,B-1,G)
+1600 IF G=104 THEN 1740
+1610 IF G=42 THEN 1760
+1620 B=B-1
+1630 GOTO 1450
+1640 CALL GCHAR(A,B+1,G)
+1650 IF G=104 THEN 1740
+1660 IF G=42 THEN 1760
+1670 B=B+1
+1680 GOTO 1450
+1690 CALL GCHAR(A-1,B,G)
+1700 IF G=104 THEN 1740
+1710 IF G=42 THEN 1760
+1720 A=A-1
+1730 GOTO 1450
+1740 CALL SOUND(-100,-5,4)
+1750 GOTO 670
+1760 CALL SOUND(200,-6,4)
+1770 FOR I=1 TO 3
+1780 CALL SCREEN(16)
+1790 CALL SCREEN(9)
+1800 CALL SCREEN(8)
+1810 NEXT I
+1820 PRINT "GOT CAUGHT!!!"
+1830 PRINT "TRY AGAIN? (Y/N)";
+1840 CALL KEY(0,K,S)
+1850 IF K=89 THEN 300
+1860 IF K<>78 THEN 1840
+1870 CALL CLEAR
+1880 END
diff --git a/supchase-emulated-STUCK!.png b/supchase-emulated-STUCK!.png
new file mode 100644
index 0000000..e239f5d
Binary files /dev/null and b/supchase-emulated-STUCK!.png differ
diff --git a/superchase-ported.prg b/superchase-ported.prg
new file mode 100644
index 0000000..120480f
Binary files /dev/null and b/superchase-ported.prg differ
diff --git a/superchase-ported.xcbbas b/superchase-ported.xcbbas
new file mode 100644
index 0000000..6f415ea
--- /dev/null
+++ b/superchase-ported.xcbbas
@@ -0,0 +1,307 @@
+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
+
+END
+
+LOC_charset_addr:
+incbin "charset.chr"