Apple-2-SW/dos33fsprogs
1
0
Fork 0
mirror of https://github.com/deater/dos33fsprogs.git synced 2025-01-26 01:31:07 +00:00
Code Issues Projects Releases Wiki Activity

cube: cheat: not really drawing cubes

Browse Source
This commit is contained in:
Vince Weaver 2021-04-05 17:22:52 -04:00
parent f916a99df4
commit f6989ac708
2 changed files with 13 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
basic/cube/Makefile
View File

@ -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

11
basic/cube/cheat.bas
View File

@ -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