From c15bbead579c1334632f268a8541bbdfed71e864 Mon Sep 17 00:00:00 2001 From: Vince Weaver Date: Sun, 4 Jul 2021 11:29:12 -0400 Subject: [PATCH] basic: fireworks --- basic/appleiibot/fireworks.bas | 14 +++++--------- 1 file changed, 5 insertions(+), 9 deletions(-) diff --git a/basic/appleiibot/fireworks.bas b/basic/appleiibot/fireworks.bas index e7082a96..6b4bc896 100644 --- a/basic/appleiibot/fireworks.bas +++ b/basic/appleiibot/fireworks.bas @@ -1,10 +1,6 @@ -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=RT-MGORY<=MGOR(YV>0AND(Y>BT-INT(BT-PK)/2ORY>=BT-MG))THENS=MS -4IFS