basicbot: add twister
This commit is contained in:
parent
b5589f75a0
commit
2842065836
|
@ -29,7 +29,7 @@ appleiibot.dsk: E2.BAS FLAME.BAS FLAME2.BAS HELLO \
|
||||||
TARGET.BAS ELITE.BAS MYSTERY.BAS OFFICE.BAS GR_XOR.BAS \
|
TARGET.BAS ELITE.BAS MYSTERY.BAS OFFICE.BAS GR_XOR.BAS \
|
||||||
LARGE_XOR.BAS PAR_XOR.BAS PAR_HGR.BAS SIER_XOR.BAS PATTERN_LOGO.BAS \
|
LARGE_XOR.BAS PAR_XOR.BAS PAR_HGR.BAS SIER_XOR.BAS PATTERN_LOGO.BAS \
|
||||||
GEARS.BAS DSR_LORES.BAS A2_LORES.BAS MAGIC_CUBE.BAS MOON.BAS \
|
GEARS.BAS DSR_LORES.BAS A2_LORES.BAS MAGIC_CUBE.BAS MOON.BAS \
|
||||||
PUMPKIN2.BAS TWITTER.BAS XTREE.BAS CHEAT.BAS
|
PUMPKIN2.BAS TWITTER.BAS XTREE.BAS CHEAT.BAS TWISTER.BAS
|
||||||
cp $(EMPTY_DISK)/empty_lots_of_dirents.dsk appleiibot.dsk
|
cp $(EMPTY_DISK)/empty_lots_of_dirents.dsk appleiibot.dsk
|
||||||
# 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
|
||||||
|
@ -158,6 +158,7 @@ appleiibot.dsk: E2.BAS FLAME.BAS FLAME2.BAS HELLO \
|
||||||
$(DOS33) -y appleiibot.dsk SAVE A TWITTER.BAS
|
$(DOS33) -y appleiibot.dsk SAVE A TWITTER.BAS
|
||||||
$(DOS33) -y appleiibot.dsk SAVE A XTREE.BAS
|
$(DOS33) -y appleiibot.dsk SAVE A XTREE.BAS
|
||||||
$(DOS33) -y appleiibot.dsk SAVE A CHEAT.BAS
|
$(DOS33) -y appleiibot.dsk SAVE A CHEAT.BAS
|
||||||
|
$(DOS33) -y appleiibot.dsk SAVE A TWISTER.BAS
|
||||||
|
|
||||||
|
|
||||||
####
|
####
|
||||||
|
@ -670,6 +671,11 @@ CHEAT.BAS: cheat.bas
|
||||||
|
|
||||||
####
|
####
|
||||||
|
|
||||||
|
TWISTER.BAS: twister.bas
|
||||||
|
$(TOKENIZE) < twister.bas > TWISTER.BAS
|
||||||
|
|
||||||
|
####
|
||||||
|
|
||||||
OOPS4.BAS: oops4.bas
|
OOPS4.BAS: oops4.bas
|
||||||
$(TOKENIZE) < oops4.bas > OOPS4.BAS
|
$(TOKENIZE) < oops4.bas > OOPS4.BAS
|
||||||
|
|
||||||
|
|
|
@ -0,0 +1,5 @@
|
||||||
|
0DIMA(2E3),B(2E3):GR:P=3.14:W=20
|
||||||
|
1FORJ=0TO1280:E=E+.1:FORY=0TOW:IFE<6THENF=Y/(15+COS(E)*12)-P+SIN(E)*P:A(J)=8*COS(F):B(J)=8*SIN(F)
|
||||||
|
5Q=A(J):R=B(J):COLOR=0:HLIN9,27ATY:COLOR=1:M=-Q:N=-R:IFQ<RTHENM=Q:N=R
|
||||||
|
7HLINW+M,W+NATY:COLOR=2:IFR<-QTHENR=-R:Q=-Q
|
||||||
|
8HLINW-R,W+QATY:J=J+1:NEXTY,J:GOTO1
|
Loading…
Reference in New Issue