From f6989ac708767a929b755db628fcbe9807dd41ea Mon Sep 17 00:00:00 2001
From: Vince Weaver <vince@deater.net>
Date: Mon, 5 Apr 2021 17:22:52 -0400
Subject: [PATCH] cube: cheat: not really drawing cubes

---
 basic/cube/Makefile  | 12 +++++++++---
 basic/cube/cheat.bas | 11 ++++-------
 2 files changed, 13 insertions(+), 10 deletions(-)

diff --git a/basic/cube/Makefile b/basic/cube/Makefile
index decf44ad..76fd425e 100644
--- a/basic/cube/Makefile
+++ b/basic/cube/Makefile
@@ -6,10 +6,11 @@ EMPTY_DISK = ../../empty_disk/empty.dsk
 
 all:	cube.dsk
 
-cube.dsk:	HELLO CUBE.BAS
+cube.dsk:	HELLO CUBE.BAS CHEAT.BAS
 	cp $(EMPTY_DISK) cube.dsk
 	$(DOS33) -y cube.dsk SAVE A HELLO
 	$(DOS33) -y cube.dsk SAVE A CUBE.BAS
+	$(DOS33) -y cube.dsk SAVE A CHEAT.BAS
 
 ####
 
@@ -23,6 +24,11 @@ CUBE.BAS:	cube.bas
 
 ####
 
-clean:
-	rm -f *~ *.o *.lst HELLO CUBE.BAS
+CHEAT.BAS:	cheat.bas
+	$(TOKENIZE) < cheat.bas > CHEAT.BAS
+
+####
+
+clean:
+	rm -f *~ *.o *.lst HELLO CUBE.BAS CHEAT.BAS
 
diff --git a/basic/cube/cheat.bas b/basic/cube/cheat.bas
index 709f4a1c..05e40f42 100644
--- a/basic/cube/cheat.bas
+++ b/basic/cube/cheat.bas
@@ -1,7 +1,4 @@
-1HGR:HCOLOR=3:DEFFNP(X)=PEEK(2054+I*5+X)-32
-5HPLOTFNP(0),FNP(1)
-6FORI=0TO12:HPLOTTOFNP(I*2),FNP(I*2+1):NEXT
-
-
-
-
+0REMOa5^JDfFOa>D"B9'S*>D"B5^JD9'S*fFKM9dRYfDKM6/"D=;O$6/"D9dRY=;O$fDD48YX_d;D40)$MDTP/0)$M8YX_DTP/d;
+1HGR2:HCOLOR=3:DEFFNP(X)=PEEK(2054+32*J+I*2+X)+28
+3FORJ=0TO2:FORI=0TO14:HPLOT44+FNP(0),FNP(1)TO44+FNP(2),FNP(3):NEXT
+8POKE230,32+32*P:P=NOTP:POKE49236+P,0:CALL-3086:NEXT:GOTO3