From e20b3146316bff356f4ff46fd4e87ed1b9a49e2a Mon Sep 17 00:00:00 2001
From: Vince Weaver <vince@deater.net>
Date: Fri, 6 Jan 2017 23:00:53 -0500
Subject: [PATCH] portal: ugh, bug was forgetting to set SCALE= to a sane value

---
 glados3.3/portal.bas | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/glados3.3/portal.bas b/glados3.3/portal.bas
index e28fb2ad..30f3ec93 100644
--- a/glados3.3/portal.bas
+++ b/glados3.3/portal.bas
@@ -1,6 +1,6 @@
-10 HOME:HGR
-11 POKE 232,0:POKE 233,28
-12 PRINT CHR$(4)+"BLOAD OBJECTS.SHAPE,A$1C00"
+10 HOME:HGR:SCALE=2:ROT=0
+11 POKE 232,0:POKE 233,29
+12 PRINT CHR$(4)+"BLOAD OBJECTS.SHAPE,A$1D00"
 15 GOSUB 1000
 20 CX=20:CY=100:VX=0:VY=0:SX=140:SY=80:BO=0:GO=0
 22 XDRAW 1 AT SX,SY