mirror of
https://github.com/deater/dos33fsprogs.git
synced 2024-09-09 02:54:25 +00:00
combo: both Apple II and GWBASIC
This commit is contained in:
parent
4224a48d64
commit
cbc2c26488
@ -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 \
|
||||
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 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
|
||||
$(DOS33) -y appleiibot.dsk BSAVE -a 0x0300 LOAD
|
||||
$(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 RR.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
|
||||
$(TOKENIZE) < rr_hgr.bas > RR_HGR.BAS
|
||||
|
||||
####
|
||||
|
||||
COMBO.BAS: combo.bas
|
||||
$(TOKENIZE) < combo.bas > COMBO.BAS
|
||||
|
||||
|
||||
####
|
||||
|
||||
|
3
basic/appleiibot/combo.bas
Normal file
3
basic/appleiibot/combo.bas
Normal 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
|
Loading…
Reference in New Issue
Block a user