planet: add lovebyte turbo files

demos/lovebyte_turbo22/planet/Makefile

@@ -0,0 +1,40 @@
+include ../../../Makefile.inc
+
+DOS33 = ../../../utils/dos33fs-utils/dos33
+EMPTY_DISK = ../../../empty_disk
+HGR2PNG = ../../../utils/hgr-utils/png2hgr
+LINKER_SCRIPTS = ../../../linker_scripts
+TOKENIZE = ../../../utils/asoft_basic-utils/tokenize_asoft
+
+all:	planet.dsk
+
+####
+
+submit:	planet256.zip
+
+planet256.zip:	PLANET.BAS planet.bas file_id.diz planet.dsk
+	mkdir -p lovebyte_turbo_planet
+	cp PLANET.BAS ./lovebyte_turbo_planet
+	cp *.s ./lovebyte_turbo_planet
+	cp file_id.diz ./lovebyte_turbo_planet
+	cp planet.dsk ./lovebyte_turbo_planet
+#	cp cometsong_720p.mp4 ./lovebyte_turbo_planet
+	zip -r planet256.zip lovebyte_turbo_planet
+
+####
+
+planet.dsk:	HELLO PLANET.BAS
+	cp $(EMPTY_DISK)/empty.dsk ./planet.dsk
+	$(DOS33) -y planet.dsk SAVE A HELLO
+	$(DOS33) -y planet.dsk SAVE A PLANET.BAS
+#	$(DOS33) -y planet.dsk -t BIN -a 0xc00 BSAVE VIZ
+
+####
+
+HELLO:	hello.bas
+	$(TOKENIZE) < hello.bas > HELLO
+
+####
+
+clean:
+	rm -f *~ *.o *.lst HELLO

demos/lovebyte_turbo22/planet/file_id.diz

@@ -0,0 +1,16 @@
+Planet
+-
+227-byte BASIC Intro for Appple II
+Lovebyte Turbo 2022
+by Deater / dSr
+
+The BBC Micro people were having fun with
+planetscapes generated from a book they
+found.
+
+This was roughly based on some they posted.
+Had to be completely re-written for 
+Applesoft, as well as to fit in the 280
+char twitter limit.  The main clever thing
+I stole was the circle drawing code that
+uses SQRT.

demos/lovebyte_turbo22/planet/hello.bas

@@ -0,0 +1,8 @@
+5 HOME
+10 PRINT "PLANET - 227B FOR LOVEBYTE TURBO 2022"
+15 PRINT:PRINT "            BY DEATER / DSR"
+20 PRINT CHR$(4);"CATALOG"
+25 PRINT:PRINT "PRESS ANY KEY TO 'RUN PLANET.BAS'"
+30 GET A$
+35 PRINT
+40 PRINT CHR$(4)"RUN PLANET.BAS"

demos/lovebyte_turbo22/planet/planet.bas

@@ -0,0 +1,6 @@
+0HGR2:FORR=0TO49:HPLOTRND(1)*280,RND(1)*99:NEXT
+1X=X+1-(X*X/2600):Y=99-SQR(R*R-X*X):A=99+X/2-RND(1)*X:HCOLOR=3:HPLOT99-X,YTOA,Y:HCOLOR=1:HPLOTA,YTO99+X,Y
+3IFX<49.9THEN1
+4FORI=1TO7:X=0:T=I*I*I/4:Y=97+T
+5HCOLOR=5*C:C=NOTC:Q=5+RND(1)*T:IFX+Q>279THENNEXT
+6HPLOTX,YTOX+Q,Y:X=X+Q:GOTO5