applebot: diamond.bas: from lovebyte2022

basic/appleiibot/Makefile

@@ -21,7 +21,7 @@ appleiibot.dsk:	E2.BAS FLAME.BAS FLAME2.BAS HELLO \
 	FIREWORKS.BAS THINKING.BAS ARCS.BAS WIRE_HGR.BAS STATIC.BAS \
 	OVAL.BAS OVAL_HGR.BAS MOVING.BAS THICK_SINE.BAS TURKEY.BAS \
 	FLAME_HGR.BAS RECT.BAS SNOWY.BAS EDGAR.BAS OOPS4.BAS OOPS3.BAS \
-	HORROR.BAS
+	HORROR.BAS DIAMOND.BAS
 #	cp $(EMPTY_DISK)/empty.dsk  appleiibot.dsk
 	cp empty.dsk appleiibot.dsk
 	$(DOS33) -y appleiibot.dsk BSAVE -a 0x0300 LOAD
@@ -112,6 +112,7 @@ appleiibot.dsk:	E2.BAS FLAME.BAS FLAME2.BAS HELLO \
 	$(DOS33) -y appleiibot.dsk SAVE A OOPS4.BAS
 	$(DOS33) -y appleiibot.dsk SAVE A OOPS3.BAS
 	$(DOS33) -y appleiibot.dsk SAVE A HORROR.BAS
+	$(DOS33) -y appleiibot.dsk SAVE A DIAMOND.BAS
 
 ####
 
@@ -628,5 +629,10 @@ HORROR.BAS:	horror.bas
 
 ####
 
+DIAMOND.BAS:	diamond.bas
+	$(TOKENIZE) < diamond.bas > DIAMOND.BAS
+
+####
+
 clean:
 	rm -f *~ *.o *.lst convert_to convert_from convert_qkumba convert_vmw make_boxes convert_back convert_tgreene LOAD *.BAS

basic/appleiibot/diamond.bas

@@ -0,0 +1,2 @@
+10 FOR I=0 TO 15:READ D:POKE 231+I,D:NEXT:CALL 231
+100 DATA 32,216,243,170,32,17,244,169,231,170,168,32,93,246,240,247