From 47cacf0c99b8d1921d6e68dda973c08e56d576a3 Mon Sep 17 00:00:00 2001
From: Vince Weaver <vince@deater.net>
Date: Tue, 29 Jun 2021 00:18:49 -0400
Subject: [PATCH] fireworks: more size optimization

---
 basic/appleiibot/fireworks.bas | 18 +++++++++---------
 1 file changed, 9 insertions(+), 9 deletions(-)

diff --git a/basic/appleiibot/fireworks.bas b/basic/appleiibot/fireworks.bas
index c4cea4ef..e7082a96 100644
--- a/basic/appleiibot/fireworks.bas
+++ b/basic/appleiibot/fireworks.bas
@@ -1,10 +1,10 @@
-0HGR2:BT=191:RT=280:MG=24
-1CL=INT(RND(1)*2):XV=INT(RND(1)*3)+1:YV=-(INT(RND(1)*5)+3):MS=INT(RND(1)*25)+40:X=INT(RND(1)*(RT-MG*2))+MG:Y=BT:PK=Y:IFX>RT/2THENXV=-XV
-2FORCS=1TOMS:Y1=Y2:Y2=Y:X1=X2:X2=X:X=X+XV:Y=Y+YV:YV=YV+.12:IFY<PKTHENPK=Y
-3IFX<=MGORX>=RT-MGORY<=MGOR(YV>0AND(Y>BT-INT(BT-PK)/2ORY>=BT-MG))THENCS=MS
-4IFCS<MSTHENHCOLOR=CL*4+3:HPLOTX2,Y2TOX,Y
-5HCOLOR=CL*4:HPLOTX1,Y1TOX2,Y2:NEXTCS
-6X2=INT(X2):Y2=INT(Y2):X=INT(RND(1)*20)-10:Y=INT(RND(1)*20)-10:HCOLOR=CL*4+3:HPLOTX+X2,Y+Y2:FORI=1TO9:IFI<9THENN=I:HCOLOR=CL*4+3:GOSUB9
-7N=I-1:HCOLOR=CL*4:GOSUB9:NEXT:IFRND(1)<.5THEN6
+0HGR2:BT=191:RT=280:MG=24:DEFFNR(X)=INT(RND(1)*X)
+1B=FNR(2)*4:XV=FNR(3)+1:YV=-FNR(5)-3:MS=FNR(25)+40:X=FNR(RT-MG*2)+MG:Y=BT:PK=Y:IFX>RT/2THENXV=-XV
+2FORS=1TOMS:Y1=Y2:Y2=Y:X1=X2:X2=X:X=X+XV:Y=Y+YV:YV=YV+.12:IFY<PKTHENPK=Y
+3IFX<=MGORX>=RT-MGORY<=MGOR(YV>0AND(Y>BT-INT(BT-PK)/2ORY>=BT-MG))THENS=MS
+4IFS<MSTHENHCOLOR=B+3:HPLOTX2,Y2TOX,Y
+5HCOLOR=B:HPLOTX1,Y1TOX2,Y2:NEXT
+6V=X2+FNR(20)-10:W=Y2+FNR(20)-10:HCOLOR=B+3:HPLOTV,W:FORI=1TO9:IFI<9THENN=I:HCOLOR=B+3:GOSUB9
+7N=I-1:HCOLOR=B:GOSUB9:NEXT:IFRND(1)<.5THEN6
 8GOTO1
-9HPLOTX+X2+N,Y+Y2+N:HPLOT X+X2-N,Y+Y2-N:HPLOTX+X2+N,Y+Y2-N:HPLOTX+X2-N,Y+Y2+N:HPLOTX+X2,Y+Y2+N*1.5:HPLOTX+X2+N*1.5,Y+Y2:HPLOTX+X2,Y+Y2-N*1.5:HPLOTX+X2-N*1.5,Y+Y2:RETURN
+9HPLOTV+N,W+N:HPLOTV-N,W-N:HPLOTV+N,W-N:HPLOTV-N,W+N:HPLOTV,W+N*1.5:HPLOTV+N*1.5,W:HPLOTV,W-N*1.5:HPLOTV-N*1.5,W:RETURN