Apple-2-SW/dos33fsprogs
1
0
Fork 0
mirror of https://github.com/deater/dos33fsprogs.git synced 2025-01-27 23:30:56 +00:00
Code Issues Projects Releases Wiki Activity

combo: both Apple II and GWBASIC

Browse Source
This commit is contained in:
Vince Weaver 2021-02-07 22:08:43 -05:00
parent 4224a48d64
commit cbc2c26488
2 changed files with 11 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
basic/appleiibot/Makefile
View File

@ -12,7 +12,8 @@ appleiibot.dsk: E2.BAS FLAME.BAS FLAME2.BAS HELLO \
A2.BAS FOURAM.BAS FLOPPY.BAS QR.BAS A2_4EVER.BAS RLE.BAS RLE2.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 \ 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 \ FASTAR2.BAS BIN.BAS FALLING.BAS SNOW.BAS XMAS.BAS AN3.BAS PLASMA.BAS \
C64.BAS SIERPINSKI.BAS FAKES.BAS SIER.BAS DROPS.BAS RR.BAS RR_HGR.BAS C64.BAS SIERPINSKI.BAS FAKES.BAS SIER.BAS DROPS.BAS RR.BAS RR_HGR.BAS \
COMBO.BAS
cp empty.dsk appleiibot.dsk cp empty.dsk appleiibot.dsk
$(DOS33) -y appleiibot.dsk BSAVE -a 0x0300 LOAD $(DOS33) -y appleiibot.dsk BSAVE -a 0x0300 LOAD
$(DOS33) -y appleiibot.dsk SAVE A HELLO $(DOS33) -y appleiibot.dsk SAVE A HELLO
@ -63,6 +64,7 @@ appleiibot.dsk: E2.BAS FLAME.BAS FLAME2.BAS HELLO \
$(DOS33) -y appleiibot.dsk SAVE A DROPS.BAS $(DOS33) -y appleiibot.dsk SAVE A DROPS.BAS
$(DOS33) -y appleiibot.dsk SAVE A RR.BAS $(DOS33) -y appleiibot.dsk SAVE A RR.BAS
$(DOS33) -y appleiibot.dsk SAVE A RR_HGR.BAS $(DOS33) -y appleiibot.dsk SAVE A RR_HGR.BAS
$(DOS33) -y appleiibot.dsk SAVE A COMBO.BAS
#### ####
@ -373,6 +375,11 @@ RR.BAS: rr.bas
RR_HGR.BAS: rr_hgr.bas RR_HGR.BAS: rr_hgr.bas
$(TOKENIZE) < rr_hgr.bas > RR_HGR.BAS $(TOKENIZE) < rr_hgr.bas > RR_HGR.BAS
####
COMBO.BAS: combo.bas
$(TOKENIZE) < combo.bas > COMBO.BAS
#### ####

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

@ -0,0 +1,3 @@
0 A$="'2aBW'271A'8?8A&.1DU&RaBS&bkHW$2ORS% -FS":DEF FNP(X)=ASC(MID$(A$,I*5+X))
2 IF PEEK(0)=76 THEN HGR:FORI=0TO7:HCOLOR=FNP(1)-32:FORY=FNP(4)TOFNP(5):HPLOTFNP(2),YTOFNP(3),Y:NEXTY,I:END
5 SCREEN 1:FOR I=0 TO 7:LINE (FNP(2),FNP(4))-(FNP(3),FNP(5)),3 AND(216\4^(FNP(1)-36)),BF:NEXT