mirror of
https://github.com/deater/dos33fsprogs.git
synced 2024-06-20 01:29:36 +00:00
circles: more circles
This commit is contained in:
parent
5e420efe6e
commit
d4c4c96c25
|
@ -7,10 +7,11 @@ EMPTY_DISK = ../../../empty_disk
|
||||||
|
|
||||||
all: circles.dsk
|
all: circles.dsk
|
||||||
|
|
||||||
circles.dsk: HELLO CIRCLES BRES.BAS
|
circles.dsk: HELLO CIRCLES BRES.BAS BRESBOT.BAS
|
||||||
cp $(EMPTY_DISK)/empty.dsk circles.dsk
|
cp $(EMPTY_DISK)/empty.dsk circles.dsk
|
||||||
$(DOS33) -y circles.dsk SAVE A HELLO
|
$(DOS33) -y circles.dsk SAVE A HELLO
|
||||||
$(DOS33) -y circles.dsk SAVE A BRES.BAS
|
$(DOS33) -y circles.dsk SAVE A BRES.BAS
|
||||||
|
$(DOS33) -y circles.dsk SAVE A BRESBOT.BAS
|
||||||
$(DOS33) -y circles.dsk BSAVE -a 0x0C00 CIRCLES
|
$(DOS33) -y circles.dsk BSAVE -a 0x0C00 CIRCLES
|
||||||
|
|
||||||
###
|
###
|
||||||
|
@ -25,6 +26,12 @@ BRES.BAS: bres.bas
|
||||||
|
|
||||||
###
|
###
|
||||||
|
|
||||||
|
BRESBOT.BAS: bresbot.bas
|
||||||
|
$(TOKENIZE) < bresbot.bas > BRESBOT.BAS
|
||||||
|
|
||||||
|
|
||||||
|
###
|
||||||
|
|
||||||
CIRCLES: circles.o
|
CIRCLES: circles.o
|
||||||
ld65 -o CIRCLES circles.o -C $(LINKER_SCRIPTS)/apple2_c00.inc
|
ld65 -o CIRCLES circles.o -C $(LINKER_SCRIPTS)/apple2_c00.inc
|
||||||
|
|
||||||
|
@ -34,4 +41,4 @@ circles.o: circles.s
|
||||||
###
|
###
|
||||||
|
|
||||||
clean:
|
clean:
|
||||||
rm -f *~ *.o *.lst CIRCLES
|
rm -f *~ *.o *.lst CIRCLES BRES.BAS BRESBOT.BAS
|
||||||
|
|
9
graphics/hgr/circles/bresbot.bas
Normal file
9
graphics/hgr/circles/bresbot.bas
Normal file
|
@ -0,0 +1,9 @@
|
||||||
|
0HGR2
|
||||||
|
1HCOLOR=1+RND(1)*7:A=40+RND(1)*200:B=40+RND(1)*100:Y=RND(1)*40
|
||||||
|
3X=0:D=3-2*Y:GOTO6
|
||||||
|
4X=X+1:IFD>0THENY=Y-1:D=D+4*(X-Y)+10:GOTO6
|
||||||
|
5D=D+4*X+6
|
||||||
|
6HPLOTA+X,B+Y:HPLOTA-X,B+Y:HPLOTA+X,B-Y:HPLOTA-X,B-Y
|
||||||
|
7HPLOTA+Y,B+X:HPLOTA-Y,B+X:HPLOTA+Y,B-X:HPLOTA-Y,B-X
|
||||||
|
8IFY>=XTHEN4
|
||||||
|
9GOTO1
|
Loading…
Reference in New Issue
Block a user