appleiibot: update ball

basic/appleiibot/Makefile

@@ -13,7 +13,7 @@ appleiibot.dsk:	E2.BAS FLAME.BAS FLAME2.BAS HELLO \
 	RLEASM.BAS HORIZON.BAS FLYER.BAS STAR.BAS HYPER.BAS FASTAR.BAS \
 	FASTAR2.BAS BIN.BAS FALLING.BAS SNOW.BAS XMAS.BAS AN3.BAS PLASMA.BAS \
 	C64.BAS SIERPINSKI.BAS FAKES.BAS SIER.BAS DROPS.BAS RR.BAS RR_HGR.BAS \
-	COMBO.BAS WIRES.BAS PATTERN.BAS
+	COMBO.BAS WIRES.BAS PATTERN.BAS BALL.BAS
 	cp empty.dsk appleiibot.dsk
 	$(DOS33) -y appleiibot.dsk BSAVE -a 0x0300 LOAD
 	$(DOS33) -y appleiibot.dsk SAVE A HELLO
@@ -67,6 +67,7 @@ appleiibot.dsk:	E2.BAS FLAME.BAS FLAME2.BAS HELLO \
 	$(DOS33) -y appleiibot.dsk SAVE A COMBO.BAS
 	$(DOS33) -y appleiibot.dsk SAVE A WIRES.BAS
 	$(DOS33) -y appleiibot.dsk SAVE A PATTERN.BAS
+	$(DOS33) -y appleiibot.dsk SAVE A BALL.BAS
 
 
 ####
@@ -392,6 +393,11 @@ WIRES.BAS:	wires.bas
 PATTERN.BAS:	pattern.bas
 	$(TOKENIZE) < pattern.bas > PATTERN.BAS
 
+####
+
+BALL.BAS:	ball.bas
+	$(TOKENIZE) < ball.bas > BALL.BAS
+
 
 
 ####

basic/appleiibot/ball.bas

@@ -0,0 +1,2 @@
+1FORI=0TO140:POKE875+I,4*PEEK(2125+I)-192+(PEEK(2266+I/3)-35)/4^(I-INT(I/3)*3):NEXT
+2&",clJlZ?QnV0QjPn7iD-:EV?ic1;=^1a6lhiZDQi5EmPSX,WE2=mUmQjY3ImYdX3Yo`3l1_0d1jjT1QhQAn:1e/Zk:ZYQiT/Yc5EkYh\^n\gimaoZ`X#ZmLn<$Rm01]a?oLlmlb4f;Q4G0S@'+5+6K'CE6(/L3;4:DJ#$'#<>'?6)3V+[C.KX(W3XH,6_

graphics/gr/plasma/wires.s

@@ -18,7 +18,7 @@ CTEMP	= $FC
 	;================================
 	; Clear screen and setup graphics
 	;================================
-plasma:
+wires:
 
 ;	jsr	SETGR		; set lo-res 40x40 mode
 	bit	SET_GR
@@ -200,7 +200,7 @@ colorlookup:
 	; Length is 141 so start at $3f4 - 
 	;			1013 - 141 + 3 = 875 = $36B
 
-	jmp	plasma
+	jmp	wires
 
 ; make lookup happen at page boundary