diff --git a/basic/appleiibot/Makefile b/basic/appleiibot/Makefile index 22d4086c..976caeab 100644 --- a/basic/appleiibot/Makefile +++ b/basic/appleiibot/Makefile @@ -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: diff --git a/basic/appleiibot/fakes.bas b/basic/appleiibot/fakes.bas new file mode 100644 index 00000000..db696e1a --- /dev/null +++ b/basic/appleiibot/fakes.bas @@ -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 diff --git a/basic/appleiibot/hgr_fakes.bas b/basic/appleiibot/hgr_fakes.bas new file mode 100644 index 00000000..db7ccf8c --- /dev/null +++ b/basic/appleiibot/hgr_fakes.bas @@ -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 diff --git a/basic/appleiibot/sierpinski.bas b/basic/appleiibot/sierpinski.bas new file mode 100644 index 00000000..4ea4f88c --- /dev/null +++ b/basic/appleiibot/sierpinski.bas @@ -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 + diff --git a/games/tfv/graphics_title/tfv_story.png b/games/tfv/graphics_title/tfv_story.png new file mode 100644 index 00000000..0f6269e0 Binary files /dev/null and b/games/tfv/graphics_title/tfv_story.png differ