Apple-2-SW/dos33fsprogs
1
0
Fork 0
mirror of https://github.com/deater/dos33fsprogs.git synced 2025-02-05 21:34:30 +00:00
Code Issues Projects Releases Wiki Activity

basic: moon lander

Browse Source
This commit is contained in:
Vince Weaver 2022-05-02 01:05:33 -04:00
parent 0949531644
commit cfbeb5e191
4 changed files with 49 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

33
basic/moon/Makefile Normal file
View File

@ -0,0 +1,33 @@
include ../../Makefile.inc
DOS33 = ../../utils/dos33fs-utils/dos33
TOKENIZE = ../../utils/asoft_basic-utils/tokenize_asoft
EMPTY_DISK = ../../empty_disk/empty.dsk
all: moon.dsk
moon.dsk: HELLO LANDER.BAS LANDER_BOT.BAS
cp $(EMPTY_DISK) moon.dsk
$(DOS33) -y moon.dsk SAVE A HELLO
$(DOS33) -y moon.dsk SAVE A LANDER.BAS
$(DOS33) -y moon.dsk SAVE A LANDER_BOT.BAS
####
HELLO: hello.bas
$(TOKENIZE) < hello.bas > HELLO
####
LANDER.BAS: lander.bas
$(TOKENIZE) < lander.bas > LANDER.BAS
####
LANDER_BOT.BAS: lander_bot.bas
$(TOKENIZE) < lander_bot.bas > LANDER_BOT.BAS
####
clean:
rm -f *~ *.o *.lst HELLO LANDER.BAS LANDER_BOT.BAS

2
basic/moon/hello.bas Normal file
View File

@ -0,0 +1,2 @@
5 HOME
10 PRINT CHR$(4);"CATALOG"

8
basic/moon/lander.bas Normal file
View File

@ -0,0 +1,8 @@
2POKE232,20:POKE233,8
5REM#%%-...
6HGR:X=128:HPLOT0,125TO50,110TO113,XTO144,XTO217,94TO253,112TO267,106TO279,118
7ROT=0:SCALE=2:XDRAW1ATX,Y:H%=127-Y:VTAB22:?CHR$(7)"ALT="H%" "
8IFA=4THENSCALE=1:ROT=32:XDRAW1ATX+6,Y+2:A=1:?CHR$(7):XDRAW1ATX+6,Y+2:ROT=0:SCALE=2:XDRAW1ATX,Y:GOTO7
9XDRAW1ATX,Y:Y=Y+A:A=A+1/4
10IFH%>0THEN7
11FORI=2TO32:SCALE=I/2:ROT=I*4:XDRAW1ATX,Y:NEXT

6
basic/moon/lander_bot.bas Normal file
View File

@ -0,0 +1,6 @@
2POKE232,20:POKE233,8
5REM#%%-...
6HGR:X=128:HPLOT0,XTO50,110TO113,XTO144,XTO217,94TO253,112
7ROT=0:SCALE=2:XDRAW1ATX,Y:H%=127-Y:VTAB22:?CHR$(7)"ALT="H%" ":XDRAW1ATX,Y:Y=Y+A:A=A+1/4:IFA=4THENSCALE=1:XDRAW1ATX+2,Y+4:A=1
8IFH%>0THEN7
9FORI=2TO16:SCALE=I/2:ROT=I*4:XDRAW1ATX,Y:NEXT