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: working on flyer

Browse Source
This commit is contained in:
Vince Weaver 2020-10-31 14:17:26 -04:00
parent 9278367090
commit 7f128f0e1b
1 changed files with 7 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
appleiibot/flyer.bas Normal file
View File

@ -0,0 +1,7 @@
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