appleiibot: messing around with sierpinski

basic/appleiibot/Makefile

@@ -12,7 +12,7 @@ appleiibot.dsk:	E2.BAS FLAME.BAS FLAME2.BAS \
 	A2.BAS FOURAM.BAS FLOPPY.BAS QR.BAS A2_4EVER.BAS RLE.BAS RLE2.BAS \
 	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
+	C64.BAS SIERPINSKI.BAS FAKES.BAS
 	cp empty.dsk appleiibot.dsk
 	$(DOS33) -y appleiibot.dsk BSAVE -a 0x0300 LOAD
 #	$(DOS33) -y appleiibot.dsk BSAVE -a 0x0C00 FASTAR2
@@ -57,6 +57,8 @@ appleiibot.dsk:	E2.BAS FLAME.BAS FLAME2.BAS \
 	$(DOS33) -y appleiibot.dsk SAVE A AN3.BAS
 	$(DOS33) -y appleiibot.dsk SAVE A PLASMA.BAS
 	$(DOS33) -y appleiibot.dsk SAVE A C64.BAS
+	$(DOS33) -y appleiibot.dsk SAVE A SIERPINSKI.BAS
+	$(DOS33) -y appleiibot.dsk SAVE A FAKES.BAS
 
 ###
 
@@ -335,6 +337,18 @@ FASTAR2.BAS:	fastar2.bas
 HYPER.BAS:	hyper.bas
 	$(TOKENIZE) < hyper.bas > HYPER.BAS
 
+
+####
+
+FAKES.BAS:	fakes.bas
+	$(TOKENIZE) < fakes.bas > FAKES.BAS
+
+
+####
+
+SIERPINSKI.BAS:	sierpinski.bas
+	$(TOKENIZE) < sierpinski.bas > SIERPINSKI.BAS
+
 ####
 
 clean:

basic/appleiibot/fakes.bas

@@ -0,0 +1,8 @@
+10 GR:COLOR=9
+20 FOR X=0 TO 39
+30 POKE 2138,X
+40 FOR Y=0 TO X
+50 POKE 2140,Y:CALL 2137
+60 PLOT X,PEEK(36)
+70 NEXT Y,X
+100 SPEED=$)%DEL$LRUSR

basic/appleiibot/hgr_fakes.bas

@@ -0,0 +1,10 @@
+1 GOTO 10
+5 SPEED=$)%DEL$LRUSR
+10 HGR2:HCOLOR=7
+20 FOR X=0 TO 255
+30 POKE 2062,X
+35 Q=X:IF Q>191 THEN Q=191
+40 FOR Y=0 TO Q
+50 POKE 2064,Y:CALL 2061
+60 HPLOT X-Y,PEEK(36)
+70 NEXT Y,X

basic/appleiibot/sierpinski.bas

@@ -0,0 +1,18 @@
+10 GR
+20 FOR X=0 TO 39:FOR Y=0 TO 39
+30 YY=Y:XX=(20-X)
+80 C1=(YY-(XX*T/256))
+85 C2=(YY*T/256+XX)
+87 A=C1:B=C2:GOSUB 120
+88 C=C-(INT(C/4)*4)
+95 COLOR=C:PLOT X,Y
+100 NEXT Y,X
+110 END
+120 C=0
+140 FOR S =0 TO 7
+150 A = INT(A)/2 : ABIT = ( A-INT(A) ) * 2
+160 B = INT(B)/2 : BBIT = ( B-INT(B) ) * 2
+170 IF ABIT + BBIT > 1 THEN C = C + 256
+180 C = C / 2 : NEXT
+190 RETURN
+