From a22670169dac12bcefbe4afe669167bde1619da3 Mon Sep 17 00:00:00 2001
From: Vince Weaver <vince@deater.net>
Date: Wed, 3 Aug 2022 20:46:10 -0400
Subject: [PATCH] planet: add lovebyte turbo files

---
 demos/lovebyte_turbo22/planet/Makefile    |  40 ++++++++++++++++++++++
 demos/lovebyte_turbo22/planet/PLANET.BAS  | Bin 0 -> 227 bytes
 demos/lovebyte_turbo22/planet/file_id.diz |  16 +++++++++
 demos/lovebyte_turbo22/planet/hello.bas   |   8 +++++
 demos/lovebyte_turbo22/planet/planet.bas  |   6 ++++
 5 files changed, 70 insertions(+)
 create mode 100644 demos/lovebyte_turbo22/planet/Makefile
 create mode 100644 demos/lovebyte_turbo22/planet/PLANET.BAS
 create mode 100644 demos/lovebyte_turbo22/planet/file_id.diz
 create mode 100644 demos/lovebyte_turbo22/planet/hello.bas
 create mode 100644 demos/lovebyte_turbo22/planet/planet.bas

diff --git a/demos/lovebyte_turbo22/planet/Makefile b/demos/lovebyte_turbo22/planet/Makefile
new file mode 100644
index 00000000..3ba39ca0
--- /dev/null
+++ b/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
diff --git a/demos/lovebyte_turbo22/planet/PLANET.BAS b/demos/lovebyte_turbo22/planet/PLANET.BAS
new file mode 100644
index 0000000000000000000000000000000000000000..d7f6d2f52f9a62233a83f6a9632baa6a6cf9203c
GIT binary patch
literal 227
zcmW-bJr06E5QWG1lf8!xB*g3@h&vsjvV>3!7qN$U00URBGaQ11m}MzkTWyRdaUoO8
z%$xV}%@4K=;EH8tco#@)K8|p;f8^dgNQo7k*#gLr5`#mUM*qOMi-nPLcsrTS1}nN4
z+g;h?Fy{#CJvP=sUeU!~fwjQK_HHtH1zgw?T6zU?Cwl=mwu16xL>D0$j=4E$TVpUm
sB9((;Yp6q=U}7E#rY2M~B*&Ii`t&2&SMX&UXeOGKEN}WZ#d`<<e~SlIM*si-

literal 0
HcmV?d00001

diff --git a/demos/lovebyte_turbo22/planet/file_id.diz b/demos/lovebyte_turbo22/planet/file_id.diz
new file mode 100644
index 00000000..07263cd0
--- /dev/null
+++ b/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.
diff --git a/demos/lovebyte_turbo22/planet/hello.bas b/demos/lovebyte_turbo22/planet/hello.bas
new file mode 100644
index 00000000..792fcc98
--- /dev/null
+++ b/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"
diff --git a/demos/lovebyte_turbo22/planet/planet.bas b/demos/lovebyte_turbo22/planet/planet.bas
new file mode 100644
index 00000000..63da74da
--- /dev/null
+++ b/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