Apple-2-SW
/
dos33fsprogs
mirror of https://github.com/deater/dos33fsprogs.git
1
0
Fork 0
Code Issues Projects Releases Wiki Activity

basicbot: add twister

This commit is contained in:
Vince Weaver 2023-12-09 12:50:51 -05:00
parent b5589f75a0
commit 2842065836
2 changed files with 12 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
basic/appleiibot/Makefile
View File

@ -29,7 +29,7 @@ appleiibot.dsk: E2.BAS FLAME.BAS FLAME2.BAS HELLO \
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 \
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.dsk appleiibot.dsk
# $(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 XTREE.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
$(TOKENIZE) < oops4.bas > OOPS4.BAS

5
basic/appleiibot/twister.bas Normal file
View File

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