Apple-2-SW
/
dos33fsprogs
mirror of https://github.com/deater/dos33fsprogs.git
1
0
Fork 0
Code Issues Projects Releases Wiki Activity

appleiibot: work on compacting fozztexx's fireworks code

This commit is contained in:
Vince Weaver 2021-06-28 21:49:44 -04:00
parent 4f395ea798
commit 8ef403bfb9
2 changed files with 18 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
basic/appleiibot/Makefile
View File

@ -17,7 +17,8 @@ appleiibot.dsk: E2.BAS FLAME.BAS FLAME2.BAS HELLO \
COMBO.BAS WIRES.BAS PATTERN.BAS BALL.BAS LINES.BAS MOD9.BAS \
XOR_ZOOM.BAS MOD9_HGR.BAS SIER_HGR.BAS MOVE.BAS SINE.BAS XDRAW128.BAS \
GATOR.BAS CURSOR.BAS STARGATE.BAS TUNNEL.BAS STARFIELD.BAS \
STAROOPS.BAS HGRSTARFIELD.BAS COOL_BOT.BAS WEB.BAS ORB.BAS
STAROOPS.BAS HGRSTARFIELD.BAS COOL_BOT.BAS WEB.BAS ORB.BAS \
FIREWORKS.BAS
# cp $(EMPTY_DISK)/empty.dsk appleiibot.dsk
cp empty.dsk appleiibot.dsk
@ -92,6 +93,7 @@ appleiibot.dsk: E2.BAS FLAME.BAS FLAME2.BAS HELLO \
$(DOS33) -y appleiibot.dsk SAVE A COOL_BOT.BAS
$(DOS33) -y appleiibot.dsk SAVE A WEB.BAS
$(DOS33) -y appleiibot.dsk SAVE A ORB.BAS
$(DOS33) -y appleiibot.dsk SAVE A FIREWORKS.BAS
####
@ -521,5 +523,10 @@ ORB.BAS: orb.bas
####
FIREWORKS.BAS: fireworks.bas
$(TOKENIZE) < fireworks.bas > FIREWORKS.BAS
####
clean:
rm -f *~ *.o *.lst convert_to convert_from convert_qkumba convert_vmw make_boxes convert_back convert_tgreene LOAD *.BAS

10
basic/appleiibot/fireworks.bas Normal file
View File

@ -0,0 +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
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