diff --git a/cards.tal b/cards.tal
index 92a42f1..377dc60 100644
--- a/cards.tal
+++ b/cards.tal
@@ -42,17 +42,18 @@
     ,set-sprite/layer LDR ORA .Screen/sprite DEOk DEOk DEO JMP2r
 
 @draw-background ( -> )
-    #f2 .Screen/auto DEO
-    ;tiles #0200 ADD2 .Screen/addr DEO2
-    #0080 .Screen/x DEO2
-    draw-background/twice
-    #0000 .Screen/x DEO2
-    &twice
+    #01 .Screen/auto DEO
     #0000 .Screen/y DEO2
-    #81 .Screen/sprite
-    DEOk DEOk DEOk DEOk DEOk DEOk DEOk DEOk
-    DEOk DEOk DEOk DEOk DEOk DEOk DEOk DEOk
-    DEOk DEOk DEOk DEOk DEOk DEOk DEOk DEO JMP2r
+    ;tiles #0200 ADD2 .Screen/addr DEO2
+    .height LDZ2 #03 SFT2 #0000 &yloop
+    #0000 .Screen/x DEO2
+    .width LDZ2 #03 SFT2 #0000 &xloop
+    #81 .Screen/sprite DEO
+    INC2 GTH2k ?&xloop
+    POP2 POP2
+    .Screen/y DEI2 #0008 ADD2 .Screen/y DEO2
+    INC2 GTH2k ?&yloop
+    POP2 POP2 JMP2r
 
 @draw-spot-down ( -> )
     #16 .Screen/auto DEO        ( ; draw 2 tiles, increment x and addr )
diff --git a/kodiak.rom b/kodiak.rom
index 5359a1e..dc05fd3 100644
Binary files a/kodiak.rom and b/kodiak.rom differ
diff --git a/kodiak.tal b/kodiak.tal
index 468c605..1ed8c50 100644
--- a/kodiak.tal
+++ b/kodiak.tal
@@ -61,6 +61,8 @@
     @audio [ $1             ( is audio enabled? )
              &pos $2 ]      ( position in music )
     @easy $1                ( true: draw 1 card false: draw 3 cards )
+    @width $2
+    @height $2
 
 |0100
     ( metadata )
@@ -71,9 +73,7 @@
     #8d12 .System/g DEO2
     #4d12 .System/b DEO2
 
-    ( 256x192 )
-    #0100 .Screen/w DEO2
-    #00c0 .Screen/h DEO2
+    init-screen
 
     ( set up vectors )
     ;on-mouse .Mouse/vect DEO2
@@ -133,6 +133,16 @@
     .about LDZ ?draw-about
     draw !auto-move
 
+@init-screen ( -> )
+    ( try to set 256x192; detect platforms that can't resize )
+    #0100 .Screen/w DEO2
+    #00c0 .Screen/h DEO2
+
+    ( save whatever size we get back )
+    .Screen/w DEI2 .width STZ2
+    .Screen/h DEI2 .height STZ2
+    JMP2r
+
 @clear-fg ( -> )
     #0000 .Screen/x DEO2
     #0000 .Screen/y DEO2
@@ -412,17 +422,18 @@
     &easy ;easy-button JMP2r
 
 @draw-buttons ( -> )
-    #0008 #00b4 restart-button-addr draw-button
-    #0030 #00b4 ;quit-button draw-button
-    #0058 #00b4 audio-button-addr draw-button
-    #0080 #00b4 ;about-button draw-button
-    #00a8 #00b4 difficulty-button-addr !draw-button
+    .height LDZ2 #000c SUB2
+    #0008 OVR2 restart-button-addr draw-button
+    #0030 OVR2 ;quit-button draw-button
+    #0058 OVR2 audio-button-addr draw-button
+    #0080 OVR2 ;about-button draw-button
+    #00a8 SWP2 difficulty-button-addr !draw-button
 
 @draw-bear-smile ( -> )
-    #00e8 #0098 ;sprites #00c0 ADD2 !draw-mouth
+    .width LDZ2 #0018 SUB2 .height LDZ2 #0028 SUB2 ;sprites #00c0 ADD2 !draw-mouth
 
 @draw-bear-oh ( -> )
-    #00e8 #0098 ;sprites #0100 ADD2 !draw-mouth
+    .width LDZ2 #0018 SUB2 .height LDZ2 #0028 SUB2 ;sprites #0100 ADD2 !draw-mouth
 
 @draw-you-win ( -> )
 
@@ -443,7 +454,7 @@
         .Screen/sprite DEOk DEO JMP2r
 
 @draw-decorations ( -> )
-    #00e8 #0098 #80 draw-bear
+    .width LDZ2 #0018 SUB2 .height LDZ2 #0028 SUB2 #80 draw-bear
     is-game-won ?draw-you-win JMP2r
 
 @draw-stock ( -> )
@@ -684,10 +695,9 @@
 
 @on-refresh-bear ( -> )
     .about LDZ ?on-refresh-about-bears
-(    .frame LDZ #00 EQU ?draw-bear-normal )
     #00 .dragging LDZ EQU ?{ draw-bear-oh }
     load-bear-frame ORAk ?{ POP2 JMP2r }
-    #00e8 #0098 !draw-bear-eyes
+    .width LDZ2 #0018 SUB2 .height LDZ2 #0028 SUB2 !draw-bear-eyes
 
 @on-mouse ( -> brk )
     on-move
@@ -700,8 +710,7 @@
 @on-move ( -> )
     .Mouse/x DEI2 .prev/mouse-x LDZ2 NEQ2 ?draw-mouse
     .Mouse/y DEI2 .prev/mouse-y LDZ2 NEQ2 ?draw-mouse
-	[ LIT &last $1 ] .Mouse/state DEI DUP ,&last STR EQU ?{
-		draw-mouse }
+    [ LIT &last $1 ] .Mouse/state DEI DUP ,&last STR EQU ?{ draw-mouse }
     JMP2r
 
 @draw-mouse ( -> )
@@ -921,6 +930,7 @@
     .Mouse/x DEI2 #0008 LTH2 ?&no  ( ; x<8 )
     .Mouse/x DEI2 #0017 GTH2 ?&no  ( ; x>=23 )
     .Mouse/y DEI2 #0020 GTH2 ?&no  ( ; y>=32 )
+    .waste LDZ .stock LDZ ORA #00 EQU ?&no
     deal-from-stock draw #01 JMP2r ( 1^ )
     &no #00 JMP2r                  ( 0^ )
 
@@ -952,6 +962,7 @@
     ROT2 NIP DUP start-drag draw #01 JMP2r
 
 @maybe-select-waste ( -> bool^ )
+    .waste LDZ #00 EQU ?&no1
     .Mouse/y DEI2 #0008 LTH2 ?&no1           ( )
     .Mouse/y DEI2 #0020 GTH2 ?&no1           ( )
     top-waste STHk #00 EQU ?&no2             ( [t^] )
@@ -1006,8 +1017,8 @@
 
 @maybe-select-button ( -> bool^ )
     .Mouse/y DEI2
-    DUP2 #00b4 LTH2 ?&no
-    DUP2 #00bb GTH2 ?&no
+    DUP2 .height LDZ2 #000c SUB2 LTH2 ?&no
+    DUP2 .height LDZ2 #0005 SUB2 GTH2 ?&no
     POP2 .Mouse/x DEI2
     DUP2 #0008 LTH2 ?&no
     DUP2 #0028 LTH2 ?&restart