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

basic: add snowy demo

Browse Source
This commit is contained in:
Vince Weaver 2021-12-18 14:40:40 -05:00
parent e8f5ca9f11
commit 417fa90865
2 changed files with 10 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
basic/appleiibot/Makefile
View File

@ -20,7 +20,7 @@ appleiibot.dsk: E2.BAS FLAME.BAS FLAME2.BAS HELLO \
STAROOPS.BAS HGRSTARFIELD.BAS COOL_BOT.BAS WEB.BAS ORB.BAS \
FIREWORKS.BAS THINKING.BAS ARCS.BAS WIRE_HGR.BAS STATIC.BAS \
OVAL.BAS OVAL_HGR.BAS MOVING.BAS THICK_SINE.BAS TURKEY.BAS \
FLAME_HGR.BAS RECT.BAS
FLAME_HGR.BAS RECT.BAS SNOWY.BAS
# cp $(EMPTY_DISK)/empty.dsk appleiibot.dsk
cp empty.dsk appleiibot.dsk
$(DOS33) -y appleiibot.dsk BSAVE -a 0x0300 LOAD
@ -106,6 +106,7 @@ appleiibot.dsk: E2.BAS FLAME.BAS FLAME2.BAS HELLO \
$(DOS33) -y appleiibot.dsk SAVE A TURKEY.BAS
$(DOS33) -y appleiibot.dsk SAVE A FLAME_HGR.BAS
$(DOS33) -y appleiibot.dsk SAVE A RECT.BAS
$(DOS33) -y appleiibot.dsk SAVE A SNOWY.BAS
####
@ -235,6 +236,11 @@ SNOW.BAS: snow.bas
####
SNOWY.BAS: snowy.bas
$(TOKENIZE) < snowy.bas > SNOWY.BAS
####
THICK_SINE.BAS: thick_sine.bas
$(TOKENIZE) < thick_sine.bas > THICK_SINE.BAS

3
basic/appleiibot/snowy.bas Normal file
View File

@ -0,0 +1,3 @@
0Q=38:GR:FORI=0TO9:X(I)=RND(1)*Q:Y(I)=I:COLOR=1:VLIN33,QAT16+I:COLOR=4:HLIN9-I/2,9+I/2AT28+I:COLOR=8:VLIN29,33AT16+I:NEXT:VLIN36,QAT20:HLIN0,QAT39:PLOT9,Q
3FORI=0TO9:V=X(I):W=Y(I):COLOR=15:PLOTV,W:PLOTV,W+1:COLOR=0:IFSCRN(V,W+2)>0THENX(I)=RND(1)*Q:W=0
6PLOTV,W:Y(I)=W+1:NEXT:GOTO3