diff --git a/glados3.3/cube.bas b/glados3.3/cube.bas
index 7a2a31ec..8a10dd71 100644
--- a/glados3.3/cube.bas
+++ b/glados3.3/cube.bas
@@ -48,6 +48,14 @@
 77 HPLOT X+33,Y+4 TO X+33,Y+5
 80 NEXT I
 '
+100 X=50:Y=100:HCOLOR=3
+102 FOR I=0 TO 10:HPLOT X,Y+I TO X+12,Y+I:NEXT I
+103 HCOLOR=0:HPLOT X+2,Y+5 TO X+10,Y+5
+104 HPLOT X+8,Y+4 TO X+9,Y+4:HPLOT X+8,Y+6 TO X+9,Y+6
+105 HPLOT X+7,Y+3 TO X+8,Y+3:HPLOT X+7,Y+7 TO X+8,Y+7
+106 HPLOT X+6,Y+2 TO X+7,Y+2:HPLOT X+6,Y+8 TO X+7,Y+8
+107 HPLOT X+5,Y+1 TO X+6,Y+1:HPLOT X+5,Y+9 TO X+6,Y+9
+'
 200 REM SPRITE EDIT
 210 X=0:Y=0:ROT=0:SCALE=1
 220 HIMEM:8170
@@ -65,9 +73,13 @@
 560 IF Y<0 THEN Y=0
 570 IF X<0 THEN X=0
 580 IF A$="0" THEN HCOLOR=0:HPLOT X,Y
-590 IF A$="3" THEN HCOLOR=3:HPLOT X,Y
-600 IF A$="1" THEN HCOLOR=1:HPLOT X,Y
-610 IF A$="2" THEN HCOLOR=2:HPLOT X,Y
+585 IF A$="1" THEN HCOLOR=1:HPLOT X,Y
+590 IF A$="2" THEN HCOLOR=2:HPLOT X,Y
+595 IF A$="3" THEN HCOLOR=3:HPLOT X,Y
+600 IF A$="4" THEN HCOLOR=4:HPLOT X,Y
+605 IF A$="5" THEN HCOLOR=5:HPLOT X,Y
+610 IF A$="6" THEN HCOLOR=6:HPLOT X,Y
+615 IF A$="7" THEN HCOLOR=7:HPLOT X,Y
 620 XDRAW 1 AT X,Y
 630 GOTO 510
 900 HOME:L=1:POKE 32,8:PRINT
diff --git a/glados3.3/portal.bas b/glados3.3/portal.bas
index 0bc38e09..37e491d4 100644
--- a/glados3.3/portal.bas
+++ b/glados3.3/portal.bas
@@ -35,7 +35,7 @@
 12 I=I+1:IF I<500 GOTO 11
 13 HGR
 '
-14 L=19
+14 L=1
 ' PRINT LEVEL INFO
 15 TEXT:GOSUB 9000
 ' Clear screen to black#2
@@ -89,8 +89,8 @@
 ' Move X.  Ensure we are always odd so colors are right
 107 IF VX<2 AND VX>-2 THEN VX=0
 110 CX=CX+VX
-115 IF JO=0 THEN JO=1:JX=45:JY=10:JA=5:SCALE=2:XDRAW 5 AT JX,JY
-120 IF JO=1 THEN SCALE=2:XDRAW 5 AT JX,JY:JY=JY+JA:XDRAW 5 AT JX,JY
+115 IF L=19 AND JO=0 THEN JO=1:JX=45:JY=10:JA=5:SCALE=2:XDRAW 5 AT JX,JY
+120 IF L=19 AND JO=1 THEN SCALE=2:XDRAW 5 AT JX,JY:JY=JY+JA:XDRAW 5 AT JX,JY
 '
 ' COLLISION DETECTION
 '
@@ -192,7 +192,16 @@
 1072 HPLOT X+4,Y+5 TO X+8,Y+5
 1074 HPLOT X+5,Y+6 TO X+7,Y+6
 1076 HPLOT X+6,Y+7
-1099 RETURN
+' EXIT SIGN
+1100 X=266:Y=90:HCOLOR=3
+1102 FOR I=0 TO 10:HPLOT X,Y+I TO X+12,Y+I:NEXT I
+1103 HCOLOR=0:HPLOT X+2,Y+5 TO X+10,Y+5
+1104 HPLOT X+8,Y+4 TO X+9,Y+4:HPLOT X+8,Y+6 TO X+9,Y+6
+1105 HPLOT X+7,Y+3 TO X+8,Y+3:HPLOT X+7,Y+7 TO X+8,Y+7
+1106 HPLOT X+6,Y+2 TO X+7,Y+2:HPLOT X+6,Y+8 TO X+7,Y+8
+1107 HPLOT X+5,Y+1 TO X+6,Y+1:HPLOT X+5,Y+9 TO X+6,Y+9
+1110 HCOLOR=6:HPLOT 278,100 TO 278,119
+1199 RETURN
 ' LEVEL 19
 2000 PRINT CHR$(4);"BLOAD GLADOS.HGR"
 ' Draw the blue core
@@ -348,3 +357,7 @@
 '    Die if go into incinerator
 '    Call out to Still Alive
 '    Sound for blob gun?
+
+
+
+