mirror of
https://github.com/deater/dos33fsprogs.git
synced 2024-09-09 02:54:25 +00:00
appleiibot: messing around with sierpinski
This commit is contained in:
parent
271ac76d73
commit
f093c8f23b
@ -12,7 +12,7 @@ appleiibot.dsk: E2.BAS FLAME.BAS FLAME2.BAS \
|
||||
A2.BAS FOURAM.BAS FLOPPY.BAS QR.BAS A2_4EVER.BAS RLE.BAS RLE2.BAS \
|
||||
RLEASM.BAS HORIZON.BAS FLYER.BAS STAR.BAS HYPER.BAS FASTAR.BAS \
|
||||
FASTAR2.BAS BIN.BAS FALLING.BAS SNOW.BAS XMAS.BAS AN3.BAS PLASMA.BAS \
|
||||
C64.BAS
|
||||
C64.BAS SIERPINSKI.BAS FAKES.BAS
|
||||
cp empty.dsk appleiibot.dsk
|
||||
$(DOS33) -y appleiibot.dsk BSAVE -a 0x0300 LOAD
|
||||
# $(DOS33) -y appleiibot.dsk BSAVE -a 0x0C00 FASTAR2
|
||||
@ -57,6 +57,8 @@ appleiibot.dsk: E2.BAS FLAME.BAS FLAME2.BAS \
|
||||
$(DOS33) -y appleiibot.dsk SAVE A AN3.BAS
|
||||
$(DOS33) -y appleiibot.dsk SAVE A PLASMA.BAS
|
||||
$(DOS33) -y appleiibot.dsk SAVE A C64.BAS
|
||||
$(DOS33) -y appleiibot.dsk SAVE A SIERPINSKI.BAS
|
||||
$(DOS33) -y appleiibot.dsk SAVE A FAKES.BAS
|
||||
|
||||
###
|
||||
|
||||
@ -335,6 +337,18 @@ FASTAR2.BAS: fastar2.bas
|
||||
HYPER.BAS: hyper.bas
|
||||
$(TOKENIZE) < hyper.bas > HYPER.BAS
|
||||
|
||||
|
||||
####
|
||||
|
||||
FAKES.BAS: fakes.bas
|
||||
$(TOKENIZE) < fakes.bas > FAKES.BAS
|
||||
|
||||
|
||||
####
|
||||
|
||||
SIERPINSKI.BAS: sierpinski.bas
|
||||
$(TOKENIZE) < sierpinski.bas > SIERPINSKI.BAS
|
||||
|
||||
####
|
||||
|
||||
clean:
|
||||
|
8
basic/appleiibot/fakes.bas
Normal file
8
basic/appleiibot/fakes.bas
Normal file
@ -0,0 +1,8 @@
|
||||
10 GR:COLOR=9
|
||||
20 FOR X=0 TO 39
|
||||
30 POKE 2138,X
|
||||
40 FOR Y=0 TO X
|
||||
50 POKE 2140,Y:CALL 2137
|
||||
60 PLOT X,PEEK(36)
|
||||
70 NEXT Y,X
|
||||
100 SPEED=$)%DEL$LRUSR
|
10
basic/appleiibot/hgr_fakes.bas
Normal file
10
basic/appleiibot/hgr_fakes.bas
Normal file
@ -0,0 +1,10 @@
|
||||
1 GOTO 10
|
||||
5 SPEED=$)%DEL$LRUSR
|
||||
10 HGR2:HCOLOR=7
|
||||
20 FOR X=0 TO 255
|
||||
30 POKE 2062,X
|
||||
35 Q=X:IF Q>191 THEN Q=191
|
||||
40 FOR Y=0 TO Q
|
||||
50 POKE 2064,Y:CALL 2061
|
||||
60 HPLOT X-Y,PEEK(36)
|
||||
70 NEXT Y,X
|
18
basic/appleiibot/sierpinski.bas
Normal file
18
basic/appleiibot/sierpinski.bas
Normal file
@ -0,0 +1,18 @@
|
||||
10 GR
|
||||
20 FOR X=0 TO 39:FOR Y=0 TO 39
|
||||
30 YY=Y:XX=(20-X)
|
||||
80 C1=(YY-(XX*T/256))
|
||||
85 C2=(YY*T/256+XX)
|
||||
87 A=C1:B=C2:GOSUB 120
|
||||
88 C=C-(INT(C/4)*4)
|
||||
95 COLOR=C:PLOT X,Y
|
||||
100 NEXT Y,X
|
||||
110 END
|
||||
120 C=0
|
||||
140 FOR S =0 TO 7
|
||||
150 A = INT(A)/2 : ABIT = ( A-INT(A) ) * 2
|
||||
160 B = INT(B)/2 : BBIT = ( B-INT(B) ) * 2
|
||||
170 IF ABIT + BBIT > 1 THEN C = C + 256
|
||||
180 C = C / 2 : NEXT
|
||||
190 RETURN
|
||||
|
BIN
games/tfv/graphics_title/tfv_story.png
Normal file
BIN
games/tfv/graphics_title/tfv_story.png
Normal file
Binary file not shown.
After Width: | Height: | Size: 14 KiB |
Loading…
Reference in New Issue
Block a user