Apple-2-SW/dos33fsprogs
1
0
Fork 0
mirror of https://github.com/deater/dos33fsprogs.git synced 2024-11-03 14:05:58 +00:00
Code Issues Projects Releases Wiki Activity

appleiibot: add flyer demo

Browse Source
This commit is contained in:
Vince Weaver 2020-11-05 17:16:46 -05:00
parent 2b97a29936
commit 09d531e4af
2 changed files with 12 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
appleiibot/Makefile
View File

@ -10,7 +10,7 @@ appleiibot.dsk: E2.BAS FLAME.BAS FLAME2.BAS \
CONCERT.BAS NYAN.BAS RASTER.BAS RASTER2.BAS RASTER3.BAS LOTS.BAS LOAD \
RASTER4.BAS RASTER5.BAS PUMPKIN.BAS PUMPKIN_SMALL.BAS LADY.BAS \
A2.BAS FOURAM.BAS FLOPPY.BAS QR.BAS A2_4EVER.BAS RLE.BAS RLE2.BAS \
RLEASM.BAS HORIZON.BAS
RLEASM.BAS HORIZON.BAS FLYER.BAS
cp empty.dsk appleiibot.dsk
$(DOS33) -y appleiibot.dsk BSAVE -a 0x0300 LOAD
$(DOS33) -y appleiibot.dsk SAVE A E2.BAS
@ -42,6 +42,7 @@ appleiibot.dsk: E2.BAS FLAME.BAS FLAME2.BAS \
$(DOS33) -y appleiibot.dsk SAVE A RLE2.BAS
$(DOS33) -y appleiibot.dsk SAVE A RLEASM.BAS
$(DOS33) -y appleiibot.dsk SAVE A HORIZON.BAS
$(DOS33) -y appleiibot.dsk SAVE A FLYER.BAS
###
@ -242,5 +243,10 @@ HORIZON.BAS: horizon.bas
####
FLYER.BAS: flyer.bas
$(TOKENIZE) < flyer.bas > FLYER.BAS
####
clean:
rm -f *~ *.o *.lst convert_to convert_from convert_qkumba make_boxes convert_back LOAD *.BAS

11
appleiibot/flyer.bas
View File

@ -1,7 +1,6 @@
2POKE232,20:POKE233,8
5REM!%%-...
6HGR2:ROT=0:Z=96
7FORJ=0TO7:HCOLOR=1:S=Z+12*J:POKE230,32+32*P:P=NOTP:POKE49236+P,0:CALL-3086
8S=S/2:Y=Z+S:HPLOT0,YTO279,Y:IFS>1THEN8
9HCOLOR=6:HPLOT0,ZTO133,80TO279,Z:HCOLOR=3:SCALE=2:DRAW1AT140+16*SIN(H),180:H=H+0.3
10SCALE=5:DRAW1AT140,120:NEXTJ:GOTO7
5REM#%%-...
6HGR2:ROT=0:Z=96:K=140
7S=Z+J:POKE230,32+32*P:P=NOTP:POKE49236+P,0:CALL-3086:HCOLOR=6:HPLOT0,ZTOK,80TO279,Z:HCOLOR=1
8S=S/2:Y=Z+S:HPLOT0,YTO279,Y:SCALE=1+S/5:XDRAW1ATK,Y:IFS>1THEN8
9SCALE=2:XDRAW1ATK+16*SIN(H),180:H=H+0.3:J=(J+12)*(J<84):GOTO7