From 722fee2b6df984b632e04e876406bd8918a9049a Mon Sep 17 00:00:00 2001
From: Rob Greene <robgreene@gmail.com>
Date: Mon, 16 Jul 2018 22:21:15 -0500
Subject: [PATCH] Reordered the erase to do the sub before the depthcharge.

---
 samples/destroyer.bas | 14 +++++++-------
 1 file changed, 7 insertions(+), 7 deletions(-)

diff --git a/samples/destroyer.bas b/samples/destroyer.bas
index ddd6a72..05f8acb 100644
--- a/samples/destroyer.bas
+++ b/samples/destroyer.bas
@@ -116,13 +116,7 @@
        chargeindex = 1
 
 ' Erase shapes
-700 if priorchargex(chargeindex) then \
-       xdraw priorchargeshape(chargeindex) at priorchargex(chargeindex),priorchargey(chargeindex): \
-       if peek(234) then \
-          chargex(chargeindex)=0: \
-          chargey(chargeindex)=0: \
-          chargeshape(chargeindex)=0
-710 if oldsubx then \
+700 if oldsubx then \
        xdraw oldsubshape at oldsubx,oldsuby: \
        a=oldsubx:oldsubx=0: \
        if peek(234) then \
@@ -134,6 +128,12 @@
           remainingcharges=remainingcharges+5: \
           vtab 2:htab 37:qq=score:gosub 40: \
           vtab 3:qq=remainingcharges:gosub 40
+710 if priorchargex(chargeindex) then \
+       xdraw priorchargeshape(chargeindex) at priorchargex(chargeindex),priorchargey(chargeindex): \
+       if peek(234) then \
+          chargex(chargeindex)=0: \
+          chargey(chargeindex)=0: \
+          chargeshape(chargeindex)=0
 720 if zx then xdraw zs at zx,explosiony:zx=0
 730 xdraw oldshipshape at oldshipx,shipy
 740 if remainingcharges > 0 then 200