mirror of
https://github.com/deater/dos33fsprogs.git
synced 2024-08-14 10:29:46 +00:00
appleiibot: update ball
This commit is contained in:
parent
725a09b06d
commit
bc976718a5
@ -13,7 +13,7 @@ appleiibot.dsk: E2.BAS FLAME.BAS FLAME2.BAS HELLO \
|
|||||||
RLEASM.BAS HORIZON.BAS FLYER.BAS STAR.BAS HYPER.BAS FASTAR.BAS \
|
RLEASM.BAS HORIZON.BAS FLYER.BAS STAR.BAS HYPER.BAS FASTAR.BAS \
|
||||||
FASTAR2.BAS BIN.BAS FALLING.BAS SNOW.BAS XMAS.BAS AN3.BAS PLASMA.BAS \
|
FASTAR2.BAS BIN.BAS FALLING.BAS SNOW.BAS XMAS.BAS AN3.BAS PLASMA.BAS \
|
||||||
C64.BAS SIERPINSKI.BAS FAKES.BAS SIER.BAS DROPS.BAS RR.BAS RR_HGR.BAS \
|
C64.BAS SIERPINSKI.BAS FAKES.BAS SIER.BAS DROPS.BAS RR.BAS RR_HGR.BAS \
|
||||||
COMBO.BAS WIRES.BAS PATTERN.BAS
|
COMBO.BAS WIRES.BAS PATTERN.BAS BALL.BAS
|
||||||
cp empty.dsk appleiibot.dsk
|
cp empty.dsk appleiibot.dsk
|
||||||
$(DOS33) -y appleiibot.dsk BSAVE -a 0x0300 LOAD
|
$(DOS33) -y appleiibot.dsk BSAVE -a 0x0300 LOAD
|
||||||
$(DOS33) -y appleiibot.dsk SAVE A HELLO
|
$(DOS33) -y appleiibot.dsk SAVE A HELLO
|
||||||
@ -67,6 +67,7 @@ appleiibot.dsk: E2.BAS FLAME.BAS FLAME2.BAS HELLO \
|
|||||||
$(DOS33) -y appleiibot.dsk SAVE A COMBO.BAS
|
$(DOS33) -y appleiibot.dsk SAVE A COMBO.BAS
|
||||||
$(DOS33) -y appleiibot.dsk SAVE A WIRES.BAS
|
$(DOS33) -y appleiibot.dsk SAVE A WIRES.BAS
|
||||||
$(DOS33) -y appleiibot.dsk SAVE A PATTERN.BAS
|
$(DOS33) -y appleiibot.dsk SAVE A PATTERN.BAS
|
||||||
|
$(DOS33) -y appleiibot.dsk SAVE A BALL.BAS
|
||||||
|
|
||||||
|
|
||||||
####
|
####
|
||||||
@ -392,6 +393,11 @@ WIRES.BAS: wires.bas
|
|||||||
PATTERN.BAS: pattern.bas
|
PATTERN.BAS: pattern.bas
|
||||||
$(TOKENIZE) < pattern.bas > PATTERN.BAS
|
$(TOKENIZE) < pattern.bas > PATTERN.BAS
|
||||||
|
|
||||||
|
####
|
||||||
|
|
||||||
|
BALL.BAS: ball.bas
|
||||||
|
$(TOKENIZE) < ball.bas > BALL.BAS
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
####
|
####
|
||||||
|
2
basic/appleiibot/ball.bas
Normal file
2
basic/appleiibot/ball.bas
Normal file
@ -0,0 +1,2 @@
|
|||||||
|
1FORI=0TO140:POKE875+I,4*PEEK(2125+I)-192+(PEEK(2266+I/3)-35)/4^(I-INT(I/3)*3):NEXT
|
||||||
|
2&",clJlZ?QnV0QjPn7iD-:EV?ic1;=^1a6lhiZDQi5EmPSX,WE2=mUmQjY3ImYdX3Yo`3l1_0d1jjT1QhQAn:1e/Zk:ZYQiT/Yc5EkYh\^n\gimaoZ`X#ZmLn<$Rm01]a?oLlmlb4f;Q4G0S@'+5+6K'CE6(/L3;4:DJ#$'#<>'?6)3V+[C.KX(W3XH,6_
|
@ -18,7 +18,7 @@ CTEMP = $FC
|
|||||||
;================================
|
;================================
|
||||||
; Clear screen and setup graphics
|
; Clear screen and setup graphics
|
||||||
;================================
|
;================================
|
||||||
plasma:
|
wires:
|
||||||
|
|
||||||
; jsr SETGR ; set lo-res 40x40 mode
|
; jsr SETGR ; set lo-res 40x40 mode
|
||||||
bit SET_GR
|
bit SET_GR
|
||||||
@ -200,7 +200,7 @@ colorlookup:
|
|||||||
; Length is 141 so start at $3f4 -
|
; Length is 141 so start at $3f4 -
|
||||||
; 1013 - 141 + 3 = 875 = $36B
|
; 1013 - 141 + 3 = 875 = $36B
|
||||||
|
|
||||||
jmp plasma
|
jmp wires
|
||||||
|
|
||||||
; make lookup happen at page boundary
|
; make lookup happen at page boundary
|
||||||
|
|
||||||
|
Loading…
Reference in New Issue
Block a user